diff --git a/trunk/init_sql.pl b/trunk/init_sql.pl index 1a66c51..98d51dd 100644 --- a/trunk/init_sql.pl +++ b/trunk/init_sql.pl @@ -41,6 +41,19 @@ $dbh->do(qq{create table ) }) 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 ( @@ -99,6 +112,15 @@ $dbh->do(qq{create table ) }) 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->disconnect() or die $dbh->errstr; print $session->header();