X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=8b856b13736834dad51505141621417dc7fcc7f0;hb=8007adef1e949086cb27444d61f554ba456c0685;hp=8bbd0fbcb6a5ad3fb4ef8f28ea644dca4a7fb00c;hpb=23d5848190b73200389fdfc2291e3453b3b91b15;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 8bbd0fbc..8b856b13 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -75,7 +75,7 @@ $v3 = 0;
 		  pagelth => '0,Current Pagelth',
 		  pingint => '9,Node Ping interval',
 		  nopings => '9,Ping Obs Count',
-		  wantlogininfo => '9,Login info req,yesno',
+		  wantlogininfo => '0,Login Info Req,yesno',
           wantgrid => '0,Show DX Grid,yesno',
 		  wantann_talk => '0,Talklike Anns,yesno',
 		  wantpc90 => '1,Req PC90,yesno',
@@ -264,7 +264,7 @@ sub get_current
 	my $pkg = shift;
 	my $call = uc shift;
   
-	my $dxchan = DXChannel->get($call);
+	my $dxchan = DXChannel::get($call);
 	return $dxchan->user if $dxchan;
 	my $rref = Route::get($call);
 	return $rref->user if $rref && exists $rref->{user};