/**
* @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;
}
