Ticket #5484: setbookmark

File setbookmark, 1.9 KB (added by Tony Lill <ajlill@…>, 12 years ago)
Line 
1+++ contrib/setbookmark (revision 0)
2@@ -0,0 +1,51 @@
3+#!/usr/bin/perl -w
4+# $Id: setbookmark,v 1.3 2008-06-27 22:14:22 ajlill Exp $
5+# Set a bookmark at progstart if we recorded with pre-roll
6+# Invoke as a user job like so:
7+# setbookmark --chanid=$CHANID% --starttime="%STARTTIMEISO%" --progstart="%PROGSTARTISO%"
8+
9+use DBI;
10+use Getopt::Long;
11+use Time::Local;
12+
13+my( $starttime, $progstart, $chanid, $database, $host, $user, $pass, $debug );
14+GetOptions( 'host=s'=>\$host,
15+           'database=s'=>\$database,
16+           'user=s'=>\$user,
17+           'pass=s'=>\$pass,
18+           "starttime=s" => \$starttime,
19+            "progstart=s" => \$progstart,
20+           "chanid=i" => \$chanid,
21+           "debug!" => \$debug
22+            );
23+
24+open( DBG, ">/tmp/setbookmark.dbg") if( $debug );
25+
26+if (!$host) { $host="freevo"; }
27+if (!$database) { $database="mythconverg"; }
28+if (!$user) { $user="mythtv"; }
29+if (!$pass) { $pass="mythtv"; }
30+
31+# TODO: look at the file and get the real fps
32+$fps = 30;
33+
34+my $dbh =
35+  DBI->connect("dbi:mysql:database=$database:host=$host","$user","$pass") or
36+  die "Cannot connect to database ($!)\n";
37+
38+print DBG "Found progstart($progstart) for $chanid $starttime\n" if ( $debug );
39+if( $progstart ne $starttime ) {
40+  ($y,$mo,$d,$h,$m,$s) = split( /[-: T]/, $starttime);
41+  $st = timelocal($s,$m,$h,$d,$mo-1,$y);
42+  ($y,$mo,$d,$h,$m,$s) = split( /[-: T]/, $progstart);
43+  $pg = timelocal($s,$m,$h,$d,$mo-1,$y);
44+  $frames = ($pg - $st) * $fps;
45+  print DBG "Seconds starttime($st) progstart($pg) frames($frames)\n" if ( $debug );
46+} else {
47+  exit;
48+}
49+$sth = $dbh->prepare("insert into recordedmarkup ( chanid, starttime, mark, type ) values ( $chanid, \"$starttime\", $frames, 2 )");
50+$sth->execute();
51+$sth = $dbh->prepare("update recorded set bookmark = 1 where chanid = $chanid and starttime = \"$starttime\"");
52+$sth->execute();
53+exit 0;
54
55Property changes on: contrib/setbookmark
56___________________________________________________________________
57Name: svn:executable
58   + *
59