$title

#!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); use CGI; require 'addin.pl'; #メインルーチン $url=$ENV{'HTTP_REFERER'}; undef %COOKIE; undef %FORM; &set_cookie($cookiename,@cookiekeys); &jump; sub jump{ if ($ENV{PERLXS} eq "PerlIS") { # IIS (PerlIS) サーバ対応 print "HTTP/1.0 302 Temporary Redirection\r\n"; print "Content-type:text/html\n"; } print "Location:$url\n\n"; exit; } ###　HTMLの最初########################## sub header{ print < $title EP } ###　HTMLの最後########################### sub footer{ print < EP } ########################################### #################################################### # クッキーを読む #################################################### #$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; for($num=0;$num<$ckeynum;$num++){ $cval[$num]=$FORM{$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;\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(){ chomp; if($n==0){$num=$_} $nline[$n]=$_; $n++; } $nline[0]=$num+1; open(NUM,">$numfile"); foreach(@nline){ print NUM<