function printProperty($class, $type)
{
    $r = new ReflectionClass($class);
    foreach ($r->getProperties() as $s) {
        if ($type === 'action') {
            $istr = "__acdesc_";
            if (!csb($s->name, "__acdesc_")) {
                continue;
            }
        }
        if ($type === 'property') {
            $istr = "__desc_";
            if (!csb($s->name, "__desc_")) {
                continue;
            }
        }
        $descr = get_classvar_description($class, $s->name);
        $name = strfrom($s->name, $istr);
        if (csa($descr[0], "q")) {
            continue;
        }
        if (cse($name, "_f")) {
            continue;
        }
        if (cse($name, "_l")) {
            continue;
        }
        if (cse($name, "_o")) {
            continue;
        }
        printf("%30s %s\n", $name, $descr['help']);
    }
}

function __xenimport_parse_config($file)
{
    $list = lfile_trim($file);
    foreach ($list as $l) {
        if (!csa($l, "=")) {
            continue;
        }
        list($var, $val) = explode("=", $l);
        $var = trim($var);
        $val = trim($val);
        switch ($var) {
            case "memory":
                $ret['memory'] = $val;
                break;
            case "name":
                $val = strfrom($val, 'vm');
                $ret['name'] = strtolower(strtil($val, '"'));
                break;
            case "#ip":
                $val = strfrom($val, '"');
                $ret['ipaddress'] = strtil($val, '"');
                break;
            case "disk":
                __xenimport_parsedisk($ret, $val);
                break;
        }
    }
    return $ret;
}

