#!/usr/bin/perl

require "cgi-lib.pl";
require "jcode.pl";
use CGI;


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

my $cgi = CGI::new();
my $keyword =  $cgi->param('T1') ;
my $cmd =  $cgi->param('CM') ;


$C_NAME = $keyword;
$Z_NAME = $keyword;
jcode::convert(\$C_NAME,'euc'); 
$C_NAME =~ s/(\W)/'%'.unpack("H2", $1)/ego;
jcode::convert(\$Z_NAME,'sjis'); 


$sURL = "http://search1.auctions.yahoo.co.jp/jp/search/auc?p=%28%A5%CE%A1%BC%A5%B9%A5%D5%A5%E9%A5%A4%A1%A1s-hokusyo%A1%CB+" . $C_NAME . "&auccat=26318&mode=2&f=0x4";


my @ltime = localtime(time);
my $str = "Var2.0," . $cmd . "," . sprintf("%d/%d/%d,%02d:%02d",$ltime[5]+1900,$ltime[4]+1,$ltime[3],$ltime[2],$ltime[1]);
open(INFILE,"<yaslog.csv") || print "file open error!";
open(OUTFILE,">>tmpyaslog.csv") || print "file open error!";
$LOG_LINE = $str . "," . $ENV{'REMOTE_ADDR'}. "," .  $Z_NAME . "\n" ;
print OUTFILE $LOG_LINE;
while(<INFILE>){
	@REC_LINE = ($_) ;
	print OUTFILE @REC_LINE[0];
}
close(INFILE);
close(OUTFILE);
my $k =  unlink("yaslog.csv");
my $k .= rename("tmpyaslog.csv","yaslog.csv");	

print "<meta http-equiv=\"refresh\" content=\"0;url=" . $sURL . " \">"  ;