#!/bin/sh
# *koi8-r*
# Преобразователь файлов gnucash из старого формата
#
# Укажите в параметрах файлы, которые
# нужно преобразовать к новому формату.
# К сожалению, пробелы в названиях не поддерживаются
# ВНИМАНИЕ! Исходные файлы будут перезаписаны,
# копии сохранены в *~

# (c) 2002-2003, 2006 Vitaly Lipatov <lav@altlinux.ru>

DEFCHARSET=`locale charmap`

for i in "${@}"
do
	echo "Converting $i"
	cp -f "${i}" "${i}~"
	cat "$i~" | \
		perl -pi -e 's/&#([0-9]{3});/chr(sprintf("%d",$1))/eg' |\
		iconv -f $DEFCHARSET -t utf-8 | cat >"$i"
done