55 lines
1.0 KiB
Perl
55 lines
1.0 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# Set title
|
||
|
|
$TITLE="South Park";
|
||
|
|
|
||
|
|
# Set genres (see list below for ids)
|
||
|
|
@GENRES=(4,3);
|
||
|
|
|
||
|
|
# 1 Action
|
||
|
|
# 2 Adventure
|
||
|
|
# 3 Animation
|
||
|
|
# 4 Comedy
|
||
|
|
# 5 Crime
|
||
|
|
# 6 Documentary
|
||
|
|
# 7 Drama
|
||
|
|
# 8 Family
|
||
|
|
# 9 Fantasy
|
||
|
|
# 10 Film-Noir
|
||
|
|
# 11 Horror
|
||
|
|
# 12 Musical
|
||
|
|
# 13 Mystery
|
||
|
|
# 14 Romance
|
||
|
|
# 15 Sci-Fi
|
||
|
|
# 16 Short
|
||
|
|
# 17 Thriller
|
||
|
|
# 18 War
|
||
|
|
# 19 Western
|
||
|
|
|
||
|
|
$db_server = "localhost";
|
||
|
|
$db_user = "www";
|
||
|
|
$db_password = "leech";
|
||
|
|
$db_database = "VideoDB";
|
||
|
|
|
||
|
|
######################################################################
|
||
|
|
use DBI;
|
||
|
|
$dbh = DBI->connect("dbi:mysql:$db_database:$db_server",$db_user,$db_password) || die("Can't connect");
|
||
|
|
|
||
|
|
$SELECT = "SELECT id from videodata
|
||
|
|
WHERE title LIKE '$TITLE'";
|
||
|
|
$idr = $dbh->selectall_arrayref($SELECT);
|
||
|
|
|
||
|
|
$row=0;
|
||
|
|
while (defined($idr->[$row][0])){
|
||
|
|
my $id = $idr->[$row][0];
|
||
|
|
|
||
|
|
#clear existing genres:
|
||
|
|
$dbh->do("DELETE FROM videogenre WHERE id = $id");
|
||
|
|
|
||
|
|
#insert new genres
|
||
|
|
foreach my $gid (@GENRES){
|
||
|
|
$dbh->do("INSERT INTO videogenre SET id = $id, gid = $gid");
|
||
|
|
}
|
||
|
|
$row++;
|
||
|
|
}
|