function __xenimport_parsedisk(&$ret, $val)
{
    preg_match("/\\['file:([^']*)'.*'file:([^']*)'\\]/i", $val, $matches);
    $ret['type'] = 'file';
    if (!isset($matches[0])) {
        throw new lxException("could_not_parse_disk_string");
    }
    $diskstring = $matches[1];
    $disk = explode(",", $matches[1]);
    $disk[0] = trim($disk[0], "/");
    $location = strtil($disk[0], "/");
    $maindiskname = strfrom($disk[0], $location);
    $maindiskname = trim($maindiskname, "/");
    $ret['location'] = $location;
    $ret['maindiskname'] = $maindiskname;
    $swap = explode(",", $matches[2]);
    $swap[0] = trim($swap[0], "/");
    $location = strtil($swap[0], "/");
    $swapdiskname = strfrom($swap[0], $location);
    $swapdiskname = trim($swapdiskname, "/");
    if ($location !== $ret['location']) {
        throw new lxException("swap_disk_location_not_same", 'nname', "{$ret['name']}: {$ret['location']}");
    }
    $ret['location'] = "/{$ret['location']}";
    $ret['swapdiskname'] = $swapdiskname;
}

 static function mail_parse($file)
 {
     $fp = fopen($file, "r");
     $ret['header'] = null;
     $name = str_replace(",", "_s_coma_s_", $file);
     $name = str_replace(":", "_s_colon_s_", $name);
     $ret['nname'] = $name;
     while (!feof($fp)) {
         $l = fgets($fp);
         if ($l === "\n") {
             fclose($fp);
             break;
         }
         if (csb($l, "From:")) {
             $ret['from'] = strfrom($l, "From:");
         }
         if (csb($l, "Subject:")) {
             $ret['subject'] = strfrom($l, "Subject:");
         }
         if (csb($l, "Date:")) {
             $ret['date'] = strfrom($l, "Date:");
         }
         $ret['location'] = basename(dirname(dirname($file)));
         $ret['header'] .= $l;
     }
     if (!isset($ret['subject'])) {
         $ret['subject'] = '[no subject]';
     }
     return $ret;
 }

 static function readProcessList()
 {
     $list = lscandir("/proc");
     foreach ($list as $pid) {
         if (is_numeric($pid) && $pid[0] != ".") {
             $cmdlinearr = lfile("/proc/" . $pid . "/cmdline");
             $return[$pid]['nname'] = $pid;
             if (!$cmdlinearr) {
                 unset($return[$pid]);
                 continue;
             }
             $cmdline = $cmdlinearr[0];
             $cmdline = preg_replace('+\\0+i', " ", $cmdline);
             $return[$pid]["command"] = substr($cmdline, 0, 100);
             if (csa($cmdline, "display.php") && csa($cmdline, "kloxo")) {
                 unset($return[$pid]);
                 continue;
             }
             $arr = lfile("/proc/" . $return[$pid]["nname"] . "/status");
             foreach ($arr as $a) {
                 if (csb($a, "State:")) {
                     $a = trim($a);
                     $a = strtil($a, "(");
                     $a = strfrom($a, "State:");
                     $a = trim($a);
                     $return[$pid]["state"] = $a;
                     $return[$pid]["state"] = $return[$pid]["state"] === "S" ? "ZZ" : $return[$pid]["state"];
                 }
                 if (csa($a, "Uid")) {
                     $uidarr = explode(":", $a);
                     $value = trimSpaces($uidarr[1]);
                     $uidarr2 = explode(" ", $value);
                     $uid = trim($uidarr2[1]);
                     $pwd = posix_getpwuid($uid);
                     $username = $pwd['name'];
                     $return[$pid]["username"] = $username;
                 }
                 if (csa($a, "VmSize")) {
                     $uidarr = explode(":", $a);
                     $uidarr = trimSpaces($uidarr[1]);
                     $uidarr = strtilfirst($uidarr, " ");
                     $return[$pid]['memory'] = round($uidarr / 1024, 2);
                 }
             }
         }
     }
     return $return;
 }

 function __call($m, $arg)
 {
     $strarg = var_export($arg, true);
     $strarg = str_replace("\n", " ", $strarg);
     $existing = var_export($this->__varlist, true);
     $existing = str_replace("\n", " ", $existing);
     $call = "{$m} {$strarg} on {$this->__name} (existing {$existing})";
     if ($this->__notreal) {
         log_log("com_error", "unreal {$call}");
         return;
     }
     $comerr = false;
     $retcom = false;
     if (csb($m, "com_")) {
         $m = strfrom($m, "com_");
         $retcom = true;
     }
     try {
         //$ret = call_user_func_array(array($this->__com, $m), $arg);
         $string = null;
         for ($i = 0; $i < count($arg); $i++) {
             $string[] = "\$arg[{$i}]";
         }
         if ($string) {
             $string = implode(", ", $string);
         }
         $func = "return \$this->__com->{$m}({$string});";
         dprint("{$func} \n");
         $ret = eval($func);
     } catch (exception $e) {
         log_log("com_error", "Exception: {$e->getMessage()}: {$call}");
         $ret = null;
         $call = "Exception: {$call}";
         $comerr = true;
     }
     if (!$comerr) {
         $call = "Success..: {$call}";
     }
     log_log("com_call", $call);
     if ($retcom) {
         return create_lxcom($ret);
     }
     return $ret;
 }

