Ticket #2877: myth.rebuilddatabase.pl.patch

myth.rebuilddatabase.pl

@@ -185 +185 @@
                 'norename'=>\$norename
                 );
 
+print "db = dbi:mysql:database=$database:host=$dbhost user = $user pass = $pass\n";
 my $dbh = DBI->connect("dbi:mysql:database=$database:host=$dbhost",
                 "$user","$pass") or die "Cannot connect to database ($!)\n";
 
@@ -314 +315 @@
 
     # have enough to look for an past recording?
     if ($ssecond) {
+        print "Checking for a recording...\n";
         $starttime = "$syear$smonth$sday$shour$sminute$ssecond";
 
         my $guess = "select title, subtitle, description from oldrecorded where chanid=(?) and starttime=(?)";
@@ -333 +335 @@
         print "End time:   $emonth/$eday/$eyear - $ehour:$eminute:$esecond\n";
     }
 
+    # what about checking for guide data?
+    if($guess_description =~ /^Recovered file/) {
+        print "Checking for guide data...\n";
+        my $guess = "select title, subtitle, description from program where chanid='$channel'".
+                    " and starttime='$syear-$smonth-$sday $shour:$sminute:$ssecond'";
+        print "$guess\n";
+        $sth = $dbh->prepare($guess);
+        $sth->execute()
+            or die "Could not execute ($guess)\n";
+
+        if (my @row = $sth->fetchrow_array) {
+            $guess_title = $row[0];
+            $guess_subtitle = $row[1];
+            $guess_description = $row[2];
+            print "Using guide data informaton for defaults\n";
+        }
+    }
+
     my $newtitle = $guess_title;
     my $newsubtitle = $guess_subtitle;
     my $newdescription = $guess_description;