josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

updated videos table

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@105 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-20 22:01:44 +00:00
parent 40a1fc3405
commit d8aefc4997
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
trunk/init_sql.pl
View file

@ -61,7 +61,7 @@ $dbh->do(qq{create table
derivativeworks bool not null, derivativeworks bool not null,
sharealike bool not null, sharealike bool not null,
commercialuse bool not null, commercialuse bool not null,
status int not null, status int default 0,
primary key (id) primary key (id)
) )
}) or die $dbh->errstr; }) or die $dbh->errstr;
@ -92,6 +92,8 @@ $dbh->do(qq{create table
height smallint not null, height smallint not null,
fps float not null, fps float not null,
hash char(64) not null, hash char(64) not null,
viewcount int default 0,
downloadcount int default 0,
primary key (id), primary key (id),
fulltext (title, description, subject) fulltext (title, description, subject)
) )

2
trunk/uploader.pl
View file

@ -26,7 +26,7 @@ if($userid)
my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr; my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr;
#make new entry for video into the databse #make new entry for video into the databse
my $sth = $dbh->prepare(qq{insert into uploaded (title, description, userid, status, timestamp) values ( ?, ?, ?, 0, unix_timestamp())}) or die $dbh->errstr; my $sth = $dbh->prepare(qq{insert into uploaded (title, description, userid, timestamp) values ( ?, ?, ?, unix_timestamp())}) or die $dbh->errstr;
$sth->execute($query->param("title"), $query->param("description"), $userid) or die $dbh->errstr; $sth->execute($query->param("title"), $query->param("description"), $userid) or die $dbh->errstr;
$sth->finish() or die $dbh->errstr; $sth->finish() or die $dbh->errstr;