function __xenimport_parsedisk(&$ret, $val)
{
    preg_match("/\\['phy:([^']*)'.*'phy:([^']*)'\\]/i", $val, $matches);
    $ret['type'] = 'lvm';
    if (!isset($matches[0])) {
        $ret['type'] = 'file';
        preg_match("/\\['file:([^']*)'.*'file:([^']*)'\\]/i", $val, $matches);
    }
    if (!isset($matches[0])) {
        throw new lxException("could_not_parse_disk_string");
    }
    $diskstring = $matches[1];
    $disk = explode(",", $matches[1]);
    if (csb($disk[0], "/dev/")) {
        $disk[0] = strfrom($disk[0], "/dev/");
    }
    if ($ret['type'] === 'file') {
        $location = "/home/xen";
        $mdn = explode("/", $disk[0]);
        $maindiskname = array_pop($mdn);
    } else {
        list($location, $maindiskname) = explode("/", $disk[0]);
    }
    $ret['location'] = $location;
    $ret['maindiskname'] = $maindiskname;
    $swap = explode(",", $matches[2]);
    if (csb($swap[0], "/dev/")) {
        $swap[0] = strfrom($swap[0], "/dev/");
    }
    if ($ret['type'] === 'file') {
        $location = "/home/xen";
        $swp = explode("/", $swap[0]);
        $swapdiskname = array_pop($swp);
    } else {
        list($location, $swapdiskname) = explode("/", $swap[0]);
    }
    if ($location !== $ret['location']) {
        throw new lxException("swap_disk_location_not_same", 'nname', "{$ret['name']}: {$ret['location']}");
    }
    $ret['swapdiskname'] = $swapdiskname;
}

 function createShowPropertyList(&$alist)
 {
     global $gbl, $sgbl, $login, $ghtml;
     return null;
     if ($this->getTrueParentO()->isClass('mailaccount') && !$this->getTrueParentO()->isLogin()) {
         $this->getTrueParentO()->createShowPropertyList($alist);
         foreach ($alist['property'] as &$__a) {
             if (!$ghtml->is_special_url($__a)) {
                 $__a = strfrom($__a, "goback=2&");
                 $__a = "goback=3&{$__a}";
             }
         }
     } else {
         if ($this->getTrueParentO()->isClass('mmail')) {
             $alist['property'][] = 'goback=2&a=show';
             $alist['property'][] = 'goback=1&a=list&c=mailaccount';
             $alist['property'][] = 'goback=2&a=show&sa=config';
         } else {
             $alist['property'][] = 'a=show';
         }
     }
     //$alist['property'][] = 'a=list&c=wlist_a';
     //$alist['property'][] = 'a=list&c=blist_a';
 }

 function middlepart($web_home, $domain, $dirp)
 {
     global $gbl, $sgbl, $login, $ghtml;
     $string = null;
     foreach ($this->main->customerror_b as $k => $v) {
         if (csb($k, "url_") && $v) {
             $num = strfrom($k, "url_");
             if (csb($v, "http:/")) {
                 $nv = $v;
             } else {
                 $nv = remove_extra_slash("/{$v}");
             }
             $string .= "\tErrorDocument {$num} {$nv}\n";
         }
     }
     $string .= $this->enablePhp();
     $string .= $this->getDirprotect('');
     return $string;
 }

 function print_information($place, $type, $class, $extr, $vlist = null)
 {
     global $gbl, $sgbl, $login, $ghtml;
     global $g_language_mes;
     $pinfo = null;
     if ($vlist) {
         $info = $vlist;
     } else {
         $info = implode("_", array($class, $type, $extr, $place));
     }
     if (isset($g_language_mes->__commonhelp[$info])) {
         $info = $g_language_mes->__commonhelp[$info];
     }
     if ($place !== 'post') {
         if (isset($g_language_mes->__information[$info])) {
             $pinfo = $g_language_mes->__information[$info];
         }
     } else {
         dprint($info);
         print "<table cellpadding=0 cellspacing=0> <tr height=10> <td > </td> </tr> </table> ";
     }
     if (!$pinfo) {
         $info = implode("_", array($type, $extr, $place));
         if ($place !== 'post') {
             if (isset($g_language_mes->__information[$info])) {
                 $pinfo = $g_language_mes->__information[$info];
             }
         } else {
             dprint($info);
         }
     }
     if (!$pinfo) {
         return;
     }
     $pinfo = str_replace("<%program%>", $sgbl->__var_program_name, $pinfo);
     $pinfo = explode("\n", $pinfo);
     $skip = false;
     foreach ($pinfo as $p) {
         $p = trim($p);
         if (csb($p, "<%ifblock:")) {
             $name = strfrom($p, "<%ifblock:");
             $name = strtil($name, "%>");
             $forward = true;
             if ($name[0] === '!') {
                 $forward = false;
                 $name = strfrom($name, "!");
             }
             if (method_exists($login, $name)) {
                 if ($forward) {
                     if (!$login->{$name}()) {
                         $skip = true;
                     }
                 } else {
                     if ($login->{$name}()) {
                         $skip = true;
                     }
                 }
             } else {
                 $skip = true;
             }
             continue;
         }
         if ($p === "</%ifblock%>") {
             $skip = false;
             continue;
         }
         if ($skip) {
             continue;
         }
         $out[] = $p;
     }
     $pinfo = implode("\n", $out);
     $fontcolor = "#000000";
     if ($sgbl->isBlackBackground()) {
         $fontcolor = "#999999";
     }
     $this->print_curvy_table_start();
     $pinfo = str_replace("\n", "<br>", $pinfo);
     $pinfo = str_replace("[b]", "<font style='font-weight: bold'>", $pinfo);
     $pinfo = str_replace("[/b]", "</font>", $pinfo);
     $ret = preg_match("/<url:([^>]*)>([^<]*)<\\/url>/", $pinfo, $matches);
     if ($ret) {
         $fullurl = $this->getFullUrl(trim($matches[1]));
         $pinfo = preg_replace("/<url:([^>]*)>([^<]*)<\\/url>/", "<a class=insidelist href={$fullurl}> {$matches['2']} </a>", $pinfo);
     }
     if ($sgbl->isBlackBackground()) {
         print "<font color=#999999>";
     }
     print $pinfo;
     if ($sgbl->isBlackBackground()) {
         print "</font> ";
     }
     $this->print_curvy_table_end();
 }

