projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
modified sh/qrz a bit to cope with slow server
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 16458073b837bf7005718fac05fe2b66e5af7aa6..203f6956a1bc8a011dd054b3e21e6d64c8ceacbd 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-311,7
+311,6
@@
sub process_inqueue
die "\$user not defined for $call" if !defined $user;
# normal input
$dxchan->normal($line);
die "\$user not defined for $call" if !defined $user;
# normal input
$dxchan->normal($line);
- $dxchan->disconnect if ($dxchan->{state} eq 'bye');
} elsif ($sort eq 'Z') {
$dxchan->disconnect;
} elsif ($sort eq 'D') {
} elsif ($sort eq 'Z') {
$dxchan->disconnect;
} elsif ($sort eq 'D') {
@@
-363,7
+362,7
@@
$build = "$build.$branch" if $branch;
Log('cluster', "DXSpider V$version, build $build started");
# banner
Log('cluster', "DXSpider V$version, build $build started");
# banner
-dbg("Copyright (c) 1998-200
1
Dirk Koopman G1TLH");
+dbg("Copyright (c) 1998-200
2
Dirk Koopman G1TLH");
dbg("DXSpider Version $version, build $build started");
# load Prefixes
dbg("DXSpider Version $version, build $build started");
# load Prefixes