r.php

<?// Äàííàÿ ïðîãðàììà îòíîñèòñÿ ê ïàêåòó DBSCRIPT v1.8 (ñ) dj--alex
//pcntl_getpriority(1) ;// r.php rev202 - part of Site Unknown Project
//
//  Âíèìàíèå, èçíà÷àëüíî äàííûé êîä íå ïðåäíàçíà÷àëñÿ äëÿ ïðîñìîòðà è ïîýòîìó
//  ñîñòàâëåí äîñòàòî÷íî õàîòè÷íî.
//  Òàêæå êîììåíòàðèè ìîãóò ñîäåðæàòü äàííûå îòíîñÿùèåñÿ ê áóäóùèì èçìåíåíèÿìè
//  èëè ê óæå âûïîëíåííûì ôèêñàì (òàêèå óáèðàþòñÿ)
//
// Åñëè íåîáõîäèìà èíôîðìàöèÿ ïî âíóòðåííèì ôóíêöèÿì - îáðàùàéòåñü êî ìíå. dj--alex.
//
// Åñëè âû õîòèòå ïîääåðæàòü àâòîðà ýòîé ïðîãðàììû è óâèäåòü áîëåå íîâûå âåðñèè è êóäà áîëåå ñîâåðøåííûå âåðñèè
// âû ìîæåòå ïîääåðæàòü àâòîðà 3 ìåòîäàìè: êóïèòü ïëàòíóþ âåðñèþ ïðîãðàììû, ïîæåðòâîâàòü ñðåäñòâà, 
// èëè ïîäàðèòü èëè ïðîäàòü ñ áîëüøîé ñêèäêîé êàêîå-ëèáî áîëåå ìåíåå ñîâðåìåííîå æåëåçî (èíòåðåñóåò íîóòáóê íà äàííûé ìîìåíò,î÷åíü)
// // echo "<br>".cmsg ("DONATE")." N 4100177805659 ,.";
//
require_once ('dbscore.lib'); // ôóíêöèÿ ïîäãîòîâêè ê ðàáîòå è àâòîðèçàöèè

autoexecsql ();
/*SELECT `name`,(SUBSTRING_INDEX(SUBSTRING_INDEX(`data`,' ', Íîìåð),' ', -1)+0) AS `money` FROM `character` WHERE (SUBSTRING_INDEX(SUBSTRING_INDEX(`data`,' ', Íîìåð),' ', -1)+0)>1000000;
1325  äåíüãè --- SEARCH ïî ñóáñòðîêå   íåïîääåðæèâàåòñÿ */
import_request_variables ("PG","");

if (($vID[0]=="!")AND(strtolower ($vID[1])=="m")) {$vID[0]="#";$vID[1]="";}
if ($tbl==-2) if ($vID=="Relogin") $vID=".relogin";


global $verreadfile,$vID,$mzdata,$multisearch,$cmd;
$verreadfile="Viewer v4.2.4 (c) dj--alex";

### readfile  readdescripters return data info
##	$data=array ( // íå íàñòðîåíî -  âûäà÷à äàííûõ ôóíêöèåé
##		0 => $headerreal,			//headerreal , all  example $data[0][$column]
	##	1 => $plevels,				//plevels , all
	##  2 => $headerrealnumbers,	//headerrealnumbers, all
	##  3 => $headervirtual,		//sql only  csv - copy headerreal â âåðñèè 3.3.7 âñåãäà ñîäåðæèò êîïèþ $data[0]
	##	4 => $datatypos,			//sql only  csv - connect (!!!)
	##	5 => $fieldlen,				//sql only  csv - cfgmod (!!)
	##	6 => $mycols,				// example - echo $data[6] ) ;
	##	7 => $fixdetect ,  // ïîêà ÷òî þçàþòñÿ òîëüêî â ñâåðêå õýäåðîâ
	##	8 => $warndetect ,// ïîêà ÷òî þçàþòñÿ òîëüêî â ñâåðêå õýäåðîâ
	##	9 => $plinkdb,    // ëèíê íà áàçó äàííûõ  áåðåì èç plevel, all
	##	10 => $plinkrow ); //ëèíê íà êîëîíêó\ðåæèì, all
##		11 => $plinkkol, ); //ëèíê íà êîëîíêó, all
	##	12 => $plinkname ); //name column, all
//13  $plinkhlpdb[$a]=$pdata[5]; //link to help db also used as name 
//14  $plinkhlprow[$a]=$pdata[6]; 
//15   $plinkhlpkol[$a]=$pdata[7]; 
  
if (!isset ($commode)) $commode=0;
//if (!isset ($multisearch)) $multisearch=0;    deleted
// commands not need enter
//$vID=encodevID ($vID); //work
$vID=decodevID ($vID); //work
$vID=cmddecode ($vID);
//echo "commands you enterd -".$cmd[0]."-".$cmd[1]."-".$cmd[2]." - ".$cmd[3]."<br>";
//commands using help
if ($cmd[1]==="help") {
	if ($cmd[0]==="auth") { echo lprint ("CMDAUTHINF").""; exit; }
	
	if ($cmd[0]==="open") { echo lprint ("CMDOPENINF").""; exit; }
	if ($cmd[0]==="plevel") { echo lprint ("CMDPLEVELINF").""; exit; }
	if ($cmd[0]==="pname") { echo lprint ("CMDPNAMEINF").""; exit; }
	if ($cmd[0]==="edit") { echo lprint ("CMDEDITINF").""; exit; }
	if ($cmd[0]==="relogin") { echo lprint ("CMDRELOGININF").""; exit; }
	if ($cmd[0]==="shutdown") { echo lprint ("CMDSHUTDOWNINF").""; exit; }
	if ($cmd[0]==="errors") { echo lprint ("CMDERRORINF").""; exit; }
	if ($cmd[0]==="admin") { echo lprint ("CMDADMINF").""; exit; }
	if ($cmd[0]==="ver") { echo lprint ("CMDVERINF").""; exit; }
        if ($cmd[0]==="status") { echo lprint ("CMDSTASUSINF").""; exit; }


}
//end cmd using help
	if ($cmd[0]==="os") { echo "OS:$OS"; exit; }
//commands using help
if ($cmd[1]==="log") {
	if ($cmd[0]==="open") { helplog ();exit; }
}
//end cmd using help
// if ($cmd[1]==true) { echo "Bad command parameter.<br>";}
if ($cmd[0]==="relogin") {relogin (); exit ;}
if ($cmd[0]==="auth") auth ();
if ($cmd[0]==="admin") adminpanel ();
if ($cmd[0]==="showmesomemessages") {
	 if ($cmd[1]>200) die ("Are you all ok?") ;
	showmemessages($cmd[1]);
}
if ($cmd[0]==="window") { window ($cmd[1],$cmd[2]);closewindow () ;}
if ($cmd[0]==="testsize") { window ("","");echo "11";closewindow ();}
if ($cmd[0]==="aboutme") aboutme ();
if ($cmd[0]==="author") author ();

if ($cmd[0]=="phpinfo") {phpinfo ();exit;};


