psycamp: three ain't five (minor fix) + let it hang

1 files changed, 9 insertions, 5 deletions

diff --git a/bin/psycamp b/bin/psycamp
index f7baefc..e472d00 100755
--- a/bin/psycamp
+++ b/bin/psycamp
@@ -339,9 +339,13 @@ sub timeout {
 #%      &gin('seek 0 1'); #? !X
 #%      &gin('pause'); #? !X
  #: X
-        print MAGENTA, "\n*** Playback problem. ", RESET, "Skipping $OpenedFile\n";
-        # so far timeout only happens when the input file is b0rked, so we skip it
-        &next(0);
+#       print MAGENTA, "\n*** Playback problem. ", RESET, "Skipping $OpenedFile\n";
+#       # so far timeout only happens when the input file is b0rked, so we skip it
+#       &next(0);
+        # it also happens when the file is being delivered via network
+#       print MAGENTA, "\n*** Track not ready for playback. Retrying from start.\n";
+#       &gin( "seek 0 1" );
+        print MAGENTA, "\n*** Track not ready for playback. Waiting... \r";
  #} X
     }
     return 3;
@@ -553,8 +557,8 @@ X
                         my $s = $size[$order[$i]] || -s $f;
 #                       my $a = $adate[$order[$i]];
                         $f =~ s/\.[^\.\s]+$//i;
-                        $f = '..'.substr($f,length($p)-$TWIDTH+11) if
-                                length($f) > $TWIDTH-9;
+                        $f = '..'.substr($f,length($p)-$TWIDTH+13) if
+                                length($f) > $TWIDTH-11;
                         $any++;
                         printf "%9d %s\n", $s, $f;
                 }