add ip <ipaddress> to dx by <spotter>

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 9d6b33a16743a213d26d7e4e503af48b3263aaa9..c2358c3dd2366f56e1d7018c23fde7d474bb288d 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -360,6 +360,11 @@ sub is_rbn
        return $_[0]->{sort} eq 'N';
 }
 
+sub is_dslink
+{
+       return $_[0]->{sort} eq 'L';
+}
+
 # for perl 5.004's benefit
 sub sort
 {
@@ -770,7 +775,7 @@ sub isregistered
        my $self = shift;
 
        # the sysop is registered!
-       return 1 if $self->call eq $main::myalias || $self->call eq $main::mycall;
+       return 1 if $self->{call} eq $main::myalias || $self->{call} eq $main::mycall;
        
        if ($main::reqreg) {
                return $self->{registered};