/e107_admin/lancheck.php

<?php
/*
 * e107 website system
 *
 * Copyright (C) 2008-2013 e107 Inc (e107.org)
 * Released under the terms and conditions of the
 * GNU General Public License (http://www.gnu.org/licenses/gpl.txt)
 *
 * Administration Area - Language check
 * With code from Izydor and Lolo.
 *
*/
require_once("../class2.php");
if (!getperms("L")) 
{
	header("location:".e_BASE."index.php");
	exit;
}

include_lan(e_LANGUAGEDIR.e_LANGUAGE.'/admin/lan_'.e_PAGE);

$e_sub_cat = 'language';
// require_once("auth.php");

$frm = e107::getForm();
$mes = e107::getMessage();
$lck = new lancheck;


/*
$qry = explode("|",e_QUERY);
$f = $qry[0];
$lan = $qry[1];
$mode = $qry[2];

// Write the language file.
if(isset($_POST['submit']))
{
	unset($input);
	$kom_start = chr(47)."*";
	$kom_end = "*".chr(47);

	if($_POST['root'])
	{
		$writeit = $_POST['root'];
	}

	$old_kom = "";
	$in_kom=0;
	$data = file($writeit);
	foreach($data as $line)
	{

		if (strpos($line,$kom_start) !== False && $old_kom == "")
		{
			$in_kom=1;
		}
		if ($in_kom) { $old_kom.=$line; }
		if (strpos($line,$kom_end) !== False && $in_kom) {$in_kom = 0;}
	}


	$message = "<div style='text-align:left'><br />";
	$input .= chr(60)."?php\n";
	if ($old_kom == "")
	{
		// create CVS compatible description.
		$diz = chr(47)."*\n";
		$diz .= " * e107 website system\n";
		$diz .= " *\n";
		$diz .= " * Copyright (C) 2008-2009 e107 Inc (e107.org)\n";
		$diz .= " * Released under the terms and conditions of the\n";
		$diz .= " * GNU General Public License (http://www.gnu.org/licenses/gpl.txt)\n";
		$diz .= " *\n";
		$diz .= " * Language File\n";
		$diz .= " *\n";
		$diz .= " * ".chr(36)."Source: ".str_replace(array(e_LANGUAGEDIR, e_PLUGIN), array(e_LANGUAGEDIR_ABS, e_PLUGIN_ABS), $writeit)." ".chr(36)."\n";
		$diz .= " * ".chr(36)."Revision: 1.0 ".chr(36)."\n";
		$diz .= " * ".chr(36)."Date: ".date("Y/m/d H:i:s")." ".chr(36)."\n";
		$diz .= " *  ".chr(36)."Author: ".USERNAME." ".chr(36)."\n";
		$diz .= " *\n";
		$diz .= "*".chr(47)."\n\n";
	}
	else
	{
		$diz = $old_kom;
	}

	$input .= $diz;
	$message .= str_replace("\n","<br />",$diz);

	for ($i=0; $i<count($_POST['newlang']); $i++)
	{
		$notdef_start = "";
		$notdef_end = "\n";
		$deflang = (MAGIC_QUOTES_GPC === TRUE) ? stripslashes($_POST['newlang'][$i]) : $_POST['newlang'][$i];
		$func = "define";
		$quote = chr(34);

		if (strpos($_POST['newdef'][$i],"ndef++") !== FALSE )
		{
			$defvar = str_replace("ndef++","",$_POST['newdef'][$i]);
			$notdef_start = "if (!defined(".chr(34).$defvar.chr(34).")) {";
			$notdef_end = "}\n";
		}
		else
		{
			$defvar = $_POST['newdef'][$i];
		}

		if($_POST['newdef'][$i] == "LC_ALL" && isset($_POST['root']))
		{
			$message .= $notdef_start.'setlocale('.htmlentities($defvar).','.$deflang.');<br />'.$notdef_end;
			$input .= $notdef_start."setlocale(".$defvar.",".$deflang.");".$notdef_end;
		}
		else
		{
			$message .= $notdef_start.$func.'('.$quote.htmlentities($defvar).$quote.',"'.$deflang.'");<br />'.$notdef_end;
			$input .= $notdef_start.$func."(".$quote.$defvar.$quote.", ".chr(34).$deflang.chr(34).");".$notdef_end;
		}
	}

	$message .="<br />";
	$message .="</div>";
	$input .= "\n\n?>";

	// Write to file.
	$fp = @fopen($writeit,"w");
	if(!@fwrite($fp, $input))
	{
		$caption = LAN_CHECK_PAGE_TITLE.' - '.LAN_ERROR;
		$message = '';
		$mes->addError(LAN_CHECK_17);
	}
	else
	{
		$caption = LAN_CHECK_PAGE_TITLE.' - '.LAN_CHECK_24;
		$mes->addSuccess(sprintXXX(str_replace("[x]", "%s", LAN_CHECK_23), basename($writeit)));
	}
	fclose($writeit);

	$message .= "
	<form method='post' action='".e_SELF."' id='core-lancheck-save-file-form'>
	<div class='center'>
		".$frm->admin_button('language_sel', LAN_BACK)."
		".$frm->hidden('language', $lan)."
	</div>
	</form>";
	


	$ns->tablerender($caption, $mes->render().$message);
//	require_once(e_ADMIN."footer.php");
	exit;
}

// ============================================================================

// Edit the Language File.

if($f != ""){

	if (!$mode)
	{
		$dir1 =  e_BASE.$LANGUAGES_DIRECTORY."English/";
		$f1=$f;
		$dir2 =  e_BASE.$LANGUAGES_DIRECTORY.$lan."/";
		$f2=$f;
	}
	else
	{
		$fullpath_orig = $f;
		$fullpath_trans = str_replace("English",$lan,$f);

		$f1 = basename($fullpath_orig);
		$f2 = basename($fullpath_trans);
		$dir1 = dirname($fullpath_orig)."/";
		$dir2 = dirname($fullpath_trans)."/";
	}

	$lck->edit_lanfiles($dir1,$dir2,$f1,$f2);

}

// ===========================================================================

$core_plugins = array(
	"alt_auth", "banner_menu", "blogcalendar_menu", "calendar_menu", "chatbox_menu",
	"clock_menu", "comment_menu", "content", 'download', "featurebox", "forum",
	"gsitemap", "links_page", "linkwords", "list_new", "log", "login_menu",
	"newforumposts_main", "newsfeed", "newsletter", "online", "other_news_menu",
	"pdf", "pm", "poll", "rss_menu", "search_menu", "siteinfo", "trackback",
	"tree_menu", "user_menu"
);

$core_themes = array("bootstrap", $pref['sitetheme']);


if(isset($_POST['language_sel']) && isset($_POST['language']))
{

	$text = $lck->check_core_lanfiles($_POST['language']).$lck->check_core_lanfiles($_POST['language'],"admin/");

	$text .= "
		<fieldset id='core-lancheck-plugin'>
			<legend>".ADLAN_CL_7."</legend>
			<table class='table adminlist'>
				<colgroup>
					<col style='width: 25%' />
					<col style='width: 25%' />
					<col style='width: 40%' />
					<col style='width: 10%' />
				</colgroup>
				<thead>
					<tr>
						<th>".LAN_PLUGIN."</th>
						<th>".LAN_CHECK_16."</th>
						<th>".$_POST['language']."</th>
						<th class='center last'>".LAN_OPTIONS."</th>
					</tr>
				</thead>
				<tbody>
	";

	foreach($core_plugins as $plugs)
	{
		if(is_readable(e_PLUGIN.$plugs))
		{
			$text .= $lck->check_lanfiles('P',$plugs,"English",$_POST['language']);
		}
	}
	$text .= "
				</tbody>
			</table>
		</fieldset>
	";

	$text .= "
		<fieldset id='core-lancheck-theme'>
			<legend>".LAN_CHECK_22."</legend>
			<table class='table adminlist'>
				<colgroup>
					<col style='width: 25%' />
					<col style='width: 25%' />
					<col style='width: 40%' />
					<col style='width: 10%' />
				</colgroup>
				<thead>
					<tr>
						<th>".LAN_CHECK_21."</th>
						<th>".LAN_CHECK_16."</th>
						<th>".$_POST['language']."</th>
						<th class='center last'>".LAN_OPTIONS."</th>
					</tr>
				</thead>
				<tbody>
	";
	foreach($core_themes as $them)
	{
		if(is_readable(e_THEME.$them))
		{
			$text .= $lck->check_lanfiles('T',$them,"English",$_POST['language']);
		}
	}
	$text .= "
				</tbody>
			</table>
		</fieldset>
	";
	
	$mes = e107::getMessage();
	if($lck->error_count == 0)
	{
		e107::getConfig()->setPref('lancheck/'.$_POST['language'],1);
		e107::getConfig()->save(FALSE);
		$mes->addSuccess(LAN_CHECK_27.'<b>: '.$lck->error_count.'</b>');		
	}
	else  
	{
		$mes->addWarning(LAN_CHECK_27.'<b>: '.$lck->error_count.'</b>');
	}
	

	$ns->tablerender(LAN_CHECK_25, $mes->render(). $text);


	
	require_once(e_ADMIN."footer.php");
	exit;
}


*/

