scripts/import_slrnspool: cleanup progress messages

Stop showing redundant slashes and stop showing progress
for messages which do not exist.

diff --git a/scripts/import_slrnspool b/scripts/import_slrnspool
index ab79e7982da8c1cbfc45d8f59e02125b10160e8b..1a7d77a4d767d5d69f5e9a1b341dffa2841e7e56 100755 (executable)
--- 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;
 my $ok;
 my $max_gap = 200000;
 my $max = $n + $max_gap;

+$spool =~ s!/+\z!!;

 
 for (; $exit == 0 && $n < $max; $n++) {
        my $fn = "$spool/$n";
 
 for (; $exit == 0 && $n < $max; $n++) {
        my $fn = "$spool/$n";

-       print STDERR $fn, "\n";

        open(my $fh, '<', $fn) or next;
        $max = $n + $max_gap;
        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;
 
        my $mime = PublicInbox::MIME->new(eval { local $/; <$fh> });
        my $hdr = $mime->header_obj;