projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
a mostly working send message implementation
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index f1759ef5a01e80a178d2210206081afa50ca5409..5b3f64668cf2f10cd6a0c8238f6f78e7dc34a5f7 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-16,8
+16,8
@@
BEGIN {
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
- unshift @INC,
'$root/perl'
; # this IS the right way round!
- unshift @INC,
'$root/local'
;
+ unshift @INC,
"$root/perl"
; # this IS the right way round!
+ unshift @INC,
"$root/local"
;
}
use Msg;
}
use Msg;
@@
-35,6
+35,7
@@
use DXCron;
use DXConnect;
use Prefix;
use Bands;
use DXConnect;
use Prefix;
use Bands;
+use Carp;
package main;
package main;
@@
-142,13
+143,10
@@
sub process_inqueue
$dxchan->start($line);
} elsif ($sort eq 'D') {
die "\$user not defined for $call" if !defined $user;
$dxchan->start($line);
} elsif ($sort eq 'D') {
die "\$user not defined for $call" if !defined $user;
- if ($dxchan->{func}) {
- # call an ongoing routine if there is a function specified
- &{$dxchan->{func}} ($dxchan, $line);
- } else {
- # normal input
- $dxchan->normal($line);
- }
+
+ # normal input
+ $dxchan->normal($line);
+
disconnect($dxchan) if ($dxchan->{state} eq 'bye');
} elsif ($sort eq 'Z') {
disconnect($dxchan);
disconnect($dxchan) if ($dxchan->{state} eq 'bye');
} elsif ($sort eq 'Z') {
disconnect($dxchan);
@@
-170,6
+168,9
@@
foreach(@debug) {
}
STDOUT->autoflush(1);
}
STDOUT->autoflush(1);
+# banner
+print "DXSpider DX Cluster Version $version\nCopyright (c) 1998 Dirk Koopman G1TLH\n";
+
# load Prefixes
print "loading prefixes ...\n";
Prefix::load();
# load Prefixes
print "loading prefixes ...\n";
Prefix::load();