function os_get_allips()
{
    $out = lxshell_output("ifconfig");
    $list = explode("\n", $out);
    foreach ($list as $l) {
        $l = trim($l);
        if (!csa($l, "inet addr:")) {
            continue;
        }
        $ip = strfrom($l, "inet addr:");
        $ip = strtilfirst($ip, " ");
        if (csb($ip, "127.0")) {
            continue;
        }
        $iplist[] = $ip;
    }
    return $iplist;
}

 function getSyncClass($master, $syncserver, $class)
 {
     global $gbl, $sgbl, $login, $ghtml;
     if (!$login) {
         return;
     }
     if (isLocalhost($master)) {
         $master = 'localhost';
     }
     if ($login->isSuperadmin() && $master === 'localhost') {
         return null;
     }
     if (isLocalhost($syncserver)) {
         $syncserver = 'localhost';
     }
     //Dynamically load the syncserver info....
     if (!isset($this->driver) || !isset($this->driver[$master])) {
         $this->loaddriverappInfo($master);
     }
     if (!isset($this->driver[$master][$syncserver])) {
         $this->loaddriverappInfo($master);
     }
     $class_var = strtolower("pg_" . $class);
     //debugBacktrace();
     $pgm = $this->driver[$master][$syncserver]->driver_b;
     if (isset($pgm->{$class_var})) {
         $str = $pgm->{$class_var};
         if (csb($str, "__v_")) {
             $class_var = "pg_" . strtolower(strfrom($str, "__v_"));
         }
         return $pgm->{$class_var};
     }
     return null;
 }

 static function readMaillog()
 {
     $date = time() - 24 * 3600 * 2;
     $logfile = "/var/log/kloxo/maillog";
     $fp = fopen($logfile, "r");
     $fsize = lxfile_size($logfile);
     FindRightPosition($fp, $fsize, $date, time(), array("mailtraffic", "getTimeFromOriginalQmailString"));
     while (!feof($fp)) {
         $s = fgets($fp);
         $s = trim($s);
         if (!csa($s, "lx-sending")) {
             continue;
         }
         $v = strfrom($s, "mail for");
         $id = $v;
         if (!isset($total[$id])) {
             $total[$id] = 1;
         } else {
             $total[$id]++;
         }
     }
     return $total;
 }

 function replace_keywords($text, $object)
 {
     global $gbl, $sgbl, $login, $ghtml;
     $text = str_replace("%name%", "{$object->nname}\n", $text);
     $text = str_replace("%clientname%", $object->getParentName() . "\n", $text);
     $text = str_replace("%password%", $object->realpass, $text);
     if ($sgbl->isKloxo()) {
         $text = str_replace("%default_domain%", $object->default_domain, $text);
     }
     if (csa($text, "%ipaddress%")) {
         $db = new Sqlite($this->__masterserver, 'ipaddress');
         $iplist = $db->getRowsWhere("syncserver = 'localhost'");
         $text = str_replace("%ipaddress%", getFQDNforServer('localhost'), $text);
     }
     if (csa($text, "%masterserver%")) {
         $db = new Sqlite($this->__masterserver, 'ipaddress');
         $iplist = $db->getRowsWhere("syncserver = 'localhost'");
         $text = str_replace("%masterserver%", getFQDNforServer('localhost'), $text);
     }
     $string = null;
     foreach ($this->priv as $k => $v) {
         if ($this->isQuotaVariable($k)) {
             $var = get_v_descr($this, $k);
             $var = get_form_variable_name($var);
             $string .= "{$var}: {$v}\n";
         }
     }
     $text = str_replace("%quota%", $string, $text);
     $tlist = explode("\n", $text);
     $inside = false;
     $match = false;
     foreach ($tlist as $tl) {
         $tl = trim($tl);
         if (csb($tl, "<%class:")) {
             $inside = true;
             $classname = strfrom($tl, "<%class:");
             $classname = strtil($classname, "%>");
             if ($classname === $this->get__table()) {
                 $match = true;
             }
             continue;
         }
         if ($inside) {
             if (csb($tl, "<%/class%>")) {
                 if ($match) {
                     $total[] = $object->fillWelcomeMessage(implode("\n", $textinside));
                 }
                 $inside = false;
                 $textinside = null;
             } else {
                 $textinside[] = $tl;
             }
             continue;
         }
         $total[] = $tl;
     }
     return implode("\n", $total);
 }

