diff options
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-x | perl-install/standalone/net_monitor | 16 |
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/; |