#!/bin/sh

euc_casperm()
{
sh ./bin/casperm.euc
}

shj_casperm()
{
sh ./bin/casperm.sj
}

std_casperm()
{
sh ./bin/casperm.std
}


# First work out what LC_MESSAGES is current.
curlng=`locale | fgrep LC_MESSAGES | tr '=' ' ' | awk '{print $2}' | tr '\"' '\0'`

# FORCE LC_CTYPE to agree with LC_MESSAGES. 
# Unreadable system messages can occur without this.
LC_CTYPE=$LC_MESSAGES
export LC_CTYPE

#
# Based on this, either run the Japanese EUC, the Shiftjis or English
# casperm script.
#
if [ "$curlng" = "ja_JP" ]
then
euc_casperm
else
if [ "$curlng" = "Ja_JP" ]
then
shj_casperm
else
std_casperm
fi
fi


