fixed the default fo set/login to off not on

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 9d534ae9d1835f6b2eaaeb4ab6b0fc33a2378260..dff27088008038b2a53a5dc877782e485d147a7f 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -58,6 +58,8 @@ $filename = undef;
                  wantwx => '0,Rec WX,yesno',
                  wantdx => '0,Rec DX Spots,yesno',
                  pingint => '9,Node Ping interval',
+                 nopings => '9,Ping Obs Count',
+                 wantlogininfo => '9,Login info req,yesno',
                 );
 
 no strict;
@@ -359,5 +361,13 @@ sub wanttalk
        return _want('talk', @_);
 }
 
+sub wantlogininfo
+{
+       my $self = shift;
+       my $n = shift;
+       $self->{wantlogininfo} = $n if $n;
+       return exists $self->{wantlogininfo} ? $self->{wantlogininfo} : 0;
+}
+
 1;
 __END__