# This is the base class for all channel operations, which is everything to do
# with input and output really.
#
-# The instance variable in the outside world will be generally be called $dxchann
+# The instance variable in the outside world will be generally be called $dxchan
#
# This class is 'inherited' (if that is the goobledegook for what I am doing)
# by various other modules. The point to understand is that the 'instance variable'
use Msg;
use DXM;
use DXUtil;
+use DXVars;
use DXDebug;
use Filter;
use strict;
-use vars qw(%channels %valid);
+use vars qw(%channels %valid @ISA);
%channels = ();
logininfo => '9,Login info req,yesno',
talklist => '0,Talk List,parray',
cluster => '5,Cluster data',
+ isbasic => '9,Internal Connection',
);
# object destruction
{
my $self = shift;
my $user = $self->{user};
- my $conn = $self->{conn};
my $call = $self->{call};
- $self->finish($conn);
+ $self->finish;
$user->close() if defined $user;
- $conn->disconnect() if $conn;
+ $self->{conn}->disconnect;
$self->del();
}
# the above regexp must work
unless (defined $sort && defined $call && defined $line) {
- $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
+# $data =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
dbg('err', "DUFF Line on $chcall: $data");
return ();
}