class lancheck
{
	
	var $core_plugins = array(
		"alt_auth","banner","blogcalendar_menu","calendar_menu","chatbox_menu",
		"clock_menu","comment_menu","download","faqs", "featurebox", "forum","gallery", "gsitemap","import", "links_page",
		"linkwords","list_new","log","login_menu","newforumposts_main","newsfeed",
		"news", "newsletter","online", "page",
		"pm","poll","rss_menu","search_menu","siteinfo","tagwords", "tinymce",
		"trackback","tree_menu","user_menu"
		);
		
	/*
	 * $core_plugins = array(
	"alt_auth", "banner_menu", "blogcalendar_menu", "calendar_menu", "chatbox_menu",
	"clock_menu", "comment_menu", "content", 'download', "featurebox", "forum",
	"gsitemap", "links_page", "linkwords", "list_new", "log", "login_menu",
	"newforumposts_main", "newsfeed", "newsletter", "online", "other_news_menu",
	"pdf", "pm", "poll", "rss_menu", "search_menu", "siteinfo", "trackback",
	"tree_menu", "user_menu"
);
	 */	
		
	var $core_themes = array("bootstrap"); 
			
	var $errorsOnly = FALSE;
	
	var $coreImage = array();

	
	function init()
	{
		$ns = e107::getRender();
		$tp = e107::getParser();
		$pref = e107::getPref();
		
		// Check current theme also (but do NOT add to generated zip)
		$this->core_themes[] = $pref['sitetheme'];
		$this->core_themes = array_unique($this->core_themes);
		
		$acceptedLans = explode(",",e_LANLIST);
	
		
		if(!isset($_SESSION['lancheck-core-image']))
		{
			$core = array();	

			$coredir = array('admin' => 'e107_admin', 'files' => 'e107_files', 'images' => 'e107_images', 'themes' => 'e107_themes', 'plugins' => 'e107_plugins', 'handlers' => 'e107_handlers', 'languages' => 'e107_languages', 'downloads' => 'e107_downloads', 'docs' => 'e107_docs');
			
			require_once(e_ADMIN."core_image.php");
			
			unset($core_image['e107_images'],$core_image['e107_files'],$core_image['e107_admin']);
			
			$_SESSION['lancheck-core-image'] = $core_image;	
		}
		

			
		if(isset($_POST['language_sel'])) // Verify
		{
			
			$_SESSION['lancheck-errors-only'] 	= ($_POST['errorsonly']==1 ) ?  1 : 0;	
			$this->errorsOnly 					= ($_POST['errorsonly']==1) ?  TRUE : FALSE;
			$this->check_all();
			return TRUE;
		}
		
		// Write the language file.
		if(isset($_POST['submit']) && varsettrue($_POST['lan']) && in_array($_POST['lan'],$acceptedLans))
		{
			
			$this->write_lanfile($_POST['lan']);	
			return TRUE;	
		} 
		
		// Edit the Language File.
		if(varsettrue($_GET['f']) && varsettrue($_GET['lan']) && in_array($_GET['lan'],$acceptedLans))
		{
			
			if (!$_GET['mode'])
			{
				$dir1 =  e_LANGUAGEDIR."English/";
				$f1= $tp->toDB($_GET['f']);
				$dir2 =  e_LANGUAGEDIR.$_GET['lan']."/";
				$f2= $tp->toDB($_GET['f']);
			}
			else
			{
				$fullpath_orig = $tp->toDB($_GET['f']);
				$fullpath_trans = str_replace("English",$_GET['lan'],$tp->toDB($_GET['f']));
		
				$f1 = basename($fullpath_orig);
				$f2 = basename($fullpath_trans);
				$dir1 = dirname($fullpath_orig)."/";
				$dir2 = dirname($fullpath_trans)."/";
			}
			
			$this->edit_lanfiles($dir1,$dir2,$f1,$f2,$_GET['lan']);	
			return TRUE;	
		}	
		
		return FALSE;
	}
	
	
	function countFiles($array)
	{
		foreach($array as $k=>$val)
		{
			if(is_array($val))
			{
				$key = key($val);
				$this->coreImage[$key] = $val;
			}
			elseif($val)
			{
			//	$this->totalFiles++;		
			}	
			
		}	
	}
	
	
	
