Что за нафиг?

#!/bin/sh
# rmspaces - заменяет некошерные пробелы на кошерные подчеркивания
list=/tmp/rmspaces.$$
ls -1 > $list

while read file
do
    new=`echo "$file" | sed "s/\ /_/g"`
    if [ "$new" != "$file" ]; then
	mv "$file" "$new"
	echo "$file  RENAMED INTO   $new"
    fi
    if [ "$1" = "-r" -a -d "$new" ]; then
        cd "$new"
	echo -e "\t\tDiving into $PWD"
        rmspaces -r
        cd ../
    fi
done < $list
rm $list

#!/bin/sh
#		rename_translit --- переводит русские имена файлов в транслит

rmspaces
for Name in `ls -1`
do
    Newname=`echo "$Name"|enconv|sed -e \
    "y/йукенгзхъфывапролдэсмитьбЙУКЕНГЗХЪФЫВАПРОЛДЭСМИТЬБ/jukengzh'fyvaproldesmit'bJUKENGZH'FYVAPROLDESMIT'B/"\
    -e "s/ц/tz/g"	\
    -e "s/ш/sh/g"	\
    -e "s/щ/sch/g"	\
    -e "s/ж/zh/g"	\
    -e "s/ч/ch/g"	\
    -e "s/ю/yu/g"	\
    -e "s/я/ya/g"	\
    -e "s/ё/yo/g"	\
    -e "s/Ё/YO/g"	\
    -e "s/Ц/TZ/g"	\
    -e "s/Ш/SH/g"	\
    -e "s/Щ/SCH/g"	\
    -e "s/Ж/ZH/g"	\
    -e "s/Ч/CH/g"	\
    -e "s/Ю/YU/g"	\
    -e "s/?/_/g"	\
    -e "s/Я/YA/g"`
    if [ "$Name" != "$Newname" ]; then
        mv "$Name" "$Newname"
	echo -e "$Name   ->    $Newname                             \r\c"
    fi
    if [ -d "$Newname" ]; then
	cd "$Newname"
	echo -e "\n\nDiving into $Newname"
	rename_translit
	cd ../
    fi
done

LANG=ru_RU.KOI8-R