#!/usr/bin/perl -T
use strict;
use warnings;
print "Content-Type: text/html\n";
my $qs = $ENV{'QUERY_STRING'} || "";
my $ua = $ENV{'HTTP_USER_AGENT'} || "";
my ($asin, $aid) = $qs =~ /^([0-9B][0-9A-Z]{9})(.*)$/;
$aid = "tatsuo-22" unless $aid;
if ($asin eq "") {
print "\n";
exit;
}
my $url = "http://www.amazon.co.jp/o/ASIN/$asin/$aid"; # USER default
if ($ua =~ /Slurp/) { # CRAWLER Y
$url = " ... ";
} elsif ($ua =~ /Y!J-(SRD|MBS)/) { # CRAWLER YJ mobile
$url = " ... ";
} elsif ($ua =~ /Googlebot\//) { # CRAWLER G
$url = " ... ";
} elsif ($ua =~ /Googlebot-Mobile/) { # CRAWLER G mobile
$url = " ... ";
} elsif ($ua =~ /msnbot/) { # CRAWLER bing
$url = " ... ";
} elsif ($ua =~ /bot|craw|spid/i) { # CRAWLER other
$url = " ... ";
} elsif ($ua =~ /J-PHONE|SoftBank|Vodafone|DoCoMo|KDDI|WILLCOM/) { # USER mobile
$url = " ... ";
}
print "Location: $url\n\n";



I also face the same problem :(
Please rebuild my index...

