improve rbn.pl
authorDirk Koopman <djk@tobit.co.uk>
Thu, 5 Jan 2017 12:07:12 +0000 (12:07 +0000)
committerDirk Koopman <djk@tobit.co.uk>
Thu, 5 Jan 2017 12:07:12 +0000 (12:07 +0000)
UPGRADE.mojo
perl/rbn.pl

index 378b943f51dd75cf3322d6bb2bf98470f85a29e0..6e5047fbc8d0b84904cd9b968823b3be59f9b085 100644 (file)
@@ -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
-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.
index eb2c743ecd9f2ff46348a96939532975451a2162..670caed54d2e8ef36d1d75e5f94cd789cedee12a 100755 (executable)
@@ -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);