diff options
author | Eric Wong <e@80x24.org> | 2018-05-02 20:55:17 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2018-05-02 20:55:17 +0000 |
commit | 8d562ac834d69e18030cb2969a827b121aa4324a (patch) | |
tree | 7a8af5b745778c857c5f5c30ad8e916fb400b87f | |
parent | b23d50b9c2772ec655aa7d60871062415502c8e5 (diff) | |
download | public-inbox-8d562ac834d69e18030cb2969a827b121aa4324a.tar.gz |
Stop showing redundant slashes and stop showing progress for messages which do not exist.
-rwxr-xr-x | scripts/import_slrnspool | 3 |
1 files changed, 2 insertions, 1 deletions
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; |