#!/bin/sh
#
# Usage: change_dat DESC.DAT
#

if [ $# != 1 ]; then
	echo Usage: $0 DESC.DAT
	exit 1
fi

FILE=$1
BACKUP=$1.backup

if [ -f $BACKUP ]; then
	echo Backup file $BACKUP already exists
	exit 1
fi

rm -f xaa xab xac

cat << \SHAR_EOF > 'xaa'
s/\([ 	.@]\)air.junet/\1air.co.jp/g
s/\([ 	.@]\)anritsu.junet/\1anritsu.co.jp/g
s/\([ 	.@]\)aoyama.junet/\1aoyama.ac.jp/g
s/\([ 	.@]\)asahi-np.junet/\1asahi-np.co.jp/g
s/\([ 	.@]\)ascii.junet/\1ascii.co.jp/g
s/\([ 	.@]\)asp.junet/\1asp.co.jp/g
s/\([ 	.@]\)asr.junet/\1asr.co.jp/g
s/\([ 	.@]\)astec.junet/\1astec.co.jp/g
s/\([ 	.@]\)astem.junet/\1astem.or.jp/g
s/\([ 	.@]\)atr.junet/\1atr.co.jp/g
s/\([ 	.@]\)bridge.junet/\1bridge.co.jp/g
s/\([ 	.@]\)brother.junet/\1brother.co.jp/g
s/\([ 	.@]\)bug.junet/\1bug.co.jp/g
s/\([ 	.@]\)cac.junet/\1cac.co.jp/g
s/\([ 	.@]\)canon.junet/\1canon.co.jp/g
s/\([ 	.@]\)casio.junet/\1casio.co.jp/g
s/\([ 	.@]\)cec.junet/\1cec.co.jp/g
s/\([ 	.@]\)chukyo-u.junet/\1chukyo-u.ac.jp/g
s/\([ 	.@]\)chuo-u.junet/\1chuo-u.ac.jp/g
s/\([ 	.@]\)ciea.junet/\1ciea.ac.jp/g
s/\([ 	.@]\)citoh.junet/\1citoh.co.jp/g
s/\([ 	.@]\)crl.junet/\1crl.go.jp/g
s/\([ 	.@]\)csk.junet/\1csk.co.jp/g
s/\([ 	.@]\)dcl.junet/\1dcl.co.jp/g
s/\([ 	.@]\)dec-j.junet/\1dec-j.co.jp/g
s/\([ 	.@]\)dendai.junet/\1dendai.ac.jp/g
s/\([ 	.@]\)denken.junet/\1denken.or.jp/g
s/\([ 	.@]\)dit.junet/\1dit.co.jp/g
s/\([ 	.@]\)dnp.junet/\1dnp.co.jp/g
s/\([ 	.@]\)edr.junet/\1edr.co.jp/g
s/\([ 	.@]\)eric.junet/\1eric.co.jp/g
s/\([ 	.@]\)etl.junet/\1etl.go.jp/g
s/\([ 	.@]\)fit.junet/\1fit.ac.jp/g
s/\([ 	.@]\)foretune.junet/\1foretune.co.jp/g
s/\([ 	.@]\)fujitsu.junet/\1fujitsu.co.jp/g
s/\([ 	.@]\)fujixerox.junet/\1fujixerox.co.jp/g
s/\([ 	.@]\)fukui-u.junet/\1fukui-u.ac.jp/g
s/\([ 	.@]\)fukuoka-u.junet/\1fukuoka-u.ac.jp/g
s/\([ 	.@]\)gctech.junet/\1gctech.co.jp/g
s/\([ 	.@]\)global.junet/\1global.co.jp/g
s/\([ 	.@]\)gsj.junet/\1gsj.go.jp/g
s/\([ 	.@]\)gunma-u.junet/\1gunma-u.ac.jp/g
s/\([ 	.@]\)hallab.junet/\1hallab.co.jp/g
s/\([ 	.@]\)hankyu.junet/\1hankyu.co.jp/g
s/\([ 	.@]\)hiroshima-u.junet/\1hiroshima-u.ac.jp/g
s/\([ 	.@]\)hitachi.junet/\1hitachi.co.jp/g
s/\([ 	.@]\)hokudai.junet/\1hokudai.ac.jp/g
s/\([ 	.@]\)horiba.junet/\1horiba.co.jp/g
s/\([ 	.@]\)hst.junet/\1hst.co.jp/g
s/\([ 	.@]\)ibmtrl.junet/\1ibmtrl.co.jp/g
s/\([ 	.@]\)ihi.junet/\1ihi.co.jp/g
s/\([ 	.@]\)ijaic.junet/\1ijaic.or.jp/g
s/\([ 	.@]\)intec.junet/\1intec.co.jp/g
s/\([ 	.@]\)ipri.junet/\1ipri.go.jp/g
s/\([ 	.@]\)isac.junet/\1isac.co.jp/g
s/\([ 	.@]\)ism.junet/\1ism.ac.jp/g
s/\([ 	.@]\)jip.junet/\1jip.co.jp/g
s/\([ 	.@]\)jmas.junet/\1jmas.co.jp/g
s/\([ 	.@]\)jsd.junet/\1jsd.co.jp/g
s/\([ 	.@]\)jus.junet/\1jus.or.jp/g
s/\([ 	.@]\)jusoft.junet/\1jusoft.co.jp/g
SHAR_EOF

cat << \SHAR_EOF > 'xab'
s/\([ 	.@]\)kaba.junet/\1kaba.or.jp/g
s/\([ 	.@]\)kajima.junet/\1kajima.co.jp/g
s/\([ 	.@]\)kansai-u.junet/\1kansai-u.ac.jp/g
s/\([ 	.@]\)kao.junet/\1kao.co.jp/g
s/\([ 	.@]\)kcs.junet/\1kcs.co.jp/g
s/\([ 	.@]\)keio.junet/\1keio.ac.jp/g
s/\([ 	.@]\)kek.junet/\1kek.ac.jp/g
s/\([ 	.@]\)kiic.junet/\1kiic.or.jp/g
s/\([ 	.@]\)kit.junet/\1kit.ac.jp/g
s/\([ 	.@]\)knct.junet/\1knct.ac.jp/g
s/\([ 	.@]\)kobe-u.junet/\1kobe-u.ac.jp/g
s/\([ 	.@]\)konan-u.junet/\1konan-u.ac.jp/g
s/\([ 	.@]\)kouku-k.junet/\1kouku-k.ac.jp/g
s/\([ 	.@]\)kpress.junet/\1kpress.co.jp/g
s/\([ 	.@]\)kubota.junet/\1kubota.co.jp/g
s/\([ 	.@]\)kurume-it.junet/\1kurume-it.ac.jp/g
s/\([ 	.@]\)kyocera.junet/\1kyocera.co.jp/g
s/\([ 	.@]\)kyoto-su.junet/\1kyoto-su.ac.jp/g
s/\([ 	.@]\)kyoto-u.junet/\1kyoto-u.ac.jp/g
s/\([ 	.@]\)kyusan-u.junet/\1kyusan-u.ac.jp/g
s/\([ 	.@]\)kyushu-id.junet/\1kyushu-id.ac.jp/g
s/\([ 	.@]\)kyushu-u.junet/\1kyushu-u.ac.jp/g
s/\([ 	.@]\)kyutech.junet/\1kyutech.ac.jp/g
s/\([ 	.@]\)m-kasei.junet/\1m-kasei.co.jp/g
s/\([ 	.@]\)mei.junet/\1mei.co.jp/g
s/\([ 	.@]\)mel.junet/\1mel.go.jp/g
s/\([ 	.@]\)melco.junet/\1melco.co.jp/g
s/\([ 	.@]\)mignon.junet/\1mignon.co.jp/g
s/\([ 	.@]\)minpaku.junet/\1minpaku.ac.jp/g
s/\([ 	.@]\)mita.junet/\1mita.co.jp/g
s/\([ 	.@]\)mot-j.junet/\1mot-j.co.jp/g
s/\([ 	.@]\)mri.junet/\1mri.co.jp/g
s/\([ 	.@]\)msr.junet/\1msr.co.jp/g
s/\([ 	.@]\)n-denso.junet/\1n-denso.co.jp/g
s/\([ 	.@]\)nacsis.junet/\1nacsis.ac.jp/g
s/\([ 	.@]\)nagano.junet/\1nagano.ac.jp/g
s/\([ 	.@]\)nagaoka-coltech.junet/\1nagaoka-coltech.ac.jp/g
s/\([ 	.@]\)nagoya-u.junet/\1nagoya-u.ac.jp/g
s/\([ 	.@]\)nanzan-u.junet/\1nanzan-u.ac.jp/g
s/\([ 	.@]\)nara-k.junet/\1nara-k.ac.jp/g
s/\([ 	.@]\)ndg.junet/\1ndg.co.jp/g
s/\([ 	.@]\)nec.junet/\1nec.co.jp/g
s/\([ 	.@]\)nig.junet/\1nig.ac.jp/g
s/\([ 	.@]\)nikon.junet/\1nikon.co.jp/g
s/\([ 	.@]\)nitech.junet/\1nitech.ac.jp/g
s/\([ 	.@]\)nkk.junet/\1nkk.co.jp/g
s/\([ 	.@]\)ns-ace.junet/\1ns-ace.co.jp/g
s/\([ 	.@]\)nsc.junet/\1nsc.co.jp/g
s/\([ 	.@]\)oki.junet/\1oki.co.jp/g
s/\([ 	.@]\)omron.junet/\1omron.co.jp/g
s/\([ 	.@]\)osaka-u.junet/\1osaka-u.ac.jp/g
s/\([ 	.@]\)osakagas.junet/\1osakagas.co.jp/g
s/\([ 	.@]\)peccom.junet/\1peccom.or.jp/g
s/\([ 	.@]\)pentel.junet/\1pentel.co.jp/g
s/\([ 	.@]\)recruit.junet/\1recruit.co.jp/g
s/\([ 	.@]\)ricoh.junet/\1ricoh.co.jp/g
s/\([ 	.@]\)rikei.junet/\1rikei.co.jp/g
s/\([ 	.@]\)riken.junet/\1riken.go.jp/g
s/\([ 	.@]\)ritsumei.junet/\1ritsumei.ac.jp/g
s/\([ 	.@]\)roland.junet/\1roland.co.jp/g
s/\([ 	.@]\)rtri.junet/\1rtri.or.jp/g
SHAR_EOF

cat << \SHAR_EOF > 'xac'
s/\([ 	.@]\)sanno.junet/\1sanno.ac.jp/g
s/\([ 	.@]\)sanwa-ss.junet/\1sanwa-ss.co.jp/g
s/\([ 	.@]\)sanyo.junet/\1sanyo.co.jp/g
s/\([ 	.@]\)sasebo.junet/\1sasebo.ac.jp/g
s/\([ 	.@]\)scr.junet/\1scr.co.jp/g
s/\([ 	.@]\)seikei.junet/\1seikei.ac.jp/g
s/\([ 	.@]\)sendai-ct.junet/\1sendai-ct.ac.jp/g
s/\([ 	.@]\)sharp.junet/\1sharp.co.jp/g
s/\([ 	.@]\)sheart.junet/\1sheart.ac.jp/g
s/\([ 	.@]\)shinshu-u.junet/\1shinshu-u.ac.jp/g
s/\([ 	.@]\)shizuoka.junet/\1shizuoka.ac.jp/g
s/\([ 	.@]\)sigma.junet/\1sigma.go.jp/g
s/\([ 	.@]\)softbank.junet/\1softbank.co.jp/g
s/\([ 	.@]\)sony.junet/\1sony.co.jp/g
s/\([ 	.@]\)sonytek.junet/\1sonytek.co.jp/g
s/\([ 	.@]\)sophia.junet/\1sophia.ac.jp/g
s/\([ 	.@]\)soum.junet/\1soum.co.jp/g
s/\([ 	.@]\)sra.junet/\1sra.co.jp/g
s/\([ 	.@]\)stanley.junet/\1stanley.co.jp/g
s/\([ 	.@]\)sumiden.junet/\1sumiden.co.jp/g
s/\([ 	.@]\)sumikin.junet/\1sumikin.co.jp/g
s/\([ 	.@]\)sun-j.junet/\1sun.com/g
s/\([ 	.@]\)symbolics.junet/\1symbolics.co.jp/g
s/\([ 	.@]\)t-gitan.junet/\1t-gitan.ac.jp/g
s/\([ 	.@]\)telema.junet/\1telema.co.jp/g
s/\([ 	.@]\)tepco.junet/\1tepco.co.jp/g
s/\([ 	.@]\)texnai.junet/\1texnai.co.jp/g
s/\([ 	.@]\)tikusi.junet/\1tikusi.go.jp/g
s/\([ 	.@]\)tis.junet/\1tis.co.jp/g
s/\([ 	.@]\)titech.junet/\1titech.ac.jp/g
s/\([ 	.@]\)tohoku.junet/\1tohoku.ac.jp/g
s/\([ 	.@]\)tokuyama.junet/\1tokuyama.ac.jp/g
s/\([ 	.@]\)toshiba.junet/\1toshiba.co.jp/g
s/\([ 	.@]\)tosho-u.junet/\1tosho-u.ac.jp/g
s/\([ 	.@]\)toyo.junet/\1toyo.ac.jp/g
s/\([ 	.@]\)toyota-ti.junet/\1toyota-ti.ac.jp/g
s/\([ 	.@]\)tsuda.junet/\1tsuda.ac.jp/g
s/\([ 	.@]\)tsukuba.junet/\1tsukuba.ac.jp/g
s/\([ 	.@]\)tut.junet/\1tut.ac.jp/g
s/\([ 	.@]\)tytlabs.junet/\1tytlabs.co.jp/g
s/\([ 	.@]\)u-tokyo.junet/\1u-tokyo.ac.jp/g
s/\([ 	.@]\)uclosk.junet/\1uclosk.co.jp/g
s/\([ 	.@]\)uec.junet/\1uec.ac.jp/g
s/\([ 	.@]\)ulis.junet/\1ulis.ac.jp/g
s/\([ 	.@]\)unisys.junet/\1unisys.co.jp/g
s/\([ 	.@]\)waseda.junet/\1waseda.ac.jp/g
s/\([ 	.@]\)yamagata-u.junet/\1yamagata-u.ac.jp/g
s/\([ 	.@]\)yamaha.junet/\1yamaha.co.jp/g
s/\([ 	.@]\)yamanashi.junet/\1yamanashi.ac.jp/g
s/\([ 	.@]\)yaskawa.junet/\1yaskawa.co.jp/g
s/\([ 	.@]\)yhp.junet/\1yhp.co.jp/g
s/\([ 	.@]\)yokogawa.junet/\1yokogawa.co.jp/g
s/\([ 	.@]\)ysc.junet/\1ysc.go.jp/g
s/\([ 	.@]\)asahi.junet/\1asahi.co.jp/g
s/\([ 	.@]\)canopus.junet/\1canopus.co.jp/g
s/\([ 	.@]\)icm.junet/\1icm.co.jp/g
s/\([ 	.@]\)jwa.junet/\1jwa.go.jp/g
s/\([ 	.@]\)kddlabs.junet/\1kddlabs.co.jp/g
s/\([ 	.@]\)maspro.junet/\1maspro.co.jp/g
s/\([ 	.@]\)nts.junet/\1nts.co.jp/g
SHAR_EOF

cat << \SHAR_EOF > 'xad'
s/\([ 	.@]\)oita-u.junet/\1oita-u.ac.jp/g
s/\([ 	.@]\)osaka-cu.junet/\1osaka-cu.ac.jp/g
s/\([ 	.@]\)osakac.junet/\1osakac.ac.jp/g
s/\([ 	.@]\)sibasoku.junet/\1sibasoku.co.jp/g
s/\([ 	.@]\)tokyoelectron.junet/\1tokyoelectron.co.jp/g
s/\([ 	.@]\)toppan.junet/\1toppan.co.jp/g
s/\([ 	.@]\)tuat.junet/\1tuat.ac.jp/g
s/\([ 	.@]\)icot.junet/\1icot.jp/g
s/\([ 	.@]\)ntt.junet/\1ntt.jp/g
s/\([ 	.@]\)nttdata.junet/\1nttdata.jp/g
s/\([ 	.@]\)att-j.junet/\1att.co.jp/g
s/\([ 	.@]\)qmflp.junet/\1jrdc.go.jp/g
s/\([ 	.@]\)kk.junet/\1kke.co.jp/g
s/\([ 	.@]\)k3.junet/\1kthree.co.jp/g
s/\([ 	.@]\)meiji-u.junet/\1meiji.ac.jp/g
s/\([ 	.@]\)nagaoka.junet/\1nagaokaut.ac.jp/g
s/\([ 	.@]\)ncc.junet/\1nri.co.jp/g
s/\([ 	.@]\)seclab.junet/\1secom.co.jp/g
s/\([ 	.@]\)kogakuin.junet/\1kogakuin.ac.jp/g
s/\([ 	.@]\)u-shizuoka-ken.junet/\1u-shizuoka-ken.ac.jp/g
s/\([ 	.@]\)uniuni.junet/\1uniuni.co.jp/g
s/\([ 	.@]\)osakafu-u.junet/\1osakafu-u.ac.jp/g
s/\([ 	.@]\)sapmed.junet/\1sapmed.ac.jp/g
s/\([ 	.@]\)ibaraki.junet/\1ibaraki.ac.jp/g
s/\([ 	.@]\)spec.junet/\1spec.co.jp/g
s/\([ 	.@]\)tokyo-gas.junet/\1tokyo-gas.co.jp/g
s/\([ 	.@]\)daikin.junet/\1daikin.co.jp/g
s/\([ 	.@]\)asi.junet/\1asi.co.jp/g
s/\([ 	.@]\)statci.junet/\1statci.go.jp/g
s/\([ 	.@]\)saitama-u.junet/\1saitama-u.co.jp/g
s/\([ 	.@]\)kepco.junet/\1kepco.co.jp/g
s/\([ 	.@]\)ashitech.junet/\1ashitech.ac.jp/g
s/\([ 	.@]\)hamamatsu-pc.junet/\1hamamatsu-pc.ac.jp/g
s/\([ 	.@]\)nijl.junet/\1nijl.ac.jp/g
s/\([ 	.@]\)okayama-u.junet/\1okayama-u.ac.jp/g
s/\([ 	.@]\)teu.junet/\1teu.ac.jp/g
s/\([ 	.@]\)utsunomiya-u.junet/\1utsunomiya-u.ac.jp/g
s/\([ 	.@]\)yamaguti-u.junet/\1yamaguti-u.ac.jp/g
s/\([ 	.@]\)aml.junet/\1aml.co.jp/g
s/\([ 	.@]\)apollo-j.junet/\1apollo-j.co.jp/g
s/\([ 	.@]\)densan.junet/\1densan.co.jp/g
s/\([ 	.@]\)furukawa.junet/\1furukawa.co.jp/g
s/\([ 	.@]\)giken.junet/\1giken.co.jp/g
s/\([ 	.@]\)intel.junet/\1intel.co.jp/g
s/\([ 	.@]\)jal-cs.junet/\1jal-cs.co.jp/g
s/\([ 	.@]\)kme.junet/\1kme.co.jp/g
s/\([ 	.@]\)komatsu.junet/\1komatsu.co.jp/g
s/\([ 	.@]\)nova.junet/\1nova.co.jp/g
s/\([ 	.@]\)nss.junet/\1nss.co.jp/g
s/\([ 	.@]\)ntec.junet/\1ntec.co.jp/g
s/\([ 	.@]\)ntts.junet/\1ntts.co.jp/g
s/\([ 	.@]\)sc-htc.junet/\1sc-htc.co.jp/g
s/\([ 	.@]\)togra.junet/\1togra.co.jp/g
s/\([ 	.@]\)tsi.junet/\1tsi.co.jp/g
s/\([ 	.@]\)kiri.junet/\1kiri.go.jp/g
s/\([ 	.@]\)kmt-iri.junet/\1kmt-iri.go.jp/g
SHAR_EOF

mv $FILE $BACKUP

sed -e 's/^/@/' < $BACKUP > tmp0.$$
sed -f ./xaa < tmp0.$$ > tmp1.$$
sed -f ./xab < tmp1.$$ > tmp2.$$
sed -f ./xac < tmp2.$$ > tmp3.$$
sed -f ./xad < tmp3.$$ > tmp4.$$
sed -e 's/^@//' <tmp4.$$ > $FILE

rm -f tmp0.$$ tmp1.$$ tmp2.$$ tmp3.$$ tmp4.$$
rm -f ./xaa ./xab ./xac ./xad

echo	Don't forget to patch your DESC.DAT file by your hand.
echo	This script does not update it completely. For example,
echo	you might had to add a route to .ac.jp/.co.jp/.... to
echo	the same direction as .junet
echo
echo	Also you have to update your ALIAS.DAT file.
echo

exit 0
