<?php

// replaces lang::r() with lang::p() calls
// $Id$

chdir('./../');
require_once('./global.php');

function fetch_listing($path, $basepath = '', $unset = 1)
{
	static $filelist;
	
	if ($unset)
	{
		$filelist = array();
	}
	
	if (substr($path, (strlen($path) - 1), 1) != '/')
	{
		$path .= '/';
	}
	
	if ($handle = opendir($path))
	{
		while (($file = readdir($handle)) !== false)
		{
			if (substr($file, 0, 1) != '.' AND $file != 'CVS')
			{
				if (is_dir($path . $file))
				{
					$filelist["$basepath"][] = "$file/";
					fetch_listing("$path$file", "$basepath$file/", 0);
				}
				else
				{
					$filelist["$basepath"][] = $file;
				}
			}
		}
		closedir($handle);
	}
	return $filelist;
}

function fetch_flat_listing($filelist)
{
	foreach ($filelist AS $basepath => $files)
	{
		foreach ($files AS $file)
		{
			if (preg_match('#\.php$#', $file))
			{
				$flatlist[] = "./$basepath$file";
			}
		}
	}
	return $flatlist;
}

// ###################################################################
// ###################################################################

$listing = fetch_flat_listing(fetch_listing(getcwd()));

$phrases = $db->query("SELECT * FROM phrase WHERE md5");
while ($phrase = $db->fetch_array($phrases))
{
	$replace["$phrase[md5]"] = $phrase['varname'];
}

foreach ($listing AS $filename)
{
	$file = file_get_contents($filename);
	
	preg_match_all("#lang::r\('(.*?)'\)#", $file, $matches);
	foreach ($matches[0] AS $matchid => $match)
	{
		$mdstring = md5($matches[1]["$matchid"]);
		if ($replace["$mdstring"])
		{
			$file = str_replace($match, 'lang::p(\'' . $replace["$mdstring"] . '\')', $file);
		}
	}
	
	if ($h = fopen($filename, 'w'))
	{
		fwrite($h, $file);
	}
	fclose($h);
}

?>