echo "tbl={$tbl} [" . $prdbdata[$tbl][9] . "." . $prdbdata[$tbl][5] . "] column {$columnname} (No {$columnnomer}) join to <br>"; //tabbydb,columnname,columnnomer,0"////tabbydb,columnname,columnnomer,0 //.echo "0=уровень".$pl[0].";#1=назв или но таблицы".$pl[1].";#2=метод п ".$pl[2].";#3=Кол".$pl[3].";#4=ConnectName".$pl[4].";#5=Вспом таблица-основное имя(отображаемое)".$pl[5].";#6=Режим п".$pl[6].";#7=Кол".$pl[7].";)";// $pl 0-plevel не трогаем, 2 name or ID 3 mode 4 col 5 name ? ;6 helptable name typa kak 1 ;7 mode typa kak 2 ;8 kolonka (kak 3) $intpl = $pl[1]; settype($intpl, integer); if ($pl[1]) { if (is_integer($intpl) === true) { $id1 = getidbyid($prdbdata, 0, "realid", $pl[1]); } } //получаем ID таблицы соответствующей имени b $intpl = $pl[5]; settype($intpl, integer); if ($pl[5]) { if (is_integer($intpl) === true) { $id5 = getidbyid($prdbdata, 0, "realid", $pl[5]); } } //получаем ID таблицы соответствующей имени if ($pl[1]) { echo "<BR><BR>tbl connected as link=" . $pl[1] . " (reg conf realid #{$id1}) [" . $prdbdata[$pl[1]][9] . "." . $prdbdata[$pl[1]][5] . "] with method " . $pl[2] . " (No " . $pl[3] . ") displays as " . $pl[4] . "<br>"; } //tabbydb,columnname,columnnomer,0"////tabbydb,columnname,columnnomer,0 if ($pl[5]) { echo "tbl connected as help=" . $pl[5] . " (reg conf realid #{$id5}) [" . $prdbdata[$pl[5]][9] . "." . $prdbdata[$pl[5]][5] . "] with method " . $pl[6] . " (No " . $pl[7] . ") displays as " . $pl[8] . "<br>"; } //tabbydb,columnname,columnnomer,0"////tabbydb,columnname,columnnomer,0 if (!$pl[1]) { echo cmsg(TLNK_NOT) . "<br>"; } if (!$pl[5]) {
function chklic() { // потом добавить скрипт который делает эту задачу прямо на сайте без клиентской части ! // принять данные что и где искать, отослать обратно данные что выводить - не делая это самостоятельно. $filbas = "http://dj.chg.su/dbscript/old/_data/licenses.dat"; global $actcod; @($lic = fopen($filbas, "r", 0)); $datamassive = readfullcsv($lic, "new"); $lcontent = $datamassive[2]; /*for ($a=0;$a<count ($lcontent);$a++) { //realidcontain wam w pomosh!! echo "dm2a2=".$lcontent[$a][2]."";;// хер вам а не & posle akt koda ^)) скажем нет дермецовым глюкам $x=substr ($lcontent[$a][2],0,32); echo "now $x<br>"; $lcontent[$a][2]=$x; } * */ // я не понял какого хера в ядре оказывается неисправленная версия базы данных? $licnumber = getidbyid($lcontent, 2, "realidcontain", $actcod); // fix for lost license 4.1.8 what?? //echo "($licnumber=getidbyid ($lcontent,2,0,$actcod))"; //print_r ($lcontent); echo "<br>" . cmsg(LIC_I) . "<br><br>"; if ($datamassive == -1) { echo cmsg(LIC_F); } if (!$licnumber) { echo cmsg(LIC_N); } if ($licnumber) { echo cmsg("LIC") . "{$licnumber} " . cmsg(REG) . " " . $lcontent[$licnumber][5] . " for " . $lcontent[$licnumber][6] . " at " . $lcontent[$licnumber][7] . "."; } }
} if ($cmd[0] == "remove") { if ($cmd[1] == "key") { @unlink("_conf/dbs.key"); @unlink("_conf/add.key"); msgexiterror("key" . cmsg("KEY_NODEMO") . "login.php", "", ""); } } } rfsysdatareq(); $tblint = $tbl; settype($tblint, integer); // разрешает базу называть по имени. if ($cfgmod === 0) { if ($tblint == false) { $tbl = getidbyid($prdbdata, 1, "realid", $tbl); } } //$tbl=getidbyid ($prdbdata,1,"srchrealid",$tbl); if ($prauth[$ADM][1]) { if ($cmd[0] == "errorlog") { $tbl = $cmd[0]; $namebas = $tbl; } if ($cmd[0] == "log") { $tbl = $cmd[0]; $namebas = $tbl; } if ($cmd[0] == "reportlog") { $tbl = $cmd[0]; $namebas = $tbl;