#!/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...