X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=6da3ecbe36d0be30a00ee2a47ce64bdac9f1e411;hb=dc305f992d75a6b35edda9e1aefab510a3ed617e;hp=acd4245c6cddebd8edcfd2aa6ccffd6a5c2beaab;hpb=6f20114b034d329c1e2a4f91f0aba2f6ec4002d4;p=spider.git diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index acd4245c..6da3ecbe 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -117,6 +117,7 @@ $count = 0; ve7cc => '0,VE7CC program special,yesno', lastmsgpoll => '0,Last Msg Poll,atime', inscript => '9,In a script,yesno', + handle_xml => '9,Handles XML,yesno', inqueue => '9,Input Queue,parray', ); @@ -187,10 +188,10 @@ sub rec } } -# obtain a channel object by callsign [$obj = DXChannel->get($call)] +# obtain a channel object by callsign [$obj = DXChannel::get($call)] sub get { - my ($pkg, $call) = @_; + my $call = shift; return $channels{$call}; }