add ip <ipaddress> to dx by <spotter>

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index a0bc6ab9d9e7c3e1400709e9473037e745fd890e..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
 {