yolanda/trunk/init_sql.pl
josch d8aefc4997 updated videos table
git-svn-id: http://yolanda.mister-muffin.de/svn@105 7eef14d0-6ed0-489d-bf55-20463b2d70db
2007-10-20 22:01:44 +00:00

105 lines
2.5 KiB
Perl

#!/usr/bin/perl
require "include.pl";
#create or resume session
CGI::Session->name($session_name);
my $session = new CGI::Session;
my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr;
$dbh->do(qq{drop table users});
$dbh->do(qq{drop table videos});
$dbh->do(qq{drop table uploaded});
$dbh->do(qq{drop table tagcloud});
$dbh->do(qq{create table
tagcloud
(
text varchar(255) not null,
count int not null
)
}) or die $dbh->errstr;
$dbh->do(qq{insert into
tagcloud values
(
'web tv', 68
)
}) or die $dbh->errstr;
$dbh->do(qq{create table
users
(
id int auto_increment not null,
username varchar(255) not null,
password char(41) not null,
sid char(32) not null,
primary key (id)
)
}) or die $dbh->errstr;
$dbh->do(qq{create table
uploaded
(
id int auto_increment not null,
title varchar(255) not null,
description varchar(255) not null,
userid int not null,
timestamp bigint not null,
creator varchar(255) not null,
subject varchar(255) not null,
contributor varchar(255) not null,
source varchar(255) not null,
language varchar(255) not null,
coverage varchar(255) not null,
rights varchar(255) not null,
license varchar(255) not null,
notice bool not null,
derivativeworks bool not null,
sharealike bool not null,
commercialuse bool not null,
status int default 0,
primary key (id)
)
}) or die $dbh->errstr;
$dbh->do(qq{create table
videos
(
id int auto_increment not null,
title varchar(255) not null,
description varchar(255) not null,
userid int not null,
timestamp bigint not null,
creator varchar(255) not null,
subject varchar(255) not null,
contributor varchar(255) not null,
source varchar(255) not null,
language varchar(255) not null,
coverage varchar(255) not null,
rights varchar(255) not null,
license varchar(255) not null,
notice bool not null,
derivativeworks bool not null,
sharealike bool not null,
commercialuse bool not null,
filesize int not null,
duration int not null,
width smallint not null,
height smallint not null,
fps float not null,
hash char(64) not null,
viewcount int default 0,
downloadcount int default 0,
primary key (id),
fulltext (title, description, subject)
)
}) or die $dbh->errstr;
$dbh->disconnect() or die $dbh->errstr;
print $session->header();
print "initiated database";