w3m

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/w3m.git/
Log | Files | Refs | README

google.cgi (577B)


      1 #!/usr/bin/perl
      2 
      3 # ~/.w3m/urimethodmap
      4 # g:      file:/cgi-bin/google.cgi?%s
      5 # google: file:/cgi-bin/google.cgi?%s
      6 
      7 $url = "http://www.google.com/";
      8 $_ = $ENV{"QUERY_STRING"};
      9 s@^g(oogle)?:@@ && s@^//@@ && s@/$@@;
     10 if ($_) {
     11 	s/\+/ /g;
     12 	s/%([\da-f][\da-f])/pack('C', hex($1))/egi;
     13 	s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
     14 	$url .= "search?q=$_&hl=ja&lr=lang_ja&ie=EUC-JP";
     15 } else {
     16 	$input = "w3m-control: GOTO_LINK";
     17 }
     18 print <<EOF;
     19 w3m-control: GOTO $url
     20 w3m-control: DELETE_PREVBUF
     21 w3m-control: SEARCH \\[
     22 w3m-control: MOVE_RIGHT
     23 ${input}
     24 
     25 EOF