#!/usr/local/bin/perl

# AlltheWebを使って検索する
# Copyright (C) Takashi Utsunomiya. All Rights Reserved.
# http://uttsu.com/
# 2002.11.11-

# ver 1.00	2002.11.11

# ■init
use strict;

my $my_site = 'uttsu.com';
my $my_keyword = 'uttsu';

my $q = $ENV{QUERY_STRING};

$| = 1;
main();
exit;

# ■main
sub main {
	$q = join('', grep(/^q=/, split(/&/, $q)));
	$q =~ s/^q=//;

	$my_keyword =~ tr/ /+/;
	$my_keyword =~ s/(\W)/'%'.unpack("H2", $1)/ego;

	print "Location: http://www.alltheweb.com/search?cat=web&cs=cp932&l=ja&q=site:$my_site+$my_keyword+$q\n\n";
}