alxarafe / alixar

dolibarr/build/generate_filelist_xml.php

Indentation +33 added lines, -33 removed lines

@@ -72,9 +72,9 @@ 
 
 if (empty($release))
 {
-	print "Error: Missing release paramater\n";
-	print "Usage: ".$script_file." release=autostable|auto[-mybuild]|x.y.z[-mybuild] [includecustom=1] [includeconstant=CC:MY_CONF_NAME:value]\n";
-	exit -1;
+    print "Error: Missing release paramater\n";
+    print "Usage: ".$script_file." release=autostable|auto[-mybuild]|x.y.z[-mybuild] [includecustom=1] [includeconstant=CC:MY_CONF_NAME:value]\n";
+    exit -1;
 }
 
 $savrelease = $release;
@@ -83,32 +83,32 @@ 
 $tmpver=explode('-', $release, 2);
 if ($tmpver[0] == 'auto' || $tmpver[0] == 'autostable')
 {
-	$release=DOL_VERSION;
-	if ($tmpver[1] && $tmpver[0] == 'auto') $release.='-'.$tmpver[1];
+    $release=DOL_VERSION;
+    if ($tmpver[1] && $tmpver[0] == 'auto') $release.='-'.$tmpver[1];
 }
 
 if (empty($includecustom))
 {
-	$tmpverbis=explode('-', $release, 2);
-	if (empty($tmpverbis[1]) || $tmpver[0] == 'autostable')
-	{
-		if (DOL_VERSION != $tmpverbis[0] && $savrelease != 'auto')
-	    {
-	    	print 'Error: When parameter "includecustom" is not set and there is no suffix in release parameter, version declared into filefunc.in.php ('.DOL_VERSION.') must be exact same value than "release" parameter ('.$tmpverbis[0].')'."\n";
-	    	print "Usage:   ".$script_file." release=autostable|auto[-mybuild]|x.y.z[-mybuild] [includecustom=1] [includeconstant=CC:MY_CONF_NAME:value]\n";
-	        exit -1;
-	    }
-	}
-	else
-	{
-		$tmpverter=explode('-', DOL_VERSION, 2);
-		if ($tmpverter[0] != $tmpverbis[0])
-		{
-			print 'Error: When parameter "includecustom" is not set, version declared into filefunc.in.php ('.DOL_VERSION.') must have value without prefix ('.$tmpverter[0].') that is exact same value than "release" parameter ('.$tmpverbis[0].')'."\n";
-			print "Usage:   ".$script_file." release=autostable|auto[-mybuild]|x.y.z[-mybuild] [includecustom=1] [includeconstant=CC:MY_CONF_NAME:value]\n";
-			exit -1;
-		}
-	}
+    $tmpverbis=explode('-', $release, 2);
+    if (empty($tmpverbis[1]) || $tmpver[0] == 'autostable')
+    {
+        if (DOL_VERSION != $tmpverbis[0] && $savrelease != 'auto')
+        {
+            print 'Error: When parameter "includecustom" is not set and there is no suffix in release parameter, version declared into filefunc.in.php ('.DOL_VERSION.') must be exact same value than "release" parameter ('.$tmpverbis[0].')'."\n";
+            print "Usage:   ".$script_file." release=autostable|auto[-mybuild]|x.y.z[-mybuild] [includecustom=1] [includeconstant=CC:MY_CONF_NAME:value]\n";
+            exit -1;
+        }
+    }
+    else
+    {
+        $tmpverter=explode('-', DOL_VERSION, 2);
+        if ($tmpverter[0] != $tmpverbis[0])
+        {
+            print 'Error: When parameter "includecustom" is not set, version declared into filefunc.in.php ('.DOL_VERSION.') must have value without prefix ('.$tmpverter[0].') that is exact same value than "release" parameter ('.$tmpverbis[0].')'."\n";
+            print "Usage:   ".$script_file." release=autostable|auto[-mybuild]|x.y.z[-mybuild] [includecustom=1] [includeconstant=CC:MY_CONF_NAME:value]\n";
+            exit -1;
+        }
+    }
 }
 else
 {
@@ -169,10 +169,10 @@ 
 $dir='';
 $needtoclose=0;
 foreach ($files as $filetmp) {
-	$file = $filetmp['fullname'];
-	//$newdir = str_replace(dirname(__FILE__).'/../htdocs', '', dirname($file));
-	$newdir = str_replace(DOL_DOCUMENT_ROOT, '', dirname($file));
-	if ($newdir!=$dir) {
+    $file = $filetmp['fullname'];
+    //$newdir = str_replace(dirname(__FILE__).'/../htdocs', '', dirname($file));
+    $newdir = str_replace(DOL_DOCUMENT_ROOT, '', dirname($file));
+    if ($newdir!=$dir) {
         if ($needtoclose)
             fputs($fp, '  </dir>'."\n");
         fputs($fp, '  <dir name="'.$newdir.'" >'."\n");
@@ -211,10 +211,10 @@ 
 $dir='';
 $needtoclose=0;
 foreach ($files as $filetmp) {
-	$file = $filetmp['fullname'];
-	//$newdir = str_replace(dirname(__FILE__).'/../scripts', '', dirname($file));
-	$newdir = str_replace(DOL_DOCUMENT_ROOT, '', dirname($file));
-	$newdir = str_replace(dirname(__FILE__).'/../scripts', '', dirname($file));
+    $file = $filetmp['fullname'];
+    //$newdir = str_replace(dirname(__FILE__).'/../scripts', '', dirname($file));
+    $newdir = str_replace(DOL_DOCUMENT_ROOT, '', dirname($file));
+    $newdir = str_replace(dirname(__FILE__).'/../scripts', '', dirname($file));
     if ($newdir!=$dir) {
         if ($needtoclose)
             fputs($fp, '  </dir>'."\n");

dolibarr/dev/examples/code/create_invoice.php

Indentation +14 added lines, -14 removed lines

@@ -83,19 +83,19 @@ 
 $idobject=$obj->create($user);
 if ($idobject > 0)
 {
-	// Change status to validated
-	$result=$obj->validate($user);
-	if ($result > 0) print "OK Object created with id ".$idobject."\n";
-	else
-	{
-		$error++;
-		dol_print_error($db,$obj->error);
-	}
+    // Change status to validated
+    $result=$obj->validate($user);
+    if ($result > 0) print "OK Object created with id ".$idobject."\n";
+    else
+    {
+        $error++;
+        dol_print_error($db,$obj->error);
+    }
 }
 else
 {
-	$error++;
-	dol_print_error($db,$obj->error);
+    $error++;
+    dol_print_error($db,$obj->error);
 }
 
 
@@ -103,13 +103,13 @@ 
 
 if (! $error)
 {
-	$db->commit();
-	print '--- end ok'."\n";
+    $db->commit();
+    print '--- end ok'."\n";
 }
 else
 {
-	print '--- end error code='.$error."\n";
-	$db->rollback();
+    print '--- end error code='.$error."\n";
+    $db->rollback();
 }
 
 $db->close();

dolibarr/dev/examples/code/create_user.php

Indentation +15 added lines, -15 removed lines

@@ -71,23 +71,23 @@ 
 $idobject=$obj->create($user);
 if ($idobject > 0)
 {
-	// Change status to validated
-	$result=$obj->setStatut(1);
-	if ($result > 0) print "OK Object created with id ".$idobject."\n";
-	else
-	{
-		$error++;
-		dol_print_error($db,$obj->error);
-	}
+    // Change status to validated
+    $result=$obj->setStatut(1);
+    if ($result > 0) print "OK Object created with id ".$idobject."\n";
+    else
+    {
+        $error++;
+        dol_print_error($db,$obj->error);
+    }
 }
 else if ($obj->error == 'ErrorLoginAlreadyExists')
 {
-     print "User with login ".$obj->login." already exists\n";
+        print "User with login ".$obj->login." already exists\n";
 }
 else
 {
-	$error++;
-	dol_print_error($db,$obj->error);
+    $error++;
+    dol_print_error($db,$obj->error);
 }
 
 
@@ -95,13 +95,13 @@ 
 
 if (! $error)
 {
-	$db->commit();
-	print '--- end ok'."\n";
+    $db->commit();
+    print '--- end ok'."\n";
 }
 else
 {
-	print '--- end error code='.$error."\n";
-	$db->rollback();
+    print '--- end error code='.$error."\n";
+    $db->rollback();
 }
 
 $db->close();

dolibarr/dev/examples/code/create_order.php

Indentation +14 added lines, -14 removed lines

@@ -81,19 +81,19 @@ 
 $idobject=$com->create($user);
 if ($idobject > 0)
 {
-	// Change status to validated
-	$result=$com->valid($user);
-	if ($result > 0) print "OK Object created with id ".$idobject."\n";
-	else
-	{
-		$error++;
-		dol_print_error($db,$com->error);
-	}
+    // Change status to validated
+    $result=$com->valid($user);
+    if ($result > 0) print "OK Object created with id ".$idobject."\n";
+    else
+    {
+        $error++;
+        dol_print_error($db,$com->error);
+    }
 }
 else
 {
-	$error++;
-	dol_print_error($db,$com->error);
+    $error++;
+    dol_print_error($db,$com->error);
 }
 
 
@@ -101,13 +101,13 @@ 
 
 if (! $error)
 {
-	$db->commit();
-	print '--- end ok'."\n";
+    $db->commit();
+    print '--- end ok'."\n";
 }
 else
 {
-	print '--- end error code='.$error."\n";
-	$db->rollback();
+    print '--- end error code='.$error."\n";
+    $db->rollback();
 }
 
 $db->close();

dolibarr/dev/examples/code/create_product.php

Indentation +7 added lines, -7 removed lines

@@ -81,25 +81,25 @@
 $idobject = $myproduct->create($user);
 if ($idobject > 0)
 {
-	print "OK Object created with id ".$idobject."\n";
+    print "OK Object created with id ".$idobject."\n";
 }
 else
 {
-	$error++;
-	dol_print_error($db,$myproduct->error);
+    $error++;
+    dol_print_error($db,$myproduct->error);
 }
 
 // -------------------- END OF YOUR CODE --------------------
 
 if (! $error)
 {
-	$db->commit();
-	print '--- end ok'."\n";
+    $db->commit();
+    print '--- end ok'."\n";
 }
 else
 {
-	print '--- end error code='.$error."\n";
-	$db->rollback();
+    print '--- end error code='.$error."\n";
+    $db->rollback();
 }
 
 $db->close();

dolibarr/dev/translation/autotranslator.php

Indentation +12 added lines, -12 removed lines

@@ -69,23 +69,23 @@
 $file='';
 if (isset($argv[4]))
 {
-	$file=$argv[4];
-	print 'Argument 4='.$argv[4]."\n";
+    $file=$argv[4];
+    print 'Argument 4='.$argv[4]."\n";
 }
 print 'Files will be generated/updated in directory '.$dir."\n";
 
 if ($argv[2] != 'all')
 {
-	if (! is_dir($dir.'/'.$argv[2]))
-	{
-		print 'Create directory '.$dir.'/'.$argv[2]."\n";
-		$result=mkdir($dir.'/'.$argv[2]);
-		if (! $result)
-		{
-			$db->close();
-			return -1;
-		}
-	}
+    if (! is_dir($dir.'/'.$argv[2]))
+    {
+        print 'Create directory '.$dir.'/'.$argv[2]."\n";
+        $result=mkdir($dir.'/'.$argv[2]);
+        if (! $result)
+        {
+            $db->close();
+            return -1;
+        }
+    }
 }
 
 require_once DOL_DOCUMENT_ROOT."/../dev/translation/autotranslator.class.php";

dolibarr/dev/translation/strip_language_file.php

Indentation +266 added lines, -266 removed lines

@@ -50,8 +50,8 @@ 
 
 // Test if batch mode
 if (substr($sapi_type, 0, 3) == 'cgi') {
-	echo "Error: You are using PHP for CGI. To execute ".$script_file." from command line, you must use PHP for CLI mode.\n";
-	exit;
+    echo "Error: You are using PHP for CGI. To execute ".$script_file." from command line, you must use PHP for CLI mode.\n";
+    exit;
 }
 
 $rc = 0;
@@ -65,11 +65,11 @@ 
 
 if (empty($lPrimary) || empty($lSecondary) || empty($filesToProcess))
 {
-	$rc = 1;
-	$msg = '***** Script to clean language files *****'."\n";
-	$msg.= 'Usage: ./dev/translation/strip_language_file.php xx_XX xx_YY [file.lang|all]'."\n";
-	print $msg . "(rc=$rc).\n";
-	exit($rc);
+    $rc = 1;
+    $msg = '***** Script to clean language files *****'."\n";
+    $msg.= 'Usage: ./dev/translation/strip_language_file.php xx_XX xx_YY [file.lang|all]'."\n";
+    print $msg . "(rc=$rc).\n";
+    exit($rc);
 }
 
 $aPrimary = array();
@@ -79,14 +79,14 @@ 
 // Define array $filesToProcess
 if ($filesToProcess == 'all')
 {
-	$dir = new DirectoryIterator('htdocs/langs/'.$lPrimary);
-	while($dir->valid()) {
-		if(!$dir->isDot() && $dir->isFile() && ! preg_match('/^\./',$dir->getFilename())) {
-			$files[] =  $dir->getFilename();
-		}
-		$dir->next();
-	}
-	$filesToProcess=$files;
+    $dir = new DirectoryIterator('htdocs/langs/'.$lPrimary);
+    while($dir->valid()) {
+        if(!$dir->isDot() && $dir->isFile() && ! preg_match('/^\./',$dir->getFilename())) {
+            $files[] =  $dir->getFilename();
+        }
+        $dir->next();
+    }
+    $filesToProcess=$files;
 }
 else $filesToProcess=explode(',',$filesToProcess);
 
@@ -96,257 +96,257 @@ 
 // Loop on each file
 foreach($filesToProcess as $fileToProcess)
 {
-	$lPrimaryFile = 'htdocs/langs/'.$lPrimary.'/'.$fileToProcess;
-	$lSecondaryFile = 'htdocs/langs/'.$lSecondary.'/'.$fileToProcess;
-	$lEnglishFile = 'htdocs/langs/'.$lEnglish.'/'.$fileToProcess;
-	$output = $lSecondaryFile . '.delta';
-
-	print "---- Process language file ".$lSecondaryFile."\n";
-
-	if ( ! is_readable($lPrimaryFile) ) {
-		$rc = 2;
-		$msg = "Cannot read primary language file $lPrimaryFile.";
-		print $msg . " (rc=$rc).\n";
-		exit($rc);
-	}
-
-	if ( ! is_readable($lSecondaryFile) ) {
-		$rc = 3;
-		$msg = "Cannot read secondary language file $lSecondaryFile. We discard this file.";
-		print $msg . "\n";
-		continue;
-	}
-
-	if ( ! is_readable($lEnglishFile) ) {
-		$rc = 3;
-		$msg = "Cannot read english language file $lEnglishFile. We discard this file.";
-		print $msg . "\n";
-		continue;
-	}
-
-	// Start reading and parsing Secondary
-
-	if ( $handle = fopen($lSecondaryFile, 'r') )
-	{
-		print "Read Secondary File $lSecondaryFile:\n";
-		$cnt = 0;
-		while (($line = fgets($handle)) !== false)
-		{
-			$cnt++;
-
-			// strip comments
-			if ( preg_match("/^\w*#/", $line) ) {
-				continue;
-			}
-			// strip empty lines
-			if ( preg_match("/^\w*$/", $line) ) {
-				continue;
-			}
-
-			$a = mb_split('=', trim($line), 2);
-			if ( count($a) != 2 ) {
-				print "ERROR in file $lSecondaryFile, line $cnt: " . trim($line) . "\n";
-				continue;
-			}
-
-			list($key, $value) = $a;
-
-			// key is redundant
-			if ( array_key_exists($key, $aSecondary) ) {
-				print "Key $key is redundant in file $lSecondaryFile (line: $cnt).\n";
-				continue;
-			}
-
-			// String has no value
-			if ( $value == '' ) {
-				print "Key $key has no value in file $lSecondaryFile (line: $cnt).\n";
-				continue;
-			}
-
-			$aSecondary[$key] = trim($value);
-		}
-		if ( ! feof($handle) )
-		{
-			$rc = 5;
-			$msg = "Unexpected fgets() fail";
-			print $msg . " (rc=$rc).\n";
-			exit($rc);
-		}
-		fclose($handle);
-	}
-	else {
-		$rc = 6;
-		$msg = "Cannot open file $lSecondaryFile";
-		print $msg . " (rc=$rc).\n";
-		exit($rc);
-	}
-
-
-	// Start reading and parsing English
-
-	if ( $handle = fopen($lEnglishFile, 'r') )
-	{
-		print "Read English File $lEnglishFile:\n";
-		$cnt = 0;
-		while (($line = fgets($handle)) !== false)
-		{
-			$cnt++;
-
-			// strip comments
-			if ( preg_match("/^\w*#/", $line) ) {
-				continue;
-			}
-			// strip empty lines
-			if ( preg_match("/^\w*$/", $line) ) {
-				continue;
-			}
-
-			$a = mb_split('=', trim($line), 2);
-			if ( count($a) != 2 ) {
-				print "ERROR in file $lEnglishFile, line $cnt: " . trim($line) . "\n";
-				continue;
-			}
-
-			list($key, $value) = $a;
-
-			// key is redundant
-			if ( array_key_exists($key, $aEnglish) ) {
-				print "Key $key is redundant in file $lEnglishFile (line: $cnt).\n";
-				continue;
-			}
-
-			// String has no value
-			if ( $value == '' ) {
-				print "Key $key has no value in file $lEnglishFile (line: $cnt).\n";
-				continue;
-			}
-
-			$aEnglish[$key] = trim($value);
-		}
-		if ( ! feof($handle) )
-		{
-			$rc = 5;
-			$msg = "Unexpected fgets() fail";
-			print $msg . " (rc=$rc).\n";
-			exit($rc);
-		}
-		fclose($handle);
-	}
-	else {
-		$rc = 6;
-		$msg = "Cannot open file $lEnglishFile";
-		print $msg . " (rc=$rc).\n";
-		exit($rc);
-	}
-
-
-
-	// Start reading and parsing Primary. See rules in header!
-
-	$arrayofkeytoalwayskeep=array('DIRECTION','FONTFORPDF','FONTSIZEFORPDF','SeparatorDecimal','SeparatorThousand');
-
-
-	if ( $handle = fopen($lPrimaryFile, 'r') )
-	{
-		if ( ! $oh = fopen($output, 'w') )
-		{
-			print "ERROR in writing to file $output\n";
-			exit;
-		}
-
-		print "Read Primary File $lPrimaryFile and write ".$output.":\n";
-
-		fwrite($oh, "# Dolibarr language file - Source file is en_US - ".(preg_replace('/\.lang$/','',$fileToProcess))."\n");
-
-		$cnt = 0;
-		while (($line = fgets($handle)) !== false)
-		{
-			$cnt++;
-
-			// strip comments
-			if ( preg_match("/^\w*#/", $line) ) {
-				continue;
-			}
-			// strip empty lines
-			if ( preg_match("/^\w*$/", $line) ) {
-				continue;
-			}
-
-			$a = mb_split('=', trim($line), 2);
-			if ( count($a) != 2 ) {
-				print "ERROR in file $lPrimaryFile, line $cnt: " . trim($line) . "\n";
-				continue;
-			}
-
-			list($key, $value) = $a;
-
-			// key is redundant
-			if ( array_key_exists($key, $aPrimary) ) {
-				print "Key $key is redundant in file $lPrimaryFile (line: $cnt) - Already found into ".$fileFirstFound[$key]." (line: ".$lineFirstFound[$key].").\n";
-				continue;
-			}
-			else
-			{
-				$fileFirstFound[$key] = $fileToProcess;
-				$lineFirstFound[$key] = $cnt;
-			}
-
-			// String has no value
-			if ( $value == '' ) {
-				print "Key $key has no value in file $lPrimaryFile (line: $cnt).\n";
-				continue;
-			}
-
-			$aPrimary[$key] = trim($value);
-			$fileFirstFound[$key] = $fileToProcess;
-			$lineFirstFound[$key] = $cnt;
-
-			// ----- Process output now -----
-
-			//print "Found primary key = ".$key."\n";
-
-			// Key not in other file
-			if (in_array($key, $arrayofkeytoalwayskeep) || preg_match('/^FormatDate/',$key) || preg_match('/^FormatHour/',$key))
-			{
-				//print "Key $key is a key we always want to see into secondary file (line: $cnt).\n";
-			}
-			else if ( ! array_key_exists($key, $aSecondary))
-			{
-				//print "Key $key does NOT exist in secondary language (line: $cnt).\n";
-				continue;
-			}
-
-			// String exists in both files and value into alternative language differs from main language but also from english files
-			if (
-				(! empty($aSecondary[$key]) && $aSecondary[$key] != $aPrimary[$key]
-			    && ! empty($aEnglish[$key]) && $aSecondary[$key] != $aEnglish[$key])
-				|| in_array($key, $arrayofkeytoalwayskeep) || preg_match('/^FormatDate/',$key) || preg_match('/^FormatHour/',$key)
-				)
-			{
-				//print "Key $key differs (aSecondary=".$aSecondary[$key].", aPrimary=".$aPrimary[$key].", aEnglish=".$aEnglish[$key].") so we add it into new secondary language (line: $cnt).\n";
-				fwrite($oh, $key."=".(empty($aSecondary[$key])?$aPrimary[$key]:$aSecondary[$key])."\n");
-			}
-		}
-		if ( ! feof($handle) ) {
-			$rc = 7;
-			$msg = "Unexpected fgets() fail";
-			print $msg . " (rc=$rc).\n";
-			exit($rc);
-		}
-		fclose($oh);
-		fclose($handle);
-	}
-	else {
-		$rc = 8;
-		$msg = "Cannot open file $lPrimaryFile";
-		print $msg . " (rc=$rc).\n";
-		exit($rc);
-	}
-
-	print "Output can be found at $output.\n";
-
-	print "To rename all .delta files, you can do:\n";
-	print '> for fic in `ls htdocs/langs/'.$lSecondary.'/*.delta`; do f=`echo $fic | sed -e \'s/\.delta//\'`; echo $f; mv $f.delta $f; done'."\n";
+    $lPrimaryFile = 'htdocs/langs/'.$lPrimary.'/'.$fileToProcess;
+    $lSecondaryFile = 'htdocs/langs/'.$lSecondary.'/'.$fileToProcess;
+    $lEnglishFile = 'htdocs/langs/'.$lEnglish.'/'.$fileToProcess;
+    $output = $lSecondaryFile . '.delta';
+
+    print "---- Process language file ".$lSecondaryFile."\n";
+
+    if ( ! is_readable($lPrimaryFile) ) {
+        $rc = 2;
+        $msg = "Cannot read primary language file $lPrimaryFile.";
+        print $msg . " (rc=$rc).\n";
+        exit($rc);
+    }
+
+    if ( ! is_readable($lSecondaryFile) ) {
+        $rc = 3;
+        $msg = "Cannot read secondary language file $lSecondaryFile. We discard this file.";
+        print $msg . "\n";
+        continue;
+    }
+
+    if ( ! is_readable($lEnglishFile) ) {
+        $rc = 3;
+        $msg = "Cannot read english language file $lEnglishFile. We discard this file.";
+        print $msg . "\n";
+        continue;
+    }
+
+    // Start reading and parsing Secondary
+
+    if ( $handle = fopen($lSecondaryFile, 'r') )
+    {
+        print "Read Secondary File $lSecondaryFile:\n";
+        $cnt = 0;
+        while (($line = fgets($handle)) !== false)
+        {
+            $cnt++;
+
+            // strip comments
+            if ( preg_match("/^\w*#/", $line) ) {
+                continue;
+            }
+            // strip empty lines
+            if ( preg_match("/^\w*$/", $line) ) {
+                continue;
+            }
+
+            $a = mb_split('=', trim($line), 2);
+            if ( count($a) != 2 ) {
+                print "ERROR in file $lSecondaryFile, line $cnt: " . trim($line) . "\n";
+                continue;
+            }
+
+            list($key, $value) = $a;
+
+            // key is redundant
+            if ( array_key_exists($key, $aSecondary) ) {
+                print "Key $key is redundant in file $lSecondaryFile (line: $cnt).\n";
+                continue;
+            }
+
+            // String has no value
+            if ( $value == '' ) {
+                print "Key $key has no value in file $lSecondaryFile (line: $cnt).\n";
+                continue;
+            }
+
+            $aSecondary[$key] = trim($value);
+        }
+        if ( ! feof($handle) )
+        {
+            $rc = 5;
+            $msg = "Unexpected fgets() fail";
+            print $msg . " (rc=$rc).\n";
+            exit($rc);
+        }
+        fclose($handle);
+    }
+    else {
+        $rc = 6;
+        $msg = "Cannot open file $lSecondaryFile";
+        print $msg . " (rc=$rc).\n";
+        exit($rc);
+    }
+
+
+    // Start reading and parsing English
+
+    if ( $handle = fopen($lEnglishFile, 'r') )
+    {
+        print "Read English File $lEnglishFile:\n";
+        $cnt = 0;
+        while (($line = fgets($handle)) !== false)
+        {
+            $cnt++;
+
+            // strip comments
+            if ( preg_match("/^\w*#/", $line) ) {
+                continue;
+            }
+            // strip empty lines
+            if ( preg_match("/^\w*$/", $line) ) {
+                continue;
+            }
+
+            $a = mb_split('=', trim($line), 2);
+            if ( count($a) != 2 ) {
+                print "ERROR in file $lEnglishFile, line $cnt: " . trim($line) . "\n";
+                continue;
+            }
+
+            list($key, $value) = $a;
+
+            // key is redundant
+            if ( array_key_exists($key, $aEnglish) ) {
+                print "Key $key is redundant in file $lEnglishFile (line: $cnt).\n";
+                continue;
+            }
+
+            // String has no value
+            if ( $value == '' ) {
+                print "Key $key has no value in file $lEnglishFile (line: $cnt).\n";
+                continue;
+            }
+
+            $aEnglish[$key] = trim($value);
+        }
+        if ( ! feof($handle) )
+        {
+            $rc = 5;
+            $msg = "Unexpected fgets() fail";
+            print $msg . " (rc=$rc).\n";
+            exit($rc);
+        }
+        fclose($handle);
+    }
+    else {
+        $rc = 6;
+        $msg = "Cannot open file $lEnglishFile";
+        print $msg . " (rc=$rc).\n";
+        exit($rc);
+    }
+
+
+
+    // Start reading and parsing Primary. See rules in header!
+
+    $arrayofkeytoalwayskeep=array('DIRECTION','FONTFORPDF','FONTSIZEFORPDF','SeparatorDecimal','SeparatorThousand');
+
+
+    if ( $handle = fopen($lPrimaryFile, 'r') )
+    {
+        if ( ! $oh = fopen($output, 'w') )
+        {
+            print "ERROR in writing to file $output\n";
+            exit;
+        }
+
+        print "Read Primary File $lPrimaryFile and write ".$output.":\n";
+
+        fwrite($oh, "# Dolibarr language file - Source file is en_US - ".(preg_replace('/\.lang$/','',$fileToProcess))."\n");
+
+        $cnt = 0;
+        while (($line = fgets($handle)) !== false)
+        {
+            $cnt++;
+
+            // strip comments
+            if ( preg_match("/^\w*#/", $line) ) {
+                continue;
+            }
+            // strip empty lines
+            if ( preg_match("/^\w*$/", $line) ) {
+                continue;
+            }
+
+            $a = mb_split('=', trim($line), 2);
+            if ( count($a) != 2 ) {
+                print "ERROR in file $lPrimaryFile, line $cnt: " . trim($line) . "\n";
+                continue;
+            }
+
+            list($key, $value) = $a;
+
+            // key is redundant
+            if ( array_key_exists($key, $aPrimary) ) {
+                print "Key $key is redundant in file $lPrimaryFile (line: $cnt) - Already found into ".$fileFirstFound[$key]." (line: ".$lineFirstFound[$key].").\n";
+                continue;
+            }
+            else
+            {
+                $fileFirstFound[$key] = $fileToProcess;
+                $lineFirstFound[$key] = $cnt;
+            }
+
+            // String has no value
+            if ( $value == '' ) {
+                print "Key $key has no value in file $lPrimaryFile (line: $cnt).\n";
+                continue;
+            }
+
+            $aPrimary[$key] = trim($value);
+            $fileFirstFound[$key] = $fileToProcess;
+            $lineFirstFound[$key] = $cnt;
+
+            // ----- Process output now -----
+
+            //print "Found primary key = ".$key."\n";
+
+            // Key not in other file
+            if (in_array($key, $arrayofkeytoalwayskeep) || preg_match('/^FormatDate/',$key) || preg_match('/^FormatHour/',$key))
+            {
+                //print "Key $key is a key we always want to see into secondary file (line: $cnt).\n";
+            }
+            else if ( ! array_key_exists($key, $aSecondary))
+            {
+                //print "Key $key does NOT exist in secondary language (line: $cnt).\n";
+                continue;
+            }
+
+            // String exists in both files and value into alternative language differs from main language but also from english files
+            if (
+                (! empty($aSecondary[$key]) && $aSecondary[$key] != $aPrimary[$key]
+                && ! empty($aEnglish[$key]) && $aSecondary[$key] != $aEnglish[$key])
+                || in_array($key, $arrayofkeytoalwayskeep) || preg_match('/^FormatDate/',$key) || preg_match('/^FormatHour/',$key)
+                )
+            {
+                //print "Key $key differs (aSecondary=".$aSecondary[$key].", aPrimary=".$aPrimary[$key].", aEnglish=".$aEnglish[$key].") so we add it into new secondary language (line: $cnt).\n";
+                fwrite($oh, $key."=".(empty($aSecondary[$key])?$aPrimary[$key]:$aSecondary[$key])."\n");
+            }
+        }
+        if ( ! feof($handle) ) {
+            $rc = 7;
+            $msg = "Unexpected fgets() fail";
+            print $msg . " (rc=$rc).\n";
+            exit($rc);
+        }
+        fclose($oh);
+        fclose($handle);
+    }
+    else {
+        $rc = 8;
+        $msg = "Cannot open file $lPrimaryFile";
+        print $msg . " (rc=$rc).\n";
+        exit($rc);
+    }
+
+    print "Output can be found at $output.\n";
+
+    print "To rename all .delta files, you can do:\n";
+    print '> for fic in `ls htdocs/langs/'.$lSecondary.'/*.delta`; do f=`echo $fic | sed -e \'s/\.delta//\'`; echo $f; mv $f.delta $f; done'."\n";
 }
 
 

dolibarr/dev/translation/sanity_check_en_langfiles.php

Indentation +179 added lines, -179 removed lines

@@ -107,8 +107,8 @@ 
 $files = scandir($workdir);
 if (empty($files))
 {
-	echo "Can't scan workdir = ".$workdir;
-	exit;
+    echo "Can't scan workdir = ".$workdir;
+    exit;
 }
 
 $dups=array();
@@ -122,38 +122,38 @@ 
 $langstrings_3d = array();
 $langstrings_full = array();
 foreach ($files AS $file) {
-	$path_file = pathinfo($file);
-	// we're only interested in .lang files
-	if ($path_file['extension']=='lang') {
-		$content = file($workdir.$file);
-		foreach ($content AS $line => $row) {
-			// don't want comment lines
-			if (substr($row,0,1) !== '#') {
-				// don't want lines without the separator (why should those even be here, anyway...)
-				if (strpos($row,'=')!==false) {
-					$row_array = explode('=',$row);		// $row_array[0] = key
-					$langstrings_3d[$path_file['basename']][$line+1]=$row_array[0];
-					$langstrings_3dtrans[$path_file['basename']][$line+1]=$row_array[1];
-					$langstrings_full[]=$row_array[0];
-					$langstrings_dist[$row_array[0]]=$row;
-				}
-			}
-		}
-	}
+    $path_file = pathinfo($file);
+    // we're only interested in .lang files
+    if ($path_file['extension']=='lang') {
+        $content = file($workdir.$file);
+        foreach ($content AS $line => $row) {
+            // don't want comment lines
+            if (substr($row,0,1) !== '#') {
+                // don't want lines without the separator (why should those even be here, anyway...)
+                if (strpos($row,'=')!==false) {
+                    $row_array = explode('=',$row);		// $row_array[0] = key
+                    $langstrings_3d[$path_file['basename']][$line+1]=$row_array[0];
+                    $langstrings_3dtrans[$path_file['basename']][$line+1]=$row_array[1];
+                    $langstrings_full[]=$row_array[0];
+                    $langstrings_dist[$row_array[0]]=$row;
+                }
+            }
+        }
+    }
 }
 
 foreach ($langstrings_3d AS $filename => $file)
 {
-	foreach ($file AS $linenum => $value)
-	{
-		$keys = array_keys($langstrings_full, $value);
-		if (count($keys)>1)
-		{
-				foreach ($keys AS $key) {
-					$dups[$value][$filename][$linenum] = trim($langstrings_3dtrans[$filename][$linenum]);
-				}
-		}
-	}
+    foreach ($file AS $linenum => $value)
+    {
+        $keys = array_keys($langstrings_full, $value);
+        if (count($keys)>1)
+        {
+                foreach ($keys AS $key) {
+                    $dups[$value][$filename][$linenum] = trim($langstrings_3dtrans[$filename][$linenum]);
+                }
+        }
+    }
 }
 
 if ($web) print "<h2>";
@@ -175,49 +175,49 @@ 
 $count = 0;
 foreach ($dups as $string => $pages)
 {
-	$count++;
-	$s='';
-
-	// Keyword $string
-	if ($web) $s.="<tr>";
-	if ($web) $s.="<td align=\"center\">";
-	if ($web) $s.=$count;
-	if ($web) $s.="</td>";
-	if ($web) $s.="<td>";
-	$s.=$string;
-	if ($web) $s.="</td>";
-	if ($web) $s.="<td>";
-	if (! $web) $s.= ' : ';
-
-	// Loop on each files keyword was found
+    $count++;
+    $s='';
+
+    // Keyword $string
+    if ($web) $s.="<tr>";
+    if ($web) $s.="<td align=\"center\">";
+    if ($web) $s.=$count;
+    if ($web) $s.="</td>";
+    if ($web) $s.="<td>";
+    $s.=$string;
+    if ($web) $s.="</td>";
+    if ($web) $s.="<td>";
+    if (! $web) $s.= ' : ';
+
+    // Loop on each files keyword was found
     $duplicateinsamefile=0;
-	$inmain=0;
+    $inmain=0;
     $inadmin=0;
-	foreach ($pages AS $file => $lines)
-	{
+    foreach ($pages AS $file => $lines)
+    {
         if ($file == 'main.lang') { $inmain=1; $inadmin=0; }
         if ($file == 'admin.lang' && ! $inmain) { $inadmin=1; }
 
-	    $s.=$file." ";
+        $s.=$file." ";
 
-	    // Loop on each line keword was found into file.
-	    $listoffilesforthisentry=array();
-	    foreach ($lines as $line => $translatedvalue)
-		{
+        // Loop on each line keword was found into file.
+        $listoffilesforthisentry=array();
+        foreach ($lines as $line => $translatedvalue)
+        {
             if (! empty($listoffilesforthisentry[$file])) $duplicateinsamefile=1;
             $listoffilesforthisentry[$file]=1;
 
-			$s.= "(".$line." - ".htmlentities($translatedvalue).") ";
-		}
-		if ($web) $s.="<br>";
-	}
-	if ($web) $s.="</td></tr>";
-	$s.="\n";
-
-	if ($duplicateinsamefile) $sduplicateinsamefile .= $s;
-	else if ($inmain) $sinmainandother .= $s;
-	else if ($inadmin) $sininstallandadmin .= $s;
-	else $sother .= $s;
+            $s.= "(".$line." - ".htmlentities($translatedvalue).") ";
+        }
+        if ($web) $s.="<br>";
+    }
+    if ($web) $s.="</td></tr>";
+    $s.="\n";
+
+    if ($duplicateinsamefile) $sduplicateinsamefile .= $s;
+    else if ($inmain) $sinmainandother .= $s;
+    else if ($inadmin) $sininstallandadmin .= $s;
+    else $sother .= $s;
 }
 
 if (! $web) print "\n***** Entries duplicated in same file\n";
@@ -254,122 +254,122 @@ 
     print "***** Strings in en_US that are never used:\n";
 
     $unused=array();
-	foreach ($langstrings_dist AS $value => $line)
-	{
-    	$qualifiedforclean=1;
-	    // Check if we must keep this key to be into file for removal
-	    if (preg_match('/^Module\d+/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Permission\d+/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^PermissionAdvanced\d+/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^ProfId\d+/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Delays_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^BarcodeDesc/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Extrafield/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^LocalTax/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Country/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Civility/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Currency/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^DemandReasonTypeSRC/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^PaperFormat/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Duration/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^AmountLT/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^TotalLT/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Month/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^MonthShort/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Day\d/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Short/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^ExportDataset_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^ImportDataset_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^ActionAC_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^TypeLocaltax/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^StatusProspect/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^PL_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^TE_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^JuridicalStatus/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^CalcMode/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^newLT/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^LT[0-9]/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^TypeContact_contrat_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^ErrorPriceExpression/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^Language_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^DescADHERENT_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^SubmitTranslation/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^ModuleCompanyCode/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/InDolibarr$/', $value)) $qualifiedforclean=0;
-	    // admin.lang
-	    if (preg_match('/^DAV_ALLOW_PUBLIC_DIR/i', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^DAV_ALLOW_ECM_DIR/i', $value)) $qualifiedforclean=0;
-	    // boxes.lang
-	    if (preg_match('/^BoxTitleLast/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^BoxTitleLatest/', $value)) $qualifiedforclean=0;
-	    // install.lang
-	    if (preg_match('/^KeepDefaultValues/', $value)) $qualifiedforclean=0;
-		// mail.lang
-	    if (preg_match('/MailingModuleDesc/i', $value)) $qualifiedforclean=0;
-	    // main.lang
-	    if (preg_match('/^Duration/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^FormatDate/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^DateFormat/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^.b$/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^.*Bytes$/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^NoteSomeFeaturesAreDisabled/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^(DoTest|Under|Limits|Cards|CurrentValue|DateLimit|DateAndHour|NbOfLines|NbOfObjects|NbOfReferes|TotalTTCShort|VATs)/', $value)) $qualifiedforclean=0;
-		// modulebuilder
-		if (preg_match('/^ModuleBuilderDesc/', $value)) $qualifiedforclean=0;
-	    // orders
-	    if (preg_match('/^OrderSource/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^TypeContact_/', $value)) $qualifiedforclean=0;
+    foreach ($langstrings_dist AS $value => $line)
+    {
+        $qualifiedforclean=1;
+        // Check if we must keep this key to be into file for removal
+        if (preg_match('/^Module\d+/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Permission\d+/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^PermissionAdvanced\d+/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^ProfId\d+/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Delays_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^BarcodeDesc/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Extrafield/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^LocalTax/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Country/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Civility/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Currency/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^DemandReasonTypeSRC/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^PaperFormat/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Duration/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^AmountLT/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^TotalLT/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Month/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^MonthShort/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Day\d/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Short/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^ExportDataset_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^ImportDataset_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^ActionAC_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^TypeLocaltax/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^StatusProspect/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^PL_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^TE_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^JuridicalStatus/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^CalcMode/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^newLT/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^LT[0-9]/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^TypeContact_contrat_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^ErrorPriceExpression/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^Language_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^DescADHERENT_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^SubmitTranslation/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^ModuleCompanyCode/', $value)) $qualifiedforclean=0;
+        if (preg_match('/InDolibarr$/', $value)) $qualifiedforclean=0;
+        // admin.lang
+        if (preg_match('/^DAV_ALLOW_PUBLIC_DIR/i', $value)) $qualifiedforclean=0;
+        if (preg_match('/^DAV_ALLOW_ECM_DIR/i', $value)) $qualifiedforclean=0;
+        // boxes.lang
+        if (preg_match('/^BoxTitleLast/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^BoxTitleLatest/', $value)) $qualifiedforclean=0;
+        // install.lang
+        if (preg_match('/^KeepDefaultValues/', $value)) $qualifiedforclean=0;
+        // mail.lang
+        if (preg_match('/MailingModuleDesc/i', $value)) $qualifiedforclean=0;
+        // main.lang
+        if (preg_match('/^Duration/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^FormatDate/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^DateFormat/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^.b$/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^.*Bytes$/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^NoteSomeFeaturesAreDisabled/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^(DoTest|Under|Limits|Cards|CurrentValue|DateLimit|DateAndHour|NbOfLines|NbOfObjects|NbOfReferes|TotalTTCShort|VATs)/', $value)) $qualifiedforclean=0;
+        // modulebuilder
+        if (preg_match('/^ModuleBuilderDesc/', $value)) $qualifiedforclean=0;
+        // orders
+        if (preg_match('/^OrderSource/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^TypeContact_/', $value)) $qualifiedforclean=0;
         // other.lang
-	    if (preg_match('/^Notify_/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^PredefinedMail/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^DemoCompany/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^WeightUnit/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^LengthUnit/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^SurfaceUnit/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^VolumeUnit/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^SizeUnit/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/^EMailText/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/ById$/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/ByLogin$/', $value)) $qualifiedforclean=0;
-	    // printing
-	    if (preg_match('/PrintingDriverDesc$/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/PrintTestDesc$/', $value)) $qualifiedforclean=0;
-	    // products
-	    if (preg_match('/GlobalVariableUpdaterType$/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/GlobalVariableUpdaterHelp$/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/OppStatus/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/AvailabilityType/', $value)) $qualifiedforclean=0;
-	    if (preg_match('/CardProduct/', $value)) $qualifiedforclean=0;
-
-	    if (preg_match('/sms/i', $value)) $qualifiedforclean=0;
-	    if (preg_match('/TF_/i', $value)) $qualifiedforclean=0;
-	    if (preg_match('/WithBankUsing/i', $value)) $qualifiedforclean=0;
-	    if (preg_match('/descWORKFLOW_/i', $value)) $qualifiedforclean=0;
-
-	    if (! $qualifiedforclean)
-	    {
+        if (preg_match('/^Notify_/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^PredefinedMail/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^DemoCompany/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^WeightUnit/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^LengthUnit/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^SurfaceUnit/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^VolumeUnit/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^SizeUnit/', $value)) $qualifiedforclean=0;
+        if (preg_match('/^EMailText/', $value)) $qualifiedforclean=0;
+        if (preg_match('/ById$/', $value)) $qualifiedforclean=0;
+        if (preg_match('/ByLogin$/', $value)) $qualifiedforclean=0;
+        // printing
+        if (preg_match('/PrintingDriverDesc$/', $value)) $qualifiedforclean=0;
+        if (preg_match('/PrintTestDesc$/', $value)) $qualifiedforclean=0;
+        // products
+        if (preg_match('/GlobalVariableUpdaterType$/', $value)) $qualifiedforclean=0;
+        if (preg_match('/GlobalVariableUpdaterHelp$/', $value)) $qualifiedforclean=0;
+        if (preg_match('/OppStatus/', $value)) $qualifiedforclean=0;
+        if (preg_match('/AvailabilityType/', $value)) $qualifiedforclean=0;
+        if (preg_match('/CardProduct/', $value)) $qualifiedforclean=0;
+
+        if (preg_match('/sms/i', $value)) $qualifiedforclean=0;
+        if (preg_match('/TF_/i', $value)) $qualifiedforclean=0;
+        if (preg_match('/WithBankUsing/i', $value)) $qualifiedforclean=0;
+        if (preg_match('/descWORKFLOW_/i', $value)) $qualifiedforclean=0;
+
+        if (! $qualifiedforclean)
+        {
             continue;
-	    }
-
-	    //$search = '\'trans("'.$value.'")\'';
-	    $search = '-e "\''.$value.'\'" -e \'"'.$value.'"\' -e "('.$value.')" -e "('.$value.',"';
-		$string =  'grep -R -m 1 -F --exclude=includes/* --include=*.php '.$search.' '.$htdocs.'* '.$scripts.'*';
-		//print $string."<br>\n";
-		exec($string,$output);
-		if (empty($output)) {
-   			$unused[$value] = $line;
-       		echo $line;        // $trad contains the \n
-		}
-		else
-		{
-		    unset($output);
-		    //print 'X'.$output.'Y';
-		}
-	}
-
-	if (empty($unused)) print "No string not used found.\n";
-	else
-	{
+        }
+
+        //$search = '\'trans("'.$value.'")\'';
+        $search = '-e "\''.$value.'\'" -e \'"'.$value.'"\' -e "('.$value.')" -e "('.$value.',"';
+        $string =  'grep -R -m 1 -F --exclude=includes/* --include=*.php '.$search.' '.$htdocs.'* '.$scripts.'*';
+        //print $string."<br>\n";
+        exec($string,$output);
+        if (empty($output)) {
+                $unused[$value] = $line;
+                echo $line;        // $trad contains the \n
+        }
+        else
+        {
+            unset($output);
+            //print 'X'.$output.'Y';
+        }
+    }
+
+    if (empty($unused)) print "No string not used found.\n";
+    else
+    {
         $filetosave='/tmp/'.($argv[2]?$argv[2]:"").'notused.lang';
         print "Strings in en_US that are never used are saved into file ".$filetosave.":\n";
         file_put_contents($filetosave, implode("",$unused));
@@ -377,7 +377,7 @@ 
         if (($argv[2]?$argv[2]:"")) print 'cd htdocs/langs/en_US; mv '.($argv[2]?$argv[2]:"")." ".($argv[2]?$argv[2]:"").".tmp; ";
         print "diff ".($argv[2]?$argv[2]:"").".tmp ".$filetosave." | grep \< | cut  -b 3- > ".($argv[2]?$argv[2]:"");
         if (($argv[2]?$argv[2]:"")) print "; rm ".($argv[2]?$argv[2]:"").".tmp;\n";
-	}
+    }
 }
 
 echo "\n";

dolibarr/dev/translation/autotranslator.class.php

Indentation +299 added lines, -299 removed lines

@@ -27,17 +27,17 @@ 
  */
 class autoTranslator
 {
-	private $_translatedFiles = array();
-	private $_destlang = '';
-	private $_refLang = '';
-	private $_langDir = '';
-	private $_limittofile = '';
-	private $_time;
-	private $_time_end;
-	private $_outputpagecode = 'UTF-8';
-	private $_apikey;
-	//private $_outputpagecode = 'ISO-8859-1';
-	const DIR_SEPARATOR = '/';
+    private $_translatedFiles = array();
+    private $_destlang = '';
+    private $_refLang = '';
+    private $_langDir = '';
+    private $_limittofile = '';
+    private $_time;
+    private $_time_end;
+    private $_outputpagecode = 'UTF-8';
+    private $_apikey;
+    //private $_outputpagecode = 'ISO-8859-1';
+    const DIR_SEPARATOR = '/';
 
 
     /**
@@ -53,296 +53,296 @@ 
     function __construct($_destlang,$_refLang,$_langDir,$_limittofile,$_apikey)
     {
 
-		// Set enviorment variables
-		$this->_destlang = $_destlang;
-		$this->_refLang = $_refLang;
-		$this->_langDir = $_langDir.self::DIR_SEPARATOR;
-		$this->_time = date('Y-m-d H:i:s');
-		$this->_limittofile = $_limittofile;
+        // Set enviorment variables
+        $this->_destlang = $_destlang;
+        $this->_refLang = $_refLang;
+        $this->_langDir = $_langDir.self::DIR_SEPARATOR;
+        $this->_time = date('Y-m-d H:i:s');
+        $this->_limittofile = $_limittofile;
         $this->_apikey = $_apikey;
 
-		// Translate
-		//ini_set('default_charset','UTF-8');
-		ini_set('default_charset',$this->_outputpagecode);
-		$this->parseRefLangTranslationFiles();
-	}
-
-	/**
-	 * 	Parse file
-	 *
-	 * 	@return	void
-	 */
-	private function parseRefLangTranslationFiles()
-	{
-
-		$files = $this->getTranslationFilesArray($this->_refLang);
-		$counter = 1;
-		foreach($files as $file)
-		{
-			if ($this->_limittofile && $this->_limittofile != $file) continue;
-			$counter++;
-			$fileContent = null;
-			$refPath = $this->_langDir.$this->_refLang.self::DIR_SEPARATOR.$file;
-			$fileContent = file($refPath,FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
-			print "Processing file " . $file . ", with ".count($fileContent)." lines<br>\n";
-
-			// Define target dirs
-			$targetlangs=array($this->_destlang);
-			if ($this->_destlang == 'all')
-			{
-				$targetlangs=array();
-
-				// If we must process all languages
-				$arraytmp=dol_dir_list($this->_langDir,'directories',0);
-				foreach($arraytmp as $dirtmp)
-				{
-					if ($dirtmp['name'] === $this->_refLang) continue;	// We discard source language
-					$tmppart=explode('_',$dirtmp['name']);
-					if (preg_match('/^en/i',$dirtmp['name']))  continue;	// We discard en_* languages
-					if (preg_match('/^fr/i',$dirtmp['name']))  continue;	// We discard fr_* languages
-					if (preg_match('/^es/i',$dirtmp['name']))  continue;	// We discard es_* languages
-					if (preg_match('/ca_ES/i',$dirtmp['name']))  continue;	// We discard es_CA language
-					if (preg_match('/pt_BR/i',$dirtmp['name']))  continue;	// We discard pt_BR language
+        // Translate
+        //ini_set('default_charset','UTF-8');
+        ini_set('default_charset',$this->_outputpagecode);
+        $this->parseRefLangTranslationFiles();
+    }
+
+    /**
+     * 	Parse file
+     *
+     * 	@return	void
+     */
+    private function parseRefLangTranslationFiles()
+    {
+
+        $files = $this->getTranslationFilesArray($this->_refLang);
+        $counter = 1;
+        foreach($files as $file)
+        {
+            if ($this->_limittofile && $this->_limittofile != $file) continue;
+            $counter++;
+            $fileContent = null;
+            $refPath = $this->_langDir.$this->_refLang.self::DIR_SEPARATOR.$file;
+            $fileContent = file($refPath,FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
+            print "Processing file " . $file . ", with ".count($fileContent)." lines<br>\n";
+
+            // Define target dirs
+            $targetlangs=array($this->_destlang);
+            if ($this->_destlang == 'all')
+            {
+                $targetlangs=array();
+
+                // If we must process all languages
+                $arraytmp=dol_dir_list($this->_langDir,'directories',0);
+                foreach($arraytmp as $dirtmp)
+                {
+                    if ($dirtmp['name'] === $this->_refLang) continue;	// We discard source language
+                    $tmppart=explode('_',$dirtmp['name']);
+                    if (preg_match('/^en/i',$dirtmp['name']))  continue;	// We discard en_* languages
+                    if (preg_match('/^fr/i',$dirtmp['name']))  continue;	// We discard fr_* languages
+                    if (preg_match('/^es/i',$dirtmp['name']))  continue;	// We discard es_* languages
+                    if (preg_match('/ca_ES/i',$dirtmp['name']))  continue;	// We discard es_CA language
+                    if (preg_match('/pt_BR/i',$dirtmp['name']))  continue;	// We discard pt_BR language
                     if (preg_match('/nl_BE/i',$dirtmp['name']))  continue;  // We discard nl_BE language
-					if (preg_match('/^\./i',$dirtmp['name']))  continue;	// We discard files .*
-					if (preg_match('/^CVS/i',$dirtmp['name']))  continue;	// We discard CVS
-					$targetlangs[]=$dirtmp['name'];
-				}
-				//var_dump($targetlangs);
-			}
-
-			// Process translation of source file for each target languages
-			foreach($targetlangs as $my_destlang)
-			{
-				$this->_translatedFiles = array();
-
-				$destPath = $this->_langDir.$my_destlang.self::DIR_SEPARATOR.$file;
-				// Check destination file presence
-				if (! file_exists($destPath))
-				{
-					// No file present, we generate file
-					echo "File not found: " . $destPath . ". We generate it.<br>\n";
-					$this->createTranslationFile($destPath,$my_destlang);
-				}
-				else
-				{
-					echo "Updating file: " . $destPath . "<br>\n";
-				}
-
-				// Translate lines
-				$fileContentDest = file($destPath,FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
-				$newlines=0;
-				foreach($fileContent as $line){
-					$key = $this->getLineKey($line);
-					$value = $this->getLineValue($line);
-					if ($key && $value)
-					{
-						$newlines+=$this->translateFileLine($fileContentDest,$file,$key,$value,$my_destlang);
-					}
-				}
-
-				$this->updateTranslationFile($destPath,$file,$my_destlang);
-				echo "New translated lines: " . $newlines . "<br>\n";
-				//if ($counter ==3) die('fim');
-			}
-		}
-	}
-
-	/**
-	 * Update file with new translations
-	 *
-	 * @param 	string	$destPath		Target path
-	 * @param 	string	$file			File
-	 * @param 	string	$my_destlang		Target language code
-	 * @return	void
-	 */
-	private function updateTranslationFile($destPath,$file,$my_destlang)
-	{
-		$this->_time_end = date('Y-m-d H:i:s');
-
-		if (isset($this->_translatedFiles[$file]) && count($this->_translatedFiles[$file])>0)
-		{
-			$fp = fopen($destPath, 'a');
-			fwrite($fp, "\n");
-			fwrite($fp, "\n");
-			fwrite($fp, "// START - Lines generated via autotranslator.php tool (".$this->_time.").\n");
-			fwrite($fp, "// Reference language: ".$this->_refLang." -> ".$my_destlang."\n");
-			foreach( $this->_translatedFiles[$file] as $line) {
-				fwrite($fp, $line . "\n");
-			}
-			fwrite($fp, "// STOP - Lines generated via autotranslator.php tool (".$this->_time_end.").\n");
-			fclose($fp);
-		}
-		return;
-	}
-
-	/**
-	 * Create a new translation file
-	 *
-	 * @param 	string	$path			Path
-	 * @param 	string	$my_destlang		Target language code
-	 * @return	void
-	 */
-	private function createTranslationFile($path,$my_destlang)
-	{
-		$fp = fopen($path, 'w+');
-		fwrite($fp, "/*\n");
-		fwrite($fp, " * Language code: {$my_destlang}\n");
-		fwrite($fp, " * Automatic generated via autotranslator.php tool\n");
-		fwrite($fp, " * Generation date " . $this->_time. "\n");
-		fwrite($fp, " */\n");
-		fclose($fp);
-		return;
-	}
-
-	/**
-	 * Put in array _translatedFiles[$file], line of a new tranlated pair
-	 *
-	 * @param 	string	$content		Existing content of dest file
-	 * @param 	string	$file			Target file name translated (xxxx.lang)
-	 * @param 	string	$key			Key to translate
-	 * @param 	string	$value			Existing value in source file
-	 * @param	string	$my_destlang	Language code (ie: fr_FR)
-	 * @return	int						0=Nothing translated, 1=Record translated
-	 */
-	private function translateFileLine($content,$file,$key,$value,$my_destlang)
-	{
-
-		//print "key    =".$key."\n";
-		foreach( $content as $line ) {
-			$destKey = $this->getLineKey($line);
-			$destValue = $this->getLineValue($line);
-			// If translated return
-			//print "destKey=".$destKey."\n";
-			if ( trim($destKey) == trim($key) )
-			{	// Found already existing translation (key already exits in dest file)
-				return 0;
-			}
-		}
-
-		if ($key == 'CHARSET') $val=$this->_outputpagecode;
-		else if (preg_match('/^Format/',$key)) $val=$value;
-		else if ($value=='-') $val=$value;
-		else
-		{
-			// If not translated then translate
-			if ($this->_outputpagecode == 'UTF-8') $val=$this->translateTexts(array($value),substr($this->_refLang,0,2),substr($my_destlang,0,2));
-			else $val=utf8_decode($this->translateTexts(array($value),substr($this->_refLang,0,2),substr($my_destlang,0,2)));
-		}
-
-		$val=trim($val);
-
-		if (empty($val)) return 0;
-
-		$this->_translatedFiles[$file][] = $key . '=' . $val ;
-		return 1;
-	}
-
-	/**
-	 * getLineKey
-	 *
-	 * @param 	string 	$line	Line found into file
-	 * @return	string	Key
-	 */
-	private function getLineKey($line)
-	{
-		$arraykey = explode('=',$line,2);
-		return trim($arraykey[0]);
-	}
-
-	/**
-	 * getLineValue
-	 *
-	 * @param 	string 	$line	Line found into file
-	 * @return	string	Value
-	 */
-	private function getLineValue($line)
-	{
-		$arraykey = explode('=',$line,2);
-		return trim(isset($arraykey[1])?$arraykey[1]:'');
-	}
-
-	/**
-	 * getTranslationFilesArray
-	 *
-	 * @param 	string 	$lang	Language code
-	 * @return	array	Array
-	 */
-	private function getTranslationFilesArray($lang)
-	{
-		$dir = new DirectoryIterator($this->_langDir.$lang);
-		while($dir->valid()) {
-			if(!$dir->isDot() && $dir->isFile() && ! preg_match('/^\./',$dir->getFilename())) {
-				$files[] =  $dir->getFilename();
-			}
-			$dir->next();
-		}
-		return $files;
-	}
-
-	/**
-	 * Return translation of a value
-	 *
-	 * @param 	array	$src_texts		Array with one value
-	 * @param 	string	$src_lang		Language code source (us, fr, it, ...)
-	 * @param 	string	$dest_lang		Language code target (es, de, ...)
-	 * @return 	string					Value translated
-	 */
-	private function translateTexts($src_texts, $src_lang, $dest_lang)
-	{
-		// We want to be sure that src_lang and dest_lang are using 2 chars only
-		$tmp=explode('_',$src_lang);
-		if (! empty($tmp[1]) && $tmp[0] == $tmp[1]) $src_lang=$tmp[0];
-		$tmp=explode('_',$dest_lang);
-		if (! empty($tmp[1]) && $tmp[0] == $tmp[1]) $dest_lang=$tmp[0];
-
-		//setting language pair
-		$lang_pair = $src_lang.'|'.$dest_lang;
-
-		$src_text_to_translate=preg_replace('/%s/','SSSSS',implode('',$src_texts));
-		$src_text_to_translate=preg_replace('/'.preg_quote('\n\n').'/',' NNNNN ',$src_text_to_translate);
-
-		// Define GET URL v1
-		//$url = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=".urlencode($src_text_to_translate)."&langpair=".urlencode($lang_pair);
-		// Example: http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=Setup%20area&langpair=en_US|fr_FR
+                    if (preg_match('/^\./i',$dirtmp['name']))  continue;	// We discard files .*
+                    if (preg_match('/^CVS/i',$dirtmp['name']))  continue;	// We discard CVS
+                    $targetlangs[]=$dirtmp['name'];
+                }
+                //var_dump($targetlangs);
+            }
+
+            // Process translation of source file for each target languages
+            foreach($targetlangs as $my_destlang)
+            {
+                $this->_translatedFiles = array();
+
+                $destPath = $this->_langDir.$my_destlang.self::DIR_SEPARATOR.$file;
+                // Check destination file presence
+                if (! file_exists($destPath))
+                {
+                    // No file present, we generate file
+                    echo "File not found: " . $destPath . ". We generate it.<br>\n";
+                    $this->createTranslationFile($destPath,$my_destlang);
+                }
+                else
+                {
+                    echo "Updating file: " . $destPath . "<br>\n";
+                }
+
+                // Translate lines
+                $fileContentDest = file($destPath,FILE_IGNORE_NEW_LINES|FILE_SKIP_EMPTY_LINES);
+                $newlines=0;
+                foreach($fileContent as $line){
+                    $key = $this->getLineKey($line);
+                    $value = $this->getLineValue($line);
+                    if ($key && $value)
+                    {
+                        $newlines+=$this->translateFileLine($fileContentDest,$file,$key,$value,$my_destlang);
+                    }
+                }
+
+                $this->updateTranslationFile($destPath,$file,$my_destlang);
+                echo "New translated lines: " . $newlines . "<br>\n";
+                //if ($counter ==3) die('fim');
+            }
+        }
+    }
+
+    /**
+     * Update file with new translations
+     *
+     * @param 	string	$destPath		Target path
+     * @param 	string	$file			File
+     * @param 	string	$my_destlang		Target language code
+     * @return	void
+     */
+    private function updateTranslationFile($destPath,$file,$my_destlang)
+    {
+        $this->_time_end = date('Y-m-d H:i:s');
+
+        if (isset($this->_translatedFiles[$file]) && count($this->_translatedFiles[$file])>0)
+        {
+            $fp = fopen($destPath, 'a');
+            fwrite($fp, "\n");
+            fwrite($fp, "\n");
+            fwrite($fp, "// START - Lines generated via autotranslator.php tool (".$this->_time.").\n");
+            fwrite($fp, "// Reference language: ".$this->_refLang." -> ".$my_destlang."\n");
+            foreach( $this->_translatedFiles[$file] as $line) {
+                fwrite($fp, $line . "\n");
+            }
+            fwrite($fp, "// STOP - Lines generated via autotranslator.php tool (".$this->_time_end.").\n");
+            fclose($fp);
+        }
+        return;
+    }
+
+    /**
+     * Create a new translation file
+     *
+     * @param 	string	$path			Path
+     * @param 	string	$my_destlang		Target language code
+     * @return	void
+     */
+    private function createTranslationFile($path,$my_destlang)
+    {
+        $fp = fopen($path, 'w+');
+        fwrite($fp, "/*\n");
+        fwrite($fp, " * Language code: {$my_destlang}\n");
+        fwrite($fp, " * Automatic generated via autotranslator.php tool\n");
+        fwrite($fp, " * Generation date " . $this->_time. "\n");
+        fwrite($fp, " */\n");
+        fclose($fp);
+        return;
+    }
+
+    /**
+     * Put in array _translatedFiles[$file], line of a new tranlated pair
+     *
+     * @param 	string	$content		Existing content of dest file
+     * @param 	string	$file			Target file name translated (xxxx.lang)
+     * @param 	string	$key			Key to translate
+     * @param 	string	$value			Existing value in source file
+     * @param	string	$my_destlang	Language code (ie: fr_FR)
+     * @return	int						0=Nothing translated, 1=Record translated
+     */
+    private function translateFileLine($content,$file,$key,$value,$my_destlang)
+    {
+
+        //print "key    =".$key."\n";
+        foreach( $content as $line ) {
+            $destKey = $this->getLineKey($line);
+            $destValue = $this->getLineValue($line);
+            // If translated return
+            //print "destKey=".$destKey."\n";
+            if ( trim($destKey) == trim($key) )
+            {	// Found already existing translation (key already exits in dest file)
+                return 0;
+            }
+        }
+
+        if ($key == 'CHARSET') $val=$this->_outputpagecode;
+        else if (preg_match('/^Format/',$key)) $val=$value;
+        else if ($value=='-') $val=$value;
+        else
+        {
+            // If not translated then translate
+            if ($this->_outputpagecode == 'UTF-8') $val=$this->translateTexts(array($value),substr($this->_refLang,0,2),substr($my_destlang,0,2));
+            else $val=utf8_decode($this->translateTexts(array($value),substr($this->_refLang,0,2),substr($my_destlang,0,2)));
+        }
+
+        $val=trim($val);
+
+        if (empty($val)) return 0;
+
+        $this->_translatedFiles[$file][] = $key . '=' . $val ;
+        return 1;
+    }
+
+    /**
+     * getLineKey
+     *
+     * @param 	string 	$line	Line found into file
+     * @return	string	Key
+     */
+    private function getLineKey($line)
+    {
+        $arraykey = explode('=',$line,2);
+        return trim($arraykey[0]);
+    }
+
+    /**
+     * getLineValue
+     *
+     * @param 	string 	$line	Line found into file
+     * @return	string	Value
+     */
+    private function getLineValue($line)
+    {
+        $arraykey = explode('=',$line,2);
+        return trim(isset($arraykey[1])?$arraykey[1]:'');
+    }
+
+    /**
+     * getTranslationFilesArray
+     *
+     * @param 	string 	$lang	Language code
+     * @return	array	Array
+     */
+    private function getTranslationFilesArray($lang)
+    {
+        $dir = new DirectoryIterator($this->_langDir.$lang);
+        while($dir->valid()) {
+            if(!$dir->isDot() && $dir->isFile() && ! preg_match('/^\./',$dir->getFilename())) {
+                $files[] =  $dir->getFilename();
+            }
+            $dir->next();
+        }
+        return $files;
+    }
+
+    /**
+     * Return translation of a value
+     *
+     * @param 	array	$src_texts		Array with one value
+     * @param 	string	$src_lang		Language code source (us, fr, it, ...)
+     * @param 	string	$dest_lang		Language code target (es, de, ...)
+     * @return 	string					Value translated
+     */
+    private function translateTexts($src_texts, $src_lang, $dest_lang)
+    {
+        // We want to be sure that src_lang and dest_lang are using 2 chars only
+        $tmp=explode('_',$src_lang);
+        if (! empty($tmp[1]) && $tmp[0] == $tmp[1]) $src_lang=$tmp[0];
+        $tmp=explode('_',$dest_lang);
+        if (! empty($tmp[1]) && $tmp[0] == $tmp[1]) $dest_lang=$tmp[0];
+
+        //setting language pair
+        $lang_pair = $src_lang.'|'.$dest_lang;
+
+        $src_text_to_translate=preg_replace('/%s/','SSSSS',implode('',$src_texts));
+        $src_text_to_translate=preg_replace('/'.preg_quote('\n\n').'/',' NNNNN ',$src_text_to_translate);
+
+        // Define GET URL v1
+        //$url = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=".urlencode($src_text_to_translate)."&langpair=".urlencode($lang_pair);
+        // Example: http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=Setup%20area&langpair=en_US|fr_FR
         // Define GET URL v2
-		$url = "https://www.googleapis.com/language/translate/v2?key=".$this->_apikey."&q=".urlencode($src_text_to_translate)."&source=".urlencode($src_lang)."&target=".urlencode($dest_lang);
-		// Example: https://www.googleapis.com/language/translate/v2?key=_apikey&q=Setup%20area&source=en_US&target=fr_FR
-
-		// Send request
-		//print "Url to translate: ".$url."\n";
-
-		if (! function_exists("curl_init"))
-		{
-		      print "Error, your PHP does not support curl functions.\n";
-		      die();
-		}
-
-		$ch = curl_init();
-		curl_setopt($ch, CURLOPT_URL, $url);
-		curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
-		curl_setopt($ch, CURLOPT_REFERER, "Mozilla");
-		$body = curl_exec($ch);
-		curl_close($ch);
-		//sleep(1);	// This is to avoid to overload server.
-
-		// now, process the JSON string
-		$json = json_decode($body, true);
-
-		if ((! empty($json['responseStatus']) && $json['responseStatus'] != 200)
-		|| count($json['data']['translations']) == 0)
-		{
-		    print "Error: ".$json['responseStatus']." ".$url."\n";
-			return false;
-		}
-
-		$rep=$json['data']['translations'][0]['translatedText'];
-		$rep=preg_replace('/SSSSS/i','%s',$rep);
-		$rep=preg_replace('/NNNNN/i','\n\n',$rep);
-		$rep=preg_replace('/&#39;/i','\'',$rep);
-
-		//print "OK ".join('',$src_texts).' => '.$rep."\n";
-
-		return $rep;
-	}
+        $url = "https://www.googleapis.com/language/translate/v2?key=".$this->_apikey."&q=".urlencode($src_text_to_translate)."&source=".urlencode($src_lang)."&target=".urlencode($dest_lang);
+        // Example: https://www.googleapis.com/language/translate/v2?key=_apikey&q=Setup%20area&source=en_US&target=fr_FR
+
+        // Send request
+        //print "Url to translate: ".$url."\n";
+
+        if (! function_exists("curl_init"))
+        {
+                print "Error, your PHP does not support curl functions.\n";
+                die();
+        }
+
+        $ch = curl_init();
+        curl_setopt($ch, CURLOPT_URL, $url);
+        curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
+        curl_setopt($ch, CURLOPT_REFERER, "Mozilla");
+        $body = curl_exec($ch);
+        curl_close($ch);
+        //sleep(1);	// This is to avoid to overload server.
+
+        // now, process the JSON string
+        $json = json_decode($body, true);
+
+        if ((! empty($json['responseStatus']) && $json['responseStatus'] != 200)
+        || count($json['data']['translations']) == 0)
+        {
+            print "Error: ".$json['responseStatus']." ".$url."\n";
+            return false;
+        }
+
+        $rep=$json['data']['translations'][0]['translatedText'];
+        $rep=preg_replace('/SSSSS/i','%s',$rep);
+        $rep=preg_replace('/NNNNN/i','\n\n',$rep);
+        $rep=preg_replace('/&#39;/i','\'',$rep);
+
+        //print "OK ".join('',$src_texts).' => '.$rep."\n";
+
+        return $rep;
+    }
 }