yolanda/trunk/init_sql.pl

#!/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{drop table referer});

$dbh->do(qq{drop table comments});

$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{insert into
	users
	(
		username,
		password
	)
	values
	(
		'test',
		password( 'test' )
	)
}) 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->do(qq{create table
	referer
	(
		videoid			int					not null,
		referer			varchar(255)		not null,
		count			int					default 1
	)
}) or die $dbh->errstr;

$dbh->do(qq{create table
	comments
	(
		id				int auto_increment	not null,
		userid			int					not null,
		videoid			int					not null,
		text			varchar(255)		not null,
		timestamp		bigint				not null,
		primary key		(id)
	)
}) or die $dbh->errstr;

$dbh->disconnect() or die $dbh->errstr;

print $session->header();
print "initiated database";