function writeconfigtblsd()
{
//echo "Возникла проблема при реконфигурации аккаунта<br>"; exit; //надобно как то автоопрос чтоли сделать всех переменных
//автоматизировать немного 1- загрузку в html,2- взятие на редактирование 3- сохранение
echo "<bb><h2>Данные записаны.</bb><br></h2>";
global $codekey, $LOGINUSER, $PASSWORDUSER, $HASHUSER, $OSTYPE, $go, $gmlimitcfg, $ADMM, $ADM;
// echo "ADMM==".$ADMM ;//тест
//if ($gmlimitcfg===1){$ADMM=$ADM;}// тк добавили gmlimitcfg поэтому добавим и этот,хотя изначально gmlim вооб.тут не юзался
for ($a = 0; $a < 200; $a++) {
global ${"pradm" . $a};
}
//новое чтение global
//кажется сюда цикл влезет
@($gmdata = csvopen("_conf/gmdata.cfg", "r", 1));
$data = readfullcsv($gmdata, "new");
$gmheader = $data[0];
$gmplevel = $data[1];
$prauth = $data[2];
$prauthcnt = $data[3];
// тупо счетчик строк - дата 3
if ($go == cmsg("A_CNEW")) {
if ($codekey == 7) {
demo();
}
if ($codekey == 9) {
demo();
}
// if ($codekey==8) demo (); temp for test enabling create users
// ADMM - пользователь, настроки которого редактируют. а пользователь, которые это делает - ,
if ($codekey == 4) {
needupgrade();
}
$ADMM = $prauthcnt - 1;
echo "Creating new one...<br>";
}
// ага нихрена он никого не создает!
$edit = 1;
echo "DEBUG Состояние gmlimitcfg={$gmlimitcfg}<br> ";
if (!$prauth[$ADM][42] and $prauth[$ADMM][59] and $PASSWORDUSER == true) {
$PASSWORDUSER = FALSE;
LPRINT("DISPASSCH");
}
// здесь у нас указывается что пользователь хочет изменить пароль. не даём ему это сделать если стоит запрет на смену пароля.
if ($gmlimitcfg == 0) {
$prauth[$ADMM][0] = stripslashes($LOGINUSER);
}
echo "<form action=\"admin.php\" method=\"POST\">";
if ($PASSWORDUSER == true) {
$prauth[$ADMM][1] = hashgen($PASSWORDUSER);
//здесь у нас надо отправить новый кук чтобы пользователь мог не перезаходить после смены пароля.
$dbsa = a(base64_encode($prauth[$ADMM][0] . "¦" . $PASSWORDUSER));
if ($ADM == $ADMM) {
hidekey("dbsaa", $dbsa);
}
if ($ADM !== $ADMM) {
echo "...<br>";
}
} else {
$prauth[$ADMM][1] = stripslashes($HASHUSER);
}
submitkey("dalee", "CONT");
echo "</form>";
// prevents fake change password
// Незагруженные переменные остнутся неизмененными!
//..$counterusercolumns=count ($prauth[$ADMM]);// представьте себе так надо!
$counterusercolumns = count($gmheader);
// а иак лучше создаются новые пользователи в установке по дефолту. а то пишется херь всякая в конец пред юзера.
//..if ($counterusercolumns>100) $counterusercolumns=100;
// echo "DEBUG Your cnt= $counterusercolumns ADMM=$ADMM ADM=$ADM<br>";
// echo " prauth[adm=$ADM][60]=".$prauth[$ADM][60]." prauth[admm=$ADMM]=".$prauth[$ADMM][60]."<br>";
if (!$prauth[$ADM][42] and $prauth[$ADMM][60]) {
LPRINT("DISPROFCH");
exit;
}
for ($a = 2; $a < $counterusercolumns - 1; $a++) {
//попробуем на 1 меньше писать может поможет если там \n \r\n передаются по ум.
// счас работает все проверить построе на тесте.
if ($gmlimitcfg === 1) {
if ($a > 1 and $a < 16 or $a > 32 and $a < 37 or $a == 38 or $a > 41 and $a < 46 or $a > 49 and $a < 55 or $a == 48) {
continue;
}
}
// echo "isset pradm$a : ".isset(${"pradm".$a})."<br>";
//if ($gmlimitcfg===1)if (isset(${"pradm".$a})===false) continue;
//42(су) 59( пароль) 60(профиль) должны точно пропускаться, если нет сделать это
$prauth[$ADMM][$a] = stripslashes(${"pradm" . $a});
//// не вышло просто оставить непоказанное в покое да и нельзя так, вдруг пришлют через GET переменную
// дописывать сюда все настройки требующие админа или суперюзверя
}
//PARTIAL EXCHANGER запись конфигов проверено
if ($go == cmsg("A_CNEW")) {
if ($OSTYPE == "LINUX") {
$prauth[$ADMM][$counterusercolumns] .= "\n";
}
}
// добавляет забытый в перевод строки только для создания юзера.
//print_r($prauth);
//..if (($prauth[$ADM][0])==($prauth[$ADMM][0])) { echo "UserName (Login) cannot be identical<br>"; $edit=0;return;};
//это ещё от чего защита?
//тоже похож на цикл
//..$bugwithemptyfieldsfixlinux=1;
@($tempdescr = csvopen("_conf/gmdata.cfg", "w", 1));
//global $testlinuxlinefeed;$testlinuxlinefeed=1; неправильно работает - выполняется и перед и после добавления юзера что недопустимо
echo "--------------------------------------------";
writefullcsv($tempdescr, $gmheader, $gmplevel, $prauth);
$edit = 0;
exit;
}
//writing denyword
}
$filbas = "_conf/dbdata.cfg";
@($dbdata = csvopen($filbas, "r", "0"));
$data = readfullcsv($dbdata, "new");
if ($data == -1) {
//reading dbdata
$dbheader = "File base¦Base visual name¦Поддержка картинок¦Tип scr¦Режим 3 (Категория)¦Таблица Mysql¦Хост Mysql ¦Тип категории¦Колонка картин¦Выбирать базу¦Режим 1 (Имя)¦Режим 2 (Код)¦Use Mysql¦Права на запись¦Права требуемые базой¦Треб. виртуальный ID¦Отбор колонок¦reserved17¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd¦hd";
$dbplevel = "d¦5¦d¦d¦d¦d¦d¦d¦d¦d¦a¦d¦a¦d¦5¦5¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦d¦dr";
$prdbdata = "";
//
@($tempdescr = csvopen("_conf/dbdata.cfg", "w", 1));
$dbheader = splitcfgline($dbheader);
$dbplevel = splitcfgline($dbplevel);
//$pgcontent=splitcfgline ($pgcontent);
$err .= writefullcsv($tempdescr, $dbheader, $dbplevel, $prdbdata);
$edit = 0;
//writing dbdata
}
if ($languageprofile !== "russian") {
$sitedata = "dbslogo.gif¦Welcome string.¦1¦80% Nimbus Roman No9 L¦by name¦by code¦by code2¦showall¦¦¦¦0¦999¦¦root¦localhost¦Dbscript¦¦512¦" . $encodingforce . "¦main fields¦select field¦all fields¦by comm¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦";
}
if ($languageprofile == "russian") {
$sitedata = "dbslogo.gif¦Добро пожаловать в наш сервис. Выберите базу и способ поиска и введите название объекта поиска.¦1¦80% Nimbus Roman No9 L¦по названию¦по коду ¦по названию2¦отобразить всё¦mp3pereim.php¦127.0.0.1¦D:/system/www/dj/filemgr/¦0¦999¦¦root¦localhost¦Dbscript¦¦2048¦" . $encodingforce . "¦по важным полям¦выбрать поле¦по всем полям¦по комментария즦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦";
}
//patch for windows-1251 menu editing in utf-8 mode
// ?/if (($encodingforce=="utf-8")AND(1==1)) $sitedata=iconv("windows-1251","utf-8",$sitedata);
//if (($encodingforce=="utf-8")AND(1==1)) $sitedata=iconv("utf-8","windows-1251",$sitedata);// FUUUUU ?????? или кракозябры - что лучше??
$property = "" . $verchar . "¦" . $verchar . "¦1¦1¦1¦1¦¦1¦1¦¦¦¦1¦¦¦0¦¦¦¦¦¦¦1¦1¦1¦¦1¦50¦default¦1¦1¦1¦1¦1¦¦1¦¦1¦1¦/media/D/¦1000¦¦html,gif,bmp,png¦127.0.0.1¦20¦1¦1¦on¦¦on¦¦¦on¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦";
//patch for windows-1251 menu editing in utf-8 mode
//if (($encodingforce=="utf-8")AND(1==1)) $property=iconv("windows-1251","utf-8",$property);
//if (!$newdata) {$bestcnt++;};
$bestcontent[$bestcnt - 1] = explode("¦", $strokedata);
if ($newdata) {
$bestcontent[$bestcnt] = explode("¦", $strokedata);
}
$bestedit = 1;
}
//..echo "==================PERED OTPRAWKOJ==============<br>";
//debugcfgprint ($bestheader,$bestplevel,$bestcontent) ;
//echo "=================================================<br>";
//..echo "ВЫХОДИМ!";exit;
if ($bestedit == 1) {
echo "File={$filbas}";
$tempdescr = fopen($filbas, "w");
// echo "===========CHECK:WRItEFULLCFG DATA=-==============<br>";
$code = writefullcsv($tempdescr, $bestheader, $bestplevel, $bestcontent);
//echo "writefullcsv return code $code<br>";
$edit = 0;
//echo "===============END WRITEFULLCFGDATAOUT=========================<br>";
@($best = csvopen($filbas, "r", 0));
$data = readfullcsv($best, "new");
$bestheader = $data[0];
$bestplevel = $data[1];
$bestcontent = $data[2];
$bestcnt = $data[3];
//echo "<font color=magenta>=============CHECK:best.cfg==============<br></red>Massive have lines (bestcnt)=$bestcnt<br>";
//debugcfgprint ($bestheader,$bestplevel,$bestcontent) ;
//echo "=================================================<br>";
@fclose($best);
}
unset($tempdescr, $bestheader, $bestplevel, $bestcontent);
$link = "<br>http://" . $_SERVER['SERVER_NAME'] . $_SERVER['PHP_SELF'] . "?c=" . $fildata[$id][14] . "&d=" . $fildata[$id][12] . "<br><br>";
echo $link;
echo "End {$id} next,,, <br>";
if ($initalizeIDcounter) {
$id = $id + 1;
}
}
}
// end c cycle
echo "Check counter:: c={$c} count={$countfilelist}<br>";
//echo "hash from filesdata-2 massive: ".$table[$count][4]."<br>";
fclose($filescfg);
//fclose ($file);
$filescfg = csvopen("_conf/files.cfg", "w", 1);
//$testlinuxlinefeed=1; надо не этот параметр врубать а вручную .add дописывать все работает, можно копипастить :)))
$x = writefullcsv($filescfg, $filheader, $filplevels, $fildata);
// надо себе напомнить чтоб не забывал переоткрывать файл в w
echo $x;
//writing new stroke to _conf\files.cfg
logwrite("FMG_SHARE {$share} (usr={$userlist}) (plvl={$groupplevels}) {$pathandfile}");
if ($debugmode) {
readfile("_conf/files.cfg");
}
//debug//
echo "Ending";
exit;
}
}
//moved TO Up -- SHARE APPLYING STEP 2 -- ENDING
//added to sharing dir
if ($sharedir) {