Просмотр архива Каталог сайтов katiccn


<?

###########################################################################

##                         -=FERNUS=-                                    ##

##                       ---------------                                 ##

##                      http://sekis.org                                 ##

##                           *-*-*-*                                     ##

##                           *Колян*                                     ##

##                      ICQ: 42-11-04-014                                ##

##                 E-mail: chipak@list.ru                                ##

##                      FERNUS-KAT v.2.0.SUPER                           ##

##   Любые изменения кода скрипта, его перепродажа (без согласования     ##

##         со мной)-ЗАПРЕЩЕННО и приследуется Мной и Законом об          ##

##                       Авторских Правах!!!                             ##

##                     Автор Скрипта: WI[NN]T                            ##

##                      Доработал: FERNUS                                ##

###########################################################################

error_reporting(0);



include "../cfg.php";

define('TITLE', 'РњСѓС…Р»СЋРµРј =) РіРі');

extract($_GET);

extract($_POST);



@$ps = trim(htmlspecialchars(stripslashes($ps)));

@$log = trim(htmlspecialchars(stripslashes($log)));



header("Content-type:text/vnd.wap.wml; charset=utf-8");

echo '<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

      <wml>

      <card id="winnt" title="'.TITLE.'">

      <p><small>';



if($ps==$aps && $log==$alog)

{

#######################################################

if($mod == 'index')

{



echo   'id :<br/>

        <input type="text" name="ids" maxlength="50" value="'.$id.'"/><br/>

        СЃРєРѕР»СЊРєРѕ РїРµСЂРµС…РѕРґРѕРІ:<br/>

        <input type="text" name="num" maxlength="150" value=""/><br/>

        --<br/>

        РљСѓРґР° РґРѕР±Р°РІРёС‚СЊ?<br/> <select name="m" value="in">

        <option value="in">--in--</option>

        <option value="out">--out--</option>

        </select><br/>

        --<br/>

        <anchor>[-Ok-]<go href="'.SELF.'?log='.$log.'&amp;ps='.$ps.'&amp;mod=ok" method="post">

        <postfield name="m" value="$(m)"/>

        <postfield name="ids" value="$(ids)"/>

        <postfield name="num" value="$(num)"/>

        </go></anchor><br/>';

}



#- mod = ok

if($mod=='ok')

{

$ids=(int)$ids;

$num=(int)$num;



$stat=file('../data/stat/'.$ids.'.winnt');

$data = date("dmy");



if($m=='in')

{

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

$wd=date("w"); // РґРµРЅСЊ РЅРµРґРµР»Рё

$d_r=date("ymd")-$wd;

if($d_r == (int)$stat[9])

  {$inweek=(int)$stat[5]+$num;

   $outweek=(int)$stat[6];}

else

  {$inweek=$num;

   $outweek='0';}

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

if($stat[0][2].$stat[0][3] != $data[2].$data[3])

  {$inmonth=$num;

   $outmonth='0';}

else

  {$inmonth=(int)$stat[7]+$num;

   $outmonth=(int)$stat[8];}

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

    if(trim($stat[0])!=$data){

    $new_base = fopen('../data/stat/'.$ids.'.winnt', 'w');

    fputs($new_base, "$datan".$num."n0n".((int)$stat[3]+$num)."n".(trim($stat[4]))."n".$inweek."n".$outweek."n".$inmonth."n".$outmonth."n".$d_r."n");

    fclose($new_base); chmod('../data/stat/'.$id.'.winnt', 0777); }

    else{

    $new_base = fopen('../data/stat/'.$ids.'.winnt', 'w');

    fputs($new_base, "$datan".((int)$stat[1]+$num)."n".(trim($stat[2]))."n".((int)$stat[3]+$num)."n".(trim($stat[4]))."n".$inweek."n".$outweek."n".$inmonth."n".$outmonth."n".$d_r."n");

    fclose($new_base); chmod('../data/stat/'.$ids.'.winnt', 0777);}

}//////



if($m=='out')

{

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

$wd=date("w"); // РґРµРЅСЊ РЅРµРґРµР»Рё

$d_r=date("ymd")-$wd;

if($d_r == (int)$stat[9])

  {$inweek=(int)$stat[5];

   $outweek=(int)$stat[6]+$num;}

else

  {$inweek='0';

   $outweek=$num;}

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

if($stat[0][2].$stat[0][3] != $data[2].$data[3])

  {$inmonth='0';

   $outmonth=$num;}

else

  {$inmonth=(int)$stat[7];

   $outmonth=(int)$stat[8]+$num;}

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

    if(trim($stat[0])!=$data){

    $new_base = fopen('../data/stat/'.$ids.'.winnt', 'w');

    fputs($new_base, "$datan0n".$num."n".((int)$stat[3])."n".(trim($stat[4])+$num)."n".$inweek."n".$outweek."n".$inmonth."n".$outmonth."n".$d_r."n");

    fclose($new_base); chmod('../data/stat/'.$id.'.winnt', 0777); }

    else{

    $new_base = fopen('../data/stat/'.$ids.'.winnt', 'w');

    fputs($new_base, "$datan".((int)$stat[1])."n".(trim($stat[2])+$num)."n".((int)$stat[3])."n".(trim($stat[4])+$num)."n".$inweek."n".$outweek."n".$inmonth."n".$outmonth."n".$d_r."n");

    fclose($new_base); chmod('../data/stat/'.$ids.'.winnt', 0777);}

}//////





echo 'Ok РґРѕР±Р°РІР»РµРЅРѕ!<br/>';





}



#######################################################

}else

{

echo   'Р›РѕРіРёРЅ:<br/>

        <input type="text" name="log" maxlength="50" value=""/><br/>

        РџР°СЂРѕР»СЊ:<br/>

        <input type="password" name="ps" maxlength="150" value=""/><br/>

        <a href="'.SELF.'?log=$(log)&amp;ps=$(ps)&amp;mod=index">Р’С…РѕРґ</a><br/>';

}





echo  '<br/>:: <a href="index.php?ps='.@$ps.'&amp;log='.@$log.'">ADMIN PANEL</a><br/>

       (c)РљР°С‚Р°Р»РѕРі by Fernus

       </small></p></card></wml>';

?>