improve rbn.pl

[spider.git] / perl / rbn.pl

diff --git a/perl/rbn.pl b/perl/rbn.pl
index f92b32019c8c8a8f218c3497a4343cc68aef08f8..670caed54d2e8ef36d1d75e5f94cd789cedee12a 100755 (executable)
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -30,16 +30,17 @@ 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;
-                          for (split /:,|/, $value) {
+                          for (split /[:,\|]/, $value) {
                                   ++$wantcw if /^cw$/i;
                                   ++$wantpsk if /^psk$/i;
                                   ++$wantrtty if /^rtty$/i;
@@ -47,7 +48,7 @@ GetOptions('host=s' => \$host,
                           }
                   },
                   'help|?' => \$help,
-                  man => \$man,
+                  'man' => \$man,
                   '<>' => sub { $mycall = shift },
                  ) or pod2usage(2);