projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add import_cmd and other tidyups
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 1f225b592862c76e217ca6bc8e9f39082e1cf9fb..359ab0975ddd767f923c93d0ed3fe9babe329e3d 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-165,7
+165,9
@@
$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-2002 Dirk Koopman G1TLH");
+my ($year) = (gmtime)[5];
+$year += 1900;
+dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
dbg("DXSpider Version $version, build $build started");
# load Prefixes
dbg("DXSpider Version $version, build $build started");
# load Prefixes
@@
-267,7
+269,7
@@
DXProt->init();
Aranea->init();
# put in a DXCluster node for us here so we can add users and take them away
Aranea->init();
# put in a DXCluster node for us here so we can add users and take them away
-$routeroot = Route::Node->new($mycall,
$version*100+5252
, $main::me->here);
+$routeroot = Route::Node->new($mycall,
int($version*100)+$DXProt::myprot_version
, $main::me->here);
# make sure that there is a routing OUTPUT node default file
#unless (Filter::read_in('route', 'node_default', 0)) {
# make sure that there is a routing OUTPUT node default file
#unless (Filter::read_in('route', 'node_default', 0)) {