Sharemarks

Version vom 9. Oktober 2005, 02:36 Uhr

Beschreibung

Das Sharemarks Projekt hat das Ziel, Schnittmarken für VDR Aufnahmen in ein universelles Format zu konvertieren und zentral per Webserver zur Verfügung zu stellen. Oder anders ausgedrückt: Wenn ein VDRler die Werbung in einer Aufnahme markiert hat, dann können sich alle anderen die Arbeit sparen und die Schnittmarken des ersten VDRlers verwenden.

Hardwareanforderungen

Vorzugsweise ein VDR mit Internetzugang.

Softwareanforderungen

• Perl mit dem LWP::Simple Modul (in libwww enthalten)

Installation

Falls nicht bereits installiert.

cd $SOURCEDIR
libwww-perl-<VERSION>.tar.gz
cd libwww-perl-<VERSION>
perl Makefile.PL
make
make test
make install

cd $SOURCEDIR
tar xvzf sharemarks-<VERSION>
cd sharemarks-<VERSION>
cp pts2marks marks2pts /usr/local/bin

Erstellen der Konfiguration /etc/marks2pts.conf. Die Datei kann auch über den Aufruf der "marks2pts" ohne Parameter erzeugt werden.

Zum Schluß ist der Wrapper anzupassen, Übergabe wie folgt:

-r '/usr/local/bin/rwrapper.sh'

oder

--record='/usr/local/bin/rwrapper.sh'

Einträge für die reccmds.conf, zum manuellen Up-Download von Schnittmarken.

Download marks : /usr/local/bin/pts2marks
Upload marks   : /usr/local/bin/marks2pts -upload

Es ist eine kleine Dokumentation im Sharemarks-Archiv vorhanden.

Probleme

Patches

Damit marks2pts bei vdr-1.3.23 oder höher, die Aufnahme einem Timer zuordnen kann ist folgender Patch nötig.

--- marks2pts.org2      2004-05-06 23:19:19.000000000 +0200
+++ marks2pts   2005-03-26 08:19:12.000000000 +0100
@@ -1116,12 +1116,14 @@

     foreach (@timers) {
         dprint( "Checking $_\n");
-        my ($status, $cid, $tday, $tstime, $tetime, $prio, $lifetime, $title) = (split/:/,$_)[0..7];
+        my ($status, $cid, $tsdate, $tstime, $tetime, $prio, $lifetime, $title) = (split/:/,$_)[0..7];
         my $tshour = substr($tstime, 0, 2);
         my $tsmin  = substr($tstime, 2, 2);
         my $tehour = substr($tetime, 0, 2);
         my $temin  = substr($tetime, 2, 2);
-
+
+        my ($tyear, $tmonth, $tday) = $tsdate =~ /(\d{4})-(\d{2})-(\d{2})/;
+
         if (! $status) {
             next;
         }

Links