Konvertor 1250->8859-2

[Daniel Mihalyi]

Jiri Brezina <brezina na egp.cz> wrote:
>>> $SUBJ pro widle a nic. Nakopnete me, prosim.
>>  Pre wokna asi nie, ale pre linux je cstocs (cstocs-NECO.rpm).

> mam perlovy skripticek, takze i pod MalymiMekkymiOkny by mel bezet, 
> mate-li v MMO perl. Jestli chcete napiste mi, poslu Vam ho mejlem, 
> nemuzu to povesit na web, nemaje pristupu.
> JiriB*
Pribalujem aj ja jeden zo svojej liahne :) /ospravedlnujem sa, ze bez mktmp :)/
a malo blbuvzdorny narychlo :)

#!/bin/sh
# Autor: Daniello

if test "$1" = "-h"
  then
    echo Program na prekodovanie .html suborov z cp1250 na iso8859-2
    echo v aktualnom katalogu.
    echo Pouzitie: konviso
    exit
else


	for i in *.html
	   do

		jetam=`grep windows-1250 "$i"`

		if test "$jetam" != ""
		  then
		    echo -n "Prekoduwam $i..."
		    echo -n "cstocs..."
		    /usr/bin/cstocs cp1250 il2 $i >tmp$i
		    echo -n "meta charset..."
		    sed 's/charset=windows-1250/charset=iso-8859-2/g' tmp$i >$i
		    rm tmp$i
		    echo hotowo.
		fi

	done
fi
-- 
 _                                                          mihalyi na tuke.sk
| \ _.._ o _ || _                    PGP: finger mihalyi na hornad.fei.tuke.sk
|_/(_|| ||(/_||(_)       Key fingerprint = 3EC4C1F877673B0E14F1A6B2EA143223