summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
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
parent1e53c8f9b0a53e27fe8255ceea9f093bbd95cfd7 (diff)
downloaddrakx-backup-do-not-use-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar
drakx-backup-do-not-use-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar.gz
drakx-backup-do-not-use-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar.bz2
drakx-backup-do-not-use-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.tar.xz
drakx-backup-do-not-use-c7a67d1bcbcffaadbbb06be8f11e78e7508eed02.zip
drakbug, drakfont, drakperm, draksplash, drakxtv, harddrake2,
net_monitor : final update for common cli options/help manager
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbug16
-rwxr-xr-xperl-install/standalone/drakfont16
-rwxr-xr-xperl-install/standalone/drakperm4
-rwxr-xr-xperl-install/standalone/draksplash4
-rwxr-xr-xperl-install/standalone/drakxtv2
-rwxr-xr-xperl-install/standalone/harddrake26
-rwxr-xr-xperl-install/standalone/net_monitor16
7 files changed, 1 insertions, 63 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index b5e4e4053..b8e1c3a3e 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -36,23 +36,7 @@ my $version = "0.9.0";
my $prog;
my $incident=0;
-sub usage {
- print STDERR N("drakbug version %s
-Copyright (C) 2002 MandrakeSoft.
-This is free software and may be redistributed under the terms of the GNU GPL.
-
-usage: drakbug [OPTIONS] [PROGRAM_NAME]
-
-OPTIONS:
-", $version) . N(" --help - print this help message.
-") . "\n" . N(" --report - program should be one of mandrake tools
-") . "\n" . N(" --incident - program should be one of mandrake tools
-");
- exit(0);
-}
-
while (defined($_ = shift @ARGV)) {
- /^--help$/ and do { usage; next };
/^--report$/ and do { $prog = shift @ARGV };
/^--incident$/ and do {$incident = 1 ; $prog = shift @ARGV };
}
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index ec8386b5f..f9b5e2ad6 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -95,22 +95,6 @@ use diagnostics;
my $in = 'interactive'->vnew( 'su', 'network' );
-if ( "@ARGV" =~ /--help|-h/ ) {
- print q(Font Importation and monitoring application
---windows_import : import from all available windows partitions.
---xls_fonts : show all fonts that already exist from xls
---strong : strong verification of font.
---install : accept any font file and any directry.
---uninstall : uninstall any font or any directory of font.
---replace : replace all font if already exist
---application : 0 none application.
- : 1 all application available supported.
- : name_of_application like so for staroffice
- : and gs for ghostscript for only this one.
-);
- exit(0);
-}
-
# global variables needed by each functions
my $xlsfonts = 0;
my $windows = 0;
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 114185a75..4a94bcf32 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -10,10 +10,6 @@ use interactive;
my $in = 'interactive'->vnew('su', 'default');
local $_ = join '', @ARGV;
-/-h/ and die N("no help implemented yet.\n");
-/-version/ and die 'version: $Id$'."\n";
-
-
#- vars declaration
my ($default_perm_level) = "level ".chomp_(`cat /etc/sysconfig/msec | grep SECURE_LEVEL= |cut -d= -f2`);
my %CURENT;
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 69da21275..e5840b568 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -21,10 +21,6 @@ if ($::isEmbedded) {
}
my $in = 'interactive'->vnew('su', 'default');
-local $_ = join '', @ARGV;
-
-/-h/ and die N("no help implemented yet.\n");
-/-version/ and die 'version: $Id$'."\n";
my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel");
$window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : &CloseAppWindow });
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index c0d76ea3d..75f122f99 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -73,7 +73,6 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
# default to pal since most people use that
$norm = "PAL";
- if ("@ARGV" !~ /--help|-h/) {
my %countries =
(
"ar" => [ "argentina" ],
@@ -99,7 +98,6 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
}
}
log::l("[drakxtv] guess lang=>$_, norm=>$norm, area=>$ftable_id");
- }
if ($in->ask_from("TVdrake", N("Please,\ntype in your tv norm and country"),
[
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 72385a07a..3a798b021 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -5,10 +5,4 @@ use standalone;
use common;
use harddrake::ui;
-if ("@ARGV" =~ /--help|-h/) {
- print "Harddrake 2\n", $harddrake::ui::license, N("\nUsage: harddrake [-h|--help] [--test]\n");
- exit;
-}
-$::isStandalone=1;
-
harddrake::ui->new;
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/;