<?php

// looks for lang::r() calls and adds them to the system
// $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()));

foreach ($listing AS $filename)
{
	$file = file_get_contents($filename);
	
	preg_match_all("#lang::r\('(.*?)'\)#", $file, $matches);
	foreach ($matches[0] AS $matchid => $match)
	{
		lang::r($matches[1]["$matchid"]);
	}
}

?>