X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXChannel.pm;h=584015518e6ea2b93478b10660d80d7e60ac4da3;hb=f0b59af5985f155c108932be14840726be7cd1f5;hp=463d43a2773d8b3d004f446675ae3bd03c250af7;hpb=9bdaf6f1c757ea90ed4773a394dc613ae9cca619;p=spider.git diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 463d43a2..58401551 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -85,7 +85,7 @@ $count = 0; inwcyfilter => '5,WCY Filt-inp', inspotsfilter => '5,Spot Filt-inp', inroutefilter => '5,Route Filt-inp', - passwd => '9,Passwd List,parray', + passwd => '9,Passwd List,yesno', pingint => '5,Ping Interval ', nopings => '5,Ping Obs Count', lastping => '5,Ping last sent,atime', @@ -106,6 +106,9 @@ $count = 0; disconnecting => '9,Disconnecting,yesno', ann_talk => '0,Suppress Talk Anns,yesno', metric => '1,Route metric', + badcount => '1,Bad Word Count', + edit => '7,Edit Function', + registered => '9,Registered?,yesno', ); use vars qw($VERSION $BRANCH); @@ -506,8 +509,9 @@ sub rspfcheck { my ($self, $flag, $node, $user) = @_; my $nref = Route::Node::get($node); - if ($nref) { - if ($nref->dxchan == $self) { + my $dxchan = $nref->dxchan if $nref; + if ($nref && $dxchan) { + if ($dxchan == $self) { return 1 unless $user; my @users = $nref->users; return 1 if @users == 0 || grep $user eq $_, @users;