	function check_all($mode='render')
	{
		// global $ns,$tp;
		$mes = e107::getMessage();
		$ns = e107::getRender();
		$tp = e107::getParser();
		
			
		$_POST['language'] = key($_POST['language_sel']);

		$_SESSION['lancheck'][$_POST['language']] = array();
		$_SESSION['lancheck'][$_POST['language']]['file']	= 0;
		$_SESSION['lancheck'][$_POST['language']]['def']	= 0;
		$_SESSION['lancheck'][$_POST['language']]['bom']	= 0;
		$_SESSION['lancheck'][$_POST['language']]['utf']	= 0;
		$_SESSION['lancheck'][$_POST['language']]['total']	= 0;
	
	
		$core_text 	= $this->check_core_lanfiles($_POST['language']);
		$core_admin = $this->check_core_lanfiles($_POST['language'],"admin/");
		$plug_text = "";
		$theme_text = "";
	
	
		// Plugins -------------
		$plug_header = "<table class='table table-striped'>
		<tr>
		<td class='fcaption'>".LAN_PLUGIN."</td>
		<td class='fcaption'>".LAN_CHECK_16."</td>
		<td class='fcaption'>".$_POST['language']."</td>
		<td class='fcaption'>".LAN_OPTIONS."</td></tr>";
	
		foreach($this->core_plugins as $plugs)
		{
			if(is_readable(e_PLUGIN.$plugs))
			{
				$plug_text .= $this->check_lanfiles('P',$plugs,"English",$_POST['language']);
			}
		}
		
		$plug_footer = "</table>";
	
		// Themes  -------------
		$theme_header = "<table class='table table-striped'>
		<tr>
		<td class='fcaption'>".LAN_CHECK_22."</td>
		<td class='fcaption'>".LAN_CHECK_16."</td>
		<td class='fcaption'>".$_POST['language']."</td>
		<td class='fcaption'>".LAN_OPTIONS."</td></tr>";
		foreach($this->core_themes as $them)
		{
			if(is_readable(e_THEME.$them))
			{
				$theme_text .= $this->check_lanfiles('T',$them,"English",$_POST['language']);
			}
		}
		$theme_footer = "</table>";
		
		// -------------------------
		

		
		
		if($mode != 'render')
		{
			 return;
		}
	
		$message .= "
		<form id='lancheck' method='post' action='".e_ADMIN."language.php?tools'>
		<div>\n";
		
		$icon = ($_SESSION['lancheck'][$_POST['language']]['total']>0) ? ADMIN_FALSE_ICON : ADMIN_TRUE_ICON;	
		
		
		$errors_diz = (defsettrue('LAN_CHECK_23')) ? LAN_CHECK_23 : "Errors Found";
		
		$message .= $errors_diz.": ".$_SESSION['lancheck'][$_POST['language']]['total'];	
	
		$just_go_diz = (defsettrue('LAN_CHECK_20')) ? LAN_CHECK_20 : "Generate Language Pack";
		$lang_sel_diz = (defsettrue('LAN_CHECK_21')) ? LAN_CHECK_21 : "Verify Again";
		$lan_pleasewait = (defsettrue('LAN_PLEASEWAIT')) ?  $tp->toJS(LAN_PLEASEWAIT) : "Please Wait";
		
		$message .= "
		<br /><br />
		<input type='hidden' name='language' value='".$_POST['language']."' />
		<input type='hidden' name='errorsonly' value='".$_SESSION['lancheck-errors-only']."' />    
	    <input class='btn btn-primary' type='submit' name='ziplang[".$_POST['language']."]' value=\"".$just_go_diz."\" class='btn button' onclick=\"this.value = '".$lan_pleasewait."'\" />
	    <input type='submit' name='language_sel[".$_POST['language']."]' value=\"".$lang_sel_diz."\" class='btn button' />
		</div>
	    </form>
		";
		
//	print_a($_SESSION['lancheck'][$_POST['language']]);

		$plug_text = ($plug_text) ? $plug_header.$plug_text.$plug_footer : "<div>".LAN_OK."</div>";	
		$theme_text = ($theme_text) ? $theme_header.$theme_text.$theme_footer : "<div>".LAN_OK."</div>";	

		$mesStatus = ($_SESSION['lancheck'][$_POST['language']]['total']>0) ? E_MESSAGE_INFO : E_MESSAGE_SUCCESS;
			
		$mes->add($message, $mesStatus);	
			
	//	$ns -> tablerender(LAN_CHECK_24.": ".$_POST['language'],$message);
		
		echo $mes->render();
	
		$ns -> tablerender(LANG_LAN_21.SEP.$_POST['language'].SEP.LAN_CHECK_2, $core_text);
		$ns -> tablerender(LAN_CHECK_3.": ".$_POST['language']."/admin", $core_admin);
		$ns -> tablerender(ADLAN_CL_7, $plug_text);
		$ns -> tablerender(LAN_CHECK_25, $theme_text);	
		
	}
	
	
	function write_lanfile($lan='')
	{
		if(!$lan){ 	return; }
		
		global $ns;
		
		unset($input);
		$kom_start = chr(47)."*";
		$kom_end = "*".chr(47);
	
		if(varsettrue($_SESSION['lancheck-edit-file']))
		{
			$writeit = $_SESSION['lancheck-edit-file'];
		}
		else
		{
			return;	
		}
	
		$old_kom = "";
		$in_kom=0;
		
		if(is_readable($writeit)) // File Exists; 
		{
			$data = file($writeit);
			foreach($data as $line)
			{
		
				if (strpos($line,$kom_start) !== False && $old_kom == "")
				{
					$in_kom=1;
				}
				if ($in_kom) { $old_kom .= $line; }
				if (strpos($line,$kom_end) !== False && $in_kom) {$in_kom = 0;}
			}	
		}
		
	
	
		$message = "<div style='text-align:left'><br />";
		$input .= chr(60)."?php\n";
		if ($old_kom == "")
		{
			// create CVS compatible description.
			$diz = chr(47)."*\n";
			$diz .= "+---------------------------------------------------------------+\n";
			$diz .= "|        e107 website content management system ".$lan." Language File\n";
			$diz .= "|        Released under the terms and conditions of the\n";
			$diz .= "|        GNU General Public License (http://gnu.org).\n";
			$diz .= "|\n";
			$diz .= "|        ".chr(36)."URL: $writeit ".chr(36)."\n";
			$diz .= "|        ".chr(36)."Revision: 1.0 ".chr(36)."\n";
			$diz .= "|        ".chr(36)."Id: ".date("Y/m/d H:i:s")." ".chr(36)."\n";
			$diz .= "|        ".chr(36)."Author: ".USERNAME." ".chr(36)."\n";
			$diz .= "+---------------------------------------------------------------+\n";
			$diz .= "*".chr(47)."\n\n";
		}
		else
		{
			$diz = $old_kom;
		}
	
		$input .= $diz;
		$message .= str_replace("\n","<br />",$diz);
	
		for ($i=0; $i<count($_POST['newlang']); $i++)
		{
			$notdef_start = "";
			$notdef_end = "\n";
			$deflang = (MAGIC_QUOTES_GPC === TRUE) ? stripslashes($_POST['newlang'][$i]) : $_POST['newlang'][$i];
			$func = "define";
			$quote = chr(34);
	
			if (strpos($_POST['newdef'][$i],"ndef++") !== FALSE )
			{
				$defvar = str_replace("ndef++","",$_POST['newdef'][$i]);
				$notdef_start = "if (!defined(".chr(34).$defvar.chr(34).")) {";
				$notdef_end = "}\n";
			}
			else
			{
				$defvar = $_POST['newdef'][$i];
			}
	
			if($_POST['newdef'][$i] == "LC_ALL" && varsettrue($_SESSION['lancheck-edit-file']))
			{
				$message .= $notdef_start.'setlocale('.htmlentities($defvar).','.$deflang.');<br />'.$notdef_end;
				$input .= $notdef_start."setlocale(".$defvar.",".$deflang.");".$notdef_end;
			}
			else
			{
				$message .= $notdef_start.$func.'('.$quote.htmlentities($defvar).$quote.',"'.$deflang.'");<br />'.$notdef_end;
				$input .= $notdef_start.$func."(".$quote.$defvar.$quote.", ".chr(34).$deflang.chr(34).");".$notdef_end;
			}
		}
	
		$message .="<br />";
		$message .="</div>";
		$input .= "\n\n?>";
			//<?
		// Write to file.
		
		$writeit = str_replace("//","/",$writeit); // Quick Fix. 
		
		$fp = @fopen($writeit,"w");
		if(!@fwrite($fp, $input))
		{
			$caption = LAN_ERROR;
			$message = LAN_CHECK_17;
		}
		else
		{
			$caption = LAN_SAVED." <b>".$lan."/".$writeit."</b>";
		}
		fclose($fp);
	
		$message .= "<form method='post' action='".e_SELF."?tools' id='select_lang'>
		<div style='text-align:center'><br />";
		$message .= "<br /><br /><input class='btn' type='submit' name='language_sel[".$lan."]' value=\"".LAN_BACK."\" />
		</div></form>";
	
		unset($_SESSION['lancheck-edit-file']);
		$ns -> tablerender($caption, $message);
	}
	
		
		
		
	function check_core_lanfiles($checklan,$subdir='')
	{
		global $lanfiles,$_POST,$sql;
	
	//	$sql->db_Mark_Time('Start Get Core Lan Phrases English');
		$English = $this->get_comp_lan_phrases(e_LANGUAGEDIR."English/".$subdir,$checklan);
		
	//	$sql->db_Mark_Time('End Get Core Lan Phrases English');
		
		$check = $this->get_comp_lan_phrases(e_LANGUAGEDIR.$checklan."/".$subdir,$checklan);
		
	//	print_a($check);
	//	return;
		$text = "";
	
		$header = "<table class='table table-striped'>
		<tr>
		<th>".LAN_CHECK_16."</th>
		<th>".$_POST['language']." ".LAN_CHECK_26."</th>
		<th>".LAN_OPTIONS."</th></tr>";
	
		$keys = array_keys($English);
	
		sort($keys);
		$er = "";
	
		foreach($keys as $k)
		{
			if($k != "bom")
			{
				$lnk = $k;
				$k_check = str_replace("English",$checklan,$k);
				if(array_key_exists($k,$check))
				{
					// $text .= "<tr><td class='forumheader3' style='width:45%'>{$lnk}</td>";
					$subkeys = array_keys($English[$k]);
	
					$er="";
					$utf_error = "";
	
					$bomkey = str_replace(".php","",$k_check);
				//	$bom_error = ($check['bom'][$bomkey]) ? "<i>".LAN_CHECK_15."</i><br />" : ""; // illegal chars
	
					if($check['bom'][$bomkey])
					{
						$bom_error = "<i>".LAN_CHECK_15."</i><br />";
						$this->checkLog('bom',1);;	
					}
					else
					{
						$bom_error = "";	
					}
	
					foreach($subkeys as $sk)
					{
						if($utf_error == "" && !$this->is_utf8($check[$k][$sk]))
						{
							$utf_error = "<i>".LAN_CHECK_19."</i><br />";
							$this->checkLog('utf',1);
						}
	
						if($sk == "LC_ALL"){
							$check[$k][$sk] = str_replace(chr(34).chr(34),"",$check[$k][$sk]);
						}
					
						$er .= $this->check_lan_errors($English[$k],$check[$k],$sk);
					}
					
					if($this->errorsOnly == TRUE && !$er && !$utf_error && !$bom_error)
					{
						continue;		
					}
						
					$text .= "<tr><td class='forumheader3' style='width:45%'>{$lnk}</td>";
					$style = ($er) ? "forumheader2" : "forumheader3";
					$text .= "<td class='{$style}' style='width:50%'><div class='smalltext'>";
					$text .= $bom_error . $utf_error;
					$text .= (!$er && !$bom_error && !$utf_error) ? "<img src='".e_IMAGE."fileinspector/integrity_pass.png' alt='".LAN_OK."' />" : $er."<br />";
					$text .= "</div></td>";
				}
				else
				{
					$this->checkLog('file',1);
					$this->newFile(e_LANGUAGEDIR.$checklan."/".$subdir.$lnk,$checklan);
					$text .= "<tr>
					<td class='forumheader3' style='width:45%'>{$lnk}</td>
					<td class='forumheader' style='width:50%'>".LAN_CHECK_4."</td>"; // file missing.
				}
				// Leave in EDIT button for all entries - to allow re-translation of bad entries.
				$subpath = ($subdir!='') ? $subdir.$k : $k;
				$text .="<td class='center' style='width:5%'>
				<input class='btn btn-primary' type='button' style='width:60px' name='but_$i' value=\"".LAN_EDIT."\" onclick=\"window.location='".e_SELF."?f=".$subpath."&amp;lan=".$_POST['language']."'\" /> ";
				$text .="</td></tr>";
			}
		}

		$footer = "</table>";
		
		if($text)
		{
			return $header.$text.$footer;	
		}
		else
		{
		 	return "<div>".LAN_OK."</div>";
		}
	}



	
	function check_lan_errors($english,$translation,$def)
	{
		$eng_line = $english[$def];
		$trans_line = $translation[$def];
		
		// return $eng_line."<br />".$trans_line."<br /><br />";
			
		$error = array();
			
		if((!array_key_exists($def,$translation) && $eng_line != "") || (trim($trans_line) == "" && $eng_line != ""))
		{
			$this->checkLog('def',1);
			return $def.": ".LAN_CHECK_5."<br />";
		}
		
		if((strpos($eng_line,"[link=")!==FALSE && strpos($trans_line,"[link=")===FALSE) || (strpos($eng_line,"[b]")!==FALSE && strpos($trans_line,"[b]")===FALSE))
		{
			$error[] = $def. ": Missing bbcodes";
		}
		elseif((strpos($eng_line,"[")!==FALSE && strpos($trans_line,"[")===FALSE) || (strpos($eng_line,"]")!==FALSE && strpos($trans_line, "]")===FALSE))
		{
			$error[] = $def. ": Missing [ and/or ] character(s)";
		}
		
		if((strpos($eng_line,"--LINK--")!==FALSE && strpos($trans_line,"--LINK--")==FALSE))
		{
			$error[] = $def. ": Missing --LINK--";
		}
		
		if((strpos($eng_line,"e107.org")!==FALSE && strpos($trans_line,"e107.org")==FALSE))
		{
			$error[] = $def. ": Missing e107.org URL";
		}
		
		if((strpos($eng_line,"e107coders.org")!==FALSE && strpos($trans_line,"e107coders.org")==FALSE))
		{
			$error[] = $def. ": Missing e107coders.org URL";
		}
		
		if(strip_tags($eng_line) != $eng_line)
		{
			$stripped = strip_tags($trans_line);
					
			if(($stripped == $trans_line))
			{					
				// echo "<br /><br />".$def. "<br />".$stripped."<br />".$trans_line;
				$error[] = $def. ": Missing HTML tags" ; 		
			}
		}
		
		$this->checkLog('def',count($error));
	
		return ($error) ? implode("<br />",$error)."<br />" : "";
		
	}
	
	
	
	
	function checkLog($type='error',$count)
	{
		$_SESSION['lancheck'][$_POST['language']][$type] += $count;
		$_SESSION['lancheck'][$_POST['language']]['total'] += $count;
	}
	
	
	
