#
#
#
# compare_lang.cfv
# This checks for missing and out of date language nodes between
# the English language module and the language defined in
# "language_to_compare". Edit "language_to_compare" to define
# a different language.
#

include "templates.util.compare_node_existence";

subroutine(compare_lang, (

	subroutine(get_lang_node_from_file(
		string language,
		string language_file), (
		
		string file_path = LOGANALYSISINFO_DIRECTORY . "language/" . language . "/" . language_file . ".cfg";
		string s = read_file(file_path);
		node n = string_to_node(s);
		n;
	));

	debug_message("### compare_lang() \n");

	#
	#
	# Define language which you want to compare to english language module
	#
	#
	
	string language_to_compare = "russian";
	node a;
	node b;


	'<h1>Compare English/' . capitalize(language_to_compare) . ' language module nodes</h1>';

	"<p>";
	"This shows missing and out of date language module nodes.<br />";
	"A dash in the left column indicates that the node in the " . capitalize(language_to_compare) . " module is out of date and can be deleted.<br />";
	"A dash in the right column indicates that the node exists in the English language module but is missing in the " . capitalize(language_to_compare) . " module.";
	"</p>";

	"<p>";
	"<em>Edit templates.dev_pages.compare_lang.cfv to define a different language for comparison.</em>";
	"</p>";

	
	'<h2>lang_stats</h2>';
	a = get_lang_node_from_file("english", "lang_stats");
	b = get_lang_node_from_file(language_to_compare, "lang_stats");
	compare_node_existence(a, b);


	'<h2>lang_admin</h2>';
	a = get_lang_node_from_file("english", "lang_admin");
	b = get_lang_node_from_file(language_to_compare, "lang_admin");
	compare_node_existence(a, b);


	'<h2>lang_messages</h2>';
	a = get_lang_node_from_file("english", "lang_messages");
	b = get_lang_node_from_file(language_to_compare, "lang_messages");
	compare_node_existence(a, b);


	'<h2>lang_options</h2>';
	a = get_lang_node_from_file("english", "lang_options");
	b = get_lang_node_from_file(language_to_compare, "lang_options");
	compare_node_existence(a, b);

));