if ($cmd[0]==="help") { if ($adm==1) {
	echo ".auth<br>.admin<br>.ver<br>.help<br>.errors<br>.filemgr<br>.errorlog<br>.log<br>.reportlog<br>.undolog<br>.status<br>.relogin<br>.edit<br>.plevel<br>.pname<br><br>";lprint ("HLPINF");echo "<br><br>";exit;} else {
		echo ".ver<br>.help<br>.errors<br>.errorlog<br>.execsqllog<br>.log<br>.reportlog<br>.undolog<br>.admin<br>.filemgr<br>.edit<br>.relogin<br>.pname<br><br>";lprint ("HLPINF");echo "<br><br>";exit;};};

		if ($cmd[0]==="shutdown") { lprint ("NOTIMPL");exit;}
		if ($cmd[0]==="errors") { errors () ;exit;}
		if ($cmd[0]==="save") { lprint ("NOTIMPL"); exit; }
		if ($cmd[0]==="edit") editstart () ;
		if ($cmd[0]==="filemgr") filemgrstart () ;
		if ($cmd[0]==="status") {
                    echo "Status :: <br>";
                    $srvcount=count($srvdata)-1;
                    echo "Services:$srvcount<br>";
                    for ($a=1;$a<$srvcount;$a++) {
                        if ($srvdata[$a][7]=="d") continue ;  //disabled
                       //echo "hide passed!"; echo "ipat kolotit Server #".$srvdata[$a][0]."<br>";
                       $userplevel=$prauth[$ADM][10]+(1 AND $srvdata[$a][7]!="a"); // check admin only 
                        if ($srvdata[$a][8]<1) if ((($srvdata[$a][7])<$userplevel)OR(($srvdata[$a][7]=="a")AND($prauth[$ADM][2]=="on"))) {
                                   //     echo "plevel passed!<br>";ccóêà çàêëèíèëî åãî íà ïåðâîé çàïèñè,óðîä.
                                  $fp = @fsockopen ($srvdata[$a][1],$srvdata[$a][4],$error,$errstr,1);
                                  $x="error=$error; rrstr=$errstr<br>";
                               //..   echo "áëäæàä!! $a";
                                  if ($fp) { $online="<font color=green id=okfnt>Online</font>";} else {$online="<font color=red id=errfnt>Offline</font>";};
                                  if ($prauth[$ADM][10]>0) $service=$srvdata[$a][4]; //only for stuff
                                  if ($srvdata[$a][8]=="0") { $inf="Info: ".$srvdata[$a][9].". Sysname: ".$srvdata[$a][6] ;} else { $inf="";};
                              echo "#".$srvdata[$a][0]." Host: ".$srvdata[$a][1]." Service:".$service." (".$srvdata[$a][5].") State:".$online." $inf<br>";

                            }
                            //	NOT USED $connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
                        
                                //$a,"ID¦ServerIP¦Login¦Password¦Port¦DbType¦Sysname¦Plvl¦Hide¦Info".$addOSenter);
                    }
                    exit;}

               if ($cmd[0]==="cmd") {
                    echo "Command :: ".$cmd[1]."<br>";
                    $cmcount=count($cmdata)-1;
                    //echo "Servers:$cmcount<br>";
                    for ($a=1;$a<$cmcount;$a++) {
                       //echo "hide passed!"; echo "ipat kolotit Server #".$srvdata[$a][0]."<br>";
                        if ($cmdata[$a][8]<1) if (($cmdata[$a][3])<($prauth[$ADM][10]+1)){
                         //echo "bldjad ".$cmdata[$a][1]."===".$cmd[1]."<br>";;
                         if ($cmdata[$a][1]===$cmd[1]) {
                                 $command = "".$cmdata[$a][2]."";
                               echo "now run : $command";
                                $x= passthru($command,$output) ;
                                //echo "x=";print_r ($x);
                                //echo "output=";print_r ($output)
                                } ;
                            }
                       //"ID¦Command¦Parameters¦PLVL¦Info¦ReqPage¦ReqData¦ReqAutorun¦P".$addOSenter);
                    }
                    exit;}



		if (!isset ($mode)) {$mode=$m;}	//."&mode=".  -->  ."&m=".
		if ($vID==="_NULL_") { lprint ("RF_DECODER_RS"); exit; }
		if (!isset ($review)) $review=0;
		if (($go==cmsg(BROWSE))OR(($review==1)AND($mode==3))) {$mode=9; }; //àâòîâêëþ÷åíèå îáçîðà êàòåãîðèèé  áåñìûñëåííî åñëè îíà íå ïîää.
		if ($go==cmsg(BEST)) {$mode=5 ;}; // shows editor selected products
		if ($go==cmsg(ASSEMBLY)) {$mode=11 ;  }; // 9  free unlinked must be linked in disable to createPC.php

		$enterpoint=$verreadfile; // äëÿ ïîêàçà òî÷êè âõîäà

		// screen ïåðåäàåò vID2  ($vID2)  îäíàêî ôóíêöèÿ åãî íå ïðèíèìàåò â CSV
		// íà÷àëî àíàëîãà getfile

		if (!isset ($tbl)) {$tbl=$base;} // support old links  recommended
		if (!isset ($vID2)) {$vID2=$myrowvid;} // support old links  recommended
		if (!isset ($vID)) {$vID=$viewid;} // support old links  recommended

		if (!isset ($tbl)) {msgexiterror ("lostvar",0,"disable");}

		If ($prauth[$ADM][4]==true) {$adm=1;} else { $gmlimitcfg=1;} ;// { $adm=$ADM;

		//$writefile=0;
		//If ($prauth[$ADM][3]==true) {$writefile=1;} ;//ðàçðåøåíèå ïîêàçûâàòü êíîïêó ðåäàêòèðîâàíèÿ
		//if ($ADM<1) {$adm=0;$writefile=0;		}


		//commands require auth  includes  VERSION
		if ($cmd[0]=="config") {
	?> <br>Äëÿ ïðîäîëæåíèÿ íåîáõîäèìî âûáðàòü òèï çàãîëîâêà <br>
	<form action=w.php>
	<?
	submitkey ("write","CF_USRS");
	submitkey ("write","CF_DB");
	submitkey ("write","CF_FIL");
	submitkey ("write","CF_DWORD");
	submitkey ("write","CF_PAGES");
	submitkey ("write","CF_STYL");
	submitkey ("write","CF_LSET");
                submitkey ("write","CF_SRV");
        if ($prauth[$ADM][42]) submitkey ("write","CF_CMD");
        if ($prauth[$ADM][42]) submitkey ("write","CF_FSCR");
        
        
	echo  "</form>";exit;
		}

		if (($cmd[0]==="smsg")OR($cmd[0]==="SMSG")) { echo "This is only error message sample, no really error.<br><br><br><br><br><br><br><br>";msgexiterror ($cmd[1],$cmd[2],$cmd[3]);echo "Error message sample"; }//debug
		if (($cmd[0]==="cmsg")OR($cmd[0]==="CMSG")) {echo "CMSG:".cmsg ($cmd[1]); exit ;} //debug
		if (($cmd[0]==="rmsg")OR($cmd[0]==="RMSG")) {echo "RMSG:".rmsg ($cmd[1]); exit;}//debug
		if (($cmd[0]==="time")OR($cmd[0]==="TIME"))	{ echo "Server time: ".date ("d.m.Y H-i-s")."<br>";exit;};
		

		if ($prauth[$ADM][2]) {  //ìîäóëü ñîâìåñòèìîñòè ñ conf ôàéëàìè.
			unset ($data);
			if ($cmd[0]=="phpinfo") {phpinfo ();exit;};
                        if ($cmd[0]=="installnewkey") {installnewkey (1);exit;};
			if ($cmd[0]=="gmdata") { $tbl=$cmd[0];$namebas=$tbl;};
			if ($cmd[0]=="dbdata") {$tbl=$cmd[0];$namebas=$tbl;};
			if ($cmd[0]=="files") {$tbl=$cmd[0];$namebas=$tbl;};
			if ($cmd[0]=="denywords") {$tbl=$cmd[0];$namebas=$tbl;};
			if ($cmd[0]=="pages") {$tbl=$cmd[0];$namebas=$tbl;};// dalee chastx from libmysql
			if ($cmd[0]=="styles") {$tbl=$cmd[0];$namebas=$tbl;};
			if ($cmd[0]=="langset") {$tbl=$cmd[0];$namebas=$tbl;};// dalee chastx from libmysql
                        if ($cmd[0]=="srvlist") {$tbl=$cmd[0];$namebas=$tbl;};// dalee chastx from libmysql
                        if ($cmd[0]=="cmdlines") {$tbl=$cmd[0];$namebas=$tbl;};// dalee chastx from libmysql
    		if ($tbl===$cmd[0]) $vID="";
    		
    		if ($cmd[0]=="J3QQ4-H7H2V-2HCH4-M3HK8-6M8VW") {window ("","");echo "Many years ago exist a windows 98se operating system...";closewindow();exit;}


		If ($prauth[$ADM][2]==true) {  // êîìàíäû ÒÎËÜÊÎ äëÿ àäìèíèñòðèòîðîâ
		if (($cmd[0]==="genactcode")AND($prauth[$ADM][42])) { echo genactcode();exit;}
		 if (($cmd[0]==="genactcode")AND(!$prauth[$ADM][42])) { msgexiterror ("notrights"," superuser","admin.php"); }
		if ($cmd[0]==="hashgen") { echo hashgen($cmd[1]);exit;}
		if ($cmd[0]==="print") { echo (${$cmd[1]});exit;}
		if (($cmd[0]==="deactivate")AND($prauth[$ADM][42])) {
				$a=genactcode();
				if ($cmd[1]===$a) { unlink ("_conf/.key");@unlink ("_conf/dbs.key");@unlink ("_conf/add.key"); echo lprint ("REGRESET").".<br>";};
				exit;}
		
	if (($cmd[0]==="del")AND($prauth[$ADM][42])) {
				if ($cmd[1]==="install") { unlink ("installer.php");echo "OK<br>";};
				exit;}
				
		if (($cmd[0]==="deactivate")AND(!$prauth[$ADM][42])) msgexiterror ("notrights"," superuser","admin.php");
		
		if (($cmd[0]==="deactivate_all")AND($prauth[$ADM][42])) {	 unlink ("_conf/.key");	@unlink ("_conf/dbs.key");@unlink ("_conf/add.key"); echo lprint ("REGRESET").".<br>";	exit;} 
		if (($cmd[0]==="deactivate_all")AND(!$prauth[$ADM][42]))  msgexiterror ("notrights"," superuser","admin.php");

		if ($cmd[0]=="ban") { echo "trying to ban ".$cmd[1]."<Br>";$action="BAN IP ".$cmd[1]."!";logwrite ($action);  //BAD
		$filbas="ban.cfg";$cfgmod=1;$md2column=0;
		$key=csvopen ($filbas,"a+",0);
		if ($cmd[1]=="") exit;
		//	$ip=$_SERVER[$REMOTE_ADDR];
		csvmod ($key,"add",$cmd[1],$cmd[1],"NO_HDR");  // STATEMENT LOST !
		echo lprint ("IPBAN").".<br>";
		exit;}
		
		
		if ($cmd[0]=="unban") { $action="UNBAN IP ".$cmd[1]."!";logwrite ($action);  //BAD
		$filbas="ban.cfg";$cfgmod=1;$md2column=0;
		$key=csvopen ($filbas,"a+",0);
		if ($cmd[1]=="") exit;
		csvmod ($key,"del",$cmd[1],$cmd[1],"NO_HDR");
		echo lprint ("UNBAN").".<br>";
		exit;}
		}
		
		
		//if ($sd[9]) {$dbs_ips_nolog=explode (",",$sd[9]);// ïðèìåð ðàçáèâêè ìàññèâà ïî çàïÿòûì,áûñòðûé
			//print_r ($dbs_ips_nolog);
			//if (in_array($dbs_ip, $dbs_ips_nolog)) return 0; } //  ïîêà ëþáûå òèïû
		// êîíåö êîìàíä òîëüêî äëÿ àäìèíîâ


			if ($cmd[0]=="keygen") {
				Header("Location: keygen.php");
			echo lprint ("REGRESET").".<br>";
			exit;}

			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;};
    		if ($cmd[0]=="undolog") {$tbl=$cmd[0];$namebas=$tbl;};
    		if ($cmd[0]=="execsqllog") {$tbl=$cmd[0];$namebas=$tbl;};
		}

		if ($vID===".info") {
		if ($languageprofile=="russian") echo cmsg ("Y_PLVL")." -- ".$prauth[$ADM][10]."<br>".cmsg ("Y_LG")." ".$_SERVER['PHP_AUTH_USER']."(".$prauth[$ADM][0].")(".$prauth[$ADM][15].")<br>IP ".$dbs_ip." Host:".gethostbyaddr ($dbs_ip).", ¹ $tbl<br><br>".cmsg ("Y_").":".$USERDAT;
		if ($languageprofile!=="russian") echo "Your plevel is -- ".$prauth[$ADM][10]."<br>Your login and names ".$_SERVER['PHP_AUTH_USER']."(".$prauth[$ADM][0].")(".$prauth[$ADM][15].")<br>IP ".$dbs_ip." Host:".gethostbyaddr ($dbs_ip).", Number $tbl<br><br>About you:".$USERDAT;
		
                exit;
		}

		//ïîêàç âåðñèè dbscript   òåïåð áóäåò ñìîòðåòü âñå ìîäóëè (èùåò ñàì)
		//ìåòîäèêà  âî âñåõ php ïîêàçàòü ñòðîêè èç êàâû÷åê ãäå ñîäåðæèòñÿ $ver* è = ïîñëå $ver*
		if ($vID===".ver") {
			echo lprint ("VCORE").": ".$verprogram."<br>";
			echo lprint ("VCONF").": ".$pr[1]."<br>";
                              //echo "env data<br><br>";print_r ($_SERVER["argc"]);                              print_r ($_ENV);                              echo "srv data<br><br>";                              print_r ($_SERVER);                              //print_r ($_SYSTEM);
			if ($pr[36]=="on") { lprint ("AUTH_OLDCOREON")."<br>"; };
			$path=getcwd ()."/";
			$mask="*.php";
			$protect="*.cfg";
			$files=getdirdata ($path,$mask,$protect);
			for ($a=3;$a<count ($files);$a++){
				//echo" patch $a path ".$path.$files[$a][0]." size is ".$files[$a][2]."<br>"; CFG OPT FUTURE  TODO: LISTING
				if ($files[$a][0]=="") continue;
				$modules[]=searchplus ($path.$files[$a][0],"NOPRINT","ver&(c)");
			}
			unset ($files);
	echo "";if ($live) echo "<font color=green id=xfnt>live</font>!!";
			// à òåïåðü óáèðàåì ÷àñòè ïðîãðàìíîãî êîäà :)
			echo "<br>";
                          if ($coreSE==1) echo "You use non-commercial Dbscript 4 SE  Linux edition.";

			if (strlen ($registeredto)>0) echo lprint ("REGTO")." $registeredto<br> ".cmsg ("ADM_@")." $adminmail<br>";
			echo lprint ("YVDBS").": $yourvrs<br>";
			if ($nokeys!=1) {
				if (($daysleft!=="unlimited")AND(!($daysleft<1))) echo lprint ("DAYREM").": $daysleft<br><br>";
				if (($daysleft!=="unlimited")AND($daysleft<1)) echo "<font color=red id=errfnt>".cmsg ("DBSEXPIRE")."!</font><br>";		} else { lprint ("KEY_NO");}
				lprint ($comm);
				echo "<br><br>";
				echo lprint ("VERINSIDESCRIPTS").":<br>";
				echo $verinit."<br>";
			for ($a=0;$a<count ($modules);$a++) {
				$now=$modules[$a][0]; $file=array ();
				if (strrpos ($now,"service")) continue;// remove messages
				if (strrpos ($now,"hide")) continue;// remove messages
				$symbolone=strpos ($now,"\"");
				$symbollasts=strrpos ($now,"\"")-$symbolone;
				if (strrpos ($now,"endindex")) $symbollasts=strrpos ($now,"//endindex")-$symbolone-3;// remove messages
				if (($symbolone)AND($symbollasts))
				{	$b=substr ($now,$symbolone+1,$symbollasts-1);
				echo "$b<br>";
				$file[]=$b;
				}
			}
			for ($a=0;$a<count ($file);$a++) {
				//echo $file[$a];
			}

				echo "<br>".cmsg ("VLANG").": ".$verlang."<br>";
				echo "Server OS:".$OSTYPE."<br>";
				if ((!$pr[54])AND($dbstyle3en)) {
				$fp=@fopen ("_templates/copyright.txt","r");
				if ($fp) {
					$f=fread ($fp,1000);
					echo cmsg (DESIGN).":".$f."<br>";
				}
				//echo "Menu style:3";
				} 

			exit;}
			//ÍÎÂÛÉ ÐÅÆÈÌ ÏÎÈÑÊÀ ÍÅ ÒÅÐßÞÙÈÉ ÍÀÑÒÐÎÉÊÈ
			if (($pr[24])AND($intf==="master-mode")) {
				// MASTER MODE
				if ($pr[7]) { print "<form action=r.php method=post>";} else {  print "<form action=disable method=post>";} ;
//<input type=hidden name=colfind value=<?=$colfind; 
?> <form action="r.php" method="post" id="read">
	<? 
echo "!";if ($live) echo "<font color=green id=xfnt>live</font>!";
		hidekey ("intf","master-mode");
		hidekey ("vID",$vID);//vid1 fixed   lost selection during db select  CFG OPT FUT 
	hidekey ("vID2",$vID2);
	hidekey ("tbl",$tbl);
	hidekey ("mode",$mode);
	hidekey ("selectenable",$selectenable);
	hidekey ("limitenable",$limitenable);
	hidekey ("commode",$commode);
	hidekey ("fullfield",$fullfield);
	hidekey ("review",$review);
	hidekey ("multisearch",$multisearch);
	hidekey ("printlimit",$printlimit);
	hidekey ("field",$field);
	hidekey ("kol",$kol);
	hidekey ("live",$live);
	hidekey ("groupdb",$groupdb);
        hidekey ("ipfilter",$ipfilter);



	if (!$pr[7])  print lprint ("CONNLINK:")."<font color=green id=xfnt>".$prdbdata[$tbl][1]."</font>"; // perekl zapr

	if ((($adm==1)OR($deftbl==false))AND($pr[7])) { //ïåðåêë ðàçð
		$writefile=0; // ïðèøëîñü äîáàâèòü òàêóþ âîò çàòû÷êó ,áåç íåå è ñïèñîê äóìàåò ÷òî ýòî ðåäàêòîð :)
		printlink ($prauth,$prdbdata,$ADM,$tbl,$grouplist,"tbl",lprint ("CONNLINK:"),$groupdb,$ipfilter,6);// master mode menu
		If ($prauth[$ADM][3]==true) {$writefile=1;} ;//ðàçðåøåíèå ïîêàçûâàòü êíîïêó ðåäàêòèðîâàíèÿ 
		if ($ADM<1) {$adm=0;$writefile=0;		}
		submitkey ("write","A_USRGO");
			} ;
			
 if (($adm==0)AND($deftbl==true)) { ?>
	<form action="r.php" method=post>
		<input type=hidden name=tbl value=<?=$deftbl; ?>>
			<input type=submit name=write value=Âîéòè>
	<? };// äëÿ ñëó÷àÿ âûáðàííîé ïî óìîë÷ áàçû.

 print "</form>";

 $readfile=1;
 
 require ('readfilemenu.php');  // ñïåöèàëüíîå óêàçàíèå äëÿ header.php
 echo "</CENTER>";
 
 if (!isset ($mode)) exit;
 // MASTER MODE ENDS
			}
			$multilimit=$pr[27];
			if ($multisearch==1) { $mv=multistart ();}

			$lock=$pr[11];

			// íàñòðîéêà ëèìèòà è ñîðòèðîâêè
			if ($printlimit and $limitenable) {
				settype ($printlimit,"integer");
				if ($printlimit==false) {
					msgexiterror ("limit","disable","disable");
				} else {$addlimit=" LIMIT $printlimit";};
			}
			if ($selectenable) { $addgroup=" GROUP BY ".$field.""; }   // êîðî÷å âèäèìî âñå ïðèäåòñÿ ïðîâåðÿòü ïåðåä èñïîëíåíèåì
			$addsql=$addgroup.$addlimit;// CSV ñ ñîðòèðîâêîé îòñòàíåò...   // field íà ñîîòâåòñòâèå field... ìàðàçì à äåëàòü íàäî.
			//îêîí÷àíèå ëèìèòà è ñîðòèðîâêè

			if ($lock) { if ($adm==0) msgexiterror ("disabled",0,"getfile.php"); }

			if (($mode<>2)AND($mode<>4)AND(strlen($vID)<$sd[13]))
			{
				print "<bb>Îøèáêà ââîäà</bb><br>";
				echo cmsg ("MORE_LET")."$sd[13]".cmsg("LET");echo "<form  action=disable method=post>"; hidekey ("go","Íàçàä");echo "</form> ";
				exit (1);
			}

			if (($daysleft<-12)AND($vID!=="")AND($ADM>0)) expire ();

			if (!isset ($mode))  msgexiterror ("lostvar",0,"disable");
			//ïðîöåäóðà äåøèôðàöèè çíà÷åíèÿ					//PART OF ID tbl
			$filbas=$prdbdata[$tbl][0];		$namebas=$prdbdata[$tbl][1];
			$needscr=$prdbdata[$tbl][2];	$scrdir=$filbas."scr";
			$formatscr=$prdbdata[$tbl][3];	$category=$prdbdata[$tbl][4];
			$tablemysqlselect=$prdbdata[$tbl][5]; if ($tablemysqlselect==="") $tablemysqlselect=0;	//reset to d
			$hostmysqlselect=$prdbdata[$tbl][6];  if ($hostmysqlselect==="") $hostmysqlselect=0;	//reset to default
			$categorymode=$prdbdata[$tbl][7];$scrcolumn=$prdbdata[$tbl][8];
			$tblmysqlselect=$prdbdata[$tbl][9];
			$md1column=$prdbdata[$tbl][10]; if ($md1column==="") $md1column=1 ;	//reset to default
			$md2column=$prdbdata[$tbl][11];	 if ($md2column==="") $md2column=0;	//reset to default
			$dbtype=$prdbdata[$tbl][12];	$writeright=$prdbdata[$tbl][13];
			$needrights=$prdbdata[$tbl][14];	$virtualid=$prdbdata[$tbl][15];
			$reserved16=$prdbdata[$tbl][16];	$reserved17=$prdbdata[$tbl][17];$res16=$reserved16;
                        $dbtype=$prdbdata[$tbl][12];
                        $encode=$prdbdata[$tbl][21];
			// $DB - êîäû áàç èç decc  $DBC - ñîäåðæèìîå äëÿ ïåðåáîðà, íå áîëåå òîãî
			$floodlimit=$sd[12];
