Пример #1
0
/** 
* @return void 
* @param 
* @param 
* @desc Remote or local exec. Either exectues it locally or calles remote exec depending on whether $syncserver is localhost or not.
*/
function rl_exec($masterserver, $slaveserver, $cmd)
{
    global $gbl, $sgbl, $login, $ghtml;
    // Convert to driverapp here. Only here do we have the full information (masterserver/syncserver) to to get the syntosystem class properly.
    if ($cmd->action === "set" || $cmd->action === 'dowas') {
        $robject = $cmd->robject;
        $clo = myclone($robject);
        //dprint("Just before $robject {$robject->nname} " . $robject->domain_l . "<br> ");
        lxclass::clearChildrenAndParent($clo);
        $clo->syncserver = $slaveserver;
        $clo->createSyncClass();
        //dprint("Just after $robject {$robject->nname} " . $robject->domain_l . "<br> ");
        $cmd->robject = $clo;
    }
    if (!$masterserver || $masterserver === "localhost") {
        $cmd->slaveserver = null;
        if (!isset($gbl->pserver_password) && isset($cmd->slave_password)) {
            $gbl->pserver_password = $cmd->slave_password;
        }
        $result = remote_exec($slaveserver, $cmd);
    } else {
        $cmd->slaveserver = $slaveserver;
        $result = remote_exec($masterserver, $cmd);
    }
    return $result;
}
Пример #2
0
function dprintr($var, $type = 0)
{
    global $sgbl;
    if ($type > $sgbl->dbg) {
        return;
    }
    if (is_object($var) && method_exists($var, "clearChildrenAndParent")) {
        $newvar = myclone($var);
        lxclass::clearChildrenAndParent($newvar);
        $newvar->driverApp = 'unset for printing';
        $newvar->__parent_o = 'unset for printing';
        $class = $newvar->get__table();
        if (csb($class, "sp_")) {
            $bclass = strfrom($class, "sp_") . "_b";
            $newvar->{$bclass}->__parent_o = 'unset for printing';
        }
    } else {
        $newvar = $var;
    }
    if ($sgbl->isBlackBackground()) {
        print "<font color=gray>";
    }
    print_r($newvar);
    if ($sgbl->isBlackBackground()) {
        print "</font> ";
    }
}