-- 
-- prosess OBkaihi 1  by Makoto Hiroshige  2003.01.05
--    modified 2003.01.21
--
tell application "Finder"
	display dialog "会費納入メールなどから、paid_record.txt を sjis-LF で作り、" & return & ﾂ
		"KaihiProc の work に保存して下さい。" & return & ﾂ
		"まだやってない: キャンセル  すべてやった: OK"
	
	set obdbFolder to folder "2003.01.02以降OB名簿最新" of folder "OB 名簿" of ﾂ
		folder "Documents" of home
	set obdbFile to file "OB名簿" of obdbFolder
	tell application "ファイルメーカーPro"
		activate
		open obdbFile
		do script FileMaker script "会員番号ファイル作成" of database "OB名簿"
		close document 1
	end tell
	
	activate
	set perlScriptsFolder to folder "work" of folder "KaihiProc" of folder "Huso-OB" of ﾂ
		folder "MusicOffice" of folder "Documents" of home
	set name of file "ID.db" of obdbFolder to "ID.db.org"
	move file "ID.db.org" of obdbFolder to perlScriptsFolder with replacing
	
	set cmdFolder to "/Users/user/Documents/MusicOffice/Huso-OB/KaihiProc/work/"
	
	try
		do shell script "cd " & cmdFolder & "; ./pkf -s ID.db.org | ./pkf -f unix > ID.db "
	on error
		display dialog "Error in pkf " & result buttons "キャンセル"
	end try
	
	try
		do shell script "cd " & cmdFolder & "; perl chkid.pl"
	on error
		display dialog "Error in chkid.pl " & result buttons "キャンセル"
	end try
	
	display dialog "KaihiProc の work にある " & return & ﾂ
		" check_log.txt の内容を確認し、" & return & ﾂ
		"必要なら処置をして再度 process OBkaihi 1 を実行し、" & return & ﾂ
		"問題がなくなったら process OBkaihi 2 を実行して下さい。"
end tell