Ticket #5420: myth.find_orphans.pl.patch

mythtv/contrib/myth.find_orphans.pl

@@ -122 +122 @@
 # look in recorded table, make sure we can find every file ..
 #
 
-my $q = "SELECT title, subtitle, starttime, endtime, chanid, basename FROM recorded WHERE hostname=(?) ORDER BY starttime";
+my $q = "SELECT title, subtitle, description, starttime, endtime, chanid, basename FROM recorded WHERE hostname=(?) ORDER BY starttime";
 $sth = $dbh->prepare($q);
 $sth->execute($opt_host) || die "Could not execute ($q): $!\n";
 
 while (my @row=$sth->fetchrow_array) {
-        ($title, $subtitle, $starttime, $endtime, $channel, $basename) = @row;
+        ($title, $subtitle, $description ,$starttime, $endtime, $channel, $basename) = @row;
 
         # see if we can find it...
         $loc = find_file($basename);
@@ -136 +136 @@
                 $missing_recordings++;
 
                 if ($opt_dodbdelete) {
+                        my $sql = sprintf "DELETE FROM oldrecorded WHERE title LIKE \"%s\" AND subtitle LIKE \"%s\" AND description LIKE \"%s\" LIMIT 1", $title, $subtitle, $description;
+                        printf "unmarking program as recorded: %s\n",$sql;
+                        $dbh->do($sql) || die "Could not execute $sql: $!\n";
                         my $sql = sprintf "DELETE FROM recorded WHERE basename LIKE \"%s\" LIMIT 1",$basename;
                         printf "performing database delete: %s\n",$sql;
                         $dbh->do($sql) || die "Could not execute $sql: $!\n";