summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-02-17 23:00:25 +0100
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2012-02-17 23:00:25 +0100
commit23250c55f8384b084c188c09e2a3eea8d800f50b (patch)
tree8da79b3129eeb04ff4b5844b50a2fd7c3d3abf35
parent0129cd78f1516df6d2af2a2eb81b58a039bfb1b5 (diff)
seen
-rwxr-xr-xvideoadd.pl41
1 files changed, 22 insertions, 19 deletions
diff --git a/videoadd.pl b/videoadd.pl
index 99926d6..8bd726a 100755
--- a/videoadd.pl
+++ b/videoadd.pl
@@ -34,8 +34,8 @@ my %config = do $confile;
die "Error in `" .$confile. "'.\n" if $@ || not %config;
map { exists $config{$_} || die "Error: Missing `${_}'.\n" }
- qw /videodir driver database hostname user port password videodata
- imdb url/;
+ qw /videodir driver database hostname user port password userid imdb url/;
+$config{prefix} = "" unless exists $config{prefix};
my $symlinks = catdir($config{videodir},'MOVIES'); # Symlinks folder
die "Error: No such directory: `" .$symlinks. "'.\n" unless -d $symlinks;
@@ -54,8 +54,8 @@ videoadd.pl - add movies to your collection
=head1 SYNOPSIS
-B<videoadd.pl> [B<-s>] [B<-i> I<crit>] [B<-o> I<key=value>...]
-[B<--ignore-db>] [B<--dont-sort>] [B<-q>] I<filename>
+B<videoadd.pl> [B<-s>] [B<--ignore-db>] [B<--dont-sort>] [B<-i> I<crit>]
+[B<-o> I<key=value>...] [B<-q>] I<filename>
=head1 DISCLAIMER
@@ -141,10 +141,10 @@ e.g.,
user => 'username',
port => 3306,
password => '******',
- videodata => "videodb_videodata",
+ prefix => "videodb_",
+ userid => 1
imdb => 'akas.imdb.com',
url => 'https://videodb.example.org',
- userid => 1
=head1 REQUIREMENTS
@@ -160,15 +160,15 @@ Copyright 2012 Guilhem Moulin. See the source for copying conditions.
################################################################################
my $ignoredb_flag;
+my $seen_flag;
my $sort_flag = 1;
my %options;
-GetOptions( #"s|seen" => sub { $options{seen} = 1 }
- "i|imdb=s"=> sub { $imdb{crit} = $_[1] }
-# , "u|update=s"=> update id/filename
+GetOptions( "s|seen" => \$seen_flag
+ , "ignore-db" => \$ignoredb_flag
+ , "dont-sort" => sub { undef $sort_flag }
+ , "i|imdb=s" => sub { $imdb{crit} = $_[1] }
, "o=s" => sub { my ($k,$v) = split /=/, $_[1], 2;
$options{lc $k} = $v; }
- , "dont-sort" => sub { undef $sort_flag }
- , "ignore-db" => \$ignoredb_flag
, "q|quiet=s" => sub { open LOG, '>', '/dev/null'
or die "Cannot open `/dev/null': $!" }
, "man" => sub { pod2usage(-exitstatus => 0, -verbose => 2) }
@@ -178,7 +178,7 @@ pod2usage(2) if $#ARGV != 0;
*LOG = *STDERR unless defined (fileno LOG);
my $file = $ARGV[0];
-my %new;
+my %new = (owner_id => $config{userid});
################################################################################
@@ -320,7 +320,7 @@ if ( defined($file) ) {
# Insertion into the database
unless ( defined $ignoredb_flag ) {
- my $INSERT = "INSERT INTO $config{videodata}
+ my $INSERT = "INSERT INTO $config{prefix}videodata
SET mediatype = 14,
created = NOW()";
if (defined $new{filedate}) {
@@ -329,21 +329,24 @@ unless ( defined $ignoredb_flag ) {
}
while (my ($k,$v) = each %new) {
- $INSERT .= ", " .$k. " = " .$dbh->quote ($v);
+ $INSERT .= ", " .$k. " = " .$dbh->quote ($v) if defined $v;
}
$dbh->do($INSERT) or die "Can't insert: $!\n";
-# print $INSERT, "\n";
- my $ids = $dbh->selectall_arrayref ( "SELECT id FROM $config{videodata}
+ my $ids = $dbh->selectall_arrayref ( "SELECT id FROM $config{prefix}videodata
WHERE filename = ? ",
undef, $new{filename} );
if ($#$ids == 0) {
- print LOG "Check it out! ",
- $config{url}, "/show.php?id=", $ids->[0]->[0], "\n"
+ my $id = $ids->[0]->[0];
+ $dbh->do( "INSERT INTO $config{prefix}userseen
+ SET video_id = $id,
+ user_id = $config{userid}" )
+ or die "Can't insert: $!\n";
+ print LOG "Check it out! ", $config{url}. "/show.php?id=" .$id, "\n"
or die "Can't print: $!";
}
else {
- warn "Warning: Something weird happened during the INSERT.\n";
+ warn "Warning: Something weird happened during the INSERT. You should probably check the sanity of your collection.\n";
}
$dbh->disconnect;