X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXUser.pm;h=0e78af482278a6fbcff41bc8eb2792fd24255327;hb=bbe9659ae19097772164125b4fc97040a4e76350;hp=58cb1afcabf39b5abd6c4ab0f2d4483a2d41fcd0;hpb=6975c4b4c8b210af067efab767bc1656786f70f2;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 58cb1afc..0e78af48 100644
--- 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;
@@ -192,7 +194,7 @@ sub encode
 	my $dd = new Data::Dumper([$self]);
 	$dd->Indent(0);
 	$dd->Terse(1);
-    $dd->Quotekeys(0);
+    $dd->Quotekeys($] < 5.005 ? 1 : 0);
 	return $dd->Dumpxs;
 }
 
@@ -324,9 +326,10 @@ sub _want
 {
 	my $n = shift;
 	my $self = shift;
+	my $val = shift;
 	my $s = "want$n";
-	return $self->{$n} = shift if @_;
-	return defined $self->{$n} ? $self->{$n} : 1;
+	$self->{$n} = $val if $val;
+	return exists $self->{$n} ? $self->{$n} : 1;
 }
 
 sub wantbeep
@@ -359,5 +362,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__