	function get_lan_file_phrases($dir1,$dir2,$file1,$file2){
	
		$ret = array();
		$fname = $dir1.$file1;
		$type='orig';
	
		if(is_file($fname))
		{
			$data = file_get_contents($fname);
			$ret= $ret + $this->fill_phrases_array($data,$type);
			if(substr($data,0,5) != "<?php")
			{
				$key = str_replace(".php","",$fname);
				$ret['bom'][$key] = $fname;
			}
		}
	
		$fname = $dir2.$file2;
		$type='tran';
	
		if(is_file($fname))
		{
			$data = file_get_contents($fname);
			$ret=$ret + $this->fill_phrases_array($data,$type);
			if(substr($data,0,5) != "<?php")
			{
				$key = str_replace(".php","",$fname);
				$ret['bom'][$key] = $fname;
			}
		}
		elseif(substr($fname,-4) == ".php") 
		{
			file_put_contents($fname,"<?php\n\n?>");
		}
		
	
		return $ret;
	}
	
	
	
	
	function get_comp_lan_phrases($comp_dir,$lang,$depth=0)
	{
		if(!is_dir($comp_dir))
		{
			return array();
		}
		
		
		require_once(e_HANDLER."file_class.php");
		$fl = new e_file;
		$ret = array();
			
		if($lang_array = $fl->get_files($comp_dir, ".php$","standard",$depth)){
			sort($lang_array);
		}
	

		$regexp = (strpos($comp_dir,e_LANGUAGEDIR) !== FALSE) ? "#.php#" : "#".$lang."#";
	
		foreach($lang_array as $f)
		{
			if(preg_match($regexp,$f['path'].$f['fname']) && is_file($f['path'].$f['fname']))
			{
				$allData = file_get_contents($f['path'].$f['fname']);
				$data = explode("\n",$allData);
				// $data = file($f['path'].$f['fname']);
				$relpath = str_replace($comp_dir,"",$f['path']);
				
				$key = str_replace(".php","",$relpath.$f['fname']);
				
				if(substr($data[0],0,5) != "<?php")
				{
					
					$ret['bom'][$key] = $f['fname'];
				}
						
				$end_of_file = 0;
							
				foreach($data as $line)
				{
					if($end_of_file == 1)
					{
						$ret['bom'][$key] = $f['fname'];
					}
											
					$line = trim($line);
					if($line == "?>")
					{
						$end_of_file = 1;  	
					}
				}
					
			
				
				if($f['path'].$f['fname'] == e_LANGUAGEDIR.$lang."/".$lang.".php")
				{
					$f['fname'] = "English.php";  // change the key for the main language file.
				}
	
				if($f['path'].$f['fname'] == e_LANGUAGEDIR.$lang."/".$lang."_custom.php")
				{
					$f['fname'] = "English_custom.php";  // change the key for the main language file.
				}
	
				$ret=$ret + $this->fill_phrases_array($allData,$relpath.$f['fname']);
	
			}
		}
	
		return $ret;
	
	}
	
	
	
