projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix sh/log users as well
[spider.git]
/
cmd
/
uncatchup.pl
diff --git
a/cmd/uncatchup.pl
b/cmd/uncatchup.pl
index 4046107141c2e6a6e225eb9be7f0fbb341972d7e..8a6f02a680eda9bfa1aa3d488528e1e3c001ccd8 100644
(file)
--- 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.
#
# in other words mark all messages as being already received
# by this node.
#
-#
$Id$
+#
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
#
# 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;
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;
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+)/) {
@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;
}
$ref = DXMsg::get($f++);
push @ref, $ref if $ref;
}