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

Размер файла: 4.5Kb
<?
                    //                                      //////             //                                                //                        //           //
                    //                                      //       //                          //            /////                     /////                 
                    /////    \\        //          //        //         //       //    //        //     //      //     //               //           //
                    //   //     \\     //           //          //       //    //         //      //      //     //      //////     //           // 
                    //   //       \\ //             //        //         //      //    //         //      //     //               //     //           //
                    /////         \//               //////            //         //               //      //     //     /////        //           //  
                                         //                                                                                                                                    /////
                                        //

                  ///////////////////////////      [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>";

$log = htmlspecialchars(stripslashes($log));
$par = htmlspecialchars(stripslashes($par));
$otkel = htmlspecialchars(stripslashes($otkel));
$infa = htmlspecialchars(stripslashes($infa));
$meil = htmlspecialchars(stripslashes($meil));
$site = htmlspecialchars(stripslashes($site));

$text="$log:||:$par:||:$otkel:||:$infa:||:$meil:||:$site:||:$currDate";
$mes = @implode("",@file("profil/$log.prof"));
 
if ($mes!="") {print"&#x041F;&#x043E;&#x043B;&#x044C;&#x0437;&#x043E;&#x0432;&#x0430;&#x0442;&#x0435;&#x043B;&#x044C; &#x0441; &#x0442;&#x0430;&#x043A;&#x0438;&#x043C; &#x0438;&#x043C;&#x0435;&#x043D;&#x0435;&#x043C; &#x0443;&#x0436;&#x0435; &#x0437;&#x0430;&#x0440;&#x0435;&#x0433;&#x0435;&#x0441;&#x0442;&#x0440;&#x0438;&#x0440;&#x043E;&#x0432;&#x0430;&#x043D;!";}

else {
$fp=fopen("profil/$log.prof","w");                       ///////// записываем регистрацию                                          
fputs($fp,"$text \r\n");
fclose($fp);  
chmod ("profil/$log.prof", 0777); 

$text="0";
$fp=fopen("profil/$log.st","w");                       ///////// записываем регистрацию                                          
fputs($fp,"$text \r\n");
fclose($fp);  
chmod ("profil/$log.st", 0777); 

$fp=fopen("profil/$log.shp","w");                       ///////// записываем регистрацию                                          
fputs($fp,"$text \r\n");
fclose($fp);  
chmod ("profil/$log.shp", 0777); 

$fp=fopen("profil/$log.vps","w");                       ///////// записываем регистрацию                                          
fputs($fp,"$text \r\n");
fclose($fp);  
chmod ("profil/$log.vps", 0777); 

print"
&#x0412;&#x044B; &#x0443;&#x0434;&#x0430;&#x0447;&#x043D;&#x043E; &#x0437;&#x0430;&#x0440;&#x0435;&#x0433;&#x0435;&#x0441;&#x0442;&#x0440;&#x0438;&#x0440;&#x043E;&#x0432;&#x0430;&#x043D;&#x043D;&#x044B;!<br/> &#x0412;&#x0430;&#x0448; &#x043D;&#x0438;&#x043A;: $log <br/>&#x0412;&#x0430;&#x0448; &#x043F;&#x0430;&#x0440;&#x043E;&#x043B;&#x044C;:$par<br/>
<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/>
";}


print"
</p>

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

?>