X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=4af135e7e795aefe0a7a39bc2f8a189828d442df;hb=bcf3a91dcafdb63c46120cae5dec6a105edcfcf1;hp=1af675ab52913e94a12bbc8e24bfe0b70dc95e02;hpb=1935ba236a7ef4999bceb00b6faf28038f3b052e;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 1af675ab..4af135e7 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -836,6 +836,16 @@ sub lastping
 	$b->{$call} = shift if @_;
 	return $b->{$call};	
 }
+
+sub registered
+{
+	my $self = shift;
+	if (exists $self->{registered}) {
+		return $self->{registered} || 0;
+	}
+	return '';					# to stop undef warnings
+}
+
 1;
 __END__