X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=267c68ed9d3c6d86e70efb37761ac9f8de8d22cb;hb=bb4e9b13809a5d4c4971c3286309d12fe0f82047;hp=1249b0b69f8842f323d13ff245a68774fcc7e452;hpb=dd73f6f34ce7f3e142e480dfb7153611d87f509b;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 1249b0b6..267c68ed 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -95,7 +95,7 @@ my $json; wantcw => '0,Want RBN CW,yesno', wantrtty => '0,Want RBN RTTY,yesno', wantpsk => '0,Want RBN PSK,yesno', - wantbeacon => '0,Want (RBN) Beacon,yesno', + wantbeacon => '0,Want RBN Beacon,yesno', lastoper => '9,Last for/oper,cldatetime', nothere => '0,Not Here Text', registered => '9,Registered?,yesno', @@ -107,7 +107,7 @@ my $json; maxconnect => '1,Max Connections', startt => '0,Start Time,cldatetime', connlist => '1,Connections,parraydifft', - width => '0,Preferred Width' + width => '0,Preferred Width', ); #no strict; @@ -678,7 +678,7 @@ sub wanttalk sub wantgrid { - return _want('grid', @_); + return _wantnot('grid', @_); } sub wantemail @@ -713,12 +713,12 @@ sub wantusstate sub wantdxcq { - return _want('dxcq', @_); + return _wantnot('dxcq', @_); } sub wantdxitu { - return _want('dxitu', @_); + return _wantnot('dxitu', @_); } sub wantgtk