projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
dbc07bc
)
improve rbn.pl
author
Dirk Koopman
<djk@tobit.co.uk>
Thu, 5 Jan 2017 12:07:12 +0000
(12:07 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Thu, 5 Jan 2017 12:07:12 +0000
(12:07 +0000)
UPGRADE.mojo
patch
|
blob
|
history
perl/rbn.pl
patch
|
blob
|
history
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 w
h
ere, 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);