X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=0e01208723a524fada6d2610e7f1cfb628115b91;hb=1470c53c6c47c690261cb096d638c8f82ed7772d;hp=ecd65716f71da86fac4f27df28b7af0d7f3ae5b6;hpb=4937d077fd03279aae2cbba6f1252ffdb04cc7a5;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index ecd65716..0e012087 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -150,10 +150,21 @@ sub start $self->{priv} = 0 if $line =~ /^(ax|te)/ && !$self->conn->{usedpasswd}; # get the filters - $self->{spotsfilter} = Filter::read_in('spots', $call, 0) || Filter::read_in('spots', 'user_default', 0); - $self->{wwvfilter} = Filter::read_in('wwv', $call, 0) || Filter::read_in('wwv', 'user_default', 0); - $self->{wcyfilter} = Filter::read_in('wcy', $call, 0) || Filter::read_in('wcy', 'user_default', 0); - $self->{annfilter} = Filter::read_in('ann', $call, 0) || Filter::read_in('ann', 'user_default', 0) ; + my $nossid = $call; + $nossid =~ s/-\d+$//; + + $self->{spotsfilter} = Filter::read_in('spots', $call, 0) + || Filter::read_in('spots', $nossid, 0) + || Filter::read_in('spots', 'user_default', 0); + $self->{wwvfilter} = Filter::read_in('wwv', $call, 0) + || Filter::read_in('wwv', $nossid, 0) + || Filter::read_in('wwv', 'user_default', 0); + $self->{wcyfilter} = Filter::read_in('wcy', $call, 0) + || Filter::read_in('wcy', $nossid, 0) + || Filter::read_in('wcy', 'user_default', 0); + $self->{annfilter} = Filter::read_in('ann', $call, 0) + || Filter::read_in('ann', $nossid, 0) + || Filter::read_in('ann', 'user_default', 0) ; # clean up qra locators my $qra = $user->qra; @@ -173,6 +184,7 @@ sub start } $self->tell_login('loginu'); + $self->tell_buddies('loginb'); # do we need to send a forward/opernam? my $lastoper = $user->lastoper || 0; @@ -562,6 +574,7 @@ sub disconnect # send info to all logged in thingies $self->tell_login('logoutu'); + $self->tell_buddies('logoutb'); LogDbg('DXCommand', "$call disconnected");