File size: 3.8Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE);
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');
if($mest=="") {$mest="index";}
//////////////////////////////////////////////////////////////////////////
$gl="http://da1.hoha.ru/index.wml"; /////////// ссылка на главную
$zag="Dionisij"; /////////// Загаловок
//////////////////////////////////////////////////////////////////////////
$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>
<b>$log,</b> вы удачно вошли!<br/>
<a href=\"$mest.php?razd=$razd&prazd=$prazd&tem=$tem&nmes=$id&log=$log&par=$par\">Форум</a><br/>
<a href=\"$gl\">На главную</a><br/>
";}
else {print"ontimer=\"vxod.php\" >
<timer value=\"50\"/>
<p>Пароль или логин неверные! попробуйте ввести их еще раз, или зарегестрируйтесь!
<br/><a href=\"vxod.php\">Попробывать еще раз</a><br/>
<a href=\"$gl\">На главную</a><br/>
";}
print"
</p>
</card>
</wml>"; ///////////////// последняя ссылка - на главную
?>