// ãäå-òî íå çäåñü áàã ñâÿç ñ ïîÿâëåíèåì òóïîãî îêíà ïðè ïîïûòêå ïîñì êîíôèã áåç ïðàâ àäìèíà.
if ($tbl) if (($dbtype!=="mysql")AND($dbtype!=="fdb")AND($dbtype!=="pg")AND($dbtype!=="ibase")) msgexiterror ("SCP",$dbtype,"admin.php");
###########################
###########################
###########################
			//MYSQLMODESTART
//âûâîä êîììåíòàðèåâ, äëÿ íèõ íå òðåáóþòñÿ ïðàâà
if (($cm==1)AND($mode==0)) {
print "<html><bb>".cmsg ("COMM").":</bb><br>";
// âîîáøùå âìåñòî ýòîãî áåçîáðàçèÿ íàäî áû ñäåëàòü ïðîñòî JS êó   //print $d ;//method2
$comfile="_local/scrcomm/".$scrdir."/".$scrc.".txt";
$imgfile="_local/scrcomm/".$scrdir."/".$scrc."$formatscr";
@$wr = fopen ($comfile,"r");
@$wrimg = fopen ($imgfile,"r");
if (!$wr) echo "No commented ^  $comfile<br>;";
if ($wr) { @$vd=fread ($wr,10000); echo $vd;echo "<br>";}
if (($needscr==true)AND($formatscr)) if ($wrimg) echo "<img src=\"$imgfile\">";


exit;
}
			// Ïðîâåðêà óðîâíÿ ïðàâ íà ÷òåíèå
			if ($prauth[$ADM][10]<$needrights){msgexiterror ("notrights",$needrights,"disable");}

			###################################
			#PREPARING FOR SELECT FIELD FOR DB#
			###################################
			//ÏÅÐÅÌÅÙÅÍÎ  ÐÅÆÈÌ 7 ÎÁÙÈÉ ÂÕÎÄ
			if (!$pr[8]) { echo "DEBUG Field state: $field ; ";
			echo "Selected: $selectedfield<br>"; }
			if ($field===false) { echo "fields - false";};

	
		if (($mode>7)and($mode<8)) {
                    $x=explode (".",$mode);
			$kol=$x[1]; $oldmode=$mode;$mode= 7;if ($debug)echo "Reselect column for mode 7 : $kol";
		}


			// ïîäãîòîâêà ê ìóëüòèïîèñêó

//global $tbl;
function multistart ()
			{
				global $vID,$olddvID,$pr,$multilimit,$xfgetlimit,$oldmode;//,$tbl;
    
				$olddvID=$vID;
				//	echo "Multithread module on<br>";
				//	echo "Loaded vID :$vID<br>";
				if ($vID=="#") $vID="";
				if ($vID[0]=="#") $vID[0]="";
				//if ($vID[0]=="") echo "FAILURE - EMPTY STRING!";
				$mv=array();
				if (is_array ($vID)) {$mv=$vID;print_r ($vID);} else {	$mv=explode(";",$vID,$multilimit+1);}
				//	for ($a=0;$a<$mvcnt;$a++) {  echo "Number - $a - Named - $mv[$a]<bR>"; };
				return $mv; // äá âîçâðàùåí ìàññèâ èç çíà÷åíèÿ
			}
			$mvcnt=count($mv);			//	echo "Total on massive entered ".$mvcnt." but allowed ".$multilimit."<br>";
			if ($mvcnt>$pr[27]) { $mvcnt=$multilimit ;			//	echo " mvcnt  $mvcnt...  limit  $multilimit...   c27 $pr[27]...<br>";
			lprint ("RF_MULTILIM");echo "$multilimit<br>"; }
			// echo $mv; //	for ($a=0;$a<$multilimit;$a++) {  echo "Number - $a - Named - $mv[$a]<bR>"; }; // debug
			// êîíåö ïîäãîòîâêè
	if ($cfgmod>0)	{ echo "Configuration selected $filbas<br>";rfsysdatareq();}
	//$data=		readdescripters ();