function __ajax_desc_tree()
{
    global $gbl, $sgbl, $login, $ghtml;
    $object = $gbl->__c_object;
    $icondir = get_image_path('/button/');
    $rclist = $object->getResourceChildList();
    $cid = $ghtml->node;
    if ($object->hasFileResource()) {
        $u = "a=show&k[class]=ffile&k[nname]=/";
        $u = $ghtml->getFullUrl($u);
        $v = createClName('ffile', '/');
        $ret[] = array('text' => "File", 'icon' => "{$icondir}/ffile_show.gif", 'hrefTarget' => 'mainframe', 'href' => $u, 'id' => "{$cid}&{$v}");
    }
    if ($ghtml->__resource_class) {
        $c = strfrom($ghtml->__resource_class, "__resource_");
        if (cse($c, "_l")) {
            $clname = $object->getChildNameFromDes($c);
            $list = $object->getList($clname, $totalcount);
            foreach ($list as $o) {
                $u = "a=show&k[class]={$o->getClass()}&k[nname]={$o->nname}";
                $u = $ghtml->getFullUrl($u);
                $ret[] = array('text' => basename($o->nname), 'icon' => "{$icondir}/{$o->getClass()}_list.gif", 'hrefTarget' => 'mainframe', 'href' => $u, 'id' => "{$cid}&{$o->getClName()}");
            }
        } else {
            if (cse($c, "_o")) {
                $clname = $object->getChildNameFromDes($c);
                $o = $object->getObject($clname);
                $u = "a=show&o={$o->getClass()}";
                $u = $ghtml->getFullUrl($u);
                $ret[] = array('text' => $o->getClass(), 'icon' => "{$icondir}/{$o->getClass()}_show.gif", 'hrefTarget' => 'mainframe', 'href' => $u, 'id' => "{$cid}&{$o->getClass()}");
            }
        }
        return $ret;
    }
    if ($ghtml->__title_function) {
        $t = $ghtml->__title_function;
        $alist = $object->createShowAlist($alist);
        foreach ($alist as $k => $v) {
            if (csb($k, "__title")) {
                if ($k !== $t) {
                    if ($insidetitle) {
                        $insidetitle = false;
                        break;
                    }
                    continue;
                }
                $insidetitle = true;
                continue;
            }
            if ($insidetitle) {
                $url = $ghtml->getFullUrl($v);
                if ($ghtml->is_special_url($url)) {
                    continue;
                }
                $urlinfo = $ghtml->getUrlInfo($url);
                $ret[] = array('text' => $urlinfo['description']['desc'], 'icon' => $urlinfo['image'], 'hrefTarget' => 'mainframe', 'leaf' => true, 'href' => $url, 'id' => "&end");
            }
        }
        return $ret;
    }
    if ($object->hasFunctions()) {
        $alist = $object->createShowAlist($alist);
        foreach ($alist as $k => $v) {
            if (!csb($k, "__title")) {
                continue;
            }
            $title = strfrom($k, "__title_");
            if ($title === 'mailaccount') {
                continue;
            }
            if ($title === 'custom') {
                continue;
            }
            $icon = "{$icondir}/__title_{$title}.gif";
            if (!lxfile_exists("__path_program_htmlbase/{$icon}")) {
                //lfile_put_contents("title.img", "$title.gif\n", FILE_APPEND);
                $icon = null;
            }
            $ret[] = array('text' => $v, 'icon' => $icon, 'hrefTarget' => '', 'href' => null, 'id' => "{$cid}&{$k}");
        }
    }
    foreach ($rclist as $c) {
        $clname = $object->getChildNameFromDes($c);
        $desc = get_description($clname);
        $desc = get_plural($desc);
        $url = $ghtml->getFullUrl("a=list&c={$clname}");
        $ret[] = array('text' => $desc, 'icon' => "{$icondir}/{$clname}_list.gif", 'hrefTarget' => 'mainframe', 'href' => $url, 'id' => "{$cid}&__resource_{$c}");
    }
    return $ret;
}

