From e0c29e40dc830315f3adba09b09dc703d267c3f5 Mon Sep 17 00:00:00 2001 From: damien Date: Wed, 5 Sep 2001 21:50:01 +0000 Subject: corrected opeions --- perl-install/standalone/draknet | 1 + perl-install/standalone/net_monitor | 5 ++++- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index 8efe739c0..dc2c1f4e3 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -37,6 +37,7 @@ use MDK::Common::Globals "network", qw($in $prefix $disconnect_file $connect_pro my $xpm_path="/usr/share/libDrakX/pixmaps"; $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; $::isWizard = "@ARGV" =~ /--wizard/; +$::expert = "@ARGV" =~ /--expert/; $::isEmbedded or $::isWizard=1; $::Wizard_pix_up = "wiz_draknet.png"; $::Wizard_title = "Network & Internet Configuration"; diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 09fb02114..6dc90d224 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -30,7 +30,8 @@ use network::netconnect; use network::tools; use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_file $connect_prog); -"@ARGV" =~ /--help/ and print q(Network & Internet connection and monitoring application +if ("@ARGV" =~ /--help|-h/) { + print q(Network & Internet connection and monitoring application --defaultintf interface : show this interface by default --connect : connect to internet if not already connected @@ -39,6 +40,8 @@ use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_fil --status : returns 1 if connected 0 otherwise, then exit. --quiet : don't be interactive. To be used with (dis)connect. ); + exit(0); +} if ("@ARGV" =~ /--status/) { print connected(); exit(0) } my $force = "@ARGV" =~ /--force/; -- cgit v1.2.1