326 lines
10 KiB
PHP
326 lines
10 KiB
PHP
|
#!/usr/bin/php
|
||
|
|
<?php
|
||
|
|
/*********************************************************************************
|
||
|
|
*
|
||
|
|
* TimeTrex is a Workforce Management program developed by
|
||
|
|
* TimeTrex Software Inc. Copyright (C) 2003 - 2021 TimeTrex Software Inc.
|
||
|
|
*
|
||
|
|
* This program is free software; you can redistribute it and/or modify it under
|
||
|
|
* the terms of the GNU Affero General Public License version 3 as published by
|
||
|
|
* the Free Software Foundation with the addition of the following permission
|
||
|
|
* added to Section 15 as permitted in Section 7(a): FOR ANY PART OF THE COVERED
|
||
|
|
* WORK IN WHICH THE COPYRIGHT IS OWNED BY TIMETREX, TIMETREX DISCLAIMS THE
|
||
|
|
* WARRANTY OF NON INFRINGEMENT OF THIRD PARTY RIGHTS.
|
||
|
|
*
|
||
|
|
* This program is distributed in the hope that it will be useful, but WITHOUT
|
||
|
|
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||
|
|
* FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more
|
||
|
|
* details.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* You should have received a copy of the GNU Affero General Public License along
|
||
|
|
* with this program; if not, see http://www.gnu.org/licenses or write to the Free
|
||
|
|
* Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
||
|
|
* 02110-1301 USA.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* You can contact TimeTrex headquarters at Unit 22 - 2475 Dobbin Rd. Suite
|
||
|
|
* #292 West Kelowna, BC V4T 2E9, Canada or at email address info@timetrex.com.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* The interactive user interfaces in modified source and object code versions
|
||
|
|
* of this program must display Appropriate Legal Notices, as required under
|
||
|
|
* Section 5 of the GNU Affero General Public License version 3.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* In accordance with Section 7(b) of the GNU Affero General Public License
|
||
|
|
* version 3, these Appropriate Legal Notices must retain the display of the
|
||
|
|
* "Powered by TimeTrex" logo. If the display of the logo is not reasonably
|
||
|
|
* feasible for technical reasons, the Appropriate Legal Notices must display
|
||
|
|
* the words "Powered by TimeTrex".
|
||
|
|
*
|
||
|
|
********************************************************************************/
|
||
|
|
/*
|
||
|
|
* File Contributed By: Open Source Consulting, S.A. San Jose, Costa Rica.
|
||
|
|
* http://osc.co.cr
|
||
|
|
*/
|
||
|
|
|
||
|
|
if ( PHP_SAPI != 'cli' ) {
|
||
|
|
echo "This script can only be called from the Command Line.\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
|
||
|
|
// This script will send an email notification to the translator(s) listed in any
|
||
|
|
// messages.po file. The notification basically says that the application has
|
||
|
|
// been updated and it would be great if they can review/update the translations.
|
||
|
|
|
||
|
|
// This script is intended to be run by hand. It is important that one person be in
|
||
|
|
// charge of this, as we do not want to be spamming people over and over.
|
||
|
|
|
||
|
|
$root_dir = '../../interface/locale';
|
||
|
|
if ( count( $argv ) > 1 ) {
|
||
|
|
$root_dir = $argv[1];
|
||
|
|
}
|
||
|
|
|
||
|
|
$d = opendir( $root_dir );
|
||
|
|
|
||
|
|
if ( $d ) {
|
||
|
|
$outpath = $root_dir . '/' . 'statistics.txt';
|
||
|
|
$fh = fopen( $outpath, 'w' );
|
||
|
|
|
||
|
|
$ignore_dirs = [ '.', '..', 'CVS' ];
|
||
|
|
while ( false !== ( $file = readdir( $d ) ) ) {
|
||
|
|
if ( is_dir( $root_dir . '/' . $file ) && !in_array( $file, $ignore_dirs ) ) {
|
||
|
|
$stats = calcStats( $root_dir, $file );
|
||
|
|
$pct = $stats['pct_complete'];
|
||
|
|
$team = $stats['team'];
|
||
|
|
$trans = $stats['translator'];
|
||
|
|
|
||
|
|
$string_lang = lang( $file );
|
||
|
|
|
||
|
|
$emailTeam = search_email( $team );
|
||
|
|
if ( $emailTeam != null ) {
|
||
|
|
send_mail( $emailTeam, 'timetrex', $string_lang, $pct );
|
||
|
|
}
|
||
|
|
|
||
|
|
$emailTrans = search_email( $trans );
|
||
|
|
if ( $emailTrans != null ) {
|
||
|
|
send_mail( $emailTrans, 'timetrex', $string_lang, $pct );
|
||
|
|
}
|
||
|
|
fwrite( $fh, "$file|$pct|$team|$trans|$string_lang\n" );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
closedir( $d );
|
||
|
|
|
||
|
|
fclose( $fh );
|
||
|
|
}
|
||
|
|
|
||
|
|
function calcStats( $root_dir, $locale ) {
|
||
|
|
$messages = 0;
|
||
|
|
$translations = 0;
|
||
|
|
$fuzzy = 0;
|
||
|
|
|
||
|
|
$team = '';
|
||
|
|
$trans = '';
|
||
|
|
|
||
|
|
$path = $root_dir . '/' . $locale . '/LC_MESSAGES/messages.po';
|
||
|
|
// echo "<li><b>$path</b>";
|
||
|
|
if ( file_exists( $path ) ) {
|
||
|
|
$lines = file( $path );
|
||
|
|
|
||
|
|
$in_msgid = false;
|
||
|
|
$in_msgstr = false;
|
||
|
|
$found_translation = false;
|
||
|
|
$found_msg = false;
|
||
|
|
|
||
|
|
|
||
|
|
foreach ( $lines as $line ) {
|
||
|
|
// ignore comment lines
|
||
|
|
if ( $line[0] == '#' ) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
// Parse out the contributors.
|
||
|
|
if ( strstr( $line, '"Language-Team: ' ) ) {
|
||
|
|
$endpos = strpos( $line, '\n' );
|
||
|
|
if ( $endpos === false ) {
|
||
|
|
$endpos = strlen( $line ) - 2;
|
||
|
|
}
|
||
|
|
$len = strlen( '"Language-Team: ' );
|
||
|
|
$field = substr( $line, $len, $endpos - $len );
|
||
|
|
$names = explode( ',', $field );
|
||
|
|
foreach ( $names as $name ) {
|
||
|
|
if ( $name != 'none' ) {
|
||
|
|
if ( $team != '' ) {
|
||
|
|
$team .= ',';
|
||
|
|
}
|
||
|
|
$team .= trim( $name );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//Parse the Last-Translator
|
||
|
|
if ( strstr( $line, '"Last-Translator: ' ) ) {
|
||
|
|
$endpos = strpos( $line, '\n' );
|
||
|
|
if ( $endpos === false ) {
|
||
|
|
$endpos = strlen( $line ) - 2;
|
||
|
|
}
|
||
|
|
$len = strlen( '"Last-Translator: ' );
|
||
|
|
$field = substr( $line, $len, $endpos - $len );
|
||
|
|
$Transnames = explode( ',', $field );
|
||
|
|
foreach ( $Transnames as $Transname ) {
|
||
|
|
if ( $Transname != 'Automatically generated' ) {
|
||
|
|
if ( $trans != '' ) {
|
||
|
|
$trans .= ',';
|
||
|
|
}
|
||
|
|
$trans .= trim( $Transname );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( strstr( $line, 'msgid "' ) ) {
|
||
|
|
$in_msgid = true;
|
||
|
|
$in_msgstr = false;
|
||
|
|
$found_msg = false;
|
||
|
|
$found_translation = false;
|
||
|
|
}
|
||
|
|
if ( $in_msgid && !$found_msg && strstr( $line, '"' ) && !strstr( $line, '""' ) ) {
|
||
|
|
// echo "<li>msgid: $line";
|
||
|
|
$found_msg = true;
|
||
|
|
$messages++;
|
||
|
|
} else if ( strstr( $line, 'msgstr "' ) ) {
|
||
|
|
$in_msgstr = true;
|
||
|
|
$in_msgid = false;
|
||
|
|
}
|
||
|
|
if ( $in_msgstr && $found_msg && !$found_translation ) {
|
||
|
|
if ( strstr( $line, '"' ) && !strstr( $line, '""' ) ) {
|
||
|
|
// echo "<li>msgstr: $line";
|
||
|
|
$translations++;
|
||
|
|
$found_translation = true;
|
||
|
|
}
|
||
|
|
} else if ( strstr( $line, '#, fuzzy' ) ) {
|
||
|
|
$fuzzy++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$translations -= $fuzzy;
|
||
|
|
$pct_complete = $messages ? (int)( ( $translations / $messages ) * 100 ) : 0;
|
||
|
|
|
||
|
|
return [ 'pct_complete' => $pct_complete, 'team' => $team, 'translator' => $trans ];
|
||
|
|
}
|
||
|
|
|
||
|
|
function statistics( $cad ) {
|
||
|
|
$names = explode( ',', $cad );
|
||
|
|
foreach ( $names as $name ) {
|
||
|
|
if ( strstr( $name, ' translated' ) ) {
|
||
|
|
$translated = $name;
|
||
|
|
} else {
|
||
|
|
if ( strstr( $name, ' fuzzy' ) ) {
|
||
|
|
$fuzzy = $name;
|
||
|
|
} else {
|
||
|
|
if ( strstr( $name, ' untranslated' ) ) {
|
||
|
|
$untranslated = $name;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return [ 'translated' => $translated, 'fuzzy' => $fuzzy, 'untranslated' => $untranslated ];
|
||
|
|
}
|
||
|
|
|
||
|
|
function send_mail( $to, $from, $lang, $pct ) {
|
||
|
|
$subject = <<<END
|
||
|
|
Timetrex updated, {$lang} translation out of date
|
||
|
|
END;
|
||
|
|
|
||
|
|
$msg = <<<END
|
||
|
|
to: {$to}
|
||
|
|
from: {$from}
|
||
|
|
subject: {$subject}
|
||
|
|
|
||
|
|
Hello,
|
||
|
|
|
||
|
|
You are receiving this email because you previously contributed {$lang}
|
||
|
|
translations to Timetrex. The application has recently been updated, which
|
||
|
|
means that new english text needs to be translated.
|
||
|
|
|
||
|
|
As of this moment, the {$lang} translation file is {$pct}% complete.
|
||
|
|
|
||
|
|
If you could find a few minutes to update the translation file, it would be
|
||
|
|
greatly appreciated. In any event, we thank-you for your previous contribution,
|
||
|
|
which has helped the site reach many {$lang} readers.
|
||
|
|
|
||
|
|
You can always find the latest language files and instructions at:
|
||
|
|
|
||
|
|
*TODO_NEED_URL_HERE*
|
||
|
|
|
||
|
|
Best,
|
||
|
|
|
||
|
|
Timetrex
|
||
|
|
END;
|
||
|
|
|
||
|
|
$msg = wordwrap( $msg, 100 );
|
||
|
|
$subject = wordwrap( $subject, 100 );
|
||
|
|
mail( $to, $subject, $msg );
|
||
|
|
}
|
||
|
|
|
||
|
|
function lang( $cad ) {
|
||
|
|
$languages = [
|
||
|
|
'af_ZA' => 'Afrikaans', 'am_ET' => 'Amharic', 'as_IN' => 'Assamese', 'az_AZ' => 'Azerbaijani',
|
||
|
|
'be_BY' => 'Belarusian', 'bg_BG' => 'Bulgarian', 'bn_IN' => 'Bengali', 'bo_CN' => 'Tibetan',
|
||
|
|
'br_FR' => 'Breton', 'bs_BA' => 'Bosnian', 'ca_ES' => 'Catalan', 'ce_RU' => 'Chechen', 'co_FR' => 'Corsican',
|
||
|
|
'cs_CZ' => 'Czech', 'cy_GB' => 'Welsh', 'da_DK' => 'Danish', 'de_DE' => 'German', 'dz_BT' => 'Dzongkha', 'el_GR' => 'Greek',
|
||
|
|
'en_US' => 'English', 'es_ES' => 'Spanish', 'et_EE' => 'Estonian', 'fa_IR' => 'Persian', 'fi_FI' => 'Finnish',
|
||
|
|
'fj_FJ' => 'Fijian', 'fo_FO' => 'Faroese', 'fr_FR' => 'French', 'ga_IE' => 'Irish', 'gd_GB' => 'Scots',
|
||
|
|
'gu_IN' => 'Gujarati', 'he_IL' => 'Hebrew', 'hi_IN' => 'Hindi', 'hr_HR' => 'Croatian', 'hu_HU' => 'Hungarian',
|
||
|
|
'hy_AM' => 'Armenian', 'id_ID' => 'Indonesian', 'is_IS' => 'Icelandic', 'it_IT' => 'Italian', 'ja_JP' => 'Japanese',
|
||
|
|
'jv_ID' => 'jv', 'ka_GE' => 'GeorgKoreanian', 'kk_KZ' => 'Kazakh', 'kl_GL' => 'Kalaallisut', 'km_KH' => 'Khmer',
|
||
|
|
'kn_IN' => 'Kannada', 'kok_IN' => 'Konkani', 'ko_KR' => 'Korean', 'lo_LA' => 'Laotian', 'lt_LT' => 'Lithuanian',
|
||
|
|
'lv_LV' => 'Latvian', 'mg_MG' => 'Malagasy', 'mk_MK' => 'Macedonian', 'ml_IN' => 'Malayalam', 'mni_IN' => 'Manipuri',
|
||
|
|
'mn_MN' => 'Mongolian', 'mr_IN' => 'Marathi', 'ms_MY' => 'Malay', 'mt_MT' => 'Maltese', 'my_MM' => 'Burmese',
|
||
|
|
'na_NR' => 'Nauru', 'nb_NO' => 'Norwegian', 'ne_NP' => 'Nepali', 'nl_NL' => 'Dutch', 'nn_NO' => 'Norwegian',
|
||
|
|
'oc_FR' => 'Occitan', 'or_IN' => 'Oriya', 'pa_IN' => 'Punjabi', 'pl_PL' => 'Polish', 'ps_AF' => 'Pashto', 'pt_PT' => 'Portuguese',
|
||
|
|
'rm_CH' => 'Rhaeto-Roman', 'rn_BI' => 'Kirundi', 'ro_RO' => 'Romanian', 'ru_RU' => 'Russian', 'sa_IN' => 'Sanskrit',
|
||
|
|
'sc_IT' => 'Sardinian', 'sg_CF' => 'Sango', 'si_LK' => 'Sinhalese', 'sk_SK' => 'Slovak', 'sl_SI' => 'Slovenian',
|
||
|
|
'so_SO' => 'Somali', 'sq_AL' => 'Albanian', 'sr_YU' => 'Serbian', 'sv_SE' => 'Swedish', 'te_IN' => 'Telugu',
|
||
|
|
'tg_TJ' => 'Tajik', 'th_TH' => 'Thai', 'tk_TM' => 'Turkmen', 'tl_PH' => 'Tagalog', 'to_TO' => 'Tonga', 'tr_TR' => 'Turkish',
|
||
|
|
'uk_UA' => 'Ukrainian', 'ur_PK' => 'Urdu', 'uz_UZ' => 'Uzbek', 'vi_VN' => 'Vietnamese', 'wa_BE' => 'wa', 'wen_DE' => 'Sorbian',
|
||
|
|
];
|
||
|
|
|
||
|
|
return ( $languages[$cad] );
|
||
|
|
}
|
||
|
|
|
||
|
|
function search_email( $cad ) {
|
||
|
|
$names = '';
|
||
|
|
$i = 0;
|
||
|
|
$name = '';
|
||
|
|
|
||
|
|
$names = explode( ' ', $cad );
|
||
|
|
foreach ( $names as $name ) {
|
||
|
|
for ( $i = 0; $i <= strlen( $name ); $i++ ) {
|
||
|
|
if ( $name[$i] == "<" || $name[$i] == ">" ) {
|
||
|
|
$name[$i] = " ";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( check_email_address( trim( $name ) ) ) {
|
||
|
|
return ( $name );
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function check_email_address( $email ) {
|
||
|
|
// check @
|
||
|
|
if ( !ereg( "[^@]{1,64}@[^@]{1,255}", $email ) ) {
|
||
|
|
// Email error @'s
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$email_array = explode( "@", $email );
|
||
|
|
$local_array = explode( ".", $email_array[0] );
|
||
|
|
for ( $i = 0; $i < sizeof( $local_array ); $i++ ) {
|
||
|
|
if ( !ereg( "^(([A-Za-z0-9!#$%&'*+/=?^_`{|}~-][A-Za-z0-9!#$%&'*+/=?^
|
||
|
|
_`{|}~\.-]{0,63})|(\"[^(\\|\")]{0,62}\"))$", $local_array[$i] ) ) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( !ereg( "^\[?[0-9\.]+\]?$", $email_array[1] ) ) {
|
||
|
|
// check domain
|
||
|
|
$domain_array = explode( ".", $email_array[1] );
|
||
|
|
|
||
|
|
if ( sizeof( $domain_array ) < 2 ) {
|
||
|
|
return false; // Domain false
|
||
|
|
}
|
||
|
|
for ( $i = 0; $i < sizeof( $domain_array ); $i++ ) {
|
||
|
|
if ( !ereg( "^(([A-Za-z0-9][A-Za-z0-9-]{0,61}[A-Za-z0-9])|([A-Za-z0-9]+))$", $domain_array[$i] ) ) {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
?>
|