// îòêëþ÷åíî ÷òîáû íå áûëî ñîîáùåíèÿ îá îøèáêå
if ($vID=="") if (($go=="Îáçîð")OR($mode==5)OR($mode==9)OR($mode==4)) { echo ""; } else {exit (1); };


			if (($cmd[0]==="LPRINT")OR($cmd[0]==="lprint")) { lprint ($cmd[1]); exit;} //.5286742

			$vID= trim ($vID);
			// FIXED MESSAGE 
			//if ($vID[0]===".") { exit;echo "__READ_UNKNOWN_COMMAND";$act="READ Unknown command $vID"; logwrite ($act) ; exit;};  // ëîãèðóåìñÿ
			$nametbl=$prdbdata[$tbl][1];
			if ($pr[12]) {$act="READ_M $mode B $tbl($nametbl) Find $vID"; logwrite ($act) ;};  // ëîãèðóåìñÿ // ãäå òóò âûäàåò õåðíþ ÷òî òèïà SQL íå ïîäêëþ÷åí , õîòÿ îí åù¸ íàêåð íå íóæåí.

			//multisearch=1 zone   non-global start

			if ($multisearch==0) {  search () ;}
			if ($multisearch==1) {
				for ($aa=0;$aa<$mvcnt;$aa++)  {$vID=$mv[$aa];
				$vID= trim ($vID);
				echo "<font color=magenta><bb>¹ ".($aa+1)." - $mv[$aa] <br></font></bb>";
				search () ;}
			}
			// multisearch end
		
			
			if ($mode<4) { exit; }
			// ãëîáàëèçàöèÿ âñåõ ïåðåìåííûõ êàñàþùèõñÿ äâèæêà  ñòð5
                        
