Change DXUser->get* to DXUser::get*

[spider.git] / cmd / catchup.pl

diff --git a/cmd/catchup.pl b/cmd/catchup.pl
index 4cda1203fe85d8dc93ae41b0438897a0cb724c3b..2bf0d5e7bee9dae0c361be32e3f639eeb00c4df2 100644 (file)
--- a/cmd/catchup.pl
+++ b/cmd/catchup.pl
@@ -4,15 +4,52 @@
 # in other words mark all messages as being already received
 # by this node.
 #
-# $Id$
+#
 #
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
 
 my ($self, $line) = @_;
+return (1, $self->msg('e5')) if $self->priv < 5;
+
 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);
+return (1, "$call not a node") unless $user && $user->sort ne 'U';
+
 my @out;
+my $ref;
+my @ref;
+
+# get a more or less valid set of messages
+foreach my $msgno (@f) {
+       if ($msgno =~ /^al/i) {
+               @ref = DXMsg::get_all();
+               last;
+       } elsif (my ($f, $t) = $msgno =~ /(\d+)-(\d+)/) {
+               while ($f <= $t) {
+                       $ref = DXMsg::get($f++);
+                       push @ref, $ref if $ref;
+               }
+       } else {
+               $ref = DXMsg::get($msgno);
+               unless ($ref) {
+                       push @out, $self->msg('m13', $msgno);
+                       next;
+               }
+               push @ref, $ref;
+       }
+}
 
+foreach $ref (@ref) {
+       next if $ref->{private};
+       unless (grep {$_ eq $call} @{$ref->{gotit}}) {
+               push @{$ref->{gotit}}, $call; # mark this up as being received
+               $ref->store( [ $ref->read_msg_body() ] );       # re- store the file
+               push @out, $self->msg('m14', $ref->{msgno}, $call);
+       }
+}
 
 return (1, @out);