#!/usr/local/bin/perl

#srand();
#$num = rand();
#$num = substr($num,2);
#$rn = $num;
$id = $ENV{'QUERY_STRING'};

#if ($id==43435) {exit;}

#$t = time;

@date = localtime();
$date = sprintf("%04d-%02d-%02d",$date[5]+1900,$date[4]+1,$date[3]);

if (($ENV{'HTTP_USER_AGENT'}=~/.*J-PHONE.*/gi) || ($ENV{'HTTP_USER_AGENT'}=~/.*DOCOMO.*/gi)
|| ($ENV{'HTTP_USER_AGENT'}=~/.*UP\.Browser.*/gi) || ($ENV{'HTTP_USER_AGENT'}=~/.*SoftBank.*/gi) || ($ENV{'HTTP_USER_AGENT'}=~/.*Vodafone.*/gi)) {
  #$qmode="update click set icnt = icnt + 1 where id = $id and dat = '$date'";
  $lmode="http://www.loves.ne.jp/?cl=$id";
} else {
  #$qmode="update click set cnt = cnt + 1 where id = $id and dat = '$date'";
  $lmode="http://www.loves.ne.jp/?cl=$id";
}

if (
        $id=="38184" ||
    $id=="39185" ||
    $id=="43020" ||
    $id=="43360" ||
    $id=="43361" ||
    $id=="43362" ||
    $id=="43363" ||
    $id=="43364" ||
    $id=="43365" ||
    $id=="43366" ||
    $id=="43367" ||
    $id=="43368" ||
    $id=="43369" ||
    $id=="42641" ||
    $id=="44277" ||
    $id=="43435" ||
    $id=="44936" ||
    $id=="44617" ||
    $id=="45093" ||
    $id=="45586" ||
    $id=="46102" ||
    $id=="46902" ||
    $id=="46370" ||
    $id=="47097" ||
    $id=="47196" ||
    $id=="47201" ||
    $id=="47202" ||
    $id=="47318" ||
    $id=="47342" ||
    $id=="47361" ||
    $id=="47419" ||
    $id=="47453" ||
    $id=="47473" ||
    $id=="47479" ||
    $id=="47514" ||
    $id=="47551" ||
    $id=="47552" ||
    $id=="47553" ||
    $id=="47554" ||
    $id=="47555" ||
    $id=="47556" ||
    $id=="47557" ||
    $id=="47561" ||
    $id=="47589" ||
    $id=="47695" ||
    $id=="47696" ||
    $id=="47697" ||
    $id=="47698" ||
    $id=="47699" ||
    $id=="47700" ||
    $id=="47701" ||
    $id=="47702" ||
    $id=="47703" ||
    $id=="47704" ||
    $id=="47705" ||
    $id=="47709" ||
    $id=="47738" ||
    $id=="47739" ||
    $id=="47741" ||
    $id=="47742" ||
    $id=="47763" ||
    $id=="47770" ||
    $id=="47771" ||
    $id=="47772" ||
    $id=="47790" ||
    $id=="47791" ||
    $id=="47792" ||
    $id=="47793" ||
    $id=="47794" ||
    $id=="47795" ||
    $id=="47819" ||
    $id=="47974" ||
    $id=="48014" ||
    $id=="48045" ||
    $id=="48046" ||
    $id=="48047" ||
    $id=="48055" ||
    $id=="48056" ||
    $id=="48095" ||
    $id=="48100" ||
    $id=="48114" ||
    $id=="48115" ||
    $id=="48116" ||
    $id=="48117" ||
    $id=="48168" ||
    $id=="48198" ||
    $id=="48199" ||
    $id=="48200" ||
    $id=="48201" ||
    $id=="48202" ||
    $id=="48203" ||
    $id=="48204" ||
    $id=="48205" ||
    $id=="48206" ||
    $id=="48207" ||
    $id=="48208" ||
    $id=="48209" ||
    $id=="48210" ||
    $id=="48216" ||
    $id=="48217" ||
    $id=="48229" ||
    $id=="48231"
    ){


		
#use Mysql;
##  #$c    = Mysql->connect(localhost, "click", "root", "belltomo");
#  $c    = Mysql->connect( "db1", "clickclick", "root", "banana777" );
#  $qstr = "insert into clicknum (id,date) values ($ENV{'QUERY_STRING'},now())";
#  $r    = $c->query($qstr);
  
#  $qstr = "select rn from dclick where ip = '$ENV{'HTTP_USER_AGENT'}' and fl = 1 and rn = '$rn'";
#  $r    = $c->query($qstr);
#  $n    = $r->numrows;
  
  }

print <<EOF;
Status: 301 Moved Permanently
Content-type: text/html
Location: $lmode

EOF
exit;
;