summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-09-05 21:50:01 +0000
committerdamien <damien@mandriva.com>2001-09-05 21:50:01 +0000
commite0c29e40dc830315f3adba09b09dc703d267c3f5 (patch)
tree089a6a88384f60d6b6a7eecc98f4174aa7eb443a /perl-install
parent61e2d7e398f7ac6861b81f4c91ce73b8aaae8d4f (diff)
downloaddrakx-backup-do-not-use-e0c29e40dc830315f3adba09b09dc703d267c3f5.tar
drakx-backup-do-not-use-e0c29e40dc830315f3adba09b09dc703d267c3f5.tar.gz
drakx-backup-do-not-use-e0c29e40dc830315f3adba09b09dc703d267c3f5.tar.bz2
drakx-backup-do-not-use-e0c29e40dc830315f3adba09b09dc703d267c3f5.tar.xz
drakx-backup-do-not-use-e0c29e40dc830315f3adba09b09dc703d267c3f5.zip
corrected opeions
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet1
-rwxr-xr-xperl-install/standalone/net_monitor5
2 files changed, 5 insertions, 1 deletions
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/;