sub new
{
my $self = DXChannel::alloc(@_);
- $self->{'sort'} = 'B';
return $self;
}
#
# end a connection (called by disconnect)
#
-sub finish
+sub disconnect
{
my $self = shift;
my $call = $self->call;
Log('BBS', "$call", "disconnected");
+ $self->SUPER::disconnect;
}
#