27 lines
1,008 B
Perl
27 lines
1,008 B
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";
|