From b003a875e2c18804f0b3198d954d089a108b8f99 Mon Sep 17 00:00:00 2001
From: Fumitoshi UKAI <ukai@debian.or.jp>
Date: Fri, 10 Jan 2003 16:23:52 +0000
Subject: [w3m-dev 03625] keymap key SEARCH string * main.c (srch): accept
 command argument 	(reMark): accept command argument * Bonus/google.cgi:
 added From: Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>

---
 Bonus/google.cgi | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 Bonus/google.cgi

(limited to 'Bonus/google.cgi')

diff --git a/Bonus/google.cgi b/Bonus/google.cgi
new file mode 100755
index 0000000..0016340
--- /dev/null
+++ b/Bonus/google.cgi
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+# ~/.w3m/urimethodmap
+# g:      file:/cgi-bin/google.cgi?%s
+# google: file:/cgi-bin/google.cgi?%s
+
+$url = "http://www.google.com/";
+$_ = $ENV{"QUERY_STRING"};
+s@^g(oogle)?:@@ && s@^//@@ && s@/$@@;
+if ($_) {
+	s/\+/ /g;
+	s/%([\da-f][\da-f])/pack('C', hex($1))/egi;
+	s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
+	$url .= "search?q=$_&hl=ja&lr=lang_ja&ie=EUC-JP";
+} else {
+	$input = "w3m-control: GOTO_LINK";
+}
+print <<EOF;
+w3m-control: GOTO $url
+w3m-control: DELETE_PREVBUF
+w3m-control: SEARCH \\[
+w3m-control: MOVE_RIGHT
+${input}
+
+EOF
-- 
cgit v1.2.3