X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fcluster.pl;h=848131f70ba8d28906a98f43d685391a03cc893c;hp=4c65e86858acb7c7711152562579c06d0384276f;hb=cef696652d16bbeec53aca45234ea0b64f3496d3;hpb=d7cd2f1d32971efd542a9e4bf0d1df92a4d054de diff --git a/perl/cluster.pl b/perl/cluster.pl index 4c65e868..848131f7 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -47,7 +47,7 @@ package main; @inqueue = (); # the main input queue, an array of hashes $systime = 0; # the time now (in seconds) -$version = 1.3; # the version no of the software +$version = 1.4; # the version no of the software # handle disconnections sub disconnect @@ -129,6 +129,7 @@ sub cease foreach $dxchan (DXChannel->get_all()) { disconnect($dxchan); } + Log('cluster', "DXSpider V$version stopped"); exit(0); } @@ -176,6 +177,8 @@ foreach (@debug) { } STDOUT->autoflush(1); +Log('cluster', "DXSpider V$version started"); + # banner print "DXSpider DX Cluster Version $version\nCopyright (c) 1998 Dirk Koopman G1TLH\n";