X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=server-src%2Famstatus.pl;fp=server-src%2Famstatus.pl;h=7192e181e1605b63b5e8b0ccd2ba381851708385;hb=8eb7e8e19f1373f6be7f1f7837b997748ce31d0e;hp=be2b8fe40467e647bdb53201dcae2b9d1051ba5a;hpb=75cec888bd949240e5ba6780d513ada25a7e5caa;p=debian%2Famanda

diff --git a/server-src/amstatus.pl b/server-src/amstatus.pl
index be2b8fe..7192e18 100644
--- a/server-src/amstatus.pl
+++ b/server-src/amstatus.pl
@@ -6,13 +6,13 @@ eval '(exit $?0)' && eval 'exec @PERL@ -S $0 ${1+"$@"}'
 	 & eval 'exec @PERL@ -S $0 $argv:q'
 		if 0;
 
-require "newgetopt.pl";
 use warnings;
 use lib '@amperldir@';
 use Time::Local;
 use Text::ParseWords;
 use Amanda::Util;
 use Amanda::Process;
+use Getopt::Long;
 
 delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'};
 $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin";       # force known path
@@ -33,26 +33,52 @@ $STATUS_MISSING =  8;
 $STATUS_TAPE    = 16;
 $exit_status    =  0;
 
-$result = &NGetOpt (	"summary",
-			"stats|statistics",
-			"dumping|d",
-			"waitdumping|wdumping",
-			"waittaper|wtaper",
-			"dumpingtape|dtape",
-			"writingtape|wtape",
-			"finished",
-			"failed|error",
-			"estimate",
-			"gestimate|gettingestimate",
-			"date",
-			"config|c:s",
-			"file:s",
-			"locale-independent-date-format",
-			);
-if($result !=1 ) {
-	&usage();
+my $opt_summary;
+my $opt_stats;
+my $opt_dumping;
+my $opt_waitdumping;
+my $opt_waittaper;
+my $opt_dumpingtape;
+my $opt_writingtape;
+my $opt_finished;
+my $opt_failed;
+my $opt_estimate;
+my $opt_gestimate;
+my $opt_date;
+my $opt_config;
+my $opt_file;
+my $opt_locale_independent_date_format;
+
+sub usage() {
+	print "amstatus [--file amdump_file]\n";
+	print "         [--summary] [--dumping] [--waitdumping] [--waittaper]\n";
+	print "         [--dumpingtape] [--writingtape] [--finished] [--failed]\n";
+	print "         [--estimate] [--gestimate] [--stats] [--date]\n";
+	print "         [--locale-independent-date-format]\n";
+	print "         [--config] <config>\n";
+	exit 0;
 }
 
+Getopt::Long::Configure(qw{ bundling });
+GetOptions(
+    'summary'                        => \$opt_summary,
+    'stats|statistics'               => \$opt_stats,
+    'dumping|d'                      => \$opt_dumping,
+    'waitdumping|wdumping'           => \$opt_waitdumping,
+    'waittaper|wtaper'               => \$opt_waittaper,
+    'dumpingtape|dtape'              => \$opt_dumpingtape,
+    'writingtape|wtape'              => \$opt_writingtape,
+    'finished'                       => \$opt_finished,
+    'failed|error'                   => \$opt_failed,
+    'estimate'                       => \$opt_estimate,
+    'gestimate|gettingestimate'      => \$opt_gestimate,
+    'date'                           => \$opt_date,
+    'config|c:s'                     => \$opt_config,
+    'file:s'                         => \$opt_file,
+    'locale-independent-date-format' => \$opt_locale_independent_date_format,
+    ) or usage();
+
+
 if( defined $opt_config ) {
 	$conf = $opt_config;
 }
@@ -1566,12 +1592,3 @@ sub busytime() {
 	return $result;
 }
 
-sub usage() {
-	print "amstatus [--file amdump_file]\n";
-	print "         [--summary] [--dumping] [--waitdumping] [--waittaper]\n";
-	print "         [--dumpingtape] [--writingtape] [--finished] [--failed]\n";
-	print "         [--estimate] [--gestimate] [--stats] [--date]\n";
-	print "         [--locale-independent-date-format]\n";
-	print "         [--config] <config>\n";
-	exit 0;
-}