X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=5e44a11f9e0b3d3fb884392cc3fe4e30c32e4f39;hb=3fc0f2823c2505b08730286880ad8738963bca17;hp=0522cf2da2d6ade1dd3d6986434eb6769e37e040;hpb=353dac9d2485b5e3ad0a93246a1ac550d93d05a4;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 0522cf2d..5e44a11f 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -76,14 +76,16 @@ $v3 = 0; pingint => '9,Node Ping interval', nopings => '9,Ping Obs Count', wantlogininfo => '9,Login info req,yesno', - wantgrid => '0,DX Grid Info,yesno', + wantgrid => '0,Show DX Grid,yesno', wantann_talk => '0,Talklike Anns,yesno', wantpc90 => '1,Req PC90,yesno', - wantnp => '1,Req New Protocol,yesno', + wantnp => '1,Req New Proto,yesno', wantpc16 => '9,Want Users from node,yesno', wantsendpc16 => '9,Send PC16,yesno', wantroutepc19 => '9,Route PC19,yesno', - wantusstate => '9,Show US State,yesno', + wantusstate => '0,Show US State,yesno', + wantdxcq => '0,Show CQ Zone,yesno', + wantdxitu => '0,Show ITU Zone,yesno', lastoper => '9,Last for/oper,cldatetime', nothere => '0,Not Here Text', registered => '9,Registered?,yesno', @@ -675,6 +677,16 @@ sub wantusstate return _want('usstate', @_); } +sub wantdxcq +{ + return _want('dxcq', @_); +} + +sub wantdxitu +{ + return _want('dxitu', @_); +} + sub wantlogininfo { my $self = shift;