--2006/11/28 ver.1.22　1.21でブラウザを使わずにインデックスを作成した場合、インデックスファイル名の指定がうまく伝わらなかったバグを修正。
--2005/11/6 ver.1.21　1.2にはバグがあって動作しませんでした。
--2003/12/4 ver.1.2r2　1.2と同じもの。「非対象キーワード」について解説を追加しただけ。
--2003/12/4 ver.1.2　msearch1.5対応版。送信方式を、ブラウザを使う方式と使わない方式のどちらかを選べるようにした。
--2003/8/7 ver.1.1　msearch1.5対応版。
--2003/3/26 ver.1.0　最初のバージョン。msearch1.4対応版。

-----------------------------　設定開始

set sendType to "1" --0だとブラウザを使って送信。1だとブラウザを使わずに送信。

set indexSite to "http://www.aaa.jp/~name/msearch/genindex.cgi" --genindex.cgiのURLを記述してください

--▼ここからgenindex.cgiに渡す設定
--■の部分をインデックスする時と同じ指定にしてください。
--指定がなければ■を取って""にします。

set idxName to "■" --インデックス名※1

set includedir to "■" --対象ディレクトリ※2(必須)

set includeurl to "■" --対象ディレクトリのURL※3(必須)

set suffix to "■" --対象ファイルの拡張子※4

set excludedir to "■" --非対象ディレクトリ※5

set excludefile to "■" --非対象ファイル※6

set excludekey to "■" --非対象キーワード※7
--考えてみるとAppleScriptはSJISで動作しているので、非対象キーワードに日本語を指定すると誤動作する可能性大。
--解決するには、EUCに変換した後URIエンコードする必要がある。

set sort to "■" --ランキング方法※8
--次の文字列で指定する。　例：上の■をNONEにするとランキングなしになる。
--NONE　ランキングなし
--MODIFY-DESC　最終更新日時-降順
--MODIFY-ASC　最終更新日時-昇順
--TITLE-DESC　タイトル-降順
--TITLE-ASC　タイトル-昇順
--URL-DESC　URL-降順
--URL-ASC　URL-昇順

set rescuealt to "■" --alt文字の追加※9
--0か1の番号で指定。
--0　追加しない
--1　追加する

set conf to "■" --パスワード※8

-----------------------------　設定はここまで

--送信用データを生成。
set formData to "index=" & idxName & "&includedir=" & includedir & "&includeurl=" & includeurl & "&suffix=" & suffix ﾂ
	& "&excludedir=" & excludedir & "&excludefile=" & excludefile & "&excludekey=" & excludekey ﾂ
	& "&sort=" & sort & "&rescuealt=" & rescuealt & "&conf=" & conf

if sendType = "0" then --ブラウザを使って送信
	
	--getメソッドデータの生成。本当はURIエンコードしてから送信したいところ。
	set sendCgi to indexSite & "?" & formData
	
	--使っているブラウザがIEなら「Internet Explorer」に、ねすけなら「Netscape Communicatorｪ」にする
	tell application "Internet Explorer"
		Activate --起動して
		OpenURL sendCgi --cgiに送信
		quit --終了する 。結果を見たいならこの行をコメントに変えるか削除する。
	end tell
	
else --ブラウザを使わずに送信
	
	--URL Access Scripting（以下UAS）を使った方式。ブラウザを使うよりメモリ的に有利。
	--UASではアップロードとダウンロードしかないため、生成した送信データを送りつけた後、必ずその結果画面を
	--ダウンロードすることになる。そこで、いったんデスクトップにダウンして、次にそのファイルを削除するようになっている。
	
	try
		tell application "URL Access Scripting"
			activate --起動して
			set tmpFile to ((path to desktop) as text) & "temporary.html" --一時保存ファイル名
			download indexSite to file tmpFile replacing yes form data "?" & formData with progress--デスクトップにダウンロード
			quit --終了する 。
		end tell
		
		--一時ファイルの削除
		tell application "Finder"
			delete file tmpFile  --一時ファイルをゴミ箱へ移動
			--empty trash --ゴミ箱を空にするなら行頭の「--」を消す。
		end tell
	on error errorNum
		display dialog errorNum
	end try
	
end if