From 72d8900176f2cb1a35167786500ff94d85e52318 Mon Sep 17 00:00:00 2001
From: "https://id.koumbit.net/anarcat" <https://id.koumbit.net/anarcat@web>
Date: Sun, 10 Aug 2014 23:33:36 +0000
Subject: trying script upload from the web interface, neat

---
 .../git-annex-xbmc-playcount.pl.pl                 | 24 ++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl.pl

(limited to 'doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl.pl')

diff --git a/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl.pl b/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl.pl
new file mode 100644
index 000000000..1fa7f0baa
--- /dev/null
+++ b/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl.pl
@@ -0,0 +1,24 @@
+#! /usr/bin/perl -w
+
+my $dbpath="/home/video/.xbmc/userdata/Database/MyVideos75.db";
+my $prefix="/home/media/video/";
+
+my @lines = `echo 'SELECT playCount, path.strPath, files.strFileName FROM movie JOIN files ON files.idFile=movie.idFile JOIN path ON path.idPath=files.idPath;' | sqlite3 $dbpath`;
+for (@lines) {
+    my ($count, $dir, $file) = split /\|/;
+    chomp $file;
+    $dir =~ s/$prefix//;
+    if ($file =~ s#stack://##) {
+        for (split /,/, $file) {
+            s/$prefix//;
+            s/^ //;
+            s/ $//;
+            my @cmd = (qw(git annex metadata --set), "playCount=$count", $_);
+            system(@cmd);
+        }
+    }
+    else {
+        my @cmd = (qw(git annex metadata --set), "playCount=$count", "$dir$file");
+        system(@cmd);
+    }
+}
-- 
cgit v1.2.3