function search ()
			{	global $go,$olddvID,$selectedfield,$field,$fields;
				global	 $commode,$multisearch,$vID,$adm	;
				global	 $mode,$tbl,$desc,$pr,$review,$mv	;
				global	 $site,$sd,$lock,$db,$totalbas,$k	;
				global	 $filbas,$namebas,$scrdir,$formatscr,$category;
				global	 $tablemysqlselect, $hostmysqlselect,$categorymode,$scrcolumn	;
				global	 $tblmysqlselect,$md1column,$md2column,$dbtype,$writeright;
				global $DBC,$vIDold,$mvcnt,$b,$dbc,$prdbdata,$scrnum,$mycol,$mycols;
				global $myrow;//bugs with screen without it
				global $res16;//maybe bug with res16 ïåðåäà÷å
				global $vID2;
				global $limitenable,$selectenable,$field,$printlimit,$addsql,$kol,$dbtype,$xfgetlimit;//  ãëîáàëèçàöèÿ êàê îáû÷íî ìëèí
                                global $oldmode;
                                                            if (($oldmode>7)and($oldmode<8)) {// çàòû÷êà äëÿ ñëó÷àÿ ñ ñáðîñîì èñêîìîé êîëîíêè
                                $x=explode (".",$oldmode);
                                $kol=$x[1]; $mode= 7;if ($debug)echo "Reselect column for mode 7 : $kol";
                                }
                                //echo "dbtype=$dbtype;"; òóò îí åñòü , ãäå ïîòåðÿëñÿ òîãäà??
				###########################################################
				//MYSQLMODESEARCHSTART					NON-GLOBAL MODES //
				###########################################################

				//ïðîöåäóðà ïîèñêà ïî èìåíè - mode 1 - SQL
				if (($mode == 1)AND($prdbdata[$tbl][12]!="fdb")) {
					@$connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
					@dbs_selectdb ($prdbdata[$tbl][9], $connect,$dbtype);
					$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
					global $query,$connect;
					global $mzdata,$mycols,$myrow,$findrecords,$scrcolumn;
					$query = "SELECT * FROM `".$prdbdata[$tbl][5]."` WHERE ".$mycol[$md1column]." LIKE '%".$vID."%'";
					if (($prdbdata[$tbl][15]>0)AND ($vID2!=="")) { $query = $query." AND ".$mycol[$prdbdata[$tbl][15]]."= '".$vID2."'";};
					$query=$query.$addsql;// ñîðòèðîâêà, ëèìèò
					selectedprintsql ($data);
					if ($multisearch==0) {exit (1); }
				}
				//ïðîöåäóðà ïîèñêà ïî êîäó  - mode 2 - SQL
				if (($mode == 2)AND($prdbdata[$tbl][12]!="fdb")) {
					$connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
					dbs_selectdb ($prdbdata[$tbl][9], $connect,$dbtype);
					$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
					global $query,$connect;
					global $mzdata,$mycols,$myrow,$findrecords,$scrcolumn;
					settype ($vID,"integer");
					if ($vID==0)  msgexiterror ("needcode",$mode,"disable");
					$query = "SELECT * FROM `".$prdbdata[$tbl][5]."` WHERE ".$mycol[$md2column]."= ".$vID;
					if (($prdbdata[$tbl][15]>0)AND ($vID2!=="")) { $query = $query." AND ".$mycol[$prdbdata[$tbl][15]]."= '".$vID2."'";};
					$query=$query.$addsql;// ñîðòèðîâêà, ëèìèò
					selectedprintsql ($data);
					if ($multisearch==0) {exit (1); }
				}



				//mode 3 ïðîöåäóðà SQL ïîèñêà ïî êàòåãîðèè
				if (($mode == 3)AND($prdbdata[$tbl][12]!="fdb")) {
					$connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
					dbs_selectdb ($prdbdata[$tbl][9], $connect,$dbtype);
					if ($categorymode==false) {   msgexiterror ("nocategory",$mode,"disable");  }
					$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
					$myrow=$data[0];
					global $query,$connect,$mzdata,$mycols,$myrow,$findrecords,$scrcolumn;
					$query = "SELECT * FROM `".$prdbdata[$tbl][5]."` WHERE ".$mycol[$category]." LIKE '%".$vID."%'";
					if (($prdbdata[$tbl][15]>0)AND ($vID2!=="")) { $query = $query." AND ".$mycol[$prdbdata[$tbl][15]]."= '".$vID2."'";};
					$query=$query.$addsql;// ñîðòèðîâêà, ëèìèò
					selectedprintsql ($data);
					if ($multisearch==0) {exit (1); }
				}



				if ($mode == 9) {
					$connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
					dbs_selectdb ($prdbdata[$tbl][9], $connect,$dbtype);
					global $fullfield;
					if ($categorymode==false) {   msgexiterror ("nocategory",$mode,"disable");  }
					$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
					$myrow=$data[0];// bordf\der
					$namecategorycol=$myrow[$category];
					$query="SELECT DISTINCT $namecategorycol FROM `".$prdbdata[$tbl][5]."` WHERE ".$mycol[$category]." LIKE '%".$vID."%'";
					if ($vID=="!101") $query="SELECT DISTINCT $namecategorycol FROM `".$prdbdata[$tbl][5]."`";

					if ($fullfield) {
						$query=str_replace ("LIKE","=",$query);
						$query=str_replace ("%","",$query);
						//echo $query;
					}

					if (!$pr[8]) echo "DEBUG - $query";
					$result=dbs_query ($query,$dbtype);
					while ($myrow = dbs_fetch_row($result,$dbtype))  	{
						echo "<a href='r.php?tbl=$tbl&mode=3&vID=".$myrow[0]."'> ".$myrow[0]."</a><br>";
					}
					exit;
				};




				//mode 8 ïðîöåäóðà SQL ïîèñêà ïî ëþáîé êîëîíêå
				if (($mode == 8)AND($prdbdata[$tbl][12]!="fdb")) {
					global $presettedmode;
					$mode=6; $presettedmode=3;
				}

				if (($mode == 7)AND($prdbdata[$tbl][12]!="fdb")) {
					//ubrat vse vybory polej ne svyazannye s tekushim mode==7( po menu)
					global $presettedmode,$res16,$mznumb,$codekey,$fullfield;
					echo "kol=$kol";$field=$kol;
					global $prauth,$ADM;// äîáàâëåíî äëÿ ïåðåêëþ÷åíèÿ ïðîäâèíóòîãî ïîèñêà
					//	echo "Field activated first $field<br>"; //TO DELETE AFTE
					$mode=6; $mode7=1;//$presettedmode=1.1; bylo 1.1
					$eid=encodevID ($vID);  $eolddid=encodevID ($olddvID);  //setup id
					{ 		$selectedfield="!1".$field;
					// åñëè field âûáðàí òî âûïîëíÿåòñÿ
	?> 	<form action="r.php" method=post>
<? if ($multisearch==1) {// urlencode ($oldvID);serialize ($olddvID); $vID="!S".$vID;
			hidekey ("vID",$eolddid); 	 } else {  hidekey ("vID",$eid);	 };
hidekey ("mode",7);
hidekey ("adm",$adm);
hidekey ("commode",$commode);
hidekey ("tbl",$tbl);
hidekey ("multisearch",$multisearch);
hidekey ("fullfield",$fullfield);
hidekey ("selectedfield",$selectedfield);
hidekey ("review",$review);
hidekey ("vID2",$vID2);
hidekey ("kol",$kol);
//	submitkey ("go","R_SEL_ROW");// ïðîâåðèòü ÷òîáóäåò åñëè èñêàòü ïî çíà÷åíèþ ñîðòèðîâêè óäàëÿåì óæå íå íóæíî :))
echo " </form> ";
			 }

				}


				//mode 6 ïðîöåäóðà SQL ïîèñêà ïî âûáðàííîé êîëîíêå
				if (($mode == 6)AND($prdbdata[$tbl][12]!="fdb")) {
					$connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
					global $categorymode,$mode,$fullfield;
					global $mode6,$m6field,$m6count;
					global $mycols,$mycol,$del,$res16,$presettedmode,$selectedfield,$fields;
					global $partquery,$vID,$mznumb;
					$res16=$prdbdata[$tbl][16];// Ëèìèò êîëîíîê
					if ($mode7==1) { $res16=$selectedfield ;};
					$a=prefixdecode ($res16); //echo "PREFIX $res16";
					dbs_selectdb ($prdbdata[$tbl][9], $connect,$dbtype);
					$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
					//$mycol[$md1column]".."
					$mode6=array ();
					global $query,$connect;
					global $mzdata,$mycols,$myrow;
					global $findrecords,$scrcolumn;
					decodecols ();
					$query = "SELECT * FROM `".$prdbdata[$tbl][5]."` WHERE ".$partquery ;
					if (($prdbdata[$tbl][15]>0)AND ($vID2!=="")) { $query = $query." AND ".$mycol[$prdbdata[$tbl][15]]."= '".$vID2."'";};
					//if (!$pr[8]) { echo "AFTER DECODE categorymode=$categorymode,mode=$mode,m6count=$m6count,	 mode6=$mode6,m6field=$m6field,mycols=$mycols,mycol=$mycol,del=$del,partquery=$partquery,vID=$vID<br>";}
                                        $query=$query.$addsql;// ñîðòèðîâêà, ëèìèò
					selectedprintsql ($data);
					if ($multisearch==0) {exit (1); }
				}





				//MYSQLMODESEARCHEND

				###########################################################
				//CSVMODESEARCH						NON GLOBAL MODE		 //
				###########################################################


				//	if (($prdbdata[$tbl][15]>0)AND ($vID2!=="")) { $query = $query." AND ".$mycol[$prdbdata[$tbl][15]]."= '".$vID2."'";}; // íå âíåäðåíî ò.ê. åñòü îøèáêà ñ âûçîâîì èç screen êîòîðàÿ çàñòàâëÿåò ïðàâèëüíî îò 1 ðåç.



				// ïðîöåäóðà ïîèñêà ïî èìåíè  - mode 1 - CSV
				if (($mode == 1)AND($prdbdata[$tbl][12]=="fdb"))
				{
					$findrecords=0;echo cmsg ("RF_RESSRCH").$namebas." - ".$vID.":\n\n";
					$vIDold=$vID; $vID=strtolower ($vID);
					// @$f=fopen ("_data/".$filbas,"r") or die ("Ôàéë áàçû íå íàéäåí");
					// echo ""; $z=xfgetcsv ($f,$xfgetlimit,"¦");
					// $mycol=$z;$myrow=array ();$selected=array ();//added
					//$md1column=1;$md2column=0;
					//echo "$cfgmod=cfg;$filbas=fil;$namebas=na,;$md1column=md1;$md2column=md2;<br>";
					$data=readdescripters ();$f=$data[4];
					//echo "$cfgmod=cfg;$filbas=fil;$namebas=na,;$md1column=md1;$md2column=md2;<br>";rd âîîáùå íå âîçâð äàííûå.
					rfsysdatareq (); // âîçâðàùàåì ïîòåðÿííûå õåð çíàåò ãäå ïåðåìåííûå
					for ($a=0;$dbc=xfgetcsv ($f,$xfgetlimit,"¦");$a++) {
						$k = count($dbc);//echo "md1=$md1column";// dbc-ñòð òàáë  ê- ÷èñëî êîë ç-çàãîëîâîê
						$findid=strpos(strtolower($dbc[$md1column]),strtolower($vID));
						if (($findid!==false)&&($dbc[$md1column]!=="")) { //  ïðîâåðêà óñëîâèÿ, íå ìîæåò áûòü óäàëåíà
							$selected[]=$dbc;   //added
						}
					}
					// echo "selectedprintcsv ($mycol,$selected); ".$mycol[0].$selected[0]."--".$selected[0][0]."<br>"; âûâîä
					selectedprintcsv ($data,$mycol,$selected);
					//fclose ($f);
					if ($multisearch==0) {exit (1); }
					// $k= count($dbc) - âû÷èñëåíèå êîë-âà ñòîëáöîâ
				}




				//ïîèñê ïî êîäó - mode 2 - CSV

				if (($mode == 2)AND($prdbdata[$tbl][12]=="fdb"))
				{
					$data=readdescripters ();$f=$data[4];$cfgmod=$data[5];
					rfsysdatareq (); // âîçâðàùàåì ïîòåðÿííûå õåð çíàåò ãäå ïåðåìåííûå
					if (!$cfgmod) { // ñäåëàíî òîëüêî äëÿ êîíôèãóðàöèè, â îñòàëüíûõ ñëó÷àÿõ ýòè áàçû ìàëî îòëè÷àþòñÿ
						settype ($vID,"integer");
						if ($vID==0)  msgexiterror ("needcode",$mode,"disable");
					}
					$findrecords=0;echo cmsg ("RF_RESSRCH").$namebas." - ".$vID.":\n\n";
					for ($a=0;$dbc=xfgetcsv ($f,$xfgetlimit,"¦");$a++) {
						$k = count($dbc); // dbc-ñòð òàáë  ê- ÷èñëî êîë ç-çàãîëîâîê
						if ($dbc[$md2column]==$vID) $selected[]=$dbc;  // c ïðîâåðêîé
					}
					selectedprintcsv ($data,$mycol,$selected);
					if ($multisearch==0) {exit (1); }
				}


				//mode 8 ïðîöåäóðà CSV ïîèñêà ïî ëþáîé êîëîíêå
				if (($mode == 8)AND($prdbdata[$tbl][12]=="fdb")) {
					global $presettedmode;
					$mode=6; $presettedmode=3;
				}

				if (($mode == 7)AND($prdbdata[$tbl][12]=="fdb")) {
			//ubrat vse vybory polej ne svyazannye s tekushim mode==7( po menu)
					if ($debug)echo "m7 Òåêóùèé vID $vID res16 $res16 STR595<br>";
					global $prauth,$ADM,$codekey;// äîáàâëåíî äëÿ ïåðåêëþ÷åíèÿ ïðîäâèíóòîãî ïîèñêà
					global $presettedmode,$mzdata,$mzcnt,$res16,$mznumb,$mycol,$fullfield;
					if ($debug)echo "kol=$kol";$field=$kol;
					///	echo "encodevID  $eid;  encodevID(old) $eolddid ";
					$mode=6; $mode7=1;//$presettedmode=-1; bylo 1.1
					//..	if (!$cfgmod) @$f=csvopen ("_data/".$filbas,"r","0");
					//..	if ($cfgmod==1) @$f=csvopen ("_conf/".$filbas,"r","0");echo "<br>";
					$eid=encodevID ($vID);  $eolddid=encodevID ($olddvID);  //setup id
					if (($field===false)OR($go=="Âûáðàòü_êîëîíêó")) {
						echo "Âûáåðèòå ïîëå äëÿ ïîèñêà:<br>";// Âñòàâëåíî äëÿ âûáîðà ïîëÿ
						if ($debug)echo "result res16=$res16 selfield $selectedfield STR603 a=$a m6=$m6field[0] , $m6field[1] , $m6field[2] <br>";
						if ($debug)echo " do (574) readdesc mznumb1=".$mznumb[1]." mycols".$mycols." mzdata1=".$mzdata[1]." plevel=".$plevel[1]." mycol1=".$mycol[1]."<br>";

						$data=readdescripters ();
						if ($debug)echo " do (576) readdesc mznumb1=".$mznumb[1]." mycols".$mycols." mzdata1=".$mzdata[1]." plevel=".$plevel[1]." mycol1=".$mycol[1]."<br>";
						$mznumb=$data[2]; $mycols=$data[6];$mzdata=$data[0];$plevels=$data[1];$mycol=$mzdata;
						$a=prefixdecode ($res16);
						decodecols ($res16);
						if ($debug)echo "result res16=$res16 selfield $selectedfield STR607 a=$a m6=$m6field[0] , $m6field[1] , $m6field[2] <br>";
						// echo "Âñåãî êîëîíîê $mycols - èùåì çíà÷åíèÿ èç ñïèñêà $mznumb[0];$mznumb[1];$mznumb[2];$mznumb[3]<br>";
?>	<form action="r.php" method=post>
<? 	if ($multisearch==1) {
	hidekey ("vID",$eolddid); 	 } else {  hidekey ("vID",$eid); };
hidekey ("mode",7);
hidekey ("adm",$adm);
hidekey ("commode",$commode);
hidekey ("tbl",$tbl);
hidekey ("multisearch",$multisearch);
hidekey ("fullfield",$fullfield);//$fullfield
hidekey ("selectedfield",$selectedfield);
hidekey ("kol",$kol);

echo " do (593) readdesc mznumb1=".$mznumb[1]." mycols".$mycols." mzdata1=".$mzdata[1]." plevel=".$plevel[1]." mycol1=".$mycol[1]."<br>";

$data=readdescripters ();
//print_r ($data);

$mznumb=$data[2]; $mycols=$data[6];$mzdata=$data[0];$plevels=$data[1];//$mycol=$mzdata;
echo "<br>do  596 readdesc mznumb1=".$mznumb[1]." mycols".$mycols." mzdata1=".$mzdata[1]." plevel=".$plevel[1]." mycol1=".$mycol[1]."<br>";
echo "result res16=$res16 STR621<br>";$field=printfield ($data,"nfield");
?>
	<input type = "image" name = "go" src = "_ico/find.png">
	</form><?  $selectedfield="!1".$field;exit;
					} else { 	$selectedfield="!1".$field;
	?> 	<form action="r.php" method=post>
<? if ($multisearch==1) {
	hidekey ("vID",$eolddid); 	 } else {  hidekey ("vID",$eid); };
hidekey ("mode",7);
hidekey ("adm",$adm);
hidekey ("commode",$commode);
hidekey ("tbl",$tbl);
hidekey ("fullfield",$fullfield);//$fullfield
hidekey ("multisearch",$multisearch);
hidekey ("selectedfield",$selectedfield);
hidekey ("kol",$kol);
	//submitkey ("go","R_SEL_ROW");
	echo "</form> ";
					}
				}

				//mode 6 ïðîöåäóðà CSV ïîèñêà ïî íîâîé êîëîíêå  ÍÅ ÑÄÅËÀÍÎ
				// ïðîöåäóðà ïîèñêà ïî èìåíè  - mode 1 - CSV
				if (($mode == 6)AND($prdbdata[$tbl][12]=="fdb"))
				{
					if ($debug) echo "m6 Òåêóùèé vID $vID<br>";
					//echo "result res16=$res16   STR656";
					global $categorymode,$mode; // äîáàâëåíî äëÿ ñîâìåñòèìîñòè ñ  decodecols ()
					global $mode6,$m6field,$m6count,$mycols,$mycol,$del;
					global $partquery,$vID,$mzcnt,$mznumb,$presettedmode,$xfgetlimit,$fullfield;
					$mznumb=array ();
					// TEST ZONE
					$res16=$prdbdata[$tbl][16];// Ëèìèò êîëîíîê
					if ($mode7==1) { $res16=$selectedfield ;};
					if ($debug)echo "$res16 - ";
					$a=prefixdecode ($res16);//echo "decoded $a=$res16 $categorymode STR 668";	//äåêîäèðîâàíèå ñòðîêè
					$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
					global $mzdata; $mzcnt=count ($mzdata);//$mycol[$md1column]".."
					$mycol=$mzdata;//echo "result res16=$res16 ?STR671";
					$mode6=array ();decodecols ();//echo "result res16=$res16 STR 672";
					for ($aaa=0;$aaa<count ($mode6);$aaa++)	{ $fndcolumn=$mznumb[$aaa];
					$findrecords=0;
					//echo "Ðåçóëüòàòû ïîèñêà â ".$namebas." - ïî êîëîíêå ".$mzdata[$fndcolumn]."($fndcolumn) -- ".$vID.":\n\n";
					$vIDold=$vID; $vID=strtolower ($vID);
                                        if ($vID=="!0") {$vID=="";$notnull=1;};
					$f=$data[4];
					$data=readdescripters ();	$f=$data[4];
                                        //mode 6- ñïèñîê âñåõ èñïîëüçóåìûõ â ýòîé ñåññèè êîëîíîê  åñëè åñòü îøèáêè â ìóëüòèïîèñêå ìîæíî ïåðåäàâàòü åãî ïîñëå ïåðâîé èòåðàöèè
                                        //echo "1count mode6 ".count ($mode6) ."count=$a of $k -- fndcol=$fndcolumn; vid=$vID ; ".$dbc[$fndcolumn]."<br>";
                                        //$dbc=xfgetcsv ($f,$xfgetlimit,"¦");
                                        //echo $dbc;echo " ($f,$xfgetlimit,¦); ";
					for ($a=0;$dbc=xfgetcsv ($f,$xfgetlimit,"¦");$a++) {
                                            	$k = count($dbc);$myrow=$dbc;
                                              //  echo "count=$a of $k -- fndcol=$fndcolumn; vid=$vID ; ".$dbc[$fndcolumn]."<br>";
						// for ($b=0;$b<$k;$b++) {  Áëà áëà áëà;Ôýíòýçè;Êîìåäèÿ;Áîåâèê  èùåò ôèãîâî ïåðåêëþ÷àåò íà 1,4 films al ãäå òî ïðîèçâîäèñÿ ñáðîñ çíà÷åíèÿ è îíî óæå íå âîññòàíàâëèâàåòñÿ
						// $mode7=1 åñëè âõîä áûë îòòóäà.êîïàòü çäåñü íàäî.
						if (!$fullfield) $findid=strpos(strtolower($dbc[$fndcolumn]),$vID);
                                                if ($fullfield) if (($dbc[$fndcolumn]==$vID)) {$selected[]=$dbc;};
                                                if ($fullfield) if (($dbc[$fndcolumn]==false)AND(false==$vID)) {$selected[]=$dbc;};
                                                //echo "$fullfield ffM<br> $findid  id";
                                                if (($notnull)AND($dbc[$fndcolumn]!="")) $findid=1;
                                                if (($notnull)AND($dbc[$fndcolumn]=="0")) $findid=false;
						if (($findid!==false)&&($dbc[$fndcolumn]!=="")) {
							if (!$fullfield) $selected[]=$dbc;  //added  $findid=false;
						}
					}
					}
					selectedprintcsv ($data,$mycol,$selected);//echo "result res16=$res16 STR695 END CYCLE<br>";
					if (!$pr[8]) { echo "AFTER DECODE categorymode=$categorymode,mode=$mode,m6count=$m6count,	 mode6=$mode6,m6field=$m6field,mycols=$mycols,mycol=$mycol,del=$del,partquery=$partquery,vID=$vID<br>";}
					//	 fclose ($f);
					if ($multisearch==0) {exit (1); }

				}




				// ïîèñê ïî êàòåãîðèè
				// ïðîöåäóðà èùåò ôðàçó ïîòîì èùåò âñå êîäû äî ñëåäóþùåé ôðàçû
				// ïðîáëåìà â $prdbdata[$a][category] - ýòî îäíà è òà æå êîëîíêà :)
				// áóäåò ñäåëàíà ïîñëå ïîêóïêè
				//ðåæèì êàòåãîðèè îäèí - âûïîëíÿåòñÿ ïðåîáðàçîâàíèå öèôð

				//script update csv 2,3,4 cat to 1 else return false

				if (($mode == 3)and($categorymode==false)) msgexiterror ("nocategory",$mode,"disable");
				if ($prdbdata[$tbl][12]=="fdb")
				if (($mode == 3)and($categorymode==1)OR($mode == 3)and($categorymode==4))
				{
					echo "READFILE:OLD_CORE_MODE.<br>";
					updatedb326 ($filbas);
					$findrecords=0 ;// îáùåå êîëè÷åñòâî íàéäåííûõ ïîçèöèé
					//$category =1; êàòåãîðèÿ ñîäåðæèòñÿ â ýòîé ïåðåìåííîé - this will reset category  TEST ONLY!
					if (($category==="")||($category===false)) msgexiterror ("nocategory",$mode,"disable");

					if ($vID!=="!101") { echo "Ïî âàøåìó çàïðîñó ".$vID." áûëî íàéäåíî:\n\n"; }
					$vIDorig=$vID; $vID=strtolower ($vID); $found=0;
					@$f=fopen ("_data/".$filbas,"r") or die ("Íå óäàëîñü âûïîëíèòü ïîäêëþ÷åíèå ê áàçå, ïîïðîáóéòå ïîçæå.");
					echo ""; $z=xfgetcsv ($f,$xfgetlimit,"¦"); // çàãîëîâîê
					for ($a=0;$dbc=xfgetcsv ($f,$xfgetlimit,"¦");$a++) {
						if (($limitenable)AND($findrecords>$printlimit)) {
							echo "Âñåãî çíà÷åíèé : $findrecords<br><br> ";exit;};
							$k = count($dbc)-$tablemysqlselect;  // óäàëåíèå êîëîíêè, îïðåäåëåíî â prop
							echo "<tbody><table border=3 width=100% bgcolor=white>"; echo "<tr>";

							for ($b=0;$b<$k;$b++) {
								// multithread options experimental

								// multithread options
								$content1=strtolower ($dbc[$category]); $findid1=strpos($content1,$vID);
								$content2=strtolower ($dbc[($category+1)]); $findid2=strpos($content2,$vID);
								$content1int=$content1; settype ($content1int,integer);
								//	$content2int=$content2; settype ($content2int,integer);  //!!
								if  (($found==1)AND($content1!=="")AND($content1int==0)) { $found=0;}
								//	  if  (($found==2)AND($content2!=="")) { $found=0;} //OR($findid2!==false)
								if (($findid1!==false)OR($found==1))  {
									$scrnum=$dbc[$scrcolumn];$found=1;//$findrecords++; # âîçìîæíî îøèáêà 2-ðàçà
									$data=wordwrap ($dbc[$b],82,"\n");
									if (($findid1!==false)AND($b==0)) { echo "<bb><cite>$data</cite></bb></tr>"; continue; }
									//if (($findid2!==false)AND($b==0)) { echo "<bb><cite>$data</cite></bb></tr>"; continue; }
									if (($hostmysqlselect==1)&&($b==0)) { echo "</tr>" ;continue ; }
									if ($data=="") { echo "</tr>" ;continue ; }
									echo "<td><bb>$z[$b]</bb>: "."$data<br></td><td>";//$findrecords++;
									if ($b==1) screen ();
									echo "</td></tr>";
									if ($b==($k-1)) { echo "<br>";$findrecords++; }
								}//idfound

								if (($vID=="!101")AND($content1!=="")AND($content1int==0))
								{
									$findrecords++;echo "<bb><ii>".strtoupper($content1)."</ii></bb>";?>				<form action="r.php" method=post><? 	hidekey ("go",$content1);
									hidekey ("vID",$content1); hidekey ("mode",3);
									hidekey ("adm",$adm);	hidekey ("commode",$commode);				hidekey ("tbl",$tbl); echo "</form>" ; break;
								} //!101
								//insertion m3c4 old
							} //b

					}  // ïðîöåäóðà ñîîáùåíèÿ îá îòñóòñòâèè èñêîìîãî îáúåêòà  1 èç 3
					// Ðåæèì êàòåãîðèè 4 î÷åíü ñèëüíî òîðìîçèò ñèñòåìó. ïîäîáíî îñíîâíîìó ðåæèìó 4
//DELETED

		if ((($findrecords===0)AND($adm==1)) OR (($findrecords===0)AND($pr[3]==1))) {
		print "<font color=red id=errfnt><bb>Íå íàéäåíî</bb><br></font>";
		}
		// restart engine m3ñ1
				fclose ($f);if ($multisearch==0) {echo "Âñåãî çíà÷åíèé : $findrecords<br><br> ";exit (1); }
				}



				// ðåæèì êàòåãîðèè 1  (â 4-ì èùåò :) )íå èùåò êîíêðåòíûå çíà÷åíèå â îòëè÷èå îò ðåæèìà 2 êîòîðûõ èõ ïûòàåòñÿ íàéòè âåçäå.





				if ($prdbdata[$tbl][12]=="fdb")
				if (($mode == 3)and($categorymode>1)and($categorymode!==4))
				{	updatedb326 ($filbas);
				// àïäåéòåð äëÿ óëó÷øåííîãî ôîðìàòà íàïèñàí
				// îñòàëîñü ñäåëàòü îáðàáîòêó ôàéëà â íîîâì ôîðìàòå (_conv326)
				echo "READFILE:OLD_CORE_MODE.<br>";
				// îáùåå êîëè÷åñòâî íàéäåííûõ ïîçèöèé
				//if ($vID!=="!101") { echo cmsg ("RF_RESSRCH)."".$namebas." - ".$vID.":\n\n";}
				//$category =1; êàòåãîðèÿ ñîäåðæèòñÿ â ýòîé ïåðåìåííîé - this will reset category  TEST ONLY!
				if (($category==="")||($category===false)) // îòïðàâêà íàçàä åñëè âîøëè áåç êàòåãîðèé.
				{
					msgexiterror ("nocategory",$mode,"disable");
				}
				//  !101 - tablemysqlselect - hostmysqlselect - - ôóíêöèè èç prop  ïîòîì êàê àëüò. âêëþ÷èòü  îñíîâíîé ñêðèïò
				//åñëè êîëîíêà 1findid!==false òî ýòî çàãîëîâîê è îí ìîæåò èìåòü îïèñàíèå. òîëüêî âûäåëèòü åãî.âûäåëÿÿ
				//åñëè êîëîíêà 1findid==false òî ïðîâåðÿåì êîëîíêó 2findid!==false  ïèøåì ñòä ìîäóëåì
				//åñëè êîëîíêà 1==false è 2==false ïèøåì çíà÷åíèå 3 åñëè óæå íàõîäèëèñü òàêèå
				//echo $findrecords;//if ($vID!=="!101") { echo "Ïî âàøåìó çàïðîñó ".$vID." áûëî íàéäåíî:\n\n"; }
				$vIDorig=$vID; $vID=strtolower ($vID); $found=0;
				@$f=fopen ("_data/".$filbas,"r") or die ("Íå óäàëîñü âûïîëíèòü ïîäêëþ÷åíèå ê áàçå, ïîïðîáóéòå ïîçæå.");
				echo ""; $z=xfgetcsv ($f,$xfgetlimit,"¦"); // çàãîëîâîê
				for ($a=0;$dbc=xfgetcsv ($f,$xfgetlimit,"¦");$a++) {
					if (($limitenable)AND($findrecords>$printlimit)) {
						echo "Âñåãî çíà÷åíèé : $findrecords<br><br> ";exit;};
						$k = count($dbc)-$tablemysqlselect;  // óäàëåíèå êîëîíêè, îïðåäåëåíî â prop
						echo "<tbody><table border=3 width=100% bgcolor=white>"; echo "<tr>";
						for ($b=0;$b<$k;$b++) {
							//	echo "_SYS_content -- ".$content." findid -- ".$findid." vID -- ".$vID."\n";
							$content1=strtolower ($dbc[$category]); $findid1=strpos($content1,$vID);
							$content2=strtolower ($dbc[$category+1]); $findid2=strpos($content2,$vID);
							if  (($found==1)AND($content1!=="")) { $found=0;}
							if  (($found==2)AND($content2!=="")) { $found=0;}
							if (($findid1!==false)OR($found==1)) {
								$scrnum=$dbc[$scrcolumn];$found=1;//$findrecords++;
								$data=wordwrap ($dbc[$b],82,"\n");
								if (($findid1!==false)AND($b==0)) { echo "<bb><cite>$data</cite></bb></tr>"; continue; }
								if (($hostmysqlselect==1)&&($b==0)) { echo "</tr>" ;continue ; }
								if ($data=="") { echo "</tr>" ;continue ; }
								echo "<td><bb>$z[$b]</bb>: "."$data<br></td><td>";
								if ($b==1) screen ();
								echo "</td></tr>";
								if ($b==($k-1)) { echo "<br>";$findrecords++; }

							}
							if (($vID=="!101")AND($content1!=="")) {
								$findrecords++;echo "<bb><ii>".strtoupper($content1)."</ii></bb>";?>				<form action="r.php" method=post> <?
		hidekey ("vID",$content1); hidekey ("mode",3);
		hidekey ("adm",$adm);	hidekey ("commode",$commode);
		hidekey ("tbl",$tbl);	hidekey ("go",$content1);
		hidekey ("kol",$kol);
			echo "</form>" ; break;
							}
		// ðåæèì êàòåãîðèè 2 ïîçâîëÿåò ñìîòðåòü êîëîíêó 2, ðåæèì 3 - íå ïîçâîëÿåò (òîëüêî findid1)
		// ëþáîå íåíóëåâîå çíà÷åíèå ïåðâîé êîëîíêè òðàêòóåòñÿ êàê íîâàÿ êàòåãîðèÿ â îòëè÷èå îò 1
							if ($categorymode===3) {

								if ((($findrecords===0)AND($adm==1)) OR (($findrecords===0)AND($pr[3]==1))) {
									print "<font color=red id=errfnt><bb>Íå íàéäåíî</bb><br></font>";
									print "Ñðåäè êàòåãîðèé íå óäàëîñü íàéòè èñêîìóþ ãðóïïó.<br>Ïîèñêàòü ñðåäè íàèìåíîâàíèé?";
		?>
				<form action="r.php" method=post><?
						hidekey ("vID",$vID); hidekey ("mode",1);
		hidekey ("adm",$adm);	hidekey ("commode",$commode);
		hidekey ("tbl",$tbl);	hidekey ("go",$content1);

	echo "<p align=center>";submitkey ("go","YES");echo "</p></form>";
	echo "<form action=disable method=post> 	<p align=center>";submitkey ("go","NO"); echo "</p></form>";			}
							}
							// restart engine m3ñ2
							if ($categorymode==2) {
								if (($findid2!==false)OR($found==2)) {
									$scrnum=$dbc[$scrcolumn];$found=2;
									$data=wordwrap ($dbc[$b],82,"\n");
									if (($findid1!==false)AND($b==0)) { echo "<bb><cite>$data</cite></bb></tr>"; continue; }
									if (($hostmysqlselect==1)&&($b==0)) { echo "</tr>" ;continue ; }
									if ($data=="") { echo "</tr>" ;continue ; }
									echo "<td><bb>$z[$b]</bb>: "."$data<br></td><td>";
									if ($b==1) screen ();
									echo "</td></tr>";
									if ($b==($k-1)) { echo "<br>"; $findrecords++;}
								}
							}
						}
				}
				if ((($findrecords===0)AND($adm==1)) OR (($findrecords===0)AND($pr[3]==1))) {
					print "<font color=red id=errfnt><bb>Íå íàéäåíî</bb><br></font>";
						}


				// restart engine m3ñ3
				fclose ($f);if ($multisearch==0) {echo "Âñåãî çíà÷åíèé : $findrecords<br><br> ";exit (1); }  }

			}

			###########################################################
			//CSVMODESEARCHENDED				NON GLOBAL MODE END  //
			###########################################################



			###########################################################
			//				GLOBAL MODE								 //
			###########################################################

			//Èñêàòü âñå - ðåæèì 4 - global mode   SQL

			if (($mode == 4)AND($prdbdata[$tbl][12]!="fdb")) {
				global $query,$connect;
				global $mzdata,$mycols,$myrow;
				global $findrecords,$scrcolumn;
				$connect=dbs_connect ($prdbdata[$tbl][6],$sd[14],$sd[17],$dbtype);
				dbs_selectdb ($prdbdata[$tbl][9], $connect,$dbtype);
				$data=readdescripters ();// ïîëó÷åíèå äàííûõ çàãîëîâêà ìàññèâ mycol êîë-âî mycols
				$query = "SELECT * FROM `".$prdbdata[$tbl][5]."`";
				$query=$query.$addsql;// ñîðòèðîâêà, ëèìèò
				$oldvID=-1;
				selectedprintsql ($data);
			}

			
			
			if (($mode == 4)AND($prdbdata[$tbl][12]=="fdb"))
			{ echo "<uu>Ðåæèì îòîáðàæåíèÿ âñåõ äàííûõ.</uu>";	$multisearch=0;
			$data=readdescripters ();$f=$data[4];
			//$f=$data[4];  ++$enabledataconnreturn=1; îøèáêà init 495
			for ($a=0;$dbc=xfgetcsv ($f,$xfgetlimit,"¦");$a++) {
				$k = count($dbc);   $selected[]=$dbc;    }
				$oldvID=-1;
				selectedprintcsv ($data,$mycol,$selected);
				//fclose ($f);exit;
			}



			echo "<br>";
			//Ìóëüòèïîèñê ïî êîäó - ðåæèì 5 - global mode   CSV&SQL
			// Ðåæèì îòîáðàæåíèÿ ïðåäâàðèòåëüíî íàñòðîåííûõ êîäîâ.





			if (($mode == 5)AND($pr[52]))
			{
			$activetable=$prdbdata[$tbl][1];
			//echo "Active table: $activetable [$tablemysqlselect'$tblmysqlselect]; Given data total:$boxcnt<br>";
			echo cmsg(A_BEST).".<br>";
			$filbas=$userfolder."/best.cfg";  // âîçìîæíî áóäåò äá â initse  ñ ñîçäàíèåì øàïêè åñëè ôàéëà âîîáùå íåò+++
  				@$best=csvopen ($filbas,"r",0);$data=readfullcsv ($best,"new");
 				// $data=readdescripters ();
   			$bestheader=$data[0];$bestplevel=$data[1];$bestcontent=$data[2];$bestcnt=$data[3];
  			$strokedata=$activetable."¦".$tablemysqlselect."¦".$tblmysqlselect."¦"; // FORMAT^    tablename;id1Xid2;id1Xid2
  			@fclose ($best);	
  
  /*//$editor=csvopen ("editor.cfg","r",1);
				//if ($editor===false) echo "Config cannot be loaded...";
				for ($a=0;$e=xfgetcsv ($editor,912,"¦");$a++) {
					if ($tbl==$e[0]) {$srch = count($e);  $selected= $e[0];echo "Ëó÷øèå òîâàðû ïî ìíåíèþ ðåäàêöèè<br>"; break;}
				}
				*/
   for ($a=0;$a<$bestcnt;$a++) {
  	if ($bestcontent[$a]!=="") if (strpos (@implode ($bestcontent[$a],"¦"),$strokedata)!==false) {
  		$rewritecnt=$a;
  		//echo "Found $rewritecnt contains ".$bestcontent[$rewritecnt][0]."<br>";
 // 		echo "Already present, remove first please. Address:$rewritecnt of $bestcnt<br>";exit;
  	}
  	//ïðîâåðêà ðàáîòàåò óñïåøíî , ïåðâàÿ çàïèñü äåëàåòñÿ èäåàëüíî ïðàâèëüíî.
  }
  				if ($rewritecnt==false) msgexiterror ("nobest",$prdbdata[$tbl][1],"getfile.php");
 //$string=explode ("",$)

				$mode=2;$multisearch=1;// íåìíîãî ïîëüçóåìñÿ ìóëüòèïîèñêîì :)
				for ($aa=3;$aa<count ($bestcontent[$rewritecnt]);$aa++)
				{ $string=explode ("+",$bestcontent[$rewritecnt][$aa]);
				$vID=$string[0];$vID2=$string[1];  //no +
				//echo  "$vID=$string[0];$vID2=$string[1];  //no +";
				 search ();
				//echo "$vID - is searching  this is  $dbc[0]<br>";
				}
			}






			//global mode 9 - no needs vID   (old 6)
			// âîçìîæíî ýòî áûëà áû êîðçèíà ïîêóïîê èëè ïî êðàéíåé ìåðå ëè÷íûé ñïèñîê òèïà 5 ðåæèìà
			if (($mode == 9)AND($prdbdata[$tbl][12]!="fdb")){ msgexiterror ("errorcfg",$mode,"admin.php");}
			if (($mode == 9)AND($prdbdata[$tbl][12]=="fdb")){ msgexiterror ("errorcfg",$mode,"admin.php");}


			// mode 10 - find comment  sql
			if ($mode == 10) {
				$scrdir="_local/scrcomm/".$scrdir;
				@$dircb=opendir ($scrdir);if (!$dircb) {echo "Äëÿ ýòîé áàçû íåò êîììåíòàðèåâ.";exit ;};
				//echo "Ôàéë êîììåíòàðèåâ = $comfile ";
				while (($filescb[]=readdir($dircb))!==false) ;
				$dircntcb= count ($filescb)-1;
				$commcount=$dircntcb-2;
				for ($aa=2;$aa<$dircntcb;$aa++) {
					$comfile=$scrdir."/".$filescb[$aa];
					$findid=strpos(strtolower($comfile),"txt");
					if ($findid==false) { $commcount--;continue;}
					if (@fopen ($comfile,"r")) {
						echo "<br>";
						$comm=@file_get_contents ($comfile,"r");
						$aaa=strpos ($comm, $vID);
						if ($aaa!==false) echo "<font color=gray id=dfnt>".$filescb[$aa]." ñîäåðæèò </font><br>".$comm."<br><br>";
					}

				}
				echo "Âñåãî êîììåíòàðèåâ â ãðóïïå : ".$commcount."<br>";
				//	$scrnum; - òî ÷òî íóæíî
				if ($multisearch==0) {exit (1); }
			}
			// mode 10 end sql find comment




			###########################################################
			//				GLOBAL MODE	END							 //
			###########################################################
			//Ïëàíèðóåòñÿ äëÿ áóäóùèõ ðåæèìîâ. âíå ïðîñòðàíñòâà è âðåìåíè


			if ($mode > 10) {msgexiterror ("errorcfg",$mode,"admin.php");}




			###########################################################
			//				FUNCTION ZONE							 //
			###########################################################
			// âûâîäèò ðèñóíîê åñëè íàäî èëè ññûëêó íà íåãî è çàíèìàåòñÿ îòðàáîòêîé êîììåíòàðèåâ åñëè åñòü
			// äëÿ ïåðâûõ äâóõ ðåæèìîâ âû÷èñëÿåòñÿ âñåãäà ïî 0 êîëîíêå, äëÿ îñòàëüíûõ ïî êîëîíêå êàòåãîðèè



	function auth () { //old
	echo "<form  action=disable method=post> ";submitkey ("auth","AUTHEN");echo "</form>";exit;
			}

	function editstart () {		Header("Location: w.php");	exit;			}

	function filemgrstart () {		Header("Location: filemgr.php");	exit;			}

	function adminpanel () {		Header("Location: admin.php");	exit;			}

	function relogin ()
			{
				//global $tbl;
				$tbl=1;
				header('WWW-Authenticate: Basic realm="Ìîäóëü äàííûõ dbscript "');
				header('HTTP/1.0 401 Unauthorized');   echo "<form action='getfile.php' METHOD='post'>\n"; //{$_SERVER['PHP_SELF']}
				echo "<input type='hidden' name='SeenBefore' value='0' />\n";
				echo "<input type='hidden' name='OldAuth' value='{$_SERVER['PHP_AUTH_USER']}' />\n";
				submitkey ("auth","AUTHEN");
				echo "<br><br>Can be used only one times. Other way - is close and open your browser.";
				echo "</form></p>\n";
			}



			function errors () {
?>
 Äàííàÿ èíôîðìàöèÿ ìîãëà óñòàðåòü â âàøåé âåðñèè ïðîãðàììû<br>
 Îøèáêà ââîäà - îøèáêà ñâÿçàííàÿ ñ ââîäèìûìè ïîëüçîâàòåëåì äàííûìè.<br>
 Íå íàéäåíî - â ïðèíöèïå îøèáêîé íå ÿâëÿåòñÿ,ìîæåò íå îòîáðàæàòñÿ âîîáùå<br>
 Îøèáêà â íàñòðîéêàõ - íåâåðíàÿ êîíôèãóðàöèÿ.<br>
 Íåò äîñòóïà (Ñåðâèñ íåäîñòóïåí)- çàêðûò äîñòóï àäìèíèñòðàöèåé .<br>
 * - â áóäóùåé âåðñèè.<br>
<?

			}

			function helplog ()
			{
			echo "Äàííàÿ èíôîðìàöèÿ ìîãëà óñòàðåòü â âàøåé âåðñèè ïðîãðàììû<br>";
			echo "<a href='_logs'>×èòàòü òåêóùèå ëîãè (Îáùèé,îòìåíà,îøèáêè ïåðåâîäà, ðàïîðòû.</a><br>";
				print "Ïîëíàÿ ðàñøèôðîâêà ïîëåé åñòü â îïèñàíèè, çäåñü óïîìÿíóòû âàæíûå äàííûå:<br>";
				print "M - ðåæèì ïðîñìîòðà ";//1- ïî ôàìèëèè, 3 - ïî ãðóïïå.<br>";
				print "B - ïîäêëþ÷àåìàÿ áàçà  ";//0 - ôèçè÷åñêèå ëèöà 1 - îðãàíèçàöèè è þð.ëèöà.<br>";
				print "Äàëåå óêàçûâàåòñÿ êàêîé IP è äåéñòâèå(ÿ).<br>";
			}



			function aboutme () {
				global $languageprofile;//$message="";
				//$icon="info";
				$mainheader="<img src=_ico/conf.png>"."About me";
				$script=array ( 'message'=>$message,'icon'=>$icon,'mainheader'=>$mainheader );
				$actions="";
		 		window ($script,$actions);
		 		if ($languageprofile=="russian") {
		 			echo "<br>Dbscript (DBS) - ïðîãðàììà äëÿ êîìàíäíîé ðàáîòû ñ áàçàìè äàííûõ ñ íàñòðàèâàåìûìè ãèáêèìè îãðàíè÷åíèÿìè äîñòóïà";
		 			echo "<br>Àâòîð ïðîãðàììû: Ôóôàåâ À.Â. (aka Dj--alex)  Ðàçðàáîòêà:2006-2008";

		 		}
		 		if ($languageprofile!=="russian") {
		 			echo "Dbscript (DBS) - program for group work with DATABASEs + full controlled rights.";
		 			echo "<br>Author program: Fufaev A.V. (aka Dj--alex)   Developing:2006-2008";

		 		}
		 		closewindow ();
		 		exit;
			}

