mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

auto-detect xbmc library location, clarify

Browse source
This commit is contained in:
https://id.koumbit.net/anarcat 2014-10-01 02:19:53 +00:00 committed by admin
parent c8a83144ac
commit d36ca0f563
1 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl
View file

@ -1,7 +1,24 @@
#! /usr/bin/perl -w
my $dbpath="/home/video/.xbmc/userdata/Database/MyVideos75.db";
# we want to operate on relative links, so set this to the common prefix
# to the git annex repo
my $prefix="/home/media/video/";
# this is the directory for the XBMC database
my $path = '/home/video/.xbmc/userdata/Database/';
# no user-serviceable parts below
# list videos database, find the latest one
# modified version of
# http://stackoverflow.com/questions/4651092/getting-the-list-of-files-sorted-by-modification-date-in-perl
opendir my($dirh), $path or die "can't opendir $path: $!";
my @flist = sort { -M $a <=> -M $b } # Sort by modification time
map { "$path/$_" } # We need full paths for sorting
grep { /^MyVideos.*\.db$/ }
readdir $dirh;
closedir $dirh;
my $dbpath=$flist[0];
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) {
@ -11,7 +28,6 @@ for (@lines) {
if ($count !~ /[0-9]/) {
$count = 0;
}
$dir =~ s/$prefix//;
if ($file =~ s#stack://##) {
for (split /,/, $file) {
s/$prefix//;
@ -22,6 +38,7 @@ for (@lines) {
}
}
else {
$dir =~ s/$prefix//;
my @cmd = (qw(git annex metadata --set), "playCount=$count", "$dir$file");
system(@cmd);
}