#! /bin/tcsh
####################################################################
#	動物の森 ランダム手紙データファイルをとってくる
####################################################################

#############使用するファイル名文字列
set decl_file_name="convert.decl"
set decl_new_file_name="convert.decl_new"
set tmp_new_maila="tmp_new_maila.decl"
set tmp_new_mailb="tmp_new_mailb.decl"
set tmp_new_mailc="tmp_new_mailc.decl"
set tmp_new_psz="tmp_new_psz.decl"
set tmp_new_superz="tmp_new_superz.decl"
@ new_file = 1		###新規のファイルを検出するためのフラグ
@ new_file_status = 0		###新規のファイルが最終的にあったことを示すフラグ

#############手紙データのコピー
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/
# rcp "srd@ikuiku:/mnt01/srd00/srd/FOREST/message_msg/*.maila" maila/
# rcp "srd@ikuiku:/mnt01/srd00/srd/FOREST/message_msg/*.mailb" mailb/
# rcp "srd@ikuiku:/mnt01/srd00/srd/FOREST/message_msg/*.mailc" mailc/
# rcp "srd@ikuiku:/mnt01/srd00/srd/FOREST/message_msg/*.psz" psz/
# rcp "srd@ikuiku:/mnt01/srd00/srd/FOREST/message_msg/*.superz" superz/

# \cp /auto/ikuiku/home/mnt01/srd00/srd/FOREST/message_msg/*.maila maila/
# \cp /auto/ikuiku/home/mnt01/srd00/srd/FOREST/message_msg/*.mailb mailb/
# \cp /auto/ikuiku/home/mnt01/srd00/srd/FOREST/message_msg/*.mailc mailc/
# \cp /auto/ikuiku/home/mnt01/srd00/srd/FOREST/message_msg/*.psz psz/
# \cp /auto/ikuiku/home/mnt01/srd00/srd/FOREST/message_msg/*.superz superz/

\cp /auto/ikuiku/home/forest/FOREST/message_msg/*.maila maila/
\cp /auto/ikuiku/home/forest/FOREST/message_msg/*.mailb mailb/
\cp /auto/ikuiku/home/forest/FOREST/message_msg/*.mailc mailc/
\cp /auto/ikuiku/home/forest/FOREST/message_msg/*.psz psz/
\cp /auto/ikuiku/home/forest/FOREST/message_msg/*.superz superz/



#############書き込み許可の変更
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/maila/
foreach ls_label (`\ls -1 *.maila`)
    chmod 666 $ls_label
end
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/mailb/
foreach ls_label (`\ls -1 *.mailb`)
    chmod 666 $ls_label
end
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/mailc/
foreach ls_label (`\ls -1 *.mailc`)
    chmod 666 $ls_label
end
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/psz/
foreach ls_label (`\ls -1 *.psz`)
    chmod 666 $ls_label
end
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/superz/
foreach ls_label (`\ls -1 *.superz`)
    chmod 666 $ls_label
end


#############ファイルの初期化
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/
\rm -f $decl_new_file_name
\touch $decl_new_file_name

\touch $tmp_new_maila $tmp_new_mailb $tmp_new_mailc $tmp_new_psz $tmp_new_superz

#############新規のメッセージデータファイルの検出
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/maila/
foreach ls_label (`\ls -1 *.maila`)
    @ new_file = 1
    foreach mail_label (`echo $ls_label | cut -d. -f1`)		###ここはforeachの必要なし
	foreach decl_label (`\cat ../$decl_file_name`)
	    switch($decl_label)
		case $mail_label:
		    @ new_file = 0
		    breaksw
	    endsw
	end
	if ($new_file != 0) then
	    echo $mail_label >> ../$tmp_new_maila
	    @ new_file_status = 1
	endif
    end
end

cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/mailb/
foreach ls_label (`\ls -1 *.mailb`)
    @ new_file = 1
    foreach mail_label (`echo $ls_label | cut -d. -f1`)		###ここはforeachの必要なし
	foreach decl_label (`\cat ../$decl_file_name`)
	    switch($decl_label)
		case $mail_label:
		    @ new_file = 0
		    breaksw
	    endsw
	end
	if ($new_file != 0) then
	    echo $mail_label >> ../$tmp_new_mailb
	    @ new_file_status = 1
	endif
    end
end

cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/mailc/
foreach ls_label (`\ls -1 *.mailc`)
    @ new_file = 1
    foreach mail_label (`echo $ls_label | cut -d. -f1`)		###ここはforeachの必要なし
	foreach decl_label (`\cat ../$decl_file_name`)
	    switch($decl_label)
		case $mail_label:
		    @ new_file = 0
		    breaksw
	    endsw
	end
	if ($new_file != 0) then
	    echo $mail_label >> ../$tmp_new_mailc
	    @ new_file_status = 1
	endif
    end
end

cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/psz/
foreach ls_label (`\ls -1 *.psz`)
    @ new_file = 1
    foreach mail_label (`echo $ls_label | cut -d. -f1`)		###ここはforeachの必要なし
	foreach decl_label (`\cat ../$decl_file_name`)
	    switch($decl_label)
		case $mail_label:
		    @ new_file = 0
		    breaksw
	    endsw
	end
	if ($new_file != 0) then
	    echo $mail_label >> ../$tmp_new_psz
	    @ new_file_status = 1
	endif
    end
end

cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/superz/
foreach ls_label (`\ls -1 *.superz`)
    @ new_file = 1
    foreach mail_label (`echo $ls_label | cut -d. -f1`)		###ここはforeachの必要なし
	foreach decl_label (`\cat ../$decl_file_name`)
	    switch($decl_label)
		case $mail_label:
		    @ new_file = 0
		    breaksw
	    endsw
	end
	if ($new_file != 0) then
	    echo $mail_label >> ../$tmp_new_superz
	    @ new_file_status = 1
	endif
    end
end

#############新規のメッセージデータファイルがあったことを知らせる
cd $FOREST_ROOT/data/shape/MESSAGE/JPN/HANDBILLZ/conv/
if ($new_file_status != 0) then
    echo "----maila----" >> $decl_new_file_name
    cat $tmp_new_maila >> $decl_new_file_name

    echo " "
    echo "----mailb----" >> $decl_new_file_name
    cat $tmp_new_mailb >> $decl_new_file_name

    echo " "
    echo "----mailc----" >> $decl_new_file_name
    cat $tmp_new_mailc >> $decl_new_file_name

    echo " "
    echo "----psz----" >> $decl_new_file_name
    cat $tmp_new_psz >> $decl_new_file_name

    echo " "
    echo "----superz----" >> $decl_new_file_name
    cat $tmp_new_superz >> $decl_new_file_name

    echo "新たなファイルの発見！！！！！！！！！！！！！！！"
endif

################ テンポラリ削除
\rm -f $tmp_new_maila $tmp_new_mailb $tmp_new_mailc $tmp_new_psz $tmp_new_superz