josch/yolanda
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fixed registration process

Browse source 
git-svn-id: http://yolanda.mister-muffin.de/svn@152 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-29 08:48:51 +00:00
parent 17b97802d8
commit c802351bb9
3 changed files with 59 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
trunk/init_sql.pl
View file

@ -7,6 +7,8 @@ my $session = new CGI::Session;
my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr; my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr;
$dbh->do(qq{drop table config});
$dbh->do(qq{drop table users}); $dbh->do(qq{drop table users});
$dbh->do(qq{drop table videos}); $dbh->do(qq{drop table videos});
@ -34,6 +36,15 @@ $dbh->do(qq{insert into
) )
}) or die $dbh->errstr; }) or die $dbh->errstr;
$dbh->do(qq{create table
config
(
key varchar(255) not null,
value varchar(255) not null,
primary key (key)
)
}) or die $dbh->errstr;
$dbh->do(qq{create table $dbh->do(qq{create table
users users
( (
@ -41,6 +52,10 @@ $dbh->do(qq{create table
username varchar(255) not null, username varchar(255) not null,
password char(41) not null, password char(41) not null,
sid char(32) not null, sid char(32) not null,
timestamp bigint not null,
locale varchar(10) not null,
pagesize unsigned tinyint default 5,
cortado tinyint default 1,
primary key (id) primary key (id)
) )
}) or die $dbh->errstr; }) or die $dbh->errstr;

7
trunk/locale/en-us.xml
View file

@ -48,8 +48,10 @@
<str id="error_already_registered">You seem to be already registered. Please log out to create a new account.</str> <str id="error_already_registered">You seem to be already registered. Please log out to create a new account.</str>
<str id="error_already_logged_in">You seem to be already logged in. Please log out to log in again.</str> <str id="error_already_logged_in">You seem to be already logged in. Please log out to log in again.</str>
<str id="error_username_password_do_not_match">Username and password do not match.</str> <str id="error_username_password_do_not_match">Username and password do not match.</str>
<str id=""></str> <str id="error_passwords_do_not_match">Passwords do not match.</str>
<str id=""></str> <str id="error_insert_username">Please insert a username.</str>
<str id="error_insert_password">Please insert a password.</str>
<str id="error_repeat_password">Please repeat your password.</str>
<str id=""></str> <str id=""></str>
<!-- information --> <!-- information -->
@ -83,6 +85,7 @@
<!-- login / register page --> <!-- login / register page -->
<str id="username">username</str> <str id="username">username</str>
<str id="password">password</str> <str id="password">password</str>
<str id="password_repeat">repeat password</str>
<str id="button_register">register</str> <str id="button_register">register</str>
<str id="button_login">login</str> <str id="button_login">login</str>

51
trunk/register.pl
View file

@ -12,7 +12,7 @@ $username = get_username_from_sid($session->id);
%page = (); %page = ();
$page->{'username'} = $username; $page->{'username'} = $username;
$page->{'locale'} = $locale; ($page->{'locale'}) = $query->http('HTTP_ACCEPT_LANGUAGE') =~ /^([^,]+),.*$/;
$page->{'stylesheet'} = $stylesheet; $page->{'stylesheet'} = $stylesheet;
$page->{'xmlns:dc'} = $xmlns_dc; $page->{'xmlns:dc'} = $xmlns_dc;
$page->{'xmlns:cc'} = $xmlns_cc; $page->{'xmlns:cc'} = $xmlns_cc;
@ -25,21 +25,48 @@ if($username)
$page->{'message'}->{'text'} = "error_already_registered"; $page->{'message'}->{'text'} = "error_already_registered";
} }
#if username and password are passed put them into the database #if username and password are passed put them into the database
elsif($query->param('user') and $query->param('pass')) elsif($query->param('user') and $query->param('pass') and $query->param('pass_repeat'))
{ {
#connect to db if($query->param('pass') eq $query->param('pass_repeat'))
my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr; {
#connect to db
my $dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass) or die $dbh->errstr;
#do query #do query
$dbh->de(qq{insert into users (username, password) values ( ?, password( ? ))}, undef, $dbh->de(qq{insert into users (username, password, timestamp, locale) values ( ?, password( ? ), unix_timestamp(), ?)}, undef,
$query->param("user"), $query->param("pass")) or die $dbh->errstr; $query->param("user"), $query->param("pass"), $page->{'locale'}) or die $dbh->errstr;
#disconnect db #disconnect db
$dbh->disconnect() or die $dbh->errstr; $dbh->disconnect() or die $dbh->errstr;
#print a little confirmation #print a little confirmation
$page->{'message'}->{'type'} = "information"; $page->{'message'}->{'type'} = "information";
$page->{'message'}->{'text'} = "information_registered"; $page->{'message'}->{'text'} = "information_registered";
}
else
{
$page->{'registerform'} = [''];
$page->{'message'}->{'type'} = "error";
$page->{'message'}->{'text'} = "error_passwords_do_not_match";
}
}
elsif(not $query->param('user'))
{
$page->{'registerform'} = [''];
$page->{'message'}->{'type'} = "error";
$page->{'message'}->{'text'} = "error_insert_username";
}
elsif(not $query->param('pass'))
{
$page->{'registerform'} = [''];
$page->{'message'}->{'type'} = "error";
$page->{'message'}->{'text'} = "error_insert_password";
}
elsif(not $query->param('pass_repeat'))
{
$page->{'registerform'} = [''];
$page->{'message'}->{'type'} = "error";
$page->{'message'}->{'text'} = "error_repeat_password";
} }
else else
{ {