From c7a67d1bcbcffaadbbb06be8f11e78e7508eed02 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Nov 2002 15:53:36 +0000 Subject: drakbug, drakfont, drakperm, draksplash, drakxtv, harddrake2, net_monitor : final update for common cli options/help manager --- perl-install/standalone/net_monitor | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'perl-install/standalone/net_monitor') 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/; -- cgit v1.2.1