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;
