File size: 2.47Kb
<?
include '../config.php';
Error_Reporting(E_ALL & ~E_NOTICE);
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');
//////////////////////////////////////////////////////////////////////////
$gl="$homepage"; /////////// ссылка на главную
$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\" ontimer=\"$mest.php?razd=$razd&prazd=$prazd&tem=$tem&nmes=$id&log=$log&par=$par\" >
<timer value=\"100\"/>
<p>";
$npar = htmlspecialchars(stripslashes($par));
$otkel = htmlspecialchars(stripslashes($otkel));
$infa = htmlspecialchars(stripslashes($infa));
$meil = htmlspecialchars(stripslashes($meil));
$site = htmlspecialchars(stripslashes($site));
$fal = @file("profil/$log.prof");
$udata = explode(":||:",$fal[0]);
$data=trim($udata[6]);
$text="$log:||:$npar:||:$otkel:||:$infa:||:$meil:||:$site:||:$data";
$of = @file("profil/$log.prof");
$udata = explode(":||:",$of[0]);
$provpar= $udata[1];
$provpar= trim($provpar);
if ($provpar==$par) {
$fp=fopen("profil/$log.prof","w"); ///////// записываем регистрацию
fputs($fp,"$text \r\n");
fclose($fp);
chmod ("profil/$log.prof", 0777);
print"Данные успешно изменены!<br/> Ваш ник: $log <br/>Ваш пароль: $par<br/>";}
else {print"Неверный пароль";}
print"<a href=\"$mest.php?razd=$razd&prazd=$prazd&tem=$tem&nmes=$id&log=$log&par=$par\">Форум</a><br/>
<a href=\"$gl\">На главную</a><br/>
</p>
</card>
</wml>"; ///////////////// последняя ссылка - на главную
?>