	// for plugins and themes - checkes what kind of language files directory structure we have
	function check_lanfiles($mode,$comp_name,$base_lan="English",$target_lan){
		global $ns,$sql;
	
		$folder['P'] = e_PLUGIN.$comp_name;
		$folder['T'] = e_THEME.$comp_name;
		$comp_dir = $folder[$mode];
	
		$baselang 	= $this->get_comp_lan_phrases($comp_dir."/languages/","English",1);
		$check 		= $this->get_comp_lan_phrases($comp_dir."/languages/",$target_lan,1);	
	
		$text = "";
		$keys = array_keys($baselang);
		sort($keys);
	
		foreach($keys as $k)
		{
			
			if($k == 'bom')
			{
				continue;
			}
			
			$lnk = $k;
			//echo "klucz ".$k."<br />";
			$k_check = str_replace("English",$target_lan,$k);
			if(array_key_exists($k_check,$check))
			{
				
	
				$subkeys = array_keys($baselang[$k]);
				$er="";
				$utf_error = "";
	
				$bomkey = str_replace(".php","",$k_check);
				if($check['bom'][$bomkey])
				{
					$bom_error = "<i>".LAN_CHECK_15."</i><br />";
					$this->checkLog('bom',1); 
				}
				else
				{
					$bom_error = "";	
				}
			// 	$bom_error = ($check['bom'][$bomkey]) ? "<i>".LAN_CHECK_15."</i><br />" : ""; // illegal chars
			
				foreach($subkeys as $sk)
				{
					if($utf_error == "" && !$this->is_utf8($check[$k_check][$sk]))
					{
						$utf_error = "<i>".LAN_CHECK_19."</i><br />";
						$this->checkLog('utf',1);
					}
					
					/*
					if(!array_key_exists($sk,$check[$k_check]) || (trim($check[$k_check][$sk]) == "" && $baselang[$k][$sk] != ""))
					{
						$er .= ($er) ? "<br />" : "";
						$er .= $sk." ".LAN_CHECK_5;
					}
					*/
					$er .= $this->check_lan_errors($baselang[$k],$check[$k_check],$sk);
				}
	
				if($this->errorsOnly == TRUE && !$er && !$utf_error && !$bom_error)
				{
					continue;		
				}
	
				$text .= "<tr>
				<td class='forumheader3' style='width:20%'>".$comp_name."</td>
				<td class='forumheader3' style='width:25%'>".str_replace("English/","",$lnk)."</td>";
	
				$style = ($er) ? "forumheader2" : "forumheader3";
				$text .= "<td class='{$style}' style='width:50%'><div class='smalltext'>";
				$text .= $bom_error . $utf_error;
				$text .= (!$er && !$bom_error && !$utf_error) ? "<img src='".e_IMAGE."fileinspector/integrity_pass.png' alt='".LAN_OK."' />" : $er."<br />";
				$text .= "</div></td>";
			}
			else
			{
				$this->checkLog('file',1);
				$this->newFile($comp_dir."/languages/".$lnk,$target_lan);
				
				$text .= "<tr>
				<td class='forumheader3' style='width:20%'>".$comp_name."</td>
				<td class='forumheader3' style='width:25%'>".str_replace("English/","",$lnk)."</td>
				<td class='forumheader' style='width:50%'><span style='cursor:pointer' title=\"".str_replace("English",$target_lan,$lnk)."\">".LAN_CHECK_4."</span></td>";
			}
	
			$text .="<td class='forumheader3' style='width:5%;text-align:center'>
			<input class='btn btn-primary' type='button' style='width:60px' name='but_$i' value=\"".LAN_EDIT."\" onclick=\"window.location='".e_SELF."?f=".$comp_dir."/languages/".$lnk."&amp;lan=".$target_lan."&amp;mode={$mode}'\" /> ";
			$text .="</td></tr>";
		}
	
	
	
		// if (!$known) {$text = LAN_CHECK_18." : --> ".$fname." :: ".$dname;}
		return $text;
	}
	
