X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=52b7819d4ace901067280cd6396f164281621c7e;hb=48d614dae214326305879ac572d8c5f0a6150f99;hp=ca73a02ed2ffde0668dd9b4ce7e047a4ce3d3742;hpb=5e7031a532b4df6beb475aa3e7e3f6eec29360a6;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index ca73a02e..52b7819d 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -63,8 +63,9 @@ $lasttime = 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,DX Grid Info,yesno', lastoper => '9,Last for/oper,cldatetime', + nothere => '0,Not Here Text', ); no strict; @@ -243,8 +244,8 @@ sub decode my $ref; eval '$ref = ' . $s; if ($@) { - dbg('err', $@) if $@; - Log('err', $@) if $@; + dbg($@); + Log('err', $@); $ref = undef; } return $ref;