summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakproxy
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2001-11-20 23:35:06 +0000
committerMystery Man <unknown@mandriva.org>2001-11-20 23:35:06 +0000
commit9f1dfb0e6b859cba0ebda5f945987ba6c24a596b (patch)
treed85d9819673c16e4753109862a2eeb9bfa775e7a /perl-install/standalone/drakproxy
parentdee901a3fde82083a630082f04c0139c73ba248f (diff)
downloaddrakx-backup-do-not-use-topic/PCMCIA_CS_DISTRO.tar
drakx-backup-do-not-use-topic/PCMCIA_CS_DISTRO.tar.gz
drakx-backup-do-not-use-topic/PCMCIA_CS_DISTRO.tar.bz2
drakx-backup-do-not-use-topic/PCMCIA_CS_DISTRO.tar.xz
drakx-backup-do-not-use-topic/PCMCIA_CS_DISTRO.zip
This commit was manufactured by cvs2svn to create branchtopic/PCMCIA_CS_DISTRO
'PCMCIA_CS_DISTRO'.
Diffstat (limited to 'perl-install/standalone/drakproxy')
-rwxr-xr-xperl-install/standalone/drakproxy91
1 files changed, 0 insertions, 91 deletions
diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy
deleted file mode 100755
index acfc159ba..000000000
--- a/perl-install/standalone/drakproxy
+++ /dev/null
@@ -1,91 +0,0 @@
-#!/usr/bin/perl
-
-#
-# DindinX (odin@mandrakesoft.com)
-#
-# Copyright 2001 MandrakeSoft
-#
-# This software may be freely redistributed under the terms of the GNU
-# public license.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-
-use lib qw(/usr/lib/libDrakX);
-
-use interactive;
-use standalone;
-use proxy;
-
-use my_gtk qw(:helpers :wrappers);
-# use detect_devices;
-
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-
-local $_ = join '', @ARGV;
-
-/-h/ and die "usage: drakproxy [--version]\n";
-/-version/ and die 'version: drakproxy 1.0 2001/05/22 dindinx'."\n";
-$::isEmbedded or $::isWizard = 1;
-$::Wizard_pix_up = "wiz_drakgw.png"; # FIXME
-$::Wizard_title = _("Proxy handling");
-
-my $in = 'interactive'->vnew('su', 'default');
-
-if ($::isWizard || ($::isEmbedded && $in->isa('interactive_gtk'))) {
- proxy::main('', $in);
- $in->exit(0);
-}
-
-# pure gtk_mode
-my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-$window1->signal_connect ( delete_event => sub { Gtk->exit(0); });
-$window1->set_position(1);
-$window1->set_title(_("Proxy configuration"));
-$window1->border_width(10);
-gtkshow(gtkadd($window1,
- gtkpack_(new Gtk::VBox(0,0),
- 1, gtkpack(new Gtk::HBox(0,0),
- new Gtk::Label _("Welcome to the Proxy Connection utility
-
-Click on Configure to launch the setup wizard."),
- ),
- 1, gtkpack(my $hbox2 = new Gtk::HBox(0,0),),
- 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
- gtksignal_connect(new Gtk::Button(_("Configure")), clicked => sub { system ("/usr/sbin/drakproxy --wizard") }),
- gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { kill(USR1, $::CCPID) }),
- )
- )
- )
- );
-Gtk->main_iteration while Gtk->events_pending;
-$::isEmbedded and kill USR2, $::CCPID;
-Gtk->main;
-Gtk->exit(0);
-
-#-------------------------------------------------
-#- $Log$
-#- Revision 1.8 2001/10/30 20:11:31 damien
-#- corrected ref($in) =~ /gtk/
-#-
-#- Revision 1.7 2001/08/09 09:35:37 gc
-#- use vnew the right way everywhere
-#-
-#- Revision 1.6 2001/08/08 18:26:31 prigaux
-#- add interactive_pkgs stuff
-#-
-#- Revision 1.5 2001/06/12 12:45:57 odin
-#- ui for drakproxy almost done
-#-
-#- Revision 1.4 2001/06/11 16:34:49 damien
-#- corrected CVS: ----------------------------------------------------------------------
-#-
-#- Revision 1.2 2001/06/11 16:03:10 damien
-#- perlised
-#-
-#- Revision 1.1 2001/06/11 15:22:41 odin
-#- first import of drakproxy
-#-
-#-