2006-05-12 snapshot

git-svn-id: svn://192.168.202.10@7 3d104415-ff17-0410-8863-d5cf3c621b8a
2006-07-07 15:21:52 +00:00
parent 2598ae9ec2
commit 487f7108d4
74 changed files with 10930 additions and 1055 deletions
@@ -17,8 +17,8 @@ $home =		'/home/cron';
 $agibin =	'/var/lib/asterisk/agi-bin';

 # path to web root directory: (assumes it already exists)
-#$webroot =	'/home/www/htdocs';
-$webroot =	'/usr/local/apache2/htdocs';
+$webroot =	'/home/www/htdocs';
+#$webroot =	'/usr/local/apache2/htdocs';

 # path to asterisk sounds directory: (assumes it already exists)
 $sounds =	'/var/lib/asterisk/sounds';
@@ -34,8 +34,8 @@ $secX = time();
 $DB=1;  # Debug flag, set to 0 for no debug messages, lots of output
 $US='_';
 $MT[0]='';
-$LANG_FILE='./languages.txt';
-$LANG_FILE_ADMIN='./languages_admin.txt';
+$language_admin_file = 'language_admin.txt';
+$language_file = 'language.txt';

 ### begin parsing run-time options ###
 if (length($ARGV[0])>1)
@@ -49,7 +49,7 @@ if (length($ARGV[0])>1)

 	if ($args =~ /--help/i)
 	{
-	print "allowed run time options:\n  [-t] = test\n  [-debug] = verbose debug messages\n[--language-web-build] = build only the multi-language client files\n\n";
+	print "allowed run time options:\n  [-t] = test\n  [-debug] = verbose debug messages\n[--admin-only] = only translate admin pages\n[--client-only] = only translate client pages\n[--without-en] = only translate non-english\n[--language=] = which language to build, 2 letter code, defaults to es-spanish\n\n";

 	exit;
 	}
@@ -59,11 +59,33 @@ if (length($ARGV[0])>1)
 		{
 		$DB=1; # Debug flag
 		}
-		if ($args =~ /--language-web-build/i)
+		if ($args =~ /--language/i)
 		{
 		$LANG=1;
 		print "\n----- LANGUAGE WEB SCRIPT ONLY BUILD -----\n\n";
 		}
