improve rbn.pl

diff --git a/UPGRADE.mojo b/UPGRADE.mojo
index 378b943f51dd75cf3322d6bb2bf98470f85a29e0..6e5047fbc8d0b84904cd9b968823b3be59f9b085 100644 (file)
--- a/UPGRADE.mojo
+++ b/UPGRADE.mojo
@@ -11,7 +11,7 @@ the node. I am also using a modern, event driven, web socket "manager" called Mo
 which is considerably more efficient than what went before (but is not necessary for small
 nodes). There are some 200-400 user nodes out there that will definitely see the difference
 in terms of both CPU usage and general responsiveness. Using Mojolicious also brings the
 which is considerably more efficient than what went before (but is not necessary for small
 nodes). There are some 200-400 user nodes out there that will definitely see the difference
 in terms of both CPU usage and general responsiveness. Using Mojolicious also brings the

-tantalising possibility of grafting on a web frontend, as it where, to the "side" of a
+tantalising possibility of grafting on a web frontend, as it were, to the "side" of a

 DXSpider node. But serious work on this won't start until we have a stable base to work
 on. Apart from anything else there will, almost certainly, need to be some internal data
 structure reorganisation before a decent web frontend could be constructed.
 DXSpider node. But serious work on this won't start until we have a stable base to work
 on. Apart from anything else there will, almost certainly, need to be some internal data
 structure reorganisation before a decent web frontend could be constructed.

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;
 
 my $man = 0;
 my $mycall;
 

+#Getopt::Long::Configure( qw(auto_abbrev) );

 GetOptions('host=s' => \$host,
                   'port=i' => \$port,
                   'debug' => \$dbg,
                   'rbn' => \$showrbn,
                   'stats' => \$showstats,
 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;
                   'want=s' => sub {
                           my ($name, $value) = @_;
                           $wantcw = $wantrtty = $wantpsk = $wantbeacon = 0;


@@ -47,7 +48,7 @@ GetOptions('host=s' => \$host,
                           }
                   },
                   'help|?' => \$help,
                           }
                   },
                   'help|?' => \$help,

-                  man => \$man,
+                  'man' => \$man,

                   '<>' => sub { $mycall = shift },
                  ) or pod2usage(2);
 
                   '<>' => sub { $mycall = shift },
                  ) or pod2usage(2);