projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added Ids and changed the name of DXConnect to DXChannel
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index c324930fad4b8ac9d9190b2fcd1bac07c6a31342..6fded2416f3decac8ccbf985a6c2ebf5061e6e1b 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-9,12
+9,13
@@
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
#
# Copyright (c) 1998 Dirk Koopman G1TLH
#
+# $Id$
#
use Msg;
use DXVars;
use DXUtil;
#
use Msg;
use DXVars;
use DXUtil;
-use DXC
onnect
;
+use DXC
hannel
;
use DXUser;
package main;
use DXUser;
package main;
@@
-55,7
+56,7
@@
sub disconnect
sub rec
{
my ($conn, $msg, $err) = @_;
sub rec
{
my ($conn, $msg, $err) = @_;
- my $dxconn = DXC
onnect
->get_by_cnum($conn); # get the dxconnnect object for this message
+ my $dxconn = DXC
hannel
->get_by_cnum($conn); # get the dxconnnect object for this message
if (defined $err && $err) {
disconnect($dxconn);
if (defined $err && $err) {
disconnect($dxconn);
@@
-78,7
+79,7
@@
sub login
sub cease
{
my $dxconn;
sub cease
{
my $dxconn;
- foreach $dxconn (DXC
onnect
->get_all()) {
+ foreach $dxconn (DXC
hannel
->get_all()) {
disconnect($dxconn);
}
}
disconnect($dxconn);
}
}