X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=0522cf2da2d6ade1dd3d6986434eb6769e37e040;hb=7a1ff7a9a2828f2fb9bcce8662fee706f7d96bfb;hp=f2abe8047e37b4cba0cc096802d02dd8f3545921;hpb=ae02a87834832860eb88eff1ee6dd40f3d814443;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index f2abe804..0522cf2d 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -83,6 +83,7 @@ $v3 = 0; wantpc16 => '9,Want Users from node,yesno', wantsendpc16 => '9,Send PC16,yesno', wantroutepc19 => '9,Route PC19,yesno', + wantusstate => '9,Show US State,yesno', lastoper => '9,Last for/oper,cldatetime', nothere => '0,Not Here Text', registered => '9,Registered?,yesno', @@ -669,6 +670,11 @@ sub wantroutepc16 return _want('routepc16', @_); } +sub wantusstate +{ + return _want('usstate', @_); +} + sub wantlogininfo { my $self = shift;