X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fcluster.pl;h=6fded2416f3decac8ccbf985a6c2ebf5061e6e1b;hp=c324930fad4b8ac9d9190b2fcd1bac07c6a31342;hb=0017002e2dc438d49fcc090dc99b6d22f7037aa7;hpb=2e16209416d1d189707935868a708b525c93097b

diff --git a/perl/cluster.pl b/perl/cluster.pl
index c324930f..6fded241 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -9,12 +9,13 @@
 #
 # Copyright (c) 1998 Dirk Koopman G1TLH
 #
+# $Id$
 # 
 
 use Msg;
 use DXVars;
 use DXUtil;
-use DXConnect;
+use DXChannel;
 use DXUser;
 
 package main;
@@ -55,7 +56,7 @@ sub disconnect
 sub rec
 {
   my ($conn, $msg, $err) = @_;
-  my $dxconn = DXConnect->get_by_cnum($conn);      # get the dxconnnect object for this message
+  my $dxconn = DXChannel->get_by_cnum($conn);      # get the dxconnnect object for this message
   
   if (defined $err && $err) {
     disconnect($dxconn);
@@ -78,7 +79,7 @@ sub login
 sub cease
 {
   my $dxconn;
-  foreach $dxconn (DXConnect->get_all()) {
+  foreach $dxconn (DXChannel->get_all()) {
     disconnect($dxconn);
   }
 }