#!/usr/bash

diffmv() {
    if [ ! -z "$1" -a ! -z "$2" ]
    then
        if [ -f "$2" ]
        then
            if [ "${1%%.tm}" == "$1" ]
            then
                if diff -u "$2" "$1"
                then
                    /bin/rm -f "$1"
                else
                    /bin/mv -f "$1" "$2"
                fi
            else
                if diff -q "$2" "$1" > /dev/null
                then
                    /bin/rm -f "$1"
                else
                    /bin/mv -f "$1" "$2"
                fi
            fi
        else
            /bin/mv -f "$1" "$2"
        fi
    fi
}

diffcp() {
    if [ ! -z "$1" -a ! -z "$2" ]
    then
        if [ -f "$2" ]
        then
            if [ "${1%%.tm}" == "$1" ]
            then
                if ! diff -u "$2" "$1"
                then
                    /bin/cp -a "$1" "$2"
                fi
            else
                if ! diff -q "$2" "$1" > /dev/null
                then
                    /bin/cp -a "$1" "$2"
                fi
            fi
        else
            /bin/cp -a "$1" "$2"
        fi
    fi
}

potempl() {
    xgettext -L perl -o - $@ \
    | sed 's@charset=CHARSET@charset=UTF-8@;s@[^ ]*/root/@root/@g;s@Project-Id-Version.*\\n@Project-Id-Version: SME Console\\n@' \
    | sed '/Report-Msgid-Bugs-To/d;/POT-Creation-Date/d;/PO-Revision-Date/d;/Language-Team/d;/X-Generator/d;0,/^msgid/{/^#/d}' \
    | msgcat -F -t UTF-8 -
}

xmltempl() {
    mkdir -p /etc/pootle/tmp/templates /etc/pootle/templates

    root=$(echo $1 | sed 's@.*/root/@root/@')
    cat $1 \
    | perl -pe 's@<@_{_@g;s@>@_}_@g;s@&@_AMP_@g;s@_{_(/?(?:lexicon|entry|base|trans).*?)_}_@<$1>@g' \
    | sed '/<\\\?lexicon/p;0,/<lexicon/d;/<\\lexicon/,$d' \
    | tee /etc/pootle/tmp/templates/$(basename $1).orig \
    | xml2po -m sme -e -o - - \
    | sed "/(lexicon)/{N;N;N;d};s@-\(:[0-9]\+([^)]\+)\)@$root\1@g" \
    | tee >(cat - |  sed '/^msgid/{p;s@msgid@msgstr@p;N;d}' \
		  | xml2po -m sme -p - /etc/pootle/tmp/templates/$(basename $1).orig \
		  > /etc/pootle/tmp/templates/$(basename $1) ) \
    | perl -pe 's@_AMP_@&@g;s@_{_@<@g;s@_}_@>@g' \
    | msgcat -F -t UTF-8 - \
    | sed "/^\"POT-Creation-Date:/d;s@Project-Id-Version.*\\\n@Project-Id-Version: $2\\\n@" \
    > /etc/pootle/tmp/templates/$(basename $1).pot
    diffmv /etc/pootle/tmp/templates/$(basename $1).orig /etc/pootle/templates/$(basename $1).orig
    diffmv /etc/pootle/tmp/templates/$(basename $1) /etc/pootle/templates/$(basename $1)
    diffmv /etc/pootle/tmp/templates/$(basename $1).pot /etc/pootle/templates/$(basename $1).pot
}

