#!/usr/bin/perl

$agent = $ENV{'HTTP_USER_AGENT'};
$URI = $ENV{'REQUEST_URI'};
$URI = substr( $URI, 0, rindex( $URI, '/' ) + 1 );
$goto_url = "Location: http://" . $ENV{'HTTP_HOST'} . $URI;

if($agent =~ /DoCoMo/){
    print $goto_url . "i/index.htm\n";
    print "\n";
    exit;
}
elsif($agent =~ /UP.Browser/){
    print $goto_url . "e/index.htm\n";
    print "\n";
    exit;
}
elsif($agent =~ /J-PHONE/ or $agent =~ /Vodafone/ ){
    print $goto_url . "v/index.htm\n";
    print "\n";
    exit;
}
else{
    print $goto_url . "i/index.htm\n";
    print "\n";
    exit;
}