X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funcatchup.pl;h=8a6f02a680eda9bfa1aa3d488528e1e3c001ccd8;hb=ab811a0c902225075a9bd69749f65594079433a9;hp=4046107141c2e6a6e225eb9be7f0fbb341972d7e;hpb=e5581689d790a1afd6ba0d83dc3bc36fc0e0f885;p=spider.git

diff --git a/cmd/uncatchup.pl b/cmd/uncatchup.pl
index 40461071..8a6f02a6 100644
--- a/cmd/uncatchup.pl
+++ b/cmd/uncatchup.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 <node call> all|[<msgno ...]") unless @f >= 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;
@@ -29,7 +29,7 @@ foreach my $msgno (@f) {
 		@ref = DXMsg::get_all();
 		last;
 	} elsif (my ($f, $t) = $msgno =~ /(\d+)-(\d+)/) {
-		while ($f < $t) {
+		while ($f <= $t) {
 			$ref = DXMsg::get($f++);
 			push @ref, $ref if $ref;
 		}