#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "\n";
#$useragent = $ENV{"HTTP_USER_AGENT"};
#print "$useragent
\n\n";
$os = get_pc_sp();
if ($os eq "pc"){
open(FP,"./index_pc.txt");
@txt=;
close (FP);
for( $i=0 ; $i<$#txt + 1 ; $i++){
print "$txt[$i]";
}
}
else
{
open(FP,"./index_sp.txt");
@txt=;
close (FP);
for( $i=0 ; $i<$#txt + 1 ; $i++){
print "$txt[$i]";
}
}
exit;
sub get_pc_sp
{
local $name;
$_ = $ENV{"HTTP_USER_AGENT"};
if (/Windows 95|Win95/i) { $name = "pc"; }
elsif (/Windows 9x|Win 9x|Windows ME/i) { $name = "pc"; }
elsif (/Windows 98|Win98/i) { $name = "pc"; }
elsif (/Windows NT 5.1|WinNT 5.1/i) { $name = "pc"; }
elsif (/Windows NT 5|WinNT 5|Windows 2000/i) { $name = "pc"; }
elsif (/Windows NT|WinNT/i) { $name = "pc"; }
elsif (/Windows CE|WinCE/i) { $name = "pc"; }
elsif (/iPhone/i) { $name = "sp"; }
elsif (/Android/i) { $name = "sp"; }
else { $name = "sp"; }
return $name;
} |