Ticket #6006: myth.rebuilddatabase.pl.2.diff

myth.

@@ -28 +28 @@
 ## ./myth.rebuilddatabase.pl
 
 ## Change log:
+## 12-14-2008 (kb9vqf@pearsoncomputing.net)
+##  Updated script to:
+##   Populate file size
+##   Correctly handle start date and time
+##   Detect recording length with mplayer
+##   Automatically preview file with xine
 ## 9-19-2003: (awithers@anduin.com)
 ##  Anduin fights the urge to make code more readable (aka C like).  Battle
 ##  of urges ends in stalemate: code was reindented but not "changed" (much).
@@ -72 +78 @@
 my $norename = 0;
 my $storagegroup = "Default";
 
+my $filesize = 0;
+
 my $date_regx = qr/(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;
 my $db_date_regx = qr/(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/;
 my $channel_regx = qr/(\d\d\d\d)/;
@@ -277 +285 @@
 
 
     # normal case: import file into the database
+    $filesize = `xine ${show}`;
 
     my ($channel, $syear, $smonth, $sday, $shour, $sminute, $ssecond,
         $eyear, $emonth, $eday, $ehour, $eminute, $esecond);
@@ -376 +385 @@
         $newtitle = GetAnswer("... title", $newtitle);
         $newsubtitle = GetAnswer("... subtitle", $newsubtitle);
         $newdescription = GetAnswer("Description", $newdescription);
+        $starttime = "$syear-$smonth-$sday $shour:$sminute:$ssecond";
         $starttime = GetAnswer("... start time (YYYY-MM-DD HH:MM:SS)", $starttime);
         $recgroup = GetAnswer("... Recording Group", "Default");
     }
@@ -385 +395 @@
     } else {
         $duration = "60";
     }
+
+    $duration = `mplayer -identify ${show} -frames 0 2> /dev/null | grep ID_LENGTH`;
+    $duration =~ s/ID_LENGTH=//;
+    $duration = $duration / 60;
+    chomp $duration;
+
     $duration = GetAnswer("... duration (in minutes)", $duration);
     $endtime = time_format("yyyy-mm{on}-dd hh:mm{in}:ss", str2time($starttime) + $duration * 60);
 
@@ -396 +412 @@
         $time1 =~ s/[ \-:]//g;
         $mythfile = sprintf("%s_%s.%s", $channel, $time1, $ext);
     }
-
-    my $sql = "insert into recorded (chanid, starttime, endtime, title, subtitle, description, hostname, basename, progstart, progend, storagegroup, recgroup) values ((?), (?), (?), (?), (?), (?), (?), (?), (?), (?), (?), (?))";
+    $filesize = `du -sk ${show}`;
+    $filesize =~ s/     .*//;
+    chomp $filesize;
+    $filesize = "${filesize}000";
+    my $sql = "insert into recorded (chanid, starttime, endtime, title, subtitle, description, hostname, basename, progstart, progend, storagegroup, recgroup, filesize) values ((?), (?), (?), (?), (?), (?), (?), (?), (?), (?), (?), (?), (?))";
 
     if ($test_mode) {
 
         $sql =~ s/\(\?\)/"%s"/g;
         my $statement = sprintf($sql, $channel, $starttime, $endtime, $newtitle,
                                 $newsubtitle, $newdescription, $host, $mythfile,
-                                $starttime, $endtime, $storagegroup, $recgroup);
+                                $starttime, $endtime, $storagegroup, $recgroup, $filesize);
         print("Test mode: insert would have been been:\n");
         print($statement, ";\n");
 
@@ -413 +432 @@
         $sth = $dbh->prepare($sql);
         $sth->execute($channel, $starttime, $endtime, $newtitle,
                       $newsubtitle, $newdescription, $host, $mythfile,
-                      $starttime, $endtime, $storagegroup, $recgroup)
+                      $starttime, $endtime, $storagegroup, $recgroup, $filesize)
             or die "Could not execute ($sql)\n";
 
         if ($mythfile ne $showBase) {