function lxfile_get_disk_usage($file)
{
    $file = expand_real_root($file);
    $res = lxshell_output("dumpe2fs", "-h", $file);
    $res = explode("\n", $res);
    foreach ($res as $r) {
        if (csb($r, "Block size:")) {
            $blocksize = trim(strfrom($r, "Block size:")) / 1024;
        }
    }
    foreach ($res as $r) {
        if (csb($r, "Block count:")) {
            $total = trim(strfrom($r, "Block count:")) * $blocksize;
        }
        if (csb($r, "Free blocks:")) {
            $free = trim(strfrom($r, "Free blocks:")) * $blocksize;
        }
    }
    $ret['total'] = round($total / 1024, 2);
    $ret['used'] = round(($total - $free) / 1024, 2);
    return $ret;
}

function parse_sql_data()
{
    global $gbl, $sgbl, $argc, $argv;
    static $_quota_var, $_field_var;
    $_return_value = null;
    $majmin = $sgbl->__ver_major_minor;
    $trel = $sgbl->__ver_release;
    $rpath = "sql/full.lxsql";
    $pathc = "htmllib/sql/common.lxsql";
    include $rpath;
    include $pathc;
    $string = $gl_sql_string_common . "\n" . $gl_sql_string;
    $string = explode("\n", $string);
    foreach ($string as $__k => $res) {
        $res = trim($res);
        if (!$res) {
            continue;
        }
        if (char_search_beg($res, "//")) {
            continue;
        }
        $res = preg_replace('/\\s+/', " ", $res);
        if (csb($res, "#")) {
            $vl = explode(" ", $res);
            $name = array_shift($vl);
            $name = strfrom($name, "#");
            $nvl = null;
            $nnvl = null;
            foreach ($vl as $k => $qv) {
                if (csb($qv, "#")) {
                    $_t = strfrom($qv, "#");
                    $nvl = lx_array_merge(array($nvl, $_quota_var[$_t]));
                } else {
                    $nvl[] = $qv;
                }
            }
            foreach ($nvl as $qv) {
                $nnvl[] = "priv_q_" . $qv;
                $nnvl[] = "used_q_" . $qv;
            }
            $_quota_var[$name] = $nvl;
            $g_qvar[$name] = $nnvl;
            $list = get_class_for_table($name);
            foreach ((array) $list as $l) {
                $_quota_var[$l] = $nvl;
                $g_qvar[$l] = $nnvl;
            }
            continue;
        }
        if (csb($res, "%")) {
            $vl = explode(" ", $res);
            $name = array_shift($vl);
            $nnnnvl = null;
            foreach ($vl as $q) {
                if (csb($q, "%")) {
                    $nnnnvl = lx_array_merge(array($nnnnvl, $g_var[$q]));
                } else {
                    $nnnnvl[] = $q;
                }
            }
            $g_var[$name] = $nnnnvl;
            continue;
        }
        $list = explode(" ", $res);
        $nlist = null;
        foreach ($list as $k => $l) {
            if (csb($l, "%")) {
                $nlist = array_merge($nlist, $g_var[$l]);
            } else {
                $nlist[] = $l;
            }
        }
        //dprintr($list);
        $list = $nlist;
        $nlist = null;
        foreach ($list as $l) {
            if ($l === '__q_var') {
                if (isset($g_qvar[$list[0]])) {
                    $nlist = lx_array_merge(array($nlist, $g_qvar[$list[0]]));
                }
            } else {
                $nlist[] = $l;
            }
        }
        $list = $nlist;
        //dprintr($list);
        $name = array_shift($list);
        $fields = lx_array_merge(array(get_default_fields(), $list));
        if (array_search_bool("syncserver", $fields)) {
            $fields[] = 'oldsyncserver';
            $fields[] = 'olddeleteflag';
        }
        $fields = array_unique($fields);
        $_field_var[$name] = $fields;
        $_return_value[$name] = $fields;
    }
    foreach ($_quota_var as &$__tq) {
        $__tq = array_flip($__tq);
    }
    foreach ($_field_var as &$__tq) {
//.........这里部分代码省略.........

 function getSpecialObject($class)
 {
     global $gbl, $sgbl, $login, $ghtml;
     if (!$this->isLxclient()) {
         dprint("Special object called in nonclient {$this->get__table()}:{$this->nname}<br> \n");
         //debugBacktrace();
     }
     $objectname = $class . "_o";
     // Don't ever call get_classvar_description from here. That will create an infinite loop.
     $name = get_real_class_variable($class, "__special_class");
     if (!$name) {
         $name = strfrom($class, "sp_");
     }
     $bname = $name . "_b";
     if (isset($this->{$objectname})) {
         return $this->{$objectname}->{$bname};
     }
     $obj = new $class($this->__masterserver, null, $this->getClName());
     $obj->get();
     //$this->addObject($class, $obj);
     $this->{$objectname} = $obj;
     $obj->{$bname}->__parent_o = $this;
     return $obj->{$bname};
 }

 function getId()
 {
     if (isset($this->__var_extraid)) {
         return strfrom($this->__var_extraid, "__lx_");
     } else {
         if (csa($this->nname, "_s_vv_p_")) {
             return strfrom($this->nname, "_s_vv_p_");
         } else {
             $pdesc = get_classvar_description($this->getParentO()->getClass());
             return "{$pdesc['2']}: {$this->getParentO()->getId()} {$this->nname}";
         }
     }
 }

function sshLogString($string, &$list)
{
    //'refuse' => "refused connection",
    $str = array('success' => "Accepted password", 'fail' => "Failed password");
    $match = false;
    foreach ($str as $k => $v) {
        if (!csa($string, "sshd")) {
            continue;
        }
        if (csa($string, $v)) {
            $match = true;
            $access = $k;
            break;
        }
    }
    if (!$match) {
        return;
    }
    $time = getTimeFromSysLogString($string);
    preg_match("/.*password for ([^ ]*) from ([^ ]*).*/", $string, $match);
    if (!$match) {
        return;
    }
    $ip = $match[2];
    if (csb($ip, "::ffff:")) {
        $ip = strfrom($ip, "::ffff:");
    }
    $user = $match[1];
    if (csb($ip, "127")) {
        return;
    }
    $list[$ip][$time] = array('service' => 'ssh', 'user' => $user, 'access' => $access);
}