	function newFile($lnk,$target_lan)
	{
		if($target_lan == 'English') 
		{
			return;	
		}
				
		$newfile = str_replace("English",$target_lan,$lnk);
		$dir = dirname($newfile);
				
		if($dir != '.' && !is_dir($dir))
		{
		//	echo "<br />dir: ".$dir;
			mkdir($dir,0755);	
		} 
		
		if(!file_exists($newfile))
		{
		//	echo "<br />file: ".$newfile;
			$data = chr(60)."?php\n\ndefine(\"EXAMPLE\",\"Generated Empty Language File\");";
			file_put_contents($newfile,$data);	
		}
	}
	
	
	function edit_lanfiles($dir1,$dir2,$f1,$f2,$lan)
	{
		if($lan == '')
		{
			echo "Language selection was lost. ";
			return;
		}
		
		$ns = e107::getRender();
		$sql = e107::getDb();

	
		/*    echo "<br />dir1 = $dir1";
		echo "<br />file1 = $f1";
	
		echo "<br />dir2 = $dir2";
		echo "<br />file2 = $f2";*/
		
	
	
		if($dir2.$f2 == e_LANGUAGEDIR.$lan."/English.php") // it's a language config file.
		{
			$f2 = $lan.".php";
			$root_file = e_LANGUAGEDIR.$lan."/".$lan.".php";
		}
		else
		{
			$root_file = $dir2.$f2;
		}
	
		if($dir2.$f2 == e_LANGUAGEDIR.$lan."/English_custom.php") // it's a language config file.
		{
			$f2 = $lan."_custom.php";
			$root_file = e_LANGUAGEDIR.$lan."/".$lan."_custom.php";
		}
	
	
		$writable = (is_writable($dir2)) ? TRUE : FALSE;
		$trans = $this->get_lan_file_phrases($dir1,$dir2,$f1,$f2);
		$keys = array_keys($trans);
		sort($keys);
	
		$text = "<div style='text-align:center'>
		<form method='post' action='".e_SELF."?".e_QUERY."' id='transform'>
		<table class='table table-striped'>
		<thead>
		<tr>
			<th>LAN</th>
			<th>English</th>
			<th>".$lan."</th>
		</tr>";
	
		$subkeys = array_keys($trans['orig']);
		foreach($subkeys as $sk)
		{
			$rowamount = round(strlen($trans['orig'][$sk])/34)+1;
			$hglt1=""; $hglt2="";
			if ($trans['tran'][$sk] == "" && $trans['orig'][$sk]!="") {
				$hglt1="<span style='font-style:italic;font-weight:bold;color:red'>";
				$hglt2="</span>";
			}
			$text .="<tr>
			<td style='width:10%;vertical-align:top'>".$hglt1.htmlentities($sk).$hglt2."</td>
			<td style='width:40%;vertical-align:top'>".htmlentities(str_replace("ndef++","",$trans['orig'][$sk])) ."</td>";
			$text .= "<td class='forumheader3' style='width:50%;vertical-align:top'>";
			$text .= ($writable) ? "<textarea  class='input-xxlarge' name='newlang[]' rows='$rowamount' cols='45' style='height:100%'>" : "";
			$text .= str_replace("ndef++","",$trans['tran'][$sk]);
			$text .= ($writable) ? "</textarea>" : "";
			//echo "orig --> ".$trans['orig'][$sk]."<br />";
			if (strpos($trans['orig'][$sk],"ndef++") !== False)
			{
				//echo "+orig --> ".$trans['orig'][$sk]." <> ".strpos($trans['orig'][$sk],"ndef++")."<br />";
				$text .= "<input type='hidden' name='newdef[]' value='ndef++".$sk."' />";
			}
			else
			{
				$text .= "<input type='hidden' name='newdef[]' value='".$sk."' />";
			}
			$text .="</td></tr>";
		}
	
		unset($_SESSION['lancheck-edit-file']);
	
		//Check if directory is writable
		
		$text .= "</table>";
		
		if($writable)
		{
			$text .="<div class='buttons-bar center'>
			<input type='hidden' name='lan' value='{$lan}' />
			<input class='btn btn-primary' type='submit' name='submit' value=\"".LAN_SAVE." ".str_replace($dir2,"",$root_file)." \" />
			</div>";
	
			if($root_file)
			{			
				$_SESSION['lancheck-edit-file'] = $root_file;
			}
	
			
		}
	
		$text .= "
		
		</form>
		</div>";
	
		$text .= "<form method='post' action='".e_SELF."?tools' id='select_lang'>
		<div style='text-align:center'><br />";
		$text .= (!$writable) ? "<br />".$dir2.$f2.LAN_NOTWRITABLE : "";
		$text .= "<br /><br /><input class='btn' type='submit' name='language_sel[{$lan}]' value=\"".LAN_BACK."\" />
		</div></form>";
	
	
		$caption = LANG_LAN_21.SEP.$lan.SEP.LAN_CHECK_2.SEP.LAN_EDIT.SEP.str_replace("../","",$dir2.$f2);
		
		$ns->tablerender($caption, $text);

	
	}
	
	
	
	function fill_phrases_array($data,$type)
	{	
		$retloc = array();
		
		if(preg_match_all('/(\/\*[\s\S]*?\*\/)/i',$data, $multiComment))
		{
			$data = str_replace($multiComment[1],'',$data);	// strip multi-line comments. 	
		}
					
		if(preg_match('/^\s*?setlocale\s*?\(\s*?([\w]+)\s*?,\s*?(.+)\s*?\)\s*?;/im',$data,$locale)) // check for setlocale();
		{
			$retloc[$type][$locale[1]]= $locale[2];	
		}
				
		if(preg_match_all('/^\s*?define\s*?\(\s*?(\'|\")([\w]+)(\'|\")\s*?,\s*?(\'|\")([\s\S]*?)\s*?(\'|\")\s*?\)\s*?;/im',$data,$matches))
		{
			$def = $matches[2];
			$values = $matches[5];	
	
			foreach($def as $k=>$d)
			{
				$retloc[$type][$d]= $values[$k];
			}	
		}
			
		return $retloc;
		
		/*
		echo "<h2>Raw Data ".$type."</h2><pre>";
		echo htmlentities($data);
		echo "</pre>";	
	
		*/
			
	}
	
	
	
	//--------------------------------------------------------------------
	
	
	function is_utf8($str) {
		/*
		* @see http://hsivonen.iki.fi/php-utf8/   validation.php
		*/
		if(strtolower(CHARSET) != "utf-8" || $str == "")
		{
			return TRUE;
		}
	
		return (preg_match('/^.{1}/us',$str,$ar) == 1);
	}
	
	
}











