X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fcatchup.pl;h=2bf0d5e7bee9dae0c361be32e3f639eeb00c4df2;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=20020067b8d90a87e4750c24cc0c0ae7e70d4231;hpb=85c3c8b016c16c0b759457201ba2b60315e18236;p=spider.git diff --git a/cmd/catchup.pl b/cmd/catchup.pl index 20020067..2bf0d5e7 100644 --- a/cmd/catchup.pl +++ b/cmd/catchup.pl @@ -4,7 +4,7 @@ # in other words mark all messages as being already received # by this node. # -# $Id$ +# # # Copyright (c) 1999 Dirk Koopman G1TLH # @@ -16,7 +16,7 @@ my @f = split /\s+/, $line; return (1, "usage: catchup all|[= 2; my $call = uc shift @f; -my $user = DXUser->get_current($call); +my $user = DXUser::get_current($call); return (1, "$call not a node") unless $user && $user->sort ne 'U'; my @out;