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/drakbug | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'perl-install/standalone/drakbug') 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 }; } -- cgit v1.2.1