Пример #1
0
         if ($cfgmod == 1) {
             @($f = csvopen("_conf/" . $filbas, "r", "0"));
             echo "<br>";
             if ($filbas == "gmdata.cfg") {
                 $a = testadmin($prauth, $vID);
                 if ($a == 1) {
                     print cmsg("WF_NODELADM") . "<br>";
                     exit;
                 }
             }
         }
         $data = readdescripters();
         if ($data == -1) {
             exit;
         }
         csvmod($f, "del", $values, $vID, $vID2);
         // при ошибках вызывает белый экран  не давать NULL
         lprint("WF_QUECOMP");
         undolog($act, $undodata, $tbl, "");
         if ($pr[12]) {
             $act = "DEL_DAT_SEL  B {$tbl}({$nametbl}) id1={$vID} id2={$vID2} Cmd= {$cmd}";
             logwrite($act);
         }
         // логируемся
         submitkey("write", "WF_UNDO_LAST");
     }
     //endcycle
 }
 if ($massoper == 1) {
     //fdb del mass with undo
     //модуль обработки  по сути аналог MASS_EXCH  может ему и передаватть все данные с надстройкой список?
Пример #2
0
         // STATEMENT LOST !
         echo lprint("IPBAN") . ".<br>";
         exit;
     }
     if ($cmd[0] == "unban") {
         $action = "UNBAN IP " . $cmd[1] . "!";
         logwrite($action);
         //BAD
         $filbas = "ban.cfg";
         $cfgmod = 1;
         $md2column = 0;
         $key = csvopen($filbas, "a+", 0);
         if ($cmd[1] == "") {
             exit;
         }
         csvmod($key, "del", $cmd[1], $cmd[1], "NO_HDR");
         echo lprint("UNBAN") . ".<br>";
         exit;
     }
 }
 //if ($sd[9]) {$dbs_ips_nolog=explode (",",$sd[9]);// пример разбивки массива по запятым,быстрый
 //print_r ($dbs_ips_nolog);
 //if (in_array($dbs_ip, $dbs_ips_nolog)) return 0; } //  пока любые типы
 // конец команд только для админов
 if ($cmd[0] == "keygen") {
     Header("Location: keygen.php");
     echo lprint("REGRESET") . ".<br>";
     exit;
 }
 if ($cmd[0] == "remove") {
     if ($cmd[1] == "key") {