ドラッグ&ドロップでFC2ブログに画像をまとめてアップロードするAppleScript

mac AppleScript

元ネタ

上記を試してみたのだけど、今のFC２でははじかれるようだったので改造した。

property myURL : "http://ほにゃほにゃ.fc2.com/admin.php"
--"＜ブログのURL＞/admin.php"を入れる

property myID : "あなたのユーザ名"
--FC2ブログのユーザ名を入れる

property msg1 : "管理画面のパスワードを入力" as Unicode text
property msg2 : "終了しました。" as Unicode text
property msg3 : "ログインに失敗しました。" as Unicode text
property cookiePath : " ~/Library/Cookies/fc2uploader_cookie.txt" ----保存するcookieのパス

on open drop
	activate me
	--パスワードの入力
	set myPass to text returned of (display dialog msg1 default answer "")
	
	----ログイン処理&Cookie保存
	set loginScript to "curl -d id=" & myID & " -d pass=" & myPass & " -d keep_login=on -d mode=logging -d process=in -d email=\"\"  -L " & myURL & " -c ~/Library/Cookies/fc2uploader_cookie.txt | tail -n 100"
	set response_login to do shell script loginScript as string
	
	----パスワードの入力フォームがレスポンスに含まれていた場合、ログイン失敗と判定
	if response_login contains "pass" then
		beep
		display dialog msg3 with icon 0 buttons "OK" default button 1
		error number -128
	end if
	
	----メインループ
	repeat with theFile in drop
		tell application "Finder"
			--UPするファイルパスの取得
			set fPath to POSIX path of theFile as Unicode text
			--パスのコピー
			set org_fPath to fPath
			--ファイル名の取得
			set org_delimi to text item delimiters of AppleScript -- オリジナルの区切り文字をとっておく
			set text item delimiters of AppleScript to "/"
			set num to count text item of org_fPath
			set fFile to text item num of org_fPath
			set text item delimiters of AppleScript to org_delimi -- 操作終了後にオリジナルの区切り文字に戻す
			
			--一時ファイルにfFlie出力
			--iconvで変換
			--一時ファイルから文字列取得
			--一時ファイル削除
			
			--ファイルのUP
			set uploadScript to "curl -o upload.txt -b " & cookiePath & " -F \"upfile=@" & fPath & "\" -F  description=file -F thumb=on -F width=120 -F height=120 -F overwrite=force -44F MAX_FILE_SIZE=512000 -F mode=control -F process=upload -F type=upload -F crc=c5565816c9567bda98d767b058194d5b -F insert=\"\" -L \"http://blog59.fc2.com/control.php?mode=control&process=upload\""
			do shell script uploadScript
		end tell
	end repeat
	beep
	display dialog msg2 default button 1 buttons "OK"
end open