/** * @ajax * @conn vfs */ public function POST($conn) { extract(dbm()->argv(inf()->rows->push("USR", array("type" => "alnum"))->getMap())); $_sql = "SELECT * FROM vfs_users"; if (isset($USR)) { $_arg = array(); array_push($_arg, sprintf("USR LIKE '%s'", "%" . $USR . "%")); array_push($_arg, sprintf("NAME LIKE '%s'", "%" . $USR . "%")); $_sql .= sprintf(" WHERE %s", implode(" OR ", $_arg)); } $_sql .= sprintf(" LIMIT %s, %s", $offset, $limit); $rs = $conn->executeQuery($_sql); $rows = null; $no = $offset + 1; while ($rs->next()) { $rows[] = array(array("value" => $no++, "align" => "right"), array("value" => $rs->get("USR"), "lookup" => "vfs/forms/Users/", "observer" => "SEARCH", "publish" => sprintf("%s=>USR", $rs->get("USR")), "align" => "center"), array("value" => $rs->get("AREA"), "align" => "center"), array("value" => $rs->get("AREA_SUB"), "align" => "center"), $rs->get("NAME"), array("value" => $rs->getInt("SHR") == 1 ? "Y" : "N", "align" => "center"), array("value" => $rs->get("DEF"), "align" => "center"), array("value" => $rs->get("EXP"), "align" => "center"), array("value" => $rs->get("C_USER"), "align" => "center"), array("value" => $rs->get("C_DATE"), "align" => "center")); } $re = array("rows" => $rows); if ($offset == 0) { $rs = $conn->executeQuery(sprintf("SELECT COUNT(*) T FROM (%s) SQLT", $_sql)); $re["total"] = $rs->next() ? $rs->getInt("T") : 0; $re["limit"] = $limit; } return $re; }
/** * @conn vfs * @argv vfs_positions {"only": ["ID_POSITION"]} * @enve */ public function GET($conn, $argv, $_env) { $rs = $conn->vfs_positions($argv)->select("*"); if ($_chk = $rs->next()) { $_env->data(dbm()->vfs_positions->copy("ID_POSITION")->map($rs)); } $_env->ctrl(false, $_chk, $_chk); return $_env->info("PACKAGE %s %s DITEMUKAN", $argv["ID_POSITION"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @conn vfs * @argv vfs_clients_users {"only": ["CID"]} * @enve */ public function GET($conn, $argv, $_env) { $rs = $conn->vfs_clients_users($argv)->select("*"); if ($_chk = $rs->next()) { $_env->data(dbm()->vfs_clients_users->copy("CID")->map($rs)); } $_env->ctrl(false, $_chk, $_chk); return $_env->info("CLIENT USER %s %s DITEMUKAN", $argv["CID"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @conn vfs * @argv vfs_groups {"only": ["GRP"]} * @env */ public function GET($conn, $argv, $_env) { $rs = $conn->vfs_groups($argv)->select("*"); if ($_chk = $rs->next()) { $_env->data(dbm()->vfs_groups->copy("GRP")->map($rs)); } $_env->ctrl(false, $_chk, $_chk); return $_env->info("GROUP %d %s DITEMUKAN", $argv["GRP"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @conn vfs * @argv vfs_area_sub {"only": ["AREA", "AREA_SUB"]} * @enve */ public function GET($conn, $argv, $_env) { $rs = $conn->vfs_area_sub($argv)->select("*"); if ($_chk = $rs->next()) { $_env->data(dbm()->vfs_area_sub->copy("AREA", "AREA_SUB")->map($rs)); } $_env->ctrl(false, $_chk, $_chk); return $_env->info("SUB AREA %s %s DITEMUKAN", $argv["AREA_SUB"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @conn vfs * @argv vfs_dt2 {"only": ["ID_DT1", "ID_DT2"]} * @enve */ public function GET($conn, $argv, $_env) { $rs = $conn->vfs_dt2($argv)->select("*"); if ($_chk = $rs->next()) { $_env->data(dbm()->vfs_dt2->copy("ID_DT1", "ID_DT2")->map($rs)); } $_env->ctrl(false, $_chk, $_chk); return $_env->info("KAB/KOTA %s %s DITEMUKAN", $argv["ID_DT2"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @conn vfs * @argv vfs_dt1 {"only": ["ID_DT1"]} * @enve */ public function GET($conn, $argv, $_env) { $rs = $conn->vfs_dt1($argv)->select("*"); if ($_chk = $rs->next()) { $_env->data(dbm()->vfs_dt1->map($rs)); } $_env->ctrl(false, $_chk, $_chk); return $_env->info("PROPINSI %s %s DITEMUKAN", $argv["CID"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @ajax * @conn vfs */ public function POST($conn) { extract(dbm()->argv(array("PKG" => array("type" => "int", "minv" => 1, "maxv" => 255), "PKC" => array("type" => "int")))); $rows = null; if (isset($PKG) && isset($PKC)) { $rs = $conn->executeQuery(sprintf("SELECT a.PKG, b.PKC, b.FTR, a.NAME, a.DISP, a.TYPE FROM vfs_packages_classes a, vfs_packages_classes_features b where a.PKC=b.FTR AND a.PKG='%s' AND b.PKC='%s' ORDER BY a.PKG, a.PKC, a.PID", $PKG, $PKC)); while ($rs->next()) { $rows[] = array($rs->getCell("FTR", null, "center", "vfs/forms/PackagesFeatures/GET", $rs->httpQuery("PKG", "PKC", "FTR")), $rs->get("NAME"), $rs->getCell("TYPE", null, "center"), $rs->get("DISP")); } } return array("rows" => $rows); }
/** * @ajax * @conn vfs */ public function POST($conn) { extract(dbm()->argv(array("GRP" => array("type" => "digit")))); $rows = null; if (isset($GRP)) { $rs = $conn->executeQuery("SELECT a.*, b.NAME FROM vfs_groups_classes a, vfs_packages_classes b WHERE a.GRP='%s' AND a.PKG=b.PKG AND a.PKC=b.PKC ORDER BY a.GRP, a.PKG, a.PKC", $GRP); while ($rs->next()) { $rows[] = array($rs->getCell("PKC", null, "center", "vfs/forms/GroupsClasses/GET", $rs->httpQuery("GRP", "PKG", "PKC")), $rs->get("NAME"), $rs->getCell("ACL", null, "center")); } } return array("rows" => $rows); }
/** * @ajax * @conn vfs */ public function POST($conn) { $argv = dbm()->argv(array("ID_DT1" => array("type" => "numeric", "minl" => 2, "maxl" => 2))); $rows = null; if (sizeof($argv)) { $rs = $conn->vfs_dt2($argv)->orderBy("ID_DT1, ID_DT2")->select(); while ($rs->next()) { $rows[] = array($rs->getCell("ID_DT2", null, "center", "vfs/parameters/DT2/GET", $rs->httpQuery("ID_DT1", "ID_DT2")), $rs->get("DT2_NAME"), $rs->getCell("BEGDA", null, "center"), $rs->getCell("ENDDA", null, "center")); } } return array("rows" => $rows); }
/** * @ajax * @conn vfs */ public function POST($conn) { $argv = dbm()->argv(array("AREA" => array("type" => "numeric", "minl" => 2, "maxl" => 2))); $rows = null; if (sizeof($argv)) { $rs = $conn->vfs_area_sub($argv)->orderBy("AREA_SUB ASC")->select(); while ($rs->next()) { $rows[] = array($rs->getCell("AREA_SUB", null, "center", "vfs/parameters/AreaSub/GET", $rs->httpQuery("AREA", "AREA_SUB")), $rs->get("NAME"), $rs->get("ADDR"), $rs->getCell("BEGDA", null, "center"), $rs->getCell("ENDDA", null, "center")); } } return array("rows" => $rows); }
/** * @ajax * @conn vfs */ public function POST($conn) { $argv = dbm()->argv(array("PKG" => array("type" => "int", "minv" => 1, "maxv" => 255))); $rows = null; if (sizeof($argv)) { $conn->vfs_packages_classes($argv); $rs = $conn->orderBy("PKG ASC, PKC ASC, PID ASC")->select(); while ($rs->next()) { $rows[] = array($rs->getCell("PID", null, "center"), $rs->getCell("PKC", null, "center", "vfs/forms/PackagesClasses/GET", $rs->httpQuery("PKG", "PID", "PKC")), $rs->getCell("FTR", null, "center"), $rs->get("NAME"), $rs->get("DISP"), $rs->getCell("CHECKED", null, "center"), $rs->setCell("SQL", "center", "vfs/forms/PackagesClasses/SQL", $rs->httpQuery("PKG", "PID", "PKC"))); } } return array("rows" => $rows); }
/** * @rest * @conn vfs * @argv vfs_packages_classes {"copy": ["PKG", "PID"], "only": ["PKG", "PID", "PKC"]} * @env */ public function DELETE($conn, $argv, $_env) { try { $conn->begin(); $conn->vfs_packages_classes($argv)->delete(); $conn->commit(); $data = dbm()->vfs_packages_classes->nullify($argv); $data["PKG"]["editable"] = $data["PID"]["editable"] = true; $_env->data($data); $_env->push($this->msg[__FUNCTION__], $this->res); } catch (Exception $e) { $conn->rollback(); $_env = $e->getMessage(); } return $_env; }
/** * @ajax * @conn vfs */ public function POST($conn) { extract(dbm()->argv(inf()->rows->getMap())); $re = $rows = null; $no = $offset + 1; $rs = $conn->vfs_positions()->orderBy("ID_POSITION ASC")->limit($limit, $offset)->select(); while ($rs->next()) { $rows[] = array($rs->setCell($no++, "right"), $rs->getCell("ID_POSITION", null, "center", "vfs/parameters/Positions/GET", $rs->httpQuery("ID_POSITION")), $rs->get("NAME"), $rs->setCell(sprintf("%s/%s", $rs->get("BP"), $rs->get("KP")), "center"), $rs->getCell("BEGDA", null, "center"), $rs->getCell("ENDDA", null, "center")); } $re["rows"] = $rows; if ($offset == 0) { $rs = $conn->executeQuery("SELECT COUNT(*) T FROM vfs_positions"); $re["total"] = $rs->next() ? $rs->getInt("T") : 0; $re["limit"] = $limit; } return $re; }
/** * @ajax * @conn vfs */ public function POST($conn) { extract(dbm()->argv(inf()->rows->getMap())); $re = $rows = null; $no = $offset + 1; $rs = $conn->vfs_clients_users()->orderBy("ID_USR, CID")->limit($limit, $offset)->select(); while ($rs->next()) { $rows[] = array($rs->getCell("CID", null, "right", "vfs/parameters/ClientsUsers/GET", $rs->httpQuery("CID")), $rs->get("ID_USR"), $rs->getCell("BEGDA", null, "center"), $rs->getCell("ENDDA", null, "center")); } $re["rows"] = $rows; if ($offset == 0) { $rs = $conn->executeQuery("SELECT COUNT(*) T FROM vfs_clients_users"); $re["total"] = $rs->next() ? $rs->getInt("T") : 0; $re["limit"] = $limit; } return $re; }
/** * @ajax */ public function delClick() { extract(dbm()->argv(array("GRP" => array("req" => true, "type" => "digit")))); unset($_SESSION["vfs_forms_Users_Group"][$GRP]); ksort($_SESSION["vfs_forms_Users_Group"]); $gr = null; foreach ($_SESSION["vfs_forms_Users_Group"] as $GRP => $NAME) { $gr[] = array(array("value" => $GRP, "align" => "center"), $NAME, array("value" => "DELETE", "callback" => "vfs/forms/UsersGroupsT/delClick", "params" => "GRP=" . $GRP, "align" => "center")); } $_env = env(); $_env->callback(); $call = array("GRP"); if (is_null($gr)) { $call[] = "USER_GROUPS"; } else { $_env->data(array("USER_GROUPS" => $gr)); } $_env->call($call); return $_env; }
/** * @ajax * @conn vfs */ public function POST($conn) { extract(dbm()->argv(inf()->rows->push("USR", array("type" => "alnum"))->getMap())); $_sql = "SELECT s.*, u.NAME FROM vfs_users_sessions s, vfs_users u WHERE s.USR=u.USR"; if (isset($USR)) { $_usr = $USR . "%"; $_sql .= sprintf(" AND s.USR LIKE '%s' OR u.NAME LIKE '%s'", $_usr, $_usr); } $_sql .= sprintf(" ORDER BY s.SES_TIME LIMIT %s, %s", $offset, $limit); $rs = $conn->executeQuery($_sql); $rows = null; while ($rs->next()) { $rows[] = array(array("name" => "SID_" . $rs->get("SES"), "value" => "1", "type" => "checkbox"), array("value" => $rs->get("USR"), "align" => "center"), $rs->get("NAME"), array("value" => $rs->get("SES_ADDR"), "align" => "center"), array("value" => $rs->get("SES_TIME"), "align" => "center"), array("value" => $rs->get("SES_DATE"), "align" => "center")); } $re = array("rows" => $rows); if ($offset == 0) { $rs = $conn->executeQuery(sprintf("SELECT COUNT(*) T FROM (%s) SQLT", $_sql)); $re["total"] = $rs->next() ? $rs->getInt("T") : 0; $re["limit"] = $limit; } return $re; }
/** * @conn vfs * @argv vfs_users {"only": ["USR"]} * @env */ public function GET($conn, $argv, $_env) { $rs = $conn->executeQuery("SELECT * FROM vfs_users u WHERE u.USR='******' ORDER BY ID_USR LIMIT 1", $argv["USR"]); $dt = null; $gr = array(); if ($_chk = $rs->next()) { $mt = dbm()->vfs_users->copy("USR"); $mt->slice("PWD", "PICT"); $dt = $mt->map($rs); $r2 = $conn->executeQuery("SELECT g.* FROM vfs_groups g, vfs_users_groups u WHERE g.BEGDA<=CURRENT_DATE AND (g.ENDDA>=CURRENT_DATE OR g.ENDDA IS NULL) AND g.GRP=u.GRP AND u.USR='******'", $argv["USR"]); $_SESSION["vfs_forms_Users_Group"] = array(); while ($r2->next()) { $_SESSION["vfs_forms_Users_Group"][$r2->get("GRP")] = $r2->get("NAME"); $GRP = $r2->getInt("GRP"); $_gr = array(array("value" => $GRP, "align" => "center"), $r2->get("NAME")); array_push($_gr, $GRP == 1100 ? STR_EMPTY : array("value" => "DELETE", "callback" => "vfs/forms/UsersGroupsT/delClick", "params" => "GRP=" . $GRP, "align" => "center")); $gr[] = $_gr; } $_env->call($this->res); } $dt["USER_GROUPS"] = $gr; $_env->data($dt)->ctrl(false, $_chk, $_chk); return $_env->info("USER %s %s DITEMUKAN", $argv["USR"], $_chk ? "BERHASIL" : "TIDAK"); }
/** * @rest * @conn vfs * @enve */ public function PUT($conn, $_env) { if (!isset($_SESSION["CC"])) { return "NO CAPTCHA AVAILABLE."; } extract(dbm()->argv(array("PWD" => array("req" => true), "PWD_CONFIRM" => array("req" => true), "CAPTCHA" => array("req" => true)))); if ($PWD !== $PWD_CONFIRM) { return "KONFIRMASI PASSWORD TIDAK SAMA"; } if ($CAPTCHA !== $_SESSION["CC"]) { return "CAPTCHA YANG ANDA MASUKKAN SALAH"; } if (!preg_match(self::$PWD_PATTERN, $PWD)) { return "PASSWORD MINIMAL 8 KARAKTER, TERDIRI DARI HURUF KECIL + BESAR DAN ANGKA"; } $rc = $conn->executeQuery("SELECT * FROM vfs_users_logs WHERE USR='******' ORDER BY UID DESC LIMIT 0,3", $_SESSION["USR"]); $PWD = md5($PWD_CONFIRM); while ($rc->next()) { if ($PWD == $rc->get("PWD")) { return "PASSWORD BARU TIDAK BOLEH SAMA DENGAN 3 PASSWORD SEBELUMNYA"; } } $_now = date("Y-m-d H:i:s"); $argv = array("USR" => $_SESSION["USR"], "PWD" => $PWD, "EXP" => date("Y-m-d", time() + 60 * 60 * 24 * 90), "U_USER" => $_SESSION["USR"], "U_DATE" => $_now); try { $conn->begin(); $conn->update($conn->vfs_users($argv)->slice("USR")); $conn->vfs_users_logs(array("USR" => $_SESSION["USR"], "PWD" => $PWD, "C_DATE" => $_now))->insert(); $conn->commit(); $_env->warn("PASSWORD BERHASIL DIUBAH")->reset(); } catch (Exception $e) { $conn->rollback(); $_env = $e->getMessage(); } return $_env; }
/** * @ajax * @ignore */ public function name() { extract(dbm()->argv(array("GET_NAME" => array("req" => true)))); $ref = array(); $map = explode(";", $GET_NAME); $val = array(); foreach ($map as $key) { if (!empty(req()->{$key})) { $val[$key] = addslashes(req()->{$key}); } } if (sizeof($val) > 0) { $conn = DB::lookup("if"); $key = array_unique(array_values($val)); $dat = implode("','", $key); $_row = $conn->executeQuery(sprintf("SELECT `USR`, `NAME` FROM vfs_users WHERE USR IN ('%s')", $dat)); while ($_row->next()) { foreach ($val as $k => $v) { if ($_row->get("USR") == $v) { $ref[$k . "_TEXT"] = $_row->get("NAME"); } } } } return $ref; }
function R302($x = '', $suppr = []) { if (is_array($x)) { extract($x); } if (!$x) { $x = SU; } #same url base formatQS($x, $suppr); if ($replace) { foreach ($replace as $k => $v) { $x = str_replace($k, $v, $x); } } if (J9) { $bt = debug_backtrace(); $bt = end($bt); fb($bt, 'r302'); } if (in_array(H, ['cli', 'cron'])) { return $x; } if (!$_POST && !redirLoops($x)) { return; } #loops on itself if ($x == SU) { $x = '/#self:' . U; } #wizo ?? #if(strpos($x,'tendresse'))die(pre(debug_backtrace()));# if (in_array($x, array('?', '??'))) { $x = '#?'; } if (!$x) { $x = '/#' . U; } $x = str_replace('*', 'http://', $x); FB('r302:' . $x); if (strpos($x, 'sxxx.fr')) { $x = '/#s66'; } if (headers_sent($file, $line)) { die("<META http-equiv='refresh' content='1;URL=" . $x . "'><script>location.href='{$x}#headersSent';</script>"); $m = 'r302 headers sent:' . SU . "\n" . $file . ':' . $line; #879:404 db($m); dbm('headers sent', $m, 1); } Header("Location:{$x}", 1, 302); try { } catch (Exception $e) { } #Cannot modify header information - headers already sent $_ENV['args'] .= ',r302'; kill(); }
public function em() { return dbm($this->collection); }
} } if ($inc) { ob_start(); // // require header, navigation + client document controller // } $argv = null; if (isset($info["conn"])) { if (!empty($info["conn"])) { $argv[] = DB::lookup($info["conn"]); } } if (isset($info["argv"])) { $_dbm = dbm(); $_map = array("only", "copy", "copyOnly", "slice", "push"); # auto configure foreach ($info["argv"] as $schema => $j) { $k = $_dbm->{$schema}; if ($j != null) { $j = json_decode($j); foreach ($_map as $m) { if (property_exists($j, $m)) { call_user_func_array(array($k, $m), $j->{$m}); } } } $argv[] = $k->argv(null, $methodName); # passing methodName for bitwise op }
function Memuse($limit = 65, $sup = '') { if (e(',dead1', 1)) { return; } static $i; if (!$sup) { $i++; } $sup = $i; #if(j9){echo"+";return;}#dev #Timelong();no recursion#if(j9)kill("+$mem>$limit $_ENV[args]");#dev $mem = Round(Memory_get_usage(1) / 1000000, 2); if ($mem == $_ENV['lastmemusage']) { return; } $_ENV['lastmemusage'] = $mem; $db = "Erreur : usage mémoire : {$mem} mo cause {$sup}"; if ($sup) { $_ENV['Mem'][$sup] = $mem; } if ($mem > $limit) { e(',dead1'); dbm("MemLeak:{$mem}@{$sup}@" . SU . pre($_ENV)); $x = dbkt(); $line = p3(print_r(end($x), 1)); db($line); return $mem; kill($line); } return $mem; }
public function merge() { $n = func_num_args(); $f = func_get_args(); for ($i = 0, $j; $i < $n; $i++) { if (is_string($f[$i])) { $j = dbm()->{$j}->getMap(); } else { $j = $f[$i] instanceof dbmWrapper ? $f[$i]->getMap() : $f[$i]; } $m = array_merge_recursive($this->conf, $j); $this->conf = $m; } return $this; }