projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add 'exact' keyword to sh/dx
[spider.git]
/
cmd
/
catchup.pl
diff --git
a/cmd/catchup.pl
b/cmd/catchup.pl
index e2f439040921652d9198cf7f719a93e51c55a7cf..2bf0d5e7bee9dae0c361be32e3f639eeb00c4df2 100644
(file)
--- 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.
#
# 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;
}