anacondatmpl() {
    xgettext -L python \
	     -k=_ \
	     -k=N_ \
	     -o - \
	     $(sed -n '/\.py/s@^\([^ \t]\+\)[ \t]\+\([^/]\+\)\(/.*\)\?@/etc/pootle/cvs/smeserver/\2/sme7/\2-*\3/\1@p' \
		   /etc/pootle/cvs/smeserver/cdrom.image/updates/README.txt) \
	     /etc/pootle/cvs/smeserver/cdrom.image/updates/*.py \
	     /etc/pootle/cvs/smeserver/cdrom.image/product/installclasses/*.py \
    | sed 's@charset=CHARSET@charset=UTF-8@;s@[^ ]*/sme7/[^:]\+/\([^:]\+\):@updates/\1:@g;s@[^ ]*/cdrom.image/@@g;' \
    | sed 's@Project-Id-Version.*\\n@Project-Id-Version: SME Anaconda\\n@' \
    | msgcat -u \
	     --use-first \
	     - \
	     <(sed 's@CHARSET@UTF-8@' /etc/pootle/cvs/smeserver/anaconda/sme7/anaconda-*/po/anaconda.pot) \
	     <(sed 's@CHARSET@UTF-8@' /etc/pootle/cvs/smeserver/anaconda/sme7/anaconda-*/po/anaconda.pot) \
    | sed '/Report-Msgid-Bugs-To/d;/POT-Creation-Date/d;/PO-Revision-Date/d;/Last-Translator/d;/Language-Team/d;/X-Generator/d;0,/^msgid/{/^#/d}' \
    | msgcat -F -t UTF-8 -
}

xmltrans() {
    if [ ! -f /etc/pootle/templates/$(basename $1) ]
    then
	echo "Missing /etc/pootle/templates/$(basename $1)"
    elif [ ! -f /etc/pootle/templates/$(basename $1).pot ]
    then
	echo "Missing /etc/pootle/templates/$(basename $1).pot"
    else
	#| iconv -f ISO-8859-1 -t UTF-8 \
	#lang=$(echo $1 | sed 's@.*/locale/\([^/]\+\)/.*@\1@')
	cat $1 \
	| perl -pe 's@<@_{_@g;s@>@_}_@g;s@&@_AMP_@g;s@_{_(/?(?:lexicon|entry|base|trans).*?)_}_@<$1>@g' \
	| sed '/<\\\?lexicon/p;0,/<lexicon/d;/<\\lexicon/,$d' \
	| xml2po -m sme -r - -o - /etc/pootle/templates/$(basename $1) \
	| perl -pe 's@_AMP_@&@g;s@_{_@<@g;s@_}_@>@g' \
	| sed "/(lexicon)/{N;N;N;d}" \
	| msgcat -F -t UTF-8 - \
	| msgmerge -q -F - /etc/pootle/templates/$(basename $1).pot
    fi
}

xmlgen() {
    if [ ! -f /etc/pootle/templates/$(basename $1 | sed 's@\.pot\?$@@') ]
    then
	echo "Missing /etc/pootle/templates/$(basename $1 | sed 's@\.pot\?$@@')" 1>&2
    else
	#lang=$(basename $(dirname $1))
	msgcat -F $1 \
	| perl -pe 's@<@_{_@g;s@>@_}_@g;s@&@_AMP_@g' \
        | sed '/#,/d' | sed '1,/X-Generator/{;s,_{_,<,g;s,_}_,>,g;s,_AMP_,\&,g;}' \
	| sed '/#,/d' \
	| xml2po -m sme -p - /etc/pootle/templates/$(basename $1 | sed 's@\.pot\?$@@') \
	| sed '1d' \
	| perl -pe 's@_AMP_@&@g;s@_{_@<@g;s@_}_@>@g' \
	| perl -pe 's@(lexicon\s+lang[^"]+"[^"]+)_([^"]+)"@"$1-".lc($2)."\""@e'
    fi
}

anacondagen() {
    if [ -f /etc/pootle/cvs/smeserver/anaconda/$1/anaconda-*/po/$2.po ]
    then
	msgcat --use-first \
	       /etc/pootle/cvs/smeserver/anaconda/$1/anaconda-*/po/$2.po \
	       /etc/pootle/po/sme7bc/$2/anaconda.po \
	| msgfmt -f -o - - 2> /dev/null
	if [ $? -ne 0 ]
	then
	    msgcat --use-first \
		   /etc/pootle/cvs/smeserver/anaconda/$1/anaconda-*/po/$2.po \
		   /etc/pootle/po/sme7bc/$2/anaconda.po \
	    | msgfmt -o - - 2> /dev/null
	fi
    fi
}

localedir() {
    dir=$(echo $1 | perl -pe 's/_(.*)/-lc($1)/e')
    if [ "$2" == "general" ]
    then
	echo "root/etc/e-smith/locale/$dir/FormMagick"
    elif [ "$2" == "userpassword" ]
    then
	echo "root/etc/e-smith/locale/$dir/etc/e-smith/web/panels/password/cgi-bin"
    else
	echo "root/etc/e-smith/locale/$dir/etc/e-smith/web/functions"
    fi
}