projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2c2c45e
)
fix DXChannel::get
author
wr3d
<wr3d>
Sat, 12 Mar 2005 23:33:31 +0000
(23:33 +0000)
committer
wr3d
<wr3d>
Sat, 12 Mar 2005 23:33:31 +0000
(23:33 +0000)
Fix pinging (a bit)
41 files changed:
cmd/connect.pl
patch
|
blob
|
history
cmd/dbshow.pl
patch
|
blob
|
history
cmd/delete/user.pl
patch
|
blob
|
history
cmd/demonstrate.pl
patch
|
blob
|
history
cmd/disconnect.pl
patch
|
blob
|
history
cmd/forward/latlong.pl
patch
|
blob
|
history
cmd/init.pl
patch
|
blob
|
history
cmd/pc.pl
patch
|
blob
|
history
cmd/rinit.pl
patch
|
blob
|
history
cmd/set/announce.pl
patch
|
blob
|
history
cmd/set/anntalk.pl
patch
|
blob
|
history
cmd/set/arcluster.pl
patch
|
blob
|
history
cmd/set/bbs.pl
patch
|
blob
|
history
cmd/set/clx.pl
patch
|
blob
|
history
cmd/set/dx.pl
patch
|
blob
|
history
cmd/set/dxnet.pl
patch
|
blob
|
history
cmd/set/here.pl
patch
|
blob
|
history
cmd/set/isolate.pl
patch
|
blob
|
history
cmd/set/node.pl
patch
|
blob
|
history
cmd/set/obscount.pl
patch
|
blob
|
history
cmd/set/pinginterval.pl
patch
|
blob
|
history
cmd/set/privilege.pl
patch
|
blob
|
history
cmd/set/register.pl
patch
|
blob
|
history
cmd/set/spider.pl
patch
|
blob
|
history
cmd/set/talk.pl
patch
|
blob
|
history
cmd/set/wcy.pl
patch
|
blob
|
history
cmd/set/wwv.pl
patch
|
blob
|
history
cmd/set/wx.pl
patch
|
blob
|
history
cmd/spoof.pl
patch
|
blob
|
history
cmd/stat/channel.pl
patch
|
blob
|
history
cmd/unset/announce.pl
patch
|
blob
|
history
cmd/unset/anntalk.pl
patch
|
blob
|
history
cmd/unset/dx.pl
patch
|
blob
|
history
cmd/unset/here.pl
patch
|
blob
|
history
cmd/unset/isolate.pl
patch
|
blob
|
history
cmd/unset/node.pl
patch
|
blob
|
history
cmd/unset/register.pl
patch
|
blob
|
history
cmd/unset/talk.pl
patch
|
blob
|
history
cmd/unset/wcy.pl
patch
|
blob
|
history
cmd/unset/wwv.pl
patch
|
blob
|
history
cmd/unset/wx.pl
patch
|
blob
|
history
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('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";
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
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;
}
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;
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 {
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 ($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;
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;
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));
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;
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);
# }
# $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 ) {
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', $_);
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;
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
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;
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;
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;
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);
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;
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);
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;
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);
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;
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 {
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;
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 {
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;
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 {
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;
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);
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;
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 {
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;
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);
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;
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 {
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;
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 {
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;
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) {
$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;
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) {
$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) {
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();
$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);
}
$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 {
$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;
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 {
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;
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);
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;
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);
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;
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);
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;
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);
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;
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");
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 @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 {
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;
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);
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;
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);
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;
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);
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;
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);
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;
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 {
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;
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 {
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();
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");
$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;
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);
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;
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);
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;
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);
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;
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);
if ($chan) {
$chan->wx(0);
$chan->user->wantwx(0);