#!/usr/local/bin/perl

require 'jcode.pl';
require 'cgi-lib.pl';
&decoding;
&date;

&read_cookie("UP");
  $name=$COOKIE{'fm1'};
  $line[0]="$date,$times,$FORM{'tt'},$ENV{'REMOTE_ADDR'},$ENV{'REMOTE_HOST'},$ENV{'HTTP_REFERER'},$ENV{'HTTP_USER_AGENT'},$ENV{'REMOTE_IDENT'},$name";
  $i=1;
  open(FILE,"axess.txt");
  while(<FILE>){
    chomp;
    $line[$i]=$_;
    $i++;
  }
  close(FILE);

  open(FILE,">axess.txt");
  foreach(@line){
    print FILE <<EP;
$_
EP
  }
  close(FILE);
  
open(FILE,"star.gif");
while(<FILE>){
  push(@img,$_);
}
close(FILE);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
print @img;
exit;

sub date{
  my $tt=time;
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($tt);
  $month = ($mon + 1);
  $year=1900+$year;
  $y0="日"; $y1="月"; $y2="火"; $y3="水"; $y4="木"; $y5="金"; $y6="土";
  $youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [(localtime)[6]];
  $date="$year/$month/$mday($youbi)";
  $times="$hour:$min:$sec";
}
sub decoding{
  my ($tagu)=@_;
  if($ENV{'REQUEST_METHOD'} eq "POST"){
     read (STDIN,$str,$ENV{'CONTENT_LENGTH'});
  }else{
     $str=$ENV{'QUERY_STRING'};
  }
  @part=split('&',$str);
  foreach $i(@part){
     ($variable,$value)=split('=',$i);
      $value=~tr/+/ /;
      $value=~s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
      &jcode'convert(*value,'sjis');
      if($tagu==1){
        $value =~ s/<//eg;
        $value =~ s/>//eg;
        $value =~ s/"//eg;
      }
      if($FORM{$variable} eq ""){$FORM{$variable}=$value}
      else{$FORM{$variable}=$FORM{$variable}.":".$value}
  }
}
####################################################
# クッキーを読む
####################################################
#$cookiename変数にクッキーの名前を入れる。
sub read_cookie{
  my ($cookiename)=@_;
  @pairs = split(/\;/,$ENV{'HTTP_COOKIE'});
  foreach $pair(@pairs){
    local($name,$value) = split(/\=/,$pair);
  #エンコードしたセパレータ＝を戻す．	
    $name	=~ s/Enc_eq/\=/g;
    $value =~ s/Enc_eq/\=/g;
    $name =~ s/ //g;
    $COOKIES{$name} = $value;
  }
  foreach ( split(/\,/,$COOKIES{$cookiename})){
    local($name,$value) = split(/\:/);
    $COOKIE{$name} = $value;
  }
}