From 8d562ac834d69e18030cb2969a827b121aa4324a Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 2 May 2018 20:55:17 +0000 Subject: scripts/import_slrnspool: cleanup progress messages Stop showing redundant slashes and stop showing progress for messages which do not exist. --- scripts/import_slrnspool | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool index ab79e798..1a7d77a4 100755 --- a/scripts/import_slrnspool +++ b/scripts/import_slrnspool @@ -59,12 +59,13 @@ my $n = get_min(); my $ok; my $max_gap = 200000; my $max = $n + $max_gap; +$spool =~ s!/+\z!!; for (; $exit == 0 && $n < $max; $n++) { my $fn = "$spool/$n"; - print STDERR $fn, "\n"; open(my $fh, '<', $fn) or next; $max = $n + $max_gap; + print STDERR $fn, "\n"; my $mime = PublicInbox::MIME->new(eval { local $/; <$fh> }); my $hdr = $mime->header_obj; -- cgit v1.2.3-24-ge0c7