summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_monitor
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-18 15:53:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-18 15:53:36 +0000
commitc7a67d1bcbcffaadbbb06be8f11e78e7508eed02 (patch)
treeccfa6168b59e6fd34f66b6fff7d343277272bc67 /perl-install/standalone/net_monitor
parent1e53c8f9b0a53e27fe8255ceea9f093bbd95cfd7 (diff)
downloaddrakx-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar
drakx-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar.gz
drakx-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar.bz2
drakx-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar.xz
drakx-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.zip
drakbug, drakfont, drakperm, draksplash, drakxtv, harddrake2,
net_monitor : final update for common cli options/help manager
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-xperl-install/standalone/net_monitor16
1 files changed, 1 insertions, 15 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index b12863418..d30efdf61 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -21,30 +21,16 @@
use Gtk;
use lib qw(/usr/lib/libDrakX);
+use strict;
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
use interactive;
use my_gtk qw(:helpers :wrappers);
-#-use Data::Dumper;
use common;
-use strict;
use network::netconnect;
use network::tools;
use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_file $connect_prog);
-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
---disconnect : disconnect to internet if already connected
---force : used with (dis)connect : force (dis)connection.
---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/;
my $quiet = "@ARGV" =~ /--quiet/;