From 2a41151ca87123e05e3d4f5bc501b07bba0c19dd Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 24 Aug 2000 18:57:58 +0000
Subject: updated net cnx

---
 perl-install/Xconfigurator.pm   | 2 +-
 perl-install/standalone/draknet | 9 ++++-----
 2 files changed, 5 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 917035a11..5e1de7617 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -1110,7 +1110,7 @@ Would you like X to start when you reboot?"), 1);
 _("I can set up your computer to automatically log on one user.
 If you don't want to use this feature, click on the cancel button."),
                                            [ _("Choose the default user:") => {val => \$o->{miscellaneous}{autologuser}, list => \@users, not_edit => 1} ])
-		  or delete $o->{miscellaneaous}{autologuser};
+		    or delete $o->{miscellaneaous}{autologuser};
 	    }
 	    any::setAutologin($prefix, $o->{miscellaneous}{autologuser}, "kde");
 	}
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 849bf14d0..936836002 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 #- CHANGE THIS! (dam's)
-# DrakFuck
+# DrakNet
 
 # Copyright (C) 1999 MandrakeSoft (damien@mandrakesoft.com)
 #
@@ -19,16 +19,15 @@
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-use lib qw ".."; #(/usr/lib/libDrakX);
+use lib qw (/usr/lib/libDrakX); #..(/usr/lib/libDrakX);
 
 use interactive;
 use netconnect;
-#use Xconfig;
 use c;
 
 local $_ = join '', @ARGV;
 
-#/-h/ and die "usage: DrakFuck[--xf3] [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n";
+#/-h/ and die "usage: draknet[--xf3] [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n";
 
 my $netcnx = {};
 
@@ -47,6 +46,6 @@ $::isStandalone = 1;
 
 my $in = vnew interactive('su');
 
-netconnect::net_connect('', $netcnx, $in, -e "/etc/pcmcia");
+netconnect::intro('', $netcnx, $in, -e "/etc/pcmcia");
 
 $in->exit(0);
-- 
cgit v1.2.1