#!/usr/local/bin/perl
#==============================================================================
#                        cnt 
#==============================================================================
#
$jsky = 'J-PHONE';
$imode = 'DoCoMo';
$ezweb ='UP.Browser';
srand($$);
$url[0]="<a href=http://http://jc.rfx.jp/jump.php?url_id=6>";
$mes1[0]="出会いの少ない";
$mes2[0]="女性を救う会";
#$tmp = int(rand(7));
$tmp = 0;

print "Content-type: text/html\n\n";

$agent = $ENV{'HTTP_USER_AGENT'};
if($agent =~ /$jsky/){
print "$url[$tmp]$mes1[$tmp]\n";
print "$mes2[$tmp]</A>\n";
# print "<a href=\"http://it.for-side.co.jp/recommend/index.cgi?agcid=120&genreid=43\">高視聴率ｺﾝﾃﾝﾂﾍﾞｽﾄ10</A>\n";
# print "<a href=\"http://it.for-side.co.jp/recommend/index.cgi?agcid=120&genreid=102\"><img src=\"http://fs-adsv.atjam.jp/bnrapps/Banner.png?agcid=120&genreid=102\" border=\"0\" alt=\"高視聴率ｺﾝﾃﾝﾂﾍﾞｽﾄ10\"></a>\n";
<HR>
} elsif($agent =~ /$imode/){
print "$url[$tmp]$mes1[$tmp]\n";
print "$mes2[$tmp]</A>\n";
# print "<a href=\"http://it.for-side.co.jp/recommend/index.cgi?agcid=120&genreid=43\">高視聴率ｺﾝﾃﾝﾂﾍﾞｽﾄ10</A>\n";
# print "<a href=\"http://it.for-side.co.jp/recommend/index.cgi?agcid=120&genreid=102\"><img src=\"http://fs-adsv.atjam.jp/bnrapps/Banner.kms?agcid=120&genreid=102\" alt=\"高視聴率ｺﾝﾃﾝﾂﾍﾞｽﾄ10\"></a>\n";
} elsif($agent =~ /$ezweb/){
print "$url[$tmp]$mes1[$tmp]\n";
print "$mes2[$tmp]</A>\n";
# print "<a href=\"http://it.for-side.co.jp/recommend/index.cgi?agcid=120&genreid=43\">高視聴率ｺﾝﾃﾝﾂﾍﾞｽﾄ10</A>\n";
# print "<a href=\"http://it.for-side.co.jp/recommend/index.cgi?agcid=120&genreid=102\"><img src=\"http://fs-adsv.atjam.jp/bnrapps/Banner.kms?agcid=120&genreid=102\" border=\"0\"></a>\n";
} else {
print<<"_EOF_";
$url[$tmp]$mes1[$tmp]
$mes2[$tmp]</A>
------PR-------
広告募集!funa\@sra.co.jpまで
_EOF_
}