Ticket #3799: mythtv-mythrename_previews.patch

contrib/mythrename.pl

@@ -330 +331 @@
                     $rows = $sh->execute($show->{'basename'}, $show->{'chanid'}, $show->{'recstartts'});
                     die "Couldn't restore original basename in database for ".$show->{'basename'}.":  ($q)\n" unless ($rows == 1);
                 }
+            # Rename previews
+                my ($dimensions, $current_preview);
+                my $old_name = $show->{'local_path'};
+                while (defined($current_preview = <$old_name*.png>)) {
+                    $current_preview =~ /$show->{'local_path'}(\..*)?\.png/;
+                    $dimensions = $1 || '';
+                    $ret = rename $current_preview, "$video_dir/$name$dimensions.png";
+                    # If the rename fails, try to delete the preview from the
+                    # cache (it will automatically be re-created with the
+                    # proper name, when necessary)
+                    if (!$ret) {
+                        unlink $current_preview or
+                        vprint("Unable to rename preview image: $current_preview.");
+                    }
+                }
                 vprint($show->{'basename'}."\t-> $name");
             }
         }