+		if ($args =~ /--language=/i)
+		{
+		@data_in = split(/--language=/,$args);
+			$CLIlanguage = $data_in[1];
+		}
+		else
+			{$CLIlanguage = 'es';}	# default to build all languages
+		if ($args =~ /-admin-only/i)
+		{
+		$admin_only=1; # Admin flag
+		print "\n----- ADMIN PAGES ONLY BUILD -----\n\n";
+		}
+		if ($args =~ /-client-only/i)
+		{
+		$client_only=1; # Client flag
+		print "\n----- CLIENT PAGES ONLY BUILD -----\n\n";
+		}
+		if ($args =~ /-without-en/i)
+		{
+		print "\n----- NON-ENGLISH ONLY BUILD -----\n\n";
+		$without_en=1;
+		}
 		if ($args =~ /-t/i)
 		{
 		$TEST=1;
@@ -80,21 +102,33 @@ else

 if ($LANG)
 {
-open(lang, "$LANG_FILE_ADMIN") || die "can't open $LANG_FILE_ADMIN: $!\n";
-@lang = <lang>;
-close(lang);
-	&translate_pages;
+if ( (!$admin_only) && (!$client_only) )
+	{$admin_only=1; $client_only=1;}
+
+if ($admin_only==1) 
+	{
+	print "\n----- LANGUAGE BUILD: $CLIlanguage -----\n\n";
+	$LANG_FILE_ADMIN = "./translations/$CLIlanguage$US$language_admin_file";
+	open(lang, "$LANG_FILE_ADMIN") || die "can't open $LANG_FILE_ADMIN: $!\n";
+	@lang = <lang>;
+	close(lang);
+		&translate_pages;
+	}

@lang=@MT;
@LANGUAGES=@MT;
@FILES=@MT;
@TRANSLATIONS=@MT;
+@TRANSLATIONS_RAW=@MT;

-open(lang, "$LANG_FILE") || die "can't open $LANG_FILE: $!\n";
-@lang = <lang>;
-close(lang);
-	&translate_pages;
-
+if ($client_only==1) 
+	{
+	$LANG_FILE = "./translations/$CLIlanguage$US$language_file";
+	open(lang, "$LANG_FILE") || die "can't open $LANG_FILE: $!\n";
+	@lang = <lang>;
+	close(lang);
+		&translate_pages;
+	}
 }

 else
@@ -178,7 +212,7 @@ print "Copying agi-bin scripts...\n";
 `cp -f ./call_log.agi $agibin/`;
 `cp -f ./call_logCID.agi $agibin/`;
 `cp -f ./call_park.agi $agibin/`;
-`cp -f ./call_park_CID.agi $agibin/`;
+`cp -f ./park_CID.agi $agibin/`;
 `cp -f ./call_park_EXT.agi $agibin/`;
 `cp -f ./call_park_I.agi $agibin/`;
 `cp -f ./call_park_L.agi $agibin/`;
@@ -204,7 +238,7 @@ print "Copying VICIDIALweb php files...\n";
 `cp -f ./VICIDIAL_web/* $webroot/vicidial/`;

 print "setting VICIDIALweb scripts to executable...\n";
-`chmod 0755 -R $webroot/vicidial/`;
+`chmod -R 0755 $webroot/vicidial/`;
 `chmod 0777 $webroot/vicidial/`;
 `chmod 0777 $webroot/vicidial/ploticus/`;

@@ -215,7 +249,7 @@ print "Copying agc php files...\n";
 `cp -R -f ./agc/* $webroot/agc/`;

 print "setting agc scripts to executable...\n";
-`chmod 0755 -R $webroot/agc/`;
+`chmod -R 0755 $webroot/agc/`;
 `chmod 0777 $webroot/agc/`;

 print "Creating astguiclient web directory...\n";
@@ -225,7 +259,7 @@ print "Copying astguiclient web php files...\n";
 `cp -f ./astguiclient_web/* $webroot/astguiclient/`;

 print "setting astguiclient web scripts to executable...\n";
-`chmod 0755 -R $webroot/astguiclient/`;
+`chmod -R 0755 $webroot/astguiclient/`;
 `chmod 0777 $webroot/astguiclient/`;

 }
@@ -244,13 +278,13 @@ exit;
 sub translate_pages
 {
 #***LANGUAGES***
-#en-English|es-Espaol|fr|de|it|
+#en-English|es-Espaol|
 #***FILES***
 #agc/astguiclient.php
 #agc/vicidial.php
 #***TRANSLATIONS***
-#English|Ingls|Anglais|Englisch|Inglese|
-#Spanish|Espaol||||
+#English|Ingls|
+#Spanish|Espaol|

 ##### PARSE THE LANGUAGES SETTING FILE #####
 $section='';
@@ -286,7 +320,11 @@ foreach(@lang)
 					if ($section =~ /TRANSLATIONS/)
 						{
 					#	print "section: $section    line: $lang[$i]";
-						$TRANSLATIONS[$Tct] = $lang[$i];
+						@TRANSlineX = split(/\|/, $lang[$i]);
+						$ORIGtextX = "$TRANSlineX[0]";
+						$lengthX = length($ORIGtextX);
+						$lengthX = sprintf("%04d",$lengthX);
+						$TRANSLATIONS_RAW[$Tct] = "$lengthX|$lang[$i]";
 						$Tct++;
 						}
 					}
@@ -304,7 +342,18 @@ if ($DB)
 	print "TRANSLATIONS: $Tct\n";
 	}

-##### LOOP THROUGH THE LANGUAGES    && ($lang_list[$i] !~ /^en/) )
+#@TRANSLATIONS = sort { length($b) <=> length($a) } @TRANSLATIONS_RAW;
+@TRANSLATIONS = sort { $b <=> $a } @TRANSLATIONS_RAW;
+
+#$k=0;
+#foreach(@TRANSLATIONS)
+#	{
+#	$length = length($TRANSLATIONS[$k]);
+#	print "$TRANSLATIONS[$k]|$length|\n";  
+#	$k++;
+#	}
+
+##### LOOP THROUGH THE LANGUAGES
@lang_list = split(/\|/, $LANGUAGES);
@lang_link_list = @lang_list;
 $i=0;
