X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Frbn.pl;h=670caed54d2e8ef36d1d75e5f94cd789cedee12a;hb=55d89da47d81b4a66fab966620dacd213b6ca20e;hp=eb2c743ecd9f2ff46348a96939532975451a2162;hpb=dbc07bca561550cf5dd928796e1747f480929329;p=spider.git

diff --git a/perl/rbn.pl b/perl/rbn.pl
index eb2c743e..670caed5 100755
--- 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);