update copyright

[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);
-                       $dxchan->disconnect if ($dxchan->{state} eq 'bye');
                } 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
-dbg("Copyright (c) 1998-2001 Dirk Koopman G1TLH");
+dbg("Copyright (c) 1998-2002 Dirk Koopman G1TLH");
 dbg("DXSpider Version $version, build $build started");
 
 # load Prefixes