drakbug, drakfont, drakperm, draksplash, drakxtv, harddrake2,

net_monitor : final update for common cli options/help manager

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/;