2aa752283b
comments are awsome, thanks josch git-svn-id: http://yolanda.mister-muffin.de/svn@68 7eef14d0-6ed0-489d-bf55-20463b2d70db
60 lines
1.1 KiB
Perl
60 lines
1.1 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 tagcloud});
|
|
|
|
$dbh->do(qq{create table
|
|
tagcloud
|
|
(
|
|
text varchar(255) not null,
|
|
count int not null
|
|
)
|
|
});
|
|
|
|
$dbh->do(qq{insert into
|
|
tagcloud values
|
|
(
|
|
'web tv', 68
|
|
)
|
|
});
|
|
|
|
$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)
|
|
)
|
|
});
|
|
|
|
$dbh->do(qq{create table
|
|
videos
|
|
(
|
|
id int auto_increment not null,
|
|
title varchar(255) not null,
|
|
caption text not null,
|
|
userid varchar(255) not null,
|
|
hash char(64) not null,
|
|
status int not null,
|
|
timestamp datetime not null,
|
|
primary key (id),
|
|
fulltext (title, caption)
|
|
)
|
|
});
|
|
|
|
$dbh->disconnect() or die $dbh->errstr;
|
|
|
|
print $session->header();
|
|
print "initiated database";
|