cosmetics, incidently fixing bug 1458

[lyx.git] / po / postats.sh

diff --git a/po/postats.sh b/po/postats.sh
index 7f1d9eda72fc9f2914c440337dd6a00fa1687597..3630112bab86af98d1a50223848c4de1b60588f3 100755 (executable)
--- a/po/postats.sh
+++ b/po/postats.sh
@@ -15,6 +15,17 @@
 # Invocation:
 #    postats.sh po_files > "pathToWebPages"/i18n.php3
 
+# modifiy this when you change version
+# Note that an empty lyx_branch variable (ie cvs HEAD)
+# will "do the right thing".
+lyx_version=1.4.0cvs
+lyx_branch=
+
+
+# GNU sed and grep have real problems dealing with 8-bit characters
+# in UTF-8 encoded environments.
+unset LANG
+
 
 warning () {
        echo $* 1>&2
@@ -99,6 +110,19 @@ run_msgfmt () {
        }
        unset input
 
+       # Does $translator contain 8-bit characters?
+       TAB='   '
+       echo $translator | grep "[^${TAB} -~]" >/dev/null && {
+               # If so, grab the encoding from the po file.
+               charset=`sed -n '/Content-Type/{s/.*charset=//;s/\\\\n" *$//p;q}' $pofile`
+               # Use recode to generate HTML character codes for the 8-bit
+               # characters.
+               translator=`echo $translator | recode "${charset}..h4"` || exit 1
+               # The ampersands in the $translator entries will mess things
+               # up unless we escape 'em.
+               translator=`echo $translator | sed 's/&/\\\&/g'`
+       }
+
        # Run msgfmt on the pofile, filling $message with the raw info.
        message=`$msgfmt --statistics -o $gmofile $pofile 2>&1 | grep "^[1-9]"` || {
                warning "Unable to run msgfmt successfully on file $1"
@@ -155,6 +179,13 @@ EOF
 
 # The foot of the generated php file.
 dump_tail () {
+
+test "$lyx_branch" = "" && {
+       branch_tag=""
+} || {
+       branch_tag="?only_with_tag=$lyx_branch"
+}
+
 cat <<EOF
 <?
 \$lang = array(
@@ -171,6 +202,7 @@ cat <<EOF
        'hu' => 'Hungarian',
        'it' => 'Italian',
        'nl' => 'Dutch',
+       'nn' => 'Nynorsk',
        'no' => 'Norwegian',
        'pl' => 'Polish',
        'pt' => 'Portuguese',
@@ -197,8 +229,8 @@ usort (\$podata, "cmp");
 
 <p>
        The following table details the current state of the translations of the
-       LyX GUI for the main LyX development branch (currently 1.3.0cvs).
-       Unfortunately, only a few languages are well-supported. The LyX term may,
+       LyX GUI for the LyX stable branch (currently $lyx_version).
+       Unfortunately, only a few languages are well-supported. The LyX team may,
        therefore, decide to exclude some of the translations from a formal
        release in order not to confuse the user with a strongly mixed-language
        interface.
@@ -236,8 +268,9 @@ while (list(\$foo,\$info) = each(\$podata)) {
        } else {
                \$style="style='background:#AA3333'";
        }
+       print "<td \$style>" ;
 
-       print "<td \$style>" . \$lang[\$info['langcode']] . "</td>";
+       print "<a href=\"http://www.lyx.org/cgi-bin/viewcvs.cgi/lyx-devel/po/" . \$info['langcode'] . ".po$branch_tag\">" . \$lang[\$info['langcode']] . "</a></td>";
 
        print "<td \$style align=\"right\">" . \$info['msg_tr'] . "</td>";