added logging

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 4c65e86858acb7c7711152562579c06d0384276f..848131f70ba8d28906a98f43d685391a03cc893c 100755 (executable)
--- 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";