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

add verbose mode, limitations section and more bugs

Browse source
This commit is contained in:
https://id.koumbit.net/anarcat 2014-10-04 22:47:28 +00:00 committed by admin
parent bd00c747b4
commit 028b785f30
1 changed files with 21 additions and 0 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

@ -6,6 +6,7 @@ use Pod::Usage;
my $help = 0; my $help = 0;
my $usage = 0; my $usage = 0;
my $dryrun = 0; my $dryrun = 0;
my $verbose = 0;
my $path = ''; my $path = '';
my $annex = ''; my $annex = '';
my $home = $ENV{'HOME'}; my $home = $ENV{'HOME'};
@ -15,10 +16,12 @@ sub main() {
if (!$path) { if (!$path) {
$path = $home . '/.xbmc/userdata/Database'; $path = $home . '/.xbmc/userdata/Database';
} }
print("# checking XBMC directory '$path'\n") if ($verbose);
$dbpath = finddb($path); $dbpath = finddb($path);
if (!$dbpath) { if (!$dbpath) {
pod2usage("$0: can't find a XBMC database in '$path'."); pod2usage("$0: can't find a XBMC database in '$path'.");
} }
print("# using database '$dbpath'\n") if ($verbose);
checkdb(); checkdb();
} }
@ -53,12 +56,14 @@ sub checkargs() {
'path=s' => \$path, 'path=s' => \$path,
'home=s' => \$home, 'home=s' => \$home,
'dryrun|n' => \$dryrun, 'dryrun|n' => \$dryrun,
'verbose|v' => \$verbose,
) )
or die("Error parsing commandline\n"); or die("Error parsing commandline\n");
} }
sub checkdb() { sub checkdb() {
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`; 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`;
print "# finding files...\n" if $verbose;
for (@lines) { for (@lines) {
my ($count, $dir, $file) = split /\|/; my ($count, $dir, $file) = split /\|/;
chomp $file; chomp $file;
@ -66,6 +71,7 @@ sub checkdb() {
if ($count !~ /[0-9]/) { if ($count !~ /[0-9]/) {
$count = 0; $count = 0;
} }
print "# $dir/$file\n" if $verbose;
if ($file =~ s#stack://##) { if ($file =~ s#stack://##) {
for (split /,/, $file) { for (split /,/, $file) {
s/$annex//; s/$annex//;
@ -113,6 +119,7 @@ git-annex-xbmc-playcount [--path .xbmc/userdata/Database]
--annex path to the git-annex repo --annex path to the git-annex repo
--home the home directory where the .xbmc directory is located --home the home directory where the .xbmc directory is located
--path the location of the Database directory of XBMC, overrides --home --path the location of the Database directory of XBMC, overrides --home
--verbose show interaction details with the database
=head1 DESCRIPTION =head1 DESCRIPTION
@ -155,6 +162,11 @@ Note that this doesn't point directly to the datbase itself, because
there are usually many database files and we want to automatically there are usually many database files and we want to automatically
find the latest. This may be a stupid limitation. find the latest. This may be a stupid limitation.
=item B<--verbose>
Show more information about path discovery. Doesn't obstruct
B<--dryrun> output because lines are prefixed with C<#>.
=back =back
=head1 EXAMPLES =head1 EXAMPLES
@ -193,10 +205,19 @@ stored.
=head1 BUGS =head1 BUGS
If there are pipes (C<|>) in filenames, the script may fail to find
the files properly. We would need to rewrite the database code to use
B<DBD::SQLite>(3pm) instead of a pipe to B<sqlite3>(1).
=head1 LIMITATIONS
It took longer writing this help than writing the stupid script. It took longer writing this help than writing the stupid script.
The script will not tag files not yet detected by XBMC. The script will not tag files not yet detected by XBMC.
The script is not incremental, so it will repeatedly add the same
counts to files it has already found.
=head1 SEE ALSO =head1 SEE ALSO
B<git-annex>(1), B<xbmc>(1) B<git-annex>(1), B<xbmc>(1)