[-
use lib qw(../../pm);
use DBIx::Recordset;
use mobreg::common;
use mobreg::util;
$fdat{'!DataSource'} = $dbi_dsn;
$fdat{'!Username'} = $dbi_username;
$fdat{'!Password'} = $dbi_password;
$fdat{'!Table'} = 'members' ;
$user_info = mobreg::util::get_user_info();
if (defined $fdat{mode}) {
if ($fdat{mode} eq "login") {
*set = DBIx::Recordset -> Search(\%fdat) ;
$rec = $set->Curr();
$cval = mobreg::util::set_login_cookie( $rec->{member_id}, $rec->{email});
$user_info = mobreg::util::get_user_info_cookie($cval);
}
}
-]
MobReg.com Login
[$ if (($fdat{mode} eq "login") && ($user_info != NULL)) $]
MobReg.com
online and mobile domain registration service
login complete
Welcome [+ $fdat{email} +], you are now logged in.
Refreshing to main menu...
[$ else $]
MobReg.com
online and mobile domain registration service
login
[$ if ( ($fdat{mode} eq "login") && (defined $fdat{email}) && ($fdat{mode} eq "login") ) $]
There was an error with your email or password.
[$ endif $]
[$ endif $]