add mutt alias which executes neomutt if that exists

[bin.git] / sgf_rename

diff --git a/sgf_rename b/sgf_rename
index 193a4349117d25d085035b95e808f5897090b8ad..b6c9ff57e4baa50e8e6a3d3ad4a48e292ebd3f96 100755 (executable)
--- a/sgf_rename
+++ b/sgf_rename
@@ -22,8 +22,9 @@ for my $sgf (@ARGV) {
      }
      undef $fh;
      my $new_file = join('_',
-                        map {s/\s+/_/g;
-                             s/,//g;
+                        map {s{/}{}g;
+                             s/\s+/_/g;
+                             s/,/_/g;
                              s/[_-]+/_/g;
                              s/^_//;
                              s/_$//;
@@ -34,7 +35,15 @@ for my $sgf (@ARGV) {
                          @sgf{qw(PW WR DT RE)}
                         )
                        ).'.sgf';
+     print "Renaming $sgf to $new_file\n";
      next if $sgf eq $new_file;
      warn "$new_file already exists" and next if -e $new_file;
      rename($sgf,$new_file);
+     my $psgz = $sgf;
+     $psgz =~ s/\.sgf/.ps.gz/;
+     if (-e $psgz) {
+         my $new_psgz = $new_file;
+         $new_psgz =~ s/\.sgf/.ps.gz/;
+         rename($psgz,$new_psgz);
+     }
 }