staging new anti spot spam code

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 1af675ab52913e94a12bbc8e24bfe0b70dc95e02..4af135e7e795aefe0a7a39bc2f8a189828d442df 100644 (file)
--- 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__