//http://dj.chg.su/dbscript/DBSCRIPTinstruction.doc

/* not include in  - íå äîáàâëåíî â ðóêîâîäñòâî

	Äëÿ ïîäêëþ÷åíèÿ ñåðâèñà.
Äîñòàòî÷íî íàïèñàòü ïèñüìî ñ ñëåäóþùèìè ïóíêòàìè.

1.Öåëè äëÿ êîòîðûõ áóäåò ïðèìåíÿòñÿ ïðîãðàììà, è íàçâàíèå äëÿ ñåðâèñà.
2.Âûáðàííûé ïëàí ïîäêëþ÷åíèÿ,
3.Ñïèñîê áàç äàííûõ è ïîëüçîâàòåëåé.
4.Áàçû äàííûõ â ôîðìàòàõ sql ïðèíèìàþòñÿ êàê åñòü. Excel, Access, Csv áàçû äàííûõ êîíâåðòèðóþòñÿ âî âíóòðåííåå ïðåäñòàâëåíèå.
5.Æåëàåìûå íàçâàíèÿ êíîïîê â äèçàéíå, îêðàñêà.

Âàæíàÿ çàìåòêà: Âîçìîæíî ïîäêëþ÷åíèå ñåðâèñà ê âàøåìó sql ñåðâåðó, âàì íåîáõîäèìî ðàçðåøèòü ñåðâåðó dj.chg.su óïðàâëÿòü âàøèì SQL, íàì æå îò âàñ ïîòðåáóþòñÿ çíàíèå àäðåñà, è ëîãèíà è ïàðîëÿ äëÿ ïðîãðàììû. Òàêæå ïîòðåáóåòñÿ ñõåìà ïîäêëþ÷åíèÿ áàç äàííûõ íà âàøåì ñåðâåðå (á\ä è òàáëèöû).

Âàæíî: ñåðâèñ ÿâëÿåòñÿ ïëàòíûì,ò.ê. õîñòèíã, òðàôèê è äð. ÿ âàì áåñïëàòíî ïðåäîñòàâèòü íå ìîãó
âçàìåí - óëó÷øåííîå òåõíè÷åñêîå îáñëóæèâàíèå.

Êàê ïîäêëþ÷èòñÿ áåñïëàòíî èëè î÷åíü äåøåâî - ñì äîêóìåíòàöèþ.


Î ðàñõîäå òðàôèêà ñåðâèñîì:
Ïðîãðàììà ñîçäàâàëàñü ñ ðàñ÷åòîì íà ìîäåìíîå ñîåäèíåíèå 28.8ê
Ò.å íà ìîäåìå îòêðûòèå îäíîé ñòðàíèöû çàíèìàåò 2 ñåêóíäû.
Ðàçóìååòñÿ ïðè ïåðâîì âõîäå èëè ñìåíå êîíôèãóðàöèè âðåìÿ íåìíîãî áîëüøå,ò.ê. êýøèðóåòñÿ ãðàôèêà.
Äëÿ îäíîé òèïîâîé îïåðàöèè ïîèñê-÷òåíèå-èçìåíåíèå-ñîõðàíåíèå ðàñõîäóåòñÿ îêîëî 70êá.
Åñòü îïöèè ýêîíîìèè òðàôèêà.


Äëÿ âëàäåëüöåâ ñåðâåðîâ SQL:
Äëÿ ðàáîòû ïðîãðàììû ñ âàøèì ñåðâåðîì äàííûõ òðåáóåòñÿ äîñòóï ê mysql ñ ñåðâåðà dj.chg.su.
Äëÿ åå ðàáîòû ñîçäàéòå ïîëüçîâàòåëÿ è íåîáõîäèìûìè ïðàâàìè,è íå çàáóäüòå íàñòðîèòü ïàðîëü.
Òîëüêî âû áóäåòå âèäåòü âàø ïàðîëü, à òàêæå òå êîãî âû íàçíà÷èòå àäìèíèñòðàòîðàìè ñåðâèñà.
Ïîðò sql îòêðûâàòü òîëüêî äëÿ ýòîãî ñåðâåðà,èíà÷å ìîãóò âîçíèêíóòü ïðîáëåìû ñ áåçîïàñíîñòüþ.
Ïðåäîñòàâëÿåìûå ïðàâà: SELECT , INSERT, UPDATE,DELETE,CREATE,DROP, ALTER, SHOW DB.
Ïåðñíîíàëüíûå îãðàíè÷åíèÿ íà âûïîëíåíèå êîìàíä åñòü âñòðîåííîå.Ðåêîìåíäóåòñÿ èñïîëüçîâàòü åãî à íå îãðàíè÷ñèâàòü íà óðîâíå ñåðâèñà.

PS.Cðîê èñïîëüçîâàíèÿ ñåðâèñà (åñëè åñòü) òåïåðü ñ÷èòàåòñÿ ïî êîëè÷åñòâó èñïîëüçîâàííûõ äíåé à íå ïðîøåäøèõ.
Êàê ïîäêëþ÷èòü ïðîãðàììíóþ âåðñèþ - ðàññêàçàíî ïîäðîáíî â ðóêîâîäñòâå.
âñå âåñüìà ïðîñòî, îñîáåííî åñëè ñêà÷èâàòü âåðñèþ äëÿ íîâè÷êîâ â ñîñåäíåé òåìå.

Äëÿ ðàñøèðåíèÿ âîçìîæíîñòåé ïðîãðàììû íóæíî ñâÿçàòñÿ ñî ìíîé ïî àäðåñó dj--alex@ya.ru.

Öåíû íà íåêîììåð÷åñêóþ è êîììåð÷åñêóþ âåðñèþ äîâîëüíî ñèëüíî îòëè÷àþòñÿ â ïîëüçó ïåðâîé. Ò.å. åñëè âû íå ïëàíèðóåòå èñï. â îðãàíèçàöèÿõ dbscript - äëÿ âàñ ýòî áóäåò î÷åíü äåøåâî. (ïîäðîáíåå - ñì. äîêóìåíòàöèþ).

*/

/*  Sample windows   îí èñïîëüçóåòñÿ èëè íåò? ìîæåò óäàëèòü åãî è îñòàâèòü window

	$script=array ( //  Äëÿ special ðåæèìà èêîíêà çàäàåòñ êàê ïàðàìåòð data
		'message' => "Ñîîáùåíèå",				// ñîîáùåíèå
		'icon' => "info" ,
      'mainheader' => "Ãëàâíûé õåäåð");

	$actions=array ( //  Äëÿ special ðåæèìà èêîíêà çàäàåòñ êàê ïàðàìåòð data
		'OK' => "r.php?tbl=22&mode=8&vID=118257",			// çàãîëîâîê
		'Îòìåíà' => "admin.php",				// ñîîáùåíèå
		'Ïîâòîðèòü' => "admin.php?write=Èìïîðò_Ýêñïîðò");

//window ($script,$actions);closewindow ();

			// SCRIPT WRITTEN BY DJ--ALEX
			#####################################################
			*/

endtm ();

?>