-- 
-- process OBkaihi 3  by Makoto Hiroshige  2003.01.05
--    modified 2003.01.21
--
tell application "Finder"
	display dialog "process OBkaihi 2 が問題なく実行済みであることを確認して下さい。" & return & ﾂ
		"未確認: キャンセル   確認済み: OK"
	
	set obdbFolder to folder "2003.01.02以降OB名簿最新" of folder "OB 名簿" of ﾂ
		folder "Documents" of home
	set perlScriptsFolder to folder "work" of folder "KaihiProc" of folder "Huso-OB" of ﾂ
		folder "MusicOffice" of folder "Documents" of home
	
	set cmdFolder to "/Users/user/Documents/MusicOffice/Huso-OB/KaihiProc/work/"
	try
		do shell script "cd " & cmdFolder & "; perl mod_book.pl -mod"
	on error
		display dialog "Error in mod_book.pl " & result buttons "キャンセル"
	end try
	
	try
		do shell script "cd " & cmdFolder & "; ./pkf -s bookfile.txt.new | ./pkf -f mac > bookfileCR.txt"
	on error
		display dialog "Error in pkf " & result buttons "キャンセル"
	end try
	move file "bookfileCR.txt" of perlScriptsFolder to obdbFolder with replacing
	
	delete file "bookfile.txt" of perlScriptsFolder
	delete file "logfile.txt" of perlScriptsFolder
	delete file "ID.db" of perlScriptsFolder
	delete file "ID.db.org" of perlScriptsFolder
	delete file "check_log.txt" of perlScriptsFolder
	delete file "checked_record.txt" of perlScriptsFolder
	
	display dialog "KaihiProc の work に " & return & ﾂ
		"bookfile.txt.new と logfile.txt.new が" & return & ﾂ
		"最新OB名簿フォルダに bookfileCR.txt が" & return & ﾂ
		"作成されました。"
end tell