@@ -317,74 +366,59 @@ foreach(@lang_list)
 		$lang_abb = $lang_detail[0];
 		$lang_name = $lang_detail[1];

-		##### LOOP THROUGH THE FILES
-		$Fct=0;
-		foreach(@FILES)
+		if ( ($without_en==1) && ($lang_abb =~ /en/) )
 			{
-			$a=0;
-			@file_detail  = split(/\|/, $FILES[$Fct]);
-			$file_path = $file_detail[0];
-			$file_name = $file_detail[1];
-			$file_name =~ s/\t|\r|\n//gi;
-			$file_passthru = $file_detail[2];
-			$file_passthru =~ s/\t|\r|\n//gi;
-			if (-e "$webroot/$file_path/$file_name")
+			print "SKIPPING ENGLISH COPYING: $lang_abb|$i\n\n";
+			}
+		else
+			{
+			##### LOOP THROUGH THE FILES
+			$Fct=0;
+			foreach(@FILES)
 				{
-				open(file, "$webroot/$file_path/$file_name") || die "can't open $webroot/$file_path/$file_name: $!\n";
-				@file = @MT;
-				@file = <file>;
-				close(file);
+				$a=0;
+				@file_detail  = split(/\|/, $FILES[$Fct]);
+				$file_path = $file_detail[0];
+				$file_name = $file_detail[1];
+				$file_name =~ s/\t|\r|\n//gi;
+				$file_passthru = $file_detail[2];
+				$file_passthru =~ s/\t|\r|\n//gi;
+				if (-e "$webroot/$file_path/$file_name")
+					{
+					open(file, "$webroot/$file_path/$file_name") || die "can't open $webroot/$file_path/$file_name: $!\n";
+					@file = @MT;
+					@file = <file>;
+					close(file);

-				print "File exists: ./$file_path/$file_name\n";
-				if (-e "$webroot/$file_path$US$lang_abb")
-					{
-					print "Lang Directory exists: $webroot/$file_path$US$lang_abb\n";
-					}
-				else
-					{
-					`mkdir $webroot/$file_path$US$lang_abb`;
-					`chmod 0777 $webroot/$file_path$US$lang_abb`;
-					print "Lang Directory created: $webroot/$file_path$US$lang_abb\n";
-					}
-
-				if ($file_passthru < 1)
-					{
-					##### LOOP THROUGH THE TRANSLATIONS
-					$Tct=0;
-					foreach(@TRANSLATIONS)
+					print "File exists: ./$file_path/$file_name\n";
+					if (-e "$webroot/$file_path$US$lang_abb")
 						{
-						@TRANSline = split(/\|/, $TRANSLATIONS[$Tct]);
-						$ORIGtext = "$TRANSline[0]";
-						$TRANStext = "$TRANSline[$i]";
-						$LINESct=0;
-						foreach(@file)
+						print "Lang Directory exists: $webroot/$file_path$US$lang_abb\n";
+						}
+					else
+						{
+						`mkdir $webroot/$file_path$US$lang_abb`;
+						`chmod 0777 $webroot/$file_path$US$lang_abb`;
+						print "Lang Directory created: $webroot/$file_path$US$lang_abb\n";
+						}
+
+					if ($file_passthru < 1)
+						{
+						##### LOOP THROUGH THE TRANSLATIONS
+						$Tct=0;
+						foreach(@TRANSLATIONS)
 							{
-							if ($file[$LINESct] !~ /^\#|^\s*function |'INCALL'|'PAUSED'|'READY'|'NEW'|xmlhttp|ILPV |ILPA |SELECT cmd_line_f/)
+							@TRANSline = split(/\|/, $TRANSLATIONS[$Tct]);
+							$ORIGtext = "$TRANSline[1]";
+							$TRANStext = "$TRANSline[$i+1]";
+							$LINESct=0;
+							foreach(@file)
 								{
-								if ($file[$LINESct] =~ /INTERNATIONALIZATION-LINKS-PLACEHOLDER-VICIDIAL/)
+								if ($file[$LINESct] !~ /^\#|^\s*function |'INCALL'|'PAUSED'|'READY'|'NEW'|xmlhttp|ILPV |ILPA |SELECT cmd_line_f|=\"SELECT/)
 									{
-									$file[$LINESct] =~ s/INTERNATIONALIZATION-LINKS-PLACEHOLDER-VICIDIAL/ILPV/g;
-									$e=0;
-									$gif = '.gif';
-									foreach(@lang_link_list)
+									if ($file[$LINESct] =~ /INTERNATIONALIZATION-LINKS-PLACEHOLDER-VICIDIAL/)
 										{
-										if (length($lang_link_list[$e]) > 2) 
-											{
-											@lang_list_detail  = split(/-/, $lang_link_list[$e]);
-											$lang_list_abb = $lang_list_detail[0];
-											$lang_list_name = $lang_list_detail[1];
-											if ($lang_list_abb =~ /$lang_abb/) {$list_bgcolor = ' BGCOLOR=\"#CCFFCC\"';}
-											else {$list_bgcolor = '';}
-											$file[$LINESct] .= "echo \"<TD WIDTH=100 ALIGN=RIGHT VALIGN=TOP $list_bgcolor NOWRAP><a href=\\\"../$file_path$US$lang_list_abb/$file_name?relogin=YES&VD_login=\$VD_login&VD_campaign=\$VD_campaign&phone_login=\$phone_login&phone_pass=\$phone_pass&VD_pass=\$VD_pass\\\">$lang_list_name <img src=\\\"../agc/images/$lang_list_abb$gif\\\" BORDER=0 HEIGHT=14 WIDTH=20></a></TD>\\n\";";
-											}
-										$e++;
-										}
-									}
-								else
-									{
-									if ($file[$LINESct] =~ /INTERNATIONALIZATION-LINKS-PLACEHOLDER-AGC/)
-										{
-										$file[$LINESct] =~ s/INTERNATIONALIZATION-LINKS-PLACEHOLDER-AGC/ILPA/g;
+										$file[$LINESct] =~ s/INTERNATIONALIZATION-LINKS-PLACEHOLDER-VICIDIAL/ILPV/g;
 										$e=0;
 										$gif = '.gif';
 										foreach(@lang_link_list)
@@ -396,52 +430,73 @@ foreach(@lang_list)
 												$lang_list_name = $lang_list_detail[1];
 												if ($lang_list_abb =~ /$lang_abb/) {$list_bgcolor = ' BGCOLOR=\"#CCFFCC\"';}
 												else {$list_bgcolor = '';}
-												$file[$LINESct] .= "echo \"<TD WIDTH=100 ALIGN=RIGHT VALIGN=TOP $list_bgcolor NOWRAP><a href=\\\"../$file_path$US$lang_list_abb/$file_name?relogin=YES&user=\$user&pass=\$pass&phone_login=\$phone_login&phone_pass=\$phone_pass\\\">$lang_list_name <img src=\\\"../agc/images/$lang_list_abb$gif\\\" BORDER=0 HEIGHT=14 WIDTH=20></a></TD>\\n\";";
+												$file[$LINESct] .= "echo \"<TD WIDTH=100 ALIGN=RIGHT VALIGN=TOP $list_bgcolor NOWRAP><a href=\\\"../$file_path$US$lang_list_abb/$file_name?relogin=YES&VD_login=\$VD_login&VD_campaign=\$VD_campaign&phone_login=\$phone_login&phone_pass=\$phone_pass&VD_pass=\$VD_pass\\\">$lang_list_name <img src=\\\"../agc/images/$lang_list_abb$gif\\\" BORDER=0 HEIGHT=14 WIDTH=20></a></TD>\\n\";";
 												}
 											$e++;
 											}
 										}
 									else
 										{
-										if ( ($lang_abb =~ /^en/) && ($Tct > 2) )
+										if ($file[$LINESct] =~ /INTERNATIONALIZATION-LINKS-PLACEHOLDER-AGC/)
 											{
-											$file[$LINESct] =~ s/\.\/images\//\.\.\/agc\/images\//g;
-											$file[$LINESct] =~ s/\"help.gif/\"..\/astguiclient\/help.gif/g;
+											$file[$LINESct] =~ s/INTERNATIONALIZATION-LINKS-PLACEHOLDER-AGC/ILPA/g;
+											$e=0;
+											$gif = '.gif';
+											foreach(@lang_link_list)
+												{
+												if (length($lang_link_list[$e]) > 2) 
+													{
+													@lang_list_detail  = split(/-/, $lang_link_list[$e]);
+													$lang_list_abb = $lang_list_detail[0];
+													$lang_list_name = $lang_list_detail[1];
+													if ($lang_list_abb =~ /$lang_abb/) {$list_bgcolor = ' BGCOLOR=\"#CCFFCC\"';}
+													else {$list_bgcolor = '';}
+													$file[$LINESct] .= "echo \"<TD WIDTH=100 ALIGN=RIGHT VALIGN=TOP $list_bgcolor NOWRAP><a href=\\\"../$file_path$US$lang_list_abb/$file_name?relogin=YES&user=\$user&pass=\$pass&phone_login=\$phone_login&phone_pass=\$phone_pass\\\">$lang_list_name <img src=\\\"../agc/images/$lang_list_abb$gif\\\" BORDER=0 HEIGHT=14 WIDTH=20></a></TD>\\n\";";
+													}
+												$e++;
+												}
+											}
+										else
+											{
+											if ( ($lang_abb =~ /^en/) && ($Tct > 2) )
+												{
+												$file[$LINESct] =~ s/\.\/images\//\.\.\/agc\/images\//g;
+												$file[$LINESct] =~ s/\"help.gif/\"..\/astguiclient\/help.gif/g;
+												}
+											if ($lang_abb !~ /^en/)
+												{$file[$LINESct] =~ s/$ORIGtext/$TRANStext/g;}
 											}
-										if ($lang_abb !~ /^en/)
-											{$file[$LINESct] =~ s/$ORIGtext/$TRANStext/g;}
 										}
 									}
+								$LINESct++;
+
+								if ($a =~ /00000$/i) {print "$a     $file[$LINESct]\n|$ORIGtext|$TRANStext|";}
+								$a++;
 								}
-							$LINESct++;
-
-							if ($a =~ /00000$/i) {print "$a     $file[$LINESct]\n|$ORIGtext|$TRANStext|";}
-							$a++;
+							$Tct++;
 							}
-						$Tct++;
 						}
+					### open the translation result file for writing ###
+					open(out, ">$webroot/$file_path$US$lang_abb/$file_name")
+							|| die "Can't open $webroot/$file_path$US$lang_abb/$file_name: $!\n";
+			#		print out "Header(\"Content-type: text/html; charset=utf-8\");\n";
+					$LINESct=0;
+					foreach(@file)
+						{
+						print out "$file[$LINESct]";
+						$LINESct++;
+						}
+					close(out);
+					print "\n";
+					print "File Written: $webroot/$file_path$US$lang_abb/$file_name\n";
 					}
-				### open the translation result file for writing ###
-				open(out, ">$webroot/$file_path$US$lang_abb/$file_name")
-						|| die "Can't open $webroot/$file_path$US$lang_abb/$file_name: $!\n";
-		#		print out "Header(\"Content-type: text/html; charset=utf-8\");\n";
-				$LINESct=0;
-				foreach(@file)
+				else
 					{
-					print out "$file[$LINESct]";
-					$LINESct++;
+					print "File does not exist: $webroot/$file_path/$file_name\n";
 					}
-				close(out);
-				print "\n";
-				print "File Written: $webroot/$file_path$US$lang_abb/$file_name\n";
+				$Fct++;
 				}
-			else
-				{
-				print "File does not exist: $webroot/$file_path/$file_name\n";
-				}
-			$Fct++;
 			}
-
 		}
 	$i++;
 	}