#include "hspext.as"
#include "url.as"
#include "inictl.as"

;「google-cache clip」ver1.30 (2003/05/11)
;------------------------------------------------
;設定読み込み

	sdim clip,150				;バッファ確保
	sdim useurl,10				;バッファ確保
	sdim uselang,10				;バッファ確保
	sdim url,10,11				;配列変数の宣言

	ini_file "google.ini"		;iniファイル名の指定
	ini_section "google"		;iniセクション名[google]
	ini_getint site,"site"		;site どこの国で検索するの？
	ini_getint lang,"lang"		;lang 何語で検索するのさ？

	url="co.jp","com","co.kr","de","fr","co.uk","it","ch","ca","com.mx","co.il"
	useurl=url.site				; useurlにgoogleのURLの末尾を代入

	if lang=1 : uselang="&lr=lang_ja"
	if lang=0 : uselang=""

;------------------------------------------------
;メイン

	clipget clip,150			;クリップボードの内容を取得（150バイトまで）

	instr cache1,clip,"http://"	;http://を含む場合はキャッシュに変換
	instr cache2,clip,"www."	;www.を含む場合はキャッシュに変換

	if (cache1=0)|(cache2=0) {
		clip="http://www.google."+useurl+"/search?q=cache:"+clip	;キャッシュ変換
}	else {
		urlenc clip,clip									;URLエンコード
		clip="http://www.google."+useurl+"/search?q="+clip+uselang		;通常検索変換
}

	exec clip,16				;ブラウザ起動
	end

;------------------------------------------------
;Copyright 2003 karia All rights reserved.
;Thanks to : USKさん・Ｋ−Ｋさん・ 堅田和之さん