use WCY;
use Sun;
use Internet;
+use IO::File;
use strict;
use vars qw(%Cache %cmd_cache $errstr %aliases $scriptbase);
#
# finish up a user context
#
-sub finish
+sub disconnect
{
my $self = shift;
my $call = $self->call;
Log('DXCommand', "$call disconnected");
my $ref = DXCluster->get_exact($call);
$ref->del() if $ref;
+
+ $self->SUPER::disconnect;
}
#