Просмотр файла forum2/forum/inprof.php

<?
                    //                                      //////             //                                                //                        //           //
                    //                                      //       //                          //            /////                     /////                 
                    /////    \\        //          //        //         //       //    //        //     //      //     //               //           //
                    //   //     \\     //           //          //       //    //         //      //      //     //      //////     //           // 
                    //   //       \\ //             //        //         //      //    //         //      //     //               //     //           //
                    /////         \//               //////            //         //               //      //     //     /////        //           //  
                                         //                                                                                                                                    /////
                                        //

                  ///////////////////////////      [email protected]      ///////////////////////////////                         

Error_Reporting(E_ALL & ~E_NOTICE);
$brayz = "$REMOTE_ADDR ";
$u1=getenv('HTTP_USER_AGENT');
$ipad=strtok($u1,'/');

//////////////////////////////////////////////////////////////////////////

$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\" 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"&#x0414;&#x0430;&#x043D;&#x043D;&#x044B;&#x0435; &#x0443;&#x0441;&#x043F;&#x0435;&#x0448;&#x043D;&#x043E; &#x0438;&#x0437;&#x043C;&#x0435;&#x043D;&#x0435;&#x043D;&#x044B;!<br/> &#x0412;&#x0430;&#x0448; &#x043D;&#x0438;&#x043A;: $log <br/>&#x0412;&#x0430;&#x0448; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;: $par<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=$id&amp;log=$log&amp;par=$par\">&#x0424;&#x043E;&#x0440;&#x0443;&#x043C;</a><br/>
<a href=\"$gl\">&#x041D;&#x0430; &#x0433;&#x043B;&#x0430;&#x0432;&#x043D;&#x0443;&#x044E;</a><br/>

</p>

</card>
</wml>";                          ///////////////// последняя ссылка - на главную

?>