diff options
| -rw-r--r-- | doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl b/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl index 76ad33649..3e2bd9bce 100644 --- a/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl +++ b/doc/tips/dumb_metadata_extraction_from_xbmc/git-annex-xbmc-playcount.pl @@ -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); } |