fix DXChannel::get

Fix pinging (a bit)

diff --git a/cmd/connect.pl b/cmd/connect.pl
index d1c583cbd3d6a7f3a65a7062bd373523d34c48af..240029859fef470973e4b499e40705b61863e613 100644 (file)
--- a/cmd/connect.pl
+++ b/cmd/connect.pl
@@ -7,7 +7,7 @@ my $lccall = lc $call;
 
 return (1, $self->msg('e5')) if $self->priv < 5;
 return (1, $self->msg('e6')) unless $call gt ' ';
-return (1, $self->msg('already', $call)) if DXChannel->get($call);
+return (1, $self->msg('already', $call)) if DXChannel::get($call);
 return (1, $self->msg('outconn', $call)) if grep {$_->{call} eq $call} @main::outstanding_connects;
 return (1, $self->msg('conscript', $lccall)) unless -e "$main::root/connect/$lccall";
 

diff --git a/cmd/dbshow.pl b/cmd/dbshow.pl
index 309ce8a51d61cb16d3edcee339097dacc30ffcc1..6290dd3a5abc3c1d52aa2447eedff3edcef66171 100644 (file)
--- a/cmd/dbshow.pl
+++ b/cmd/dbshow.pl
@@ -24,7 +24,7 @@ foreach  $n (@db) {
        if ($db->remote) {
 
                # remote databases
-               unless (Route::Node::get($db->remote) || DXChannel->get($db->remote)) {
+               unless (Route::Node::get($db->remote) || DXChannel::get($db->remote)) {
                        push @out, $self->msg('db4', uc $name, $db->remote);
                        last;
                }

diff --git a/cmd/delete/user.pl b/cmd/delete/user.pl
index ac5a803411295b67c695d0d5ce6d50727c651012..5ab03a4f6932f2c90cd7a28e6d337a2dd20e9e8a 100644 (file)
--- a/cmd/delete/user.pl
+++ b/cmd/delete/user.pl
@@ -18,7 +18,7 @@ return (1, $self->msg('e5')) if $self->priv < 9;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/demonstrate.pl b/cmd/demonstrate.pl
index 7ef0277ead9151680821f25abf82f25298302f26..1d2231e8ed66c79ae8108fabdec5a8bfb6088d5a 100644 (file)
--- a/cmd/demonstrate.pl
+++ b/cmd/demonstrate.pl
@@ -11,7 +11,7 @@ my ($self, $line) = @_;
 
 my ($call, $newline) = split /\s+/, $line, 2;
 $call = uc $call;
-my $dxchan = DXChannel->get($call);
+my $dxchan = DXChannel::get($call);
 my $mycall = $self->call;
 
 return (1, $self->msg('e7', $call)) unless $dxchan;

diff --git a/cmd/disconnect.pl b/cmd/disconnect.pl
index a023c609ee72388bcee49bed1adbaa79ab141524..60078704f375994a29a8c5c8b87aeef3b0e9cb6b 100644 (file)
--- a/cmd/disconnect.pl
+++ b/cmd/disconnect.pl
@@ -13,7 +13,7 @@ if ($self->priv < 5) {
 foreach $call (@calls) {
        $call = uc $call;
        next if $call eq $main::mycall;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        if ($dxchan) {
                if ($dxchan->is_node) {
 #                      $dxchan->send_pc39($self->msg('disc1', $self->call));
@@ -28,7 +28,7 @@ foreach $call (@calls) {
                push @out, $self->msg('disc3', $call);
 #      } elsif (my $ref = DXCluster->get_exact($call)) {
 #              my $dxchancall = $ref->dxchancall;
-#              if ($dxchancall eq $main::mycall || !DXChannel->get($dxchancall)) {
+#              if ($dxchancall eq $main::mycall || !DXChannel::get($dxchancall)) {
 #                      $ref->del;
 #                      push @out, $self->msg('disc4', $call);
 #              }

diff --git a/cmd/forward/latlong.pl b/cmd/forward/latlong.pl
index 7f6472bdf1d158de0eaa27534c3da81b8d7f338b..e10239890e3675173286cc7928c5faa5b6fd72c2 100644 (file)
--- a/cmd/forward/latlong.pl
+++ b/cmd/forward/latlong.pl
@@ -16,7 +16,7 @@ my @out;
 my $dxchan;
 
 for ( map {uc $_ } split /\s+/, $line ) {
-       if (($dxchan = DXChannel->get($_)) && $dxchan->is_node) {
+       if (($dxchan = DXChannel::get($_)) && $dxchan->is_node) {
                push @dxchan, $dxchan;
        } else {
                push @out, $self->msg('e10', $_);

diff --git a/cmd/init.pl b/cmd/init.pl
index ab49b6ee4ca9c78a6811d13b0bae0ae2db65e02f..b508a04acaed2a76d853ac5f4e80c9b6fe3f7482 100644 (file)
--- a/cmd/init.pl
+++ b/cmd/init.pl
@@ -15,7 +15,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 foreach $call (@calls) {
        $call = uc $call;
        next if $call eq $main::mycall;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        if ($dxchan) {
                if ($dxchan->is_node) {
                        # first clear out any nodes on this dxchannel

diff --git a/cmd/pc.pl b/cmd/pc.pl
index dcc2f668e86682391d11ab23e7f25a6326bd890d..12ab8fdc4d9cbb362599f9946ec918322fbe75e4 100644 (file)
--- a/cmd/pc.pl
+++ b/cmd/pc.pl
@@ -12,7 +12,7 @@ my @f = split /\s+/, $line;
 return (1, $self->msg('e5')) if $self->priv < 8 || $self->remotecmd || $self->inscript;
 
 my $call = uc shift @f;
-my $dxchan = DXChannel->get($call);
+my $dxchan = DXChannel::get($call);
 return (1, $self->msg('e10', $call)) if !$dxchan;
 return (1, $self->msg('e8')) if @f <= 0;
 

diff --git a/cmd/rinit.pl b/cmd/rinit.pl
index 953a30a92e318fe297f0066f92847d57ed78a713..3a7e17c0672403a10d3da04f313d7d93539f20d7 100644 (file)
--- a/cmd/rinit.pl
+++ b/cmd/rinit.pl
@@ -15,7 +15,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 foreach $call (@calls) {
        $call = uc $call;
        next if $call eq $main::mycall;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        if ($dxchan) {
                if ($dxchan->is_node) {
                        my $parent = Route::Node::get($call);

diff --git a/cmd/set/announce.pl b/cmd/set/announce.pl
index 323ff5e07b5000a09d000558e9f1b10256f9ccb4..533d177acb7ad538e364d72a73a6c2e81b148f01 100644 (file)
--- a/cmd/set/announce.pl
+++ b/cmd/set/announce.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->ann(1);
     $chan->user->wantann(1);

diff --git a/cmd/set/anntalk.pl b/cmd/set/anntalk.pl
index eec6540010d3c701ce58965c249dd4886866b3ed..2d70f8468c3e6d606fcca5c3a8e889ea45dc39e4 100644 (file)
--- a/cmd/set/anntalk.pl
+++ b/cmd/set/anntalk.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->ann_talk(1);
     $chan->user->wantann_talk(1);

diff --git a/cmd/set/arcluster.pl b/cmd/set/arcluster.pl
index 4e1dd45204ae9d403de55c3eedafb19489b0169e..6ad80c6c6acc899c018859be0df5549823c45bbc 100644 (file)
--- a/cmd/set/arcluster.pl
+++ b/cmd/set/arcluster.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/bbs.pl b/cmd/set/bbs.pl
index 0cb6cf3905bab18dab7e0895be3af924afa736ac..f92f85de7e2f4cf0ce6244c0ca95d04d937185ff 100644 (file)
--- a/cmd/set/bbs.pl
+++ b/cmd/set/bbs.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/clx.pl b/cmd/set/clx.pl
index f453e41fbe4b95a1930c4d0f4498c502278d2ae3..dd0ee2fdbaf167452274bb8a225388b2b66e346e 100644 (file)
--- a/cmd/set/clx.pl
+++ b/cmd/set/clx.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/dx.pl b/cmd/set/dx.pl
index 8d599d5e5e81dba128f02f018e194762475a30ba..3eb9bbf017be9d0275326d6ee5ee0a8c935e26f2 100644 (file)
--- a/cmd/set/dx.pl
+++ b/cmd/set/dx.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->dx(1);
     $chan->user->wantdx(1);

diff --git a/cmd/set/dxnet.pl b/cmd/set/dxnet.pl
index f8e3686fd5524921ba84ba1efb02409902ad2d13..e8714c53b82e3f930a4aa9a77ce83da144167804 100644 (file)
--- a/cmd/set/dxnet.pl
+++ b/cmd/set/dxnet.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/here.pl b/cmd/set/here.pl
index 1c4b167cb0bc942837b268bdb6ad4a1563a513f9..646997ea9db310889b90fa3df2242ff805873280 100644 (file)
--- a/cmd/set/here.pl
+++ b/cmd/set/here.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        if ($dxchan) {
                $dxchan->here(1);
                push @out, $self->msg('heres', $call);

diff --git a/cmd/set/isolate.pl b/cmd/set/isolate.pl
index 89d8257b0fe5f71d3e1afa692eaaca3d7f8bed2d..b90f0c2bddeff9501963aea081cba06223d0f025 100644 (file)
--- a/cmd/set/isolate.pl
+++ b/cmd/set/isolate.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 9;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/node.pl b/cmd/set/node.pl
index 4eeae7f1ea9db2230c9b60f0e2ae6d8711495c7e..95b38bb60b401c2d2cf6fae03ddba16e03265ab5 100644 (file)
--- a/cmd/set/node.pl
+++ b/cmd/set/node.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/obscount.pl b/cmd/set/obscount.pl
index e37387fe12f4258bd58eed6de543659880a34bdd..8a6dc42541eeba851b92e7ec856521ae3263f0fb 100644 (file)
--- a/cmd/set/obscount.pl
+++ b/cmd/set/obscount.pl
@@ -20,7 +20,7 @@ return (1, $self->msg('e12')) unless @args;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        $user = $dxchan->user if $dxchan;
        $user = DXUser->get_current($call);
        if ($user) {

diff --git a/cmd/set/pinginterval.pl b/cmd/set/pinginterval.pl
index 6511c5b65065b471bfe35b678b836b833f443c27..1e1da5697bca44acd0ea33926f4e0b5fb2376b13 100644 (file)
--- a/cmd/set/pinginterval.pl
+++ b/cmd/set/pinginterval.pl
@@ -32,7 +32,7 @@ if ($val =~ /^(\d+)[sS]$/) {
 
 foreach $call (@args) {
        $call = uc $call;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        $user = $dxchan->user if $dxchan;
        $user = DXUser->get($call) unless $user;
        if ($user) {

diff --git a/cmd/set/privilege.pl b/cmd/set/privilege.pl
index 6d5fd4d20cd053a443fc3911e3edffb7b69a0d68..7f6cbd395c5496534482ca7d3b7fb388caff4500 100644 (file)
--- a/cmd/set/privilege.pl
+++ b/cmd/set/privilege.pl
@@ -27,7 +27,7 @@ if ($priv < 0 || $priv > 9) {
 foreach $call (@args) {
        $call = uc $call;
        unless ($self->remotecmd || $self->inscript) {
-               if ($ref = DXChannel->get($call)) {
+               if ($ref = DXChannel::get($call)) {
                        $ref->priv($priv);
                        $ref->user->priv($priv);
                        $ref->user->put();

diff --git a/cmd/set/register.pl b/cmd/set/register.pl
index 3a7c7db5f9bf0306189961166474a69780d4d6d6..509eaff6d3dd3d018b9c07e2fe7a257c59ccad0f 100644 (file)
--- a/cmd/set/register.pl
+++ b/cmd/set/register.pl
@@ -32,7 +32,7 @@ foreach $call (@args) {
                        $ref->put();
                        push @out, $self->msg("regc", $call);
                }
-               my $dxchan = DXChannel->get($call);
+               my $dxchan = DXChannel::get($call);
                $dxchan->registered(1) if $dxchan;
                Log('DXCommand', $self->call . " registered $call");
        } else {

diff --git a/cmd/set/spider.pl b/cmd/set/spider.pl
index 7bd3e6a646dfd1f492bc3a0a891ef449ecbd8049..9c821826083b60019bb65925922c9c0a1e06bf6e 100644 (file)
--- a/cmd/set/spider.pl
+++ b/cmd/set/spider.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/set/talk.pl b/cmd/set/talk.pl
index 70bde6e79a468a41dd7e952e4166d1564d24858c..0c1e6be70aeeb29b3783445fa81dbc2204bc0d37 100644 (file)
--- a/cmd/set/talk.pl
+++ b/cmd/set/talk.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->talk(1);
     $chan->user->wanttalk(1);

diff --git a/cmd/set/wcy.pl b/cmd/set/wcy.pl
index 1aed404c238510bfbcdf3fc669e6c9f51da87232..8efd6299ae5d91298c2cd9e3032689eed8a824e1 100644 (file)
--- a/cmd/set/wcy.pl
+++ b/cmd/set/wcy.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     DXChannel::wcy($chan, 1);
     $chan->user->wantwcy(1);

diff --git a/cmd/set/wwv.pl b/cmd/set/wwv.pl
index da06ebc1cb5a132dbfad14c222c65eda3d8e9632..33ac78619b5f9d41f6b591ae30e9773750b8086d 100644 (file)
--- a/cmd/set/wwv.pl
+++ b/cmd/set/wwv.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                DXChannel::wwv($chan, 1);
                $chan->user->wantwwv(1);

diff --git a/cmd/set/wx.pl b/cmd/set/wx.pl
index f609df353001f6faffd303b8c7de537518dd7913..ef6a71cc55159b7b03f0fb80b114492929f1ce19 100644 (file)
--- a/cmd/set/wx.pl
+++ b/cmd/set/wx.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->wx(1);
     $chan->user->wantwx(1);

diff --git a/cmd/spoof.pl b/cmd/spoof.pl
index 5336a3248c2d673face8f0fa0b5513f144e0b34d..ad2f9b8ccbb408a9b64b15accd907f87b36370a3 100644 (file)
--- a/cmd/spoof.pl
+++ b/cmd/spoof.pl
@@ -13,7 +13,7 @@ my $myuser = $self->user;
 my $mylang = $self->lang;
 
 my ($call, $newline) = split /\s+/, $line, 2;
-return (1, $self->msg('nodee1', $call)) if DXChannel->get($call);
+return (1, $self->msg('nodee1', $call)) if DXChannel::get($call);
 
 if ($self->remotecmd || $self->inscript) {
        Log('DXCommand', "$mycall is trying to spoof $call remotely");

diff --git a/cmd/stat/channel.pl b/cmd/stat/channel.pl
index d963eb45eee91b62b56404952b067530cbe30d8f..be4e5f9330d237acf160555dda41973708af6941 100644 (file)
--- a/cmd/stat/channel.pl
+++ b/cmd/stat/channel.pl
@@ -13,7 +13,7 @@ my $call;
 my @out;
 foreach $call (@list) {
   $call = uc $call;
-  my $ref = DXChannel->get($call);
+  my $ref = DXChannel::get($call);
   if ($ref) {
     @out = print_all_fields($self, $ref, "Channel Information $call");
   } else {

diff --git a/cmd/unset/announce.pl b/cmd/unset/announce.pl
index 2c4ebd30883aa7c5894e6edb3b605b51e7ecc4e8..3e7b61dcb483ae996ea5c7dd4ad9ec8f66bf92ad 100644 (file)
--- a/cmd/unset/announce.pl
+++ b/cmd/unset/announce.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->ann(0);
        $chan->user->wantann(0);

diff --git a/cmd/unset/anntalk.pl b/cmd/unset/anntalk.pl
index 7e8f012fa682444efd18140414cfccaf92aef645..9b7cc238756b34251e6d7f87b83b1959002a8b62 100644 (file)
--- a/cmd/unset/anntalk.pl
+++ b/cmd/unset/anntalk.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->ann_talk(0);
     $chan->user->wantann_talk(0);

diff --git a/cmd/unset/dx.pl b/cmd/unset/dx.pl
index dcc177a91562ee7bcbad80311cba9a8bf2addae9..2090b7809782959319abaf28fc8b5889ef022586 100644 (file)
--- a/cmd/unset/dx.pl
+++ b/cmd/unset/dx.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->dx(0);
        $chan->user->wantdx(0);

diff --git a/cmd/unset/here.pl b/cmd/unset/here.pl
index 19db8dbd9ffdb647bf55e85426f981cf25a15dd0..d83d59cbbeb721ee56271cffdaaf681548cd6214 100644 (file)
--- a/cmd/unset/here.pl
+++ b/cmd/unset/here.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $dxchan = DXChannel->get($call);
+       my $dxchan = DXChannel::get($call);
        if ($dxchan) {
                $dxchan->here(0);
                push @out, $self->msg('hereu', $call);

diff --git a/cmd/unset/isolate.pl b/cmd/unset/isolate.pl
index ecf033173ca322a563813582cf3df9140a5c1552..6396caef43e8245b36b44dc45945ddee4b2ca149 100644 (file)
--- a/cmd/unset/isolate.pl
+++ b/cmd/unset/isolate.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/unset/node.pl b/cmd/unset/node.pl
index 671f1b2d9d291dc915c3ab6367c31719288a95c5..76350a3ff722880bd93d25c1cf89f0b92a1c677c 100644 (file)
--- a/cmd/unset/node.pl
+++ b/cmd/unset/node.pl
@@ -19,7 +19,7 @@ return (1, $self->msg('e5')) if $self->priv < 5;
 
 foreach $call (@args) {
        $call = uc $call;
-       my $chan = DXChannel->get($call);
+       my $chan = DXChannel::get($call);
        if ($chan) {
                push @out, $self->msg('nodee1', $call);
        } else {

diff --git a/cmd/unset/register.pl b/cmd/unset/register.pl
index 555fe02149116536b88c515ed6e5291830493ae9..f789d1ed08f3adad52ef37eb0fc7a94a8f3bc161 100644 (file)
--- a/cmd/unset/register.pl
+++ b/cmd/unset/register.pl
@@ -25,7 +25,7 @@ foreach $call (@args) {
                if ($ref = DXUser->get_current($call)) {
                        $ref->registered(0);
                        $ref->put();
-                       my $dxchan = DXChannel->get($call);
+                       my $dxchan = DXChannel::get($call);
                        $dxchan->registered(0) if $dxchan;
                        push @out, $self->msg("regun", $call);
                        Log('DXCommand', $self->call . " unregistered $call");

diff --git a/cmd/unset/talk.pl b/cmd/unset/talk.pl
index 77deccbccdc1bcb31ab9180d0b2a3444902e6622..c693cca57820443d9c452b32414f12eea643e801 100644 (file)
--- a/cmd/unset/talk.pl
+++ b/cmd/unset/talk.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->talk(0);
        $chan->user->wanttalk(0);

diff --git a/cmd/unset/wcy.pl b/cmd/unset/wcy.pl
index 42b098a3228e2f68cc333822e9bdc9e51fd114e9..8d1cdbeb5fe5fea17466a6309500a3d6312253ad 100644 (file)
--- a/cmd/unset/wcy.pl
+++ b/cmd/unset/wcy.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     DXChannel::wcy($chan, 0);
     $chan->user->wantwcy(0);

diff --git a/cmd/unset/wwv.pl b/cmd/unset/wwv.pl
index eebf16d73b54e95e64b5ba86071a28bedd4d8526..57b041193a4454fe9fb3f3a956449ff46f084ad1 100644 (file)
--- a/cmd/unset/wwv.pl
+++ b/cmd/unset/wwv.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     DXChannel::wwv($chan, 0);
     $chan->user->wantwwv(0);

diff --git a/cmd/unset/wx.pl b/cmd/unset/wx.pl
index 755ed026c601c4aadd6a23036b4e959edfd36ac0..21ed1a1ce6ec9fe9bea222b4299bfdfcfa1cbac9 100644 (file)
--- a/cmd/unset/wx.pl
+++ b/cmd/unset/wx.pl
@@ -15,7 +15,7 @@ my @out;
 
 foreach $call (@args) {
   $call = uc $call;
-  my $chan = DXChannel->get($call);
+  my $chan = DXChannel::get($call);
   if ($chan) {
     $chan->wx(0);
     $chan->user->wantwx(0);