improve rbn.pl

[spider.git] / perl / rbn.pl

diff --git a/perl/rbn.pl b/perl/rbn.pl
index eb2c743ecd9f2ff46348a96939532975451a2162..670caed54d2e8ef36d1d75e5f94cd789cedee12a 100755 (executable)
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -30,12 +30,13 @@ my $help = 0;
 my $man = 0;
 my $mycall;
 
+#Getopt::Long::Configure( qw(auto_abbrev) );
 GetOptions('host=s' => \$host,
                   'port=i' => \$port,
                   'debug' => \$dbg,
                   'rbn' => \$showrbn,
                   'stats' => \$showstats,
-                  'repeattime=i' => sub { $minspottime = $_[1] * 60 },
+                  'repeattime|rt=i' => sub { $minspottime = $_[1] * 60 },
                   'want=s' => sub {
                           my ($name, $value) = @_;
                           $wantcw = $wantrtty = $wantpsk = $wantbeacon = 0;
@@ -47,7 +48,7 @@ GetOptions('host=s' => \$host,
                           }
                   },
                   'help|?' => \$help,
-                  man => \$man,
+                  'man' => \$man,
                   '<>' => sub { $mycall = shift },
                  ) or pod2usage(2);