#!/usr/local/bin/perl


use CGI::Carp qw(fatalsToBrowser);
use CGI;

$q = new CGI;

$line=$q->param('line');

require 'addin.pl';

$url=$ENV{'HTTP_REFERER'};



&read_cookie($cookiename);
&listout;
&set_cookie($cookiename,@cookiekeys);
&jump;

sub listout{
  @gid=split(/\Q^.^\E/,"$COOKIE{'gid'}");
  @title=split(/\Q^.^\E/,"$COOKIE{'title'}");
  @price=split(/\Q^.^\E/,"$COOKIE{'price'}");
  @kazu=split(/\Q^.^\E/,"$COOKIE{'kazu'}");
  @yobi11=split(/\Q^.^\E/,"$COOKIE{'yobi11'}");
  @yobi21=split(/\Q^.^\E/,"$COOKIE{'yobi21'}");
  @yobi1=split(/\Q^.^\E/,"$COOKIE{'yobi1'}");
  @yobi2=split(/\Q^.^\E/,"$COOKIE{'yobi2'}");
  $num = @title;
  for($n=0;$n<$num;$n++){
    unless($n == $line){
      $newgid[$m]=$gid[$n];
      $newtitle[$m]=$title[$n];
      $newprice[$m]=$price[$n];
      $newkazu[$m]=$kazu[$n];
      $newyobi11[$m]=$yobi11[$n];
      $newyobi21[$m]=$yobi21[$n];
      $newyobi1[$m]=$yobi1[$n];
      $newyobi2[$m]=$yobi2[$n];
      $m++;
    }
  }
  $COOKIE{'gid'}=join("^.^",@newgid);
  $COOKIE{'title'}=join("^.^",@newtitle);
  $COOKIE{'price'}=join("^.^",@newprice);
  $COOKIE{'kazu'}=join("^.^",@newkazu);
  $COOKIE{'yobi11'}=join("^.^",@newyobi11);
  $COOKIE{'yobi21'}=join("^.^",@newyobi21);
  $COOKIE{'yobi1'}=join("^.^",@newyobi1);
  $COOKIE{'yobi2'}=join("^.^",@newyobi2);
}
sub jump{
  if ($ENV{PERLXS} eq "PerlIS") { # IIS (PerlIS) サーバ対応
    print "HTTP/1.0 302 Temporary Redirection\r\n";
    print "Content-type:text/html charset:UTF-8\n\n";
  }
  print "Location:$url\n\n";
exit;
}

###########################################
####################################################
# クッキーを読む
####################################################
#$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;
  }
}

####################################################
# クッキーを書く
####################################################
sub set_cookie{
  my ($cookiename,@cookiekey)=@_;
  my $date;
#セパレータと区別できなくなる＝を事前にEnc_eqに置換
  my $ckeynum=@cookiekey;
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + 31536000);
  if ($sec < 10)  { $sec = "0$sec";   }
  if ($min < 10)  { $min = "0$min";   }
  if ($hour < 10) { $hour = "0$hour"; }
$y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday";
##(    $y0="Sun"; $y1="Mon"; $y2="Tue"; $y3="Wed"; $y4="Thu"; $y5="Fri"; $y6="Sat";)
  $youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [$wday];
  $year=1900+$year;
  @mon=("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
  $date="$youbi $mday-$mon[$mon]-$year $hour:$min:$sec GMT";
  $FORM{"DAY2"}=time;
  if($FORM{"DAY1"} eq ""){$FORM{'DAY1'}=time}
  for($num=0;$num<$ckeynum;$num++){
    $cval[$num]=$COOKIE{$cookiekey[$num]};
    $cval[$num]=~ s/\=/Enc_eq/g;
    $set[$num]="$cookiekey[$num]:$cval[$num]";
  }
  $set_cookie_value=join(",",@set);
  print "Set-Cookie: $cookiename=$set_cookie_value; expires=$date;\n";
}
sub date{
  my $tt=time;
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($tt);
#  if ($sec < 10)  { $sec = "0$sec";   }
#  if ($min < 10)  { $min = "0$min";   }
#  if ($hour < 10) { $hour = "0$hour"; }
  $month = ($mon + 1);
  $y0="日"; $y1="月"; $y2="火"; $y3="水"; $y4="木"; $y5="金"; $y6="土";
  $youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6) [(localtime)[6]];
  $year=1900+$year;
  $date="$year/$month/$mday($youbi)";
  $times="$hour:$min:$sec";
  open(NUM,"$numfile");
  while(<NUM>){
    chomp;
    if($n==0){$num=$_}
    $nline[$n]=$_;
    $n++;
  }
  $nline[0]=$num+1;
  open(NUM,">$numfile");
  foreach(@nline){
    print NUM<<EP;
$_
EP
  }
  close(NUM);
}