X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=e62123bfc1ef1a8235bb3c942b93f501db367f38;hb=bccf827cfc80f9871efc8a25f9bb69f99c771d77;hp=0522cf2da2d6ade1dd3d6986434eb6769e37e040;hpb=7a1ff7a9a2828f2fb9bcce8662fee706f7d96bfb;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 0522cf2d..e62123bf 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -61,7 +61,7 @@ $v3 = 0; annok => '9,Accept Announces?,yesno', # accept his announces? lang => '0,Language', hmsgno => '0,Highest Msgno', - group => '0,Access Group,parray', # used to create a group of users/nodes for some purpose or other + group => '0,Chat Group,parray', # used to create a group of users/nodes for some purpose or other isolate => '9,Isolate network,yesno', wantbeep => '0,Req Beep,yesno', wantann => '0,Req Announce,yesno', @@ -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;