/*

class lancheck_old
{
	var $error_count=0;
	
	function check_core_lanfiles($checklan,$subdir=''){
		$frm = e107::getForm();
		
		$English = $this->get_comp_lan_phrases(e_LANGUAGEDIR."English/".$subdir,$checklan);
		$check = $this->get_comp_lan_phrases(e_LANGUAGEDIR.$checklan."/".$subdir,$checklan);
		$legend_txt = LAN_CHECK_3.": ".$_POST['language']."/".$subdir;
		$fieldset_id = $subdir ? str_replace('/', '', $_POST['language'])."-".str_replace('/', '', $subdir) : str_replace('/', '', $_POST['language']);
		$text .= "
			<fieldset id='core-lancheck-{$fieldset_id}'>
				<legend>{$legend_txt}</legend>
				<table class='table adminlist'>
					<colgroup>
						<col style='width: 50%' />
						<col style='width: 40%' />
						<col style='width: 10%' />
					</colgroup>
					<thead>
						<tr>
							<th>".LAN_CHECK_16."</th>
							<th>".$_POST['language'].' '.LAN_CHECK_20."</th>
							<th class='center last'>".LAN_OPTIONS."</th>
						</tr>
					</thead>
					<tbody>
		";
	
		$keys = array_keys($English);
	
		sort($keys);
	
		$i = 0;
		foreach($keys as $k)
		{
			if($k != "bom")
			{
				$lnk = $k;
				$k_check = str_replace("English",$checklan,$k);
				$text .= "
						<tr>
				";
				
				if(array_key_exists($k,$check))
				{
					$text .= "
							<td>{$lnk}</td>
					";
					$subkeys = array_keys($English[$k]);
	
					$er="";
					$utf_error = "";
	
					$bomkey = str_replace(".php","",$k_check);
					$bom_error = ($check['bom'][$bomkey]) ? "<span class='error'><em>".str_replace("[php]", "<?php", LAN_CHECK_15)."</em></span><br />" : ""; // illegal chars
	
					foreach($subkeys as $sk)
					{
						if($utf_error == "" && !$this->is_utf8($check[$k][$sk]))
						{
							$utf_error = "<span class='error'><em>".LAN_CHECK_19."</em></span><br />";
						}
	
						if($sk == "LC_ALL"){
							$check[$k][$sk] = str_replace(chr(34).chr(34),"",$check[$k][$sk]);
						}
	
						if((!array_key_exists($sk,$check[$k]) && $English[$k][$sk] != "") || (trim($check[$k][$sk]) == "" && $English[$k][$sk] != ""))
						{
	
							$er .= ($er) ? "<br />" : "";
							$er .= $sk." ".LAN_CHECK_5;
							$this->error_count++;
						}
					}
	
					$style = ($er) ? "warning" : "success";
					$text .= "
							<td class='{$style}' style='width:50%'>
								<div class='smalltext'>
					";
					$text .= $bom_error . $utf_error;
					if(!$er && !$bom_error && !$utf_error)
					{
						$text .= LAN_OK;
					}
					else
					{
						$text .= $er."<br />";
						$this->error_count++;
					}
					$text .= "
								</div>
							</td>
					";
				}
				else
				{
				// file missing
					$text .= "
							<td>{$lnk}</td>
							<td><span class='error'>".LAN_CHECK_4."</span></td>
					";
					$this->error_count++;
				}
				
				// Leave in EDIT button for all entries - to allow re-translation of bad entries.
				$subpath = ($subdir!='') ? $subdir.$k : $k;
				$text .= "
							<td class='center'>
								".$frm->admin_button('but-corelan-'.str_replace(array('/', '\\'), '-', $subdir).$i, LAN_EDIT, 'edit', '', array('other' => "onclick=\"window.location='".e_SELF."?".$subpath."|".$_POST['language']."'\""))."
				";
				$text .= "
							</td>
						</tr>
				";
			}
			$i++;
		}
		$text .= "
					</tbody>
				</table>
			</fieldset>
		";
		
		return $text;
	}
	
	
	function get_lan_file_phrases($dir1,$dir2,$file1,$file2){
	
		$ret = array();
		$fname = $dir1.$file1;
		$type='orig';
	
		if(is_file($fname))
		{
			$data = file($fname);
			$ret=$ret + $this->fill_phrases_array($data,$type);
			if(substr($data[0],0,5) != "<?php")
			{
				$key = str_replace(".php","",$fname);
				$ret['bom'][$key] = $fname;
			}
		}
	
		$fname = $dir2.$file2;
		$type='tran';
	
		if(is_file($fname))
		{
			$data = file($fname);
			$ret=$ret + $this->fill_phrases_array($data,$type);
			if(substr($data[0],0,5) != "<?php")
			{
				$key = str_replace(".php","",$fname);
				$ret['bom'][$key] = $fname;
			}
		}
		return $ret;
	}
	
	
	function get_comp_lan_phrases($comp_dir,$lang,$depth=0)
	{
		$fl = e107::getFile();

		$ret = array();
	
		if($lang_array = $fl->get_files($comp_dir, '\.php','standard',$depth)){
			sort($lang_array);
		}
	
		$regexp = (strpos($comp_dir,e_LANGUAGEDIR) !== FALSE) ? "#.php#" : "#".$lang."#";
	
		foreach($lang_array as $f)
		{
			if(preg_match($regexp,$f['path'].$f['fname']))
			{
				
				$data = file($f['path'].$f['fname']);
				$relpath = str_replace($comp_dir,"",$f['path']);
				if(substr($data[0],0,5) != "<?php")
				{
					$key = str_replace(".php","",$relpath.$f['fname']);
					$ret['bom'][$key] = $f['fname'];
				}
				if($f['path'].$f['fname'] == e_LANGUAGEDIR.$lang."/".$lang.".php")
				{
					$f['fname'] = "English.php";  // change the key for the main language file.
				}
	
				if($f['path'].$f['fname'] == e_LANGUAGEDIR.$lang."/".$lang."_custom.php")
				{
					$f['fname'] = "English_custom.php";  // change the key for the main language file.
				}
	
				$ret=$ret + $this->fill_phrases_array($data,$relpath.$f['fname']);
	
			}
		}
	
		return $ret;
	
	}
	
	// for plugins and themes - checks what kind of language files directory structure we have
	function check_lanfiles($mode, $comp_name, $base_lan="English", $target_lan)
	{
		$frm = e107::getForm();
		
		$folder['P'] = e_PLUGIN.$comp_name;
		$folder['T'] = e_THEME.$comp_name;
		$comp_dir = $folder[$mode];
	
		$baselang = $this->get_comp_lan_phrases($comp_dir."/languages/","English",1);
		$check = $this->get_comp_lan_phrases($comp_dir."/languages/",$target_lan,1);
	
		$text = "";
		$keys = array_keys($baselang);
		sort($keys);
	
		$i = 0;
		foreach($keys as $k)
		{
			$lnk = $k;
			//echo "klucz ".$k."<br />";
			$k_check = str_replace("English",$target_lan,$k);
			$text .= "
				<tr>
			";
			if(array_key_exists($k_check,$check))
			{
				$text .= "
						<td>".$comp_name."</td>
						<td>".str_replace("English/","",$lnk)."</td>
				";
	
				$subkeys = array_keys($baselang[$k]);
				$er = "";
				$utf_error = "";
	
				$bomkey = str_replace(".php","",$k_check);
				$bom_error = ($check['bom'][$bomkey]) ? "<span class='error'><em>".LAN_CHECK_15."</em></span><br />" : ""; // illegal chars
	
				foreach($subkeys as $sk)
				{
					if($utf_error == "" && !$this->is_utf8($check[$k_check][$sk]))
					{
						$utf_error = "<span class='error'><em>".LAN_CHECK_19."</em></span><br />";
					}
	
					if(!array_key_exists($sk,$check[$k_check]) || (trim($check[$k_check][$sk]) == "" && $baselang[$k][$sk] != ""))
					{
						$er .= ($er) ? "<br />" : "";
						$er .= $sk." ".LAN_CHECK_5;
						$this->error_count++;
					}
				}
	
				$style = ($er) ? "warning" : "success";
				$text .= "
					<td class='{$style}' style='width:50%'>
						<div class='smalltext'>
				";
				$text .= $bom_error . $utf_error;
				$text .= (!$er && !$bom_error && !$utf_error) ? LAN_OK : $er."<br />";
				$text .= "
						</div>
					</td>
				";
			}
			else
			{
				$text .= "
					<td>".$comp_name."</td>
					<td>".str_replace("English/","",$lnk)."</td>
					<td><span class='error' style='cursor:pointer' title='".str_replace("English",$target_lan,$lnk)."'>".LAN_CHECK_4."</span></td>
				";
				$this->error_count++;
			}
	
			$text .="
					<td class='center'>
						".$frm->admin_button('but-corelan-'.str_replace(array('/', '\\'), '-', $comp_dir).$i, LAN_EDIT, 'edit', '', array('other'=> "onclick=\"window.location='".e_SELF."?".$comp_dir."/languages/".$lnk."|".$target_lan."|file'\""))."
			";
			$text .="
					</td>
				</tr>
			";
			$i++;
		}
	
		return $text;
	}
	
	function edit_lanfiles($dir1,$dir2,$f1,$f2){
		global $e107, $lan;
		$mes = e107::getMessage();
		$ns = e107::getRender();
	
		//   echo "<br />dir1 = $dir1";
		//echo "<br />file1 = $f1";
	
		//echo "<br />dir2 = $dir2";
		//echo "<br />file2 = $f2";
	
		if($dir2.$f2 == e_LANGUAGEDIR.$lan."/English.php") // it's a language config file.
		{
			$f2 = $lan.".php";
			$root_file = e_LANGUAGEDIR.$lan."/".$lan.".php";
		}
		else
		{
			$root_file = $dir2.$f2;
		}
	
		if($dir2.$f2 == e_LANGUAGEDIR.$lan."/English_custom.php") // it's a language config file.
		{
			$f2 = $lan."_custom.php";
			$root_file = e_LANGUAGEDIR.$lan."/".$lan."_custom.php";
		}
	
	
		$writable = (is_writable($dir2)) ? TRUE : FALSE;
		$trans = $this->get_lan_file_phrases($dir1,$dir2,$f1,$f2);
		$keys = array_keys($trans);
		sort($keys);
	
		$text = "
			<form method='post' action='".e_SELF."?".e_QUERY."' id='transform'>
				<fieldset id='core-lancheck-edit'>
					<legend>".LAN_CHECK_3." ".str_replace(array(e_PLUGIN, e_LANGUAGEDIR), array(e_PLUGIN_ABS, e_LANGUAGEDIR_ABS), $dir2)."{$f2} -&gt; {$lan}</legend>
					<table class='table table-striped'>
						<colgroup>
							<col style='width: 20%' />
							<col style='width: 40%' />
							<col style='width: 40%' />
						</colgroup>
						<thead>
							<tr>
								<th>&nbsp;</th>
								<th>".LAN_CHECK_16."</th>
								<th class='last'>Translate to ".$lan."</th>
							</tr>
						</thead>
						<tbody>
		";
	
		$subkeys = array_keys($trans['orig']);
		foreach($subkeys as $sk)
		{
			$rowamount = round(strlen($trans['orig'][$sk])/34)+1;
			$hglt1=""; $hglt2="";
			if ($trans['tran'][$sk] == "" && $trans['orig'][$sk]!="") {
				$hglt1="<span class='error'>";
				$hglt2="</span>";
			}
			$text .= "
							<tr>
								<td>".$hglt1.htmlentities($sk).$hglt2."</td>
								<td>".htmlentities(str_replace("ndef++", "", $trans['orig'][$sk])) ."</td>
								<td>
									".(($writable) ? "<textarea  class='input-xxlarge' name='newlang[]' rows='{$rowamount}' cols='45'>" : "")
									.str_replace("ndef++","",$trans['tran'][$sk])
									.(($writable) ? "</textarea>" : "")."
			";
			//echo "orig --> ".$trans['orig'][$sk]."<br />";
			if (strpos($trans['orig'][$sk],"ndef++") !== False)
			{
				//echo "+orig --> ".$trans['orig'][$sk]." <> ".strpos($trans['orig'][$sk],"ndef++")."<br />";
				$text .= "
									<input type='hidden' name='newdef[]' value='ndef++".$sk."' />
				";
			}
			else
			{
				$text .= "
									<input type='hidden' name='newdef[]' value='".$sk."' />
				";
			}
			$text .="
								</td>
							</tr>
			";
		}
		$text .= "
						</tbody>
					</table>
		";
		//Check if directory is writable
		if($writable)
		{
			//FIXME  place of LAN_SAVE
			$text .="
					<div class='buttons-bar center'>
						<button class='update btn btn-success' type='submit' name='submit' value='sprintXXf'><span>".LAN_SAVE." ".str_replace($dir2, "", $root_file)."</span></button>
						".(($root_file) ? "<input type='hidden' name='root' value='".$root_file."' />" : "")."
					</div>
			";
		}
	
		$text .= "
				</fieldset>
			</form>
		";
	
		$text .= "
			<form method='post' action='".e_SELF."' id='select_lang'>
				<div style='text-align:center'>
					".((!$writable) ? $dir2.$f2.LAN_NOTWRITABLE : "")."
					<br />
					<button class='submit btn' type='submit' name='language_sel' value='no-value'><span>".LAN_BACK."</span></button>
					<input type='hidden' name='language' value='$lan' />
				</div>
			</form>
		";
	
		$ns->tablerender(LAN_CHECK_PAGE_TITLE.' - '.LAN_CHECK_24, $text);
		require_once(e_ADMIN."footer.php");
		exit;
	
	}
	
	function fill_phrases_array($data,$type) {
	
		$retloc = array();
	
		foreach($data as $line){
			//echo "line--> ".$line."<br />";
			if (strpos($line,"define(") !== FALSE && strpos($line,");") === FALSE)
			{
				$indef=1;
				$bigline="";
				// echo "big1 -->".$line."<br />";
			}
			if ($indef)
			{
				$bigline.=str_replace("\n","",$line);
				// echo "big2 -->".$line."<br />";
			}
			if (strpos($line,"define(") === FALSE && strpos($line,");") !== FALSE)
			{
				$indef=0;
				$we_have_bigline=1;
				// echo "big3 -->".$line."<br />";
			}
	
			if(strpos($line,"setlocale(") !== FALSE)
			{
				$indef=1;
				$we_have_bigline=0;
			}
	
			if ((strpos($line,"define(") !== FALSE && strpos($line,");") !== FALSE && substr(ltrim($line),0,2) != "//") || $we_have_bigline || strpos($line,"setlocale(") !== FALSE)
			{
	
				if ($we_have_bigline)
				{
					$we_have_bigline=0;
					$line=$bigline;
					// echo "big -->".$line."<br />";
				}
				$ndef = "";
				//echo "_ndefline -->".$line."<br />";
				if (strpos($line,"defined(") !== FALSE )
				{
					$ndef = "ndef++";
					$line = substr($line,strpos($line,"define("));
				}
	
				if(strpos($line,"setlocale(") !== FALSE)
				{
					$pos = substr(strstr($line,","),1);
					$rep = array(");","\n",'""');
					$val = str_replace($rep,"",$pos);
					$retloc[$type]['LC_ALL']= $val;
	//				$retloc['orig']['LC_ALL']= "'en'";
				}
				else
				{
	
					//echo "ndefline: ".$line."<br />";
					if(preg_match("#\"(.*?)\".*?\"(.*)\"#",$line,$matches) ||
					preg_match("#\'(.*?)\'.*?\"(.*)\"#",$line,$matches) ||
					preg_match("#\"(.*?)\".*?\'(.*)\'#",$line,$matches) ||
					preg_match("#\'(.*?)\'.*?\'(.*)\'#",$line,$matches) ||
					preg_match("#\((.*?)\,.*?\"(.*)\"#",$line,$matches) ||
					preg_match("#\((.*?)\,.*?\'(.*)\'#",$line,$matches))
					{
						//echo "get_lan -->".$matches[1]." :: ".$ndef.$matches[2]."<br />";
						if(!isset($retloc[$type][$matches[1]]))
						{
							$retloc[$type][$matches[1]]= $ndef.$matches[2];
						}
					}
				}
			}
		}
	
		return $retloc;
	}
	
	//--------------------------------------------------------------------
	
	
	function is_utf8($str) {
		// @see http://hsivonen.iki.fi/php-utf8/   validation.php
	
	//@TODO: always TRUE
	//	if(strtolower(CHARSET) != "utf-8" || $str == "")
		{
			return TRUE;
		}
	
		return (preg_match('/^.{1}/us',$str,$ar) == 1);
	}
	
}

*/
/*
function lancheck_adminmenu() 
{

	include_lan(e_LANGUAGEDIR.e_LANGUAGE."/admin/lan_language.php");

	global $action;
	$pref = e107::getPref();
	
	if ($action == "") {
		$action = "tools";
	}

	if($action == "modify")
	{
		$action = "db";
	}
	$var['main']['text'] = LAN_PREFS;
	$var['main']['link'] = e_ADMIN_ABS."language.php";

	if(isset($pref['multilanguage']) && $pref['multilanguage']){
		$var['db']['text'] = LANG_LAN_03;
		$var['db']['link'] = e_ADMIN_ABS."language.php?db";
	}

	$var['tools']['text'] = ADLAN_CL_6;
	$var['tools']['link'] = e_ADMIN_ABS."language.php?tools";


	e107::getNav()->admin(ADLAN_132, $action, $var);
}

	$ns->tablerender(LAN_CHECK_PAGE_TITLE.' - '.LAN_CHECK_1, LAN_CHECK_26);
	require_once(e_ADMIN."footer.php");
*/