File size: 2.26Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE);
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');
if($mest=="") {$mest="index";}
//////////////////////////////////////////////////////////////////////////
$zag="[форум]";
$currHour=date("H",time());
$currDate=date("dS F, Y", time());
$currTime=date("$currHour:i:s", time());
header("Content-type:text/vnd.wap.wml;charset=utf-8");
print "<?xml version=\"1.0\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml>
<card id=\"tes\" title=\"$zag\" ";
$log = htmlspecialchars(stripslashes($log));
$par = htmlspecialchars(stripslashes($par));
$text = @file("profil/$log.prof");
$udata = explode(":||:",$text[0]);
$provpar= $udata[1];
$provpar= trim($provpar);
if ($par==$provpar) {
print"ontimer=\"$mest.php?razd=$razd&prazd=$prazd&tem=$tem&nmes=$id&log=$log&par=$par\" >
<timer value=\"30\"/><p align=\"center\">
<b>$log,</b> вы удачно вошли!<br/>
<a href=\"$mest.php?razd=$razd&prazd=$prazd&tem=$tem&nmes=$id&log=$log&par=$par\"><font color=\"blue\">форум</font></a>
";}
else {print"ontimer=\"vxod.php\" >
<timer value=\"50\"/>
<p align=\"center\">
пароль или логин неверные,попробуйте ввести их еще раз, или зарегестрируйтесь...
<br/><a href=\"vxod.php\"><font color=\"blue\">[попробовать еще]</font></a><br/>";}
print"
</p>
</card>
</wml>"; ///////////////// последняя ссылка - на главную
?>