-- 
-- make OB lookfor  by Makoto Hiroshige  2003.01.05
--
tell application "Finder"
	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 obdb
	-- do script FileMaker script "住所不明者ファイル作成" of database "OB名簿"
	-- end tell
	if not (exists file "lookfor.txt" of obdbFolder) then
		display dialog "file: lookfor.txt does not exists. Aborted." & return & ﾂ
			"Please make lookfor.txt by FileMaker" & "And make lookfor.txt open by Jedit4"
		return
	end if
	set lookforFile to file "lookfor.txt" of obdbFolder
	tell application "Jedit4"
		activate
		open lookforFile
		save document 1 kanji type ShiftJis lf type unix
		close document 1 saving no
	end tell
	
	set perlScriptsFolder to folder "LookingBin" of folder "Huso-OB" of ﾂ
		folder "MusicOffice" of folder "Documents" of home
	move lookforFile to perlScriptsFolder with replacing
	
	set cmdFolder to "/Users/user/Documents/MusicOffice/Huso-OB/LookingBin/"
	do shell script "cd " & cmdFolder & "; perl look.pl lookfor.txt > lookfor.html"
	
	set targetfolder to folder "Office" of folder ﾂ
		"Huso-OB" of folder "Huso-OB HP folder" of folder ﾂ
		"HP 関係" of folder "Documents" of home
	move file "lookfor.html" of perlScriptsFolder to targetfolder with replacing
	open file "lookfor.html" of targetfolder
	
end tell