X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;fp=perl%2FDXUser.pm;h=4af135e7e795aefe0a7a39bc2f8a189828d442df;hb=e148ea6b5e9eb73af10a9ca4132bc257e4b9aac8;hp=1af675ab52913e94a12bbc8e24bfe0b70dc95e02;hpb=f6d0b05b25a61cb6d3aa671b7a8f5d4a69817b1c;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__