From 8340e4da0e77b22e88aabee7f5500cc34cd16477 Mon Sep 17 00:00:00 2001
From: Robert Sesek <rsesek@bluestatic.org>
Date: Thu, 25 Aug 2005 04:14:08 +0000
Subject: [PATCH] r379: Adding language registry replacer

---
 docs/lang_registry_replacer.php | 92 +++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100755 docs/lang_registry_replacer.php

diff --git a/docs/lang_registry_replacer.php b/docs/lang_registry_replacer.php
new file mode 100755
index 0000000..74ca060
--- /dev/null
+++ b/docs/lang_registry_replacer.php
@@ -0,0 +1,92 @@
+<?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);
+}
+
+?>
\ No newline at end of file
-- 
2.22.5