initial version
git-svn-id: http://yolanda.mister-muffin.de/svn@39 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
parent
15c8a142f1
commit
94d337f15a
1 changed files with 27 additions and 0 deletions
27
trunk/init_sql.pl
Normal file
27
trunk/init_sql.pl
Normal file
|
@ -0,0 +1,27 @@
|
|||
#!/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, userid varchar(255) not null, hash char(64) not null, status int not null, primary key (id), fulltext (title, caption))});
|
||||
|
||||
$dbh->disconnect() or die $dbh->errstr;
|
||||
|
||||
print $session->header();
|
||||
print "initiated database";
|
Loading…
Reference in a new issue