projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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);