View file forum/inprof.php

File size: 2.17Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE);
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');


$zag="[&#x0444;&#x043E;&#x0440;&#x0443;&#x043C;]";                                              

$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&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$id&amp;log=$log&amp;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"&#x0434;&#x0430;&#x043D;&#x043D;&#x044B;&#x0435; &#x0443;&#x0441;&#x043F;&#x0435;&#x0448;&#x043D;&#x043E; &#x0438;&#x0437;&#x043C;&#x0435;&#x043D;&#x0435;&#x043D;&#x044B;.
<br/>
&#x0432;&#x0430;&#x0448; &#x043D;&#x0438;&#x043A;:<small>$log</small> <br/>
&#x0432;&#x0430;&#x0448; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;:<small>$par</small><br/>";}

else {print"&#x041D;&#x0435;&#x0432;&#x0435;&#x0440;&#x043D;&#x044B;&#x0439; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;";}

print"<a href=\"$mest.php?razd=$razd&amp;prazd=$prazd&amp;tem=$tem&amp;nmes=$nmes&amp;log=$log&amp;par=$par\"><font color=\"blue\">[&#x0444;&#x043E;&#x0440;&#x0443;&#x043C;]</font></a><br/>
</p>
</card>
</wml>";                          

?>