#!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); use CGI; use DBI; use MIME::Base64; use Jcode; require 'addin.pl'; $q = new CGI; $name1=$q->param('name1'); $name2=$q->param('name2'); $name3=$q->param('name3'); $name4=$q->param('name4'); $houhou=$q->param('houhou'); $mail=$q->param('mail'); $zip=$q->param('zip'); $addr=$q->param('addr'); $tel1=$q->param('tel1'); $zip2=$q->param('zip2'); $addr2=$q->param('addr2'); $tel2=$q->param('tel2'); $cookiecheck=$q->param('cookiecheck'); $other=$q->param('other'); $submit=$q->param('submit'); $end=$q->param('end'); $breakpoint; #メインルーチン $title="精算ページ"; &read_cookie($cookiename); ✓ unless($breakpoint==1){ if($cookiecheck==1){ if( $name1 ne ""){ $COOKIE{'name1'}=$name1; $COOKIE{'name2'}=$name2; $COOKIE{'name3'}=$name3; $COOKIE{'name4'}=$name4; $COOKIE{'houhou'}=$houhou; $COOKIE{'mail'}=$mail; $COOKIE{'zip'}=$zip; $COOKIE{'addr'}=$addr; $COOKIE{'tel1'}=$tel1; $COOKIE{'zip2'}=$zip2; $COOKIE{'addr2'}=$addr2; $COOKIE{'tel2'}=$tel2; $COOKIE{'cookiecheck'}=$cookiecheck; } &set_cookie2($personcookie,@personcookie); } &read_cookie($personcookie); if($submit ne ""){&header;&personal2;&listforpay} elsif($end ne ""){&date;&personal3} else{&header;&personal1;&listforpay} &footer; } sub check{ my $y1; my $y2; my $tt; my $gnum1; my $cnum1; my $name; @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'}"); open(FILE,"$file"); while(){ chomp; @tmp1=split(/\Q,\E/); foreach $gidtmp(@gid){ if($tmp1[0] eq $gidtmp){ if($tmp1[16]<$kazu[$cnum1]){$ischeck[$cnum1]=1;$is[$cnum1]=$tmp1[16];$breakpoint=1} @tmpkazu=split(/\Q:\E/,$tmp1[5]); $tmpkazu=@tmpkazu; if($tmpkazu>0){ if($yobi1[$cnum1] ne "y"){ @tmpyobi1=split(/\Q:\E/,$tmp1[3]); $tt=0; foreach $ty1(@tmpyobi1){ if($yobi1[$cnum1] eq $ty1){ $y1=$tt; last; } $tt++; } } $tt=0; if($yobi2[$cnum1] ne "y"){ @tmpyobi2=split(/\Q:\E/,$tmp1[4]); $y2num=@tmpyobi2; $y2num=$y2num-1; $tt1=0; foreach $ty2(@tmpyobi2){ if($yobi2[$cnum1] eq $ty2){ $y2=$tt1; last; } $tt1++; } } if($yobi1[$cnum1] ne ""){ if($yobi2[$cnum1] ne ""){$tmpkazunum=($y1-1)*$y2num+$y2-1} else{$tmpkazunum=$y1-1} } else{ if($yobi2[$cnum1] ne ""){$tmpkazunum=$y2-1} # else{$tmpkazunum=0} } if($tmpkazu[$tmpkazunum]<$kazu[$cnum1]){$ischeck[$cnum1]=2;$is[$cnum1]=$tmpkazu[$tmpkazunum];$breakpoint=1} } } $cnum1++; } $cnum1=0; } if($breakpoint==1){ print <エラー EP foreach(@gid){ if($ischeck[$gnum1]==1){print "$title[$gnum1]は、お客様の買い物の途中で他のお客様によって買われてしまいました。現在数は$is[$gnum1]です。
"} if($ischeck[$gnum1]==2){ if($yobi1[$gnum1] eq "y"){$name=$yobi2[$gnum1]} else{ if($yobi2[$gnum1] eq "y"){$name=$yobi1[$gnum1]} else{$name=$yobi1[$gnum1].",".$yobi2[$gnum1]} } print "$title[$gnum1]($name)は、お客様の買い物の途中で他のお客様によって買われてしまいました。$title[$gnum1]($name)の現在数は$is[$gnum1]です。
"; } $gnum1++; } print "
お手数ですが、ブラウザの戻るのボタンで前のページに戻って購入数を減らしてください。"; } } sub personal1{ if($COOKIE{'name1'} ne ""){ $name1 = $COOKIE{'name1'}; $name2 = $COOKIE{'name2'}; $name3 = $COOKIE{'name3'}; $name4 = $COOKIE{'name4'}; $houhou = $COOKIE{'houhou'}; $zip = $COOKIE{'zip'}; $addr = $COOKIE{'addr'}; $tel1 = $COOKIE{'tel1'}; $zip2 = $COOKIE{'zip2'}; $addr2 = $COOKIE{'addr2'}; $tel2 = $COOKIE{'tel2'}; $mail = $COOKIE{'mail'}; $cookiecheck=$COOKIE{'cookiecheck'}; } print <お客様・お届け先の記入
お客様とお届け先が同じ場合は、お届け先は空白のままにしてください。
EP print < EP if($houhou eq "代引き"){ print < EP } elsif($houhou eq "銀行振込（ジャパンネット銀行）"){ print < EP } elsif($houhou eq "ゆうちょ振込・振替（ゆうちょ銀行）"){ print < EP } else{ print < EP } print < EP if($cookiecheck==1){ print < EP } else{ print < EP } print <
お名前
ふりがな
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
メールアドレス
郵便番号
ご住所
電話番号
お届け先お名前
ふりがな
お届け先郵便番号
お届け先ご住所
お届け先電話番号
通信欄（その他の連絡にお使いください）
ご連絡には、電話、メールのどちらがよろしいでしょうか？
メール希望　電話希望　どちらでもよい
入力データを記憶する入力データを記憶する
EP } sub personal1old{ if($COOKIE{'name1'} ne ""){ $name1 = $COOKIE{'name1'}; $name2 = $COOKIE{'name2'}; $name3 = $COOKIE{'name3'}; $name4 = $COOKIE{'name4'}; $houhou = $COOKIE{'houhou'}; $zip = $COOKIE{'zip'}; $addr = $COOKIE{'addr'}; $tel1 = $COOKIE{'tel1'}; $zip2 = $COOKIE{'zip2'}; $addr2 = $COOKIE{'addr2'}; $tel2 = $COOKIE{'tel2'}; $mail = $COOKIE{'mail'}; $cookiecheck=$COOKIE{'cookiecheck'}; } print <お客様・お届け先の記入
お客様とお届け先が同じ場合は、お届け先は空白のままにしてください。
EP if($name1 eq ""){ print < EP } else{ print < EP } if($name3 eq ""){ print < EP } else{ print < EP } if($houhou eq "代引き"){ print < EP } elsif($houhou eq "銀行振込（ジャパンネット銀行）"){ print < EP } elsif($houhou eq "ゆうちょ振込・振替（ゆうちょ銀行）"){ print < EP } else{ print < EP } if(mail eq ""){ print < EP } else{ print < EP } if($zip eq ""){ print < EP } else{ print < EP } if($addr eq ""){ print < EP } else{ print < EP } if($tel1 eq ""){ print < EP } else{ print < EP } if($name5 eq ""){ print < EP } else{ print < EP } if($name7 eq ""){ print < EP } else{ print < EP } if($zip2 eq ""){ print < EP } else{ print < EP } if($addr2 eq ""){ print < EP } else{ print < EP } if($tel2 eq ""){ print < EP } else{ print < EP } print < EP if($cookiecheck==1){ print < EP } else{ print < EP } print <
お名前氏名
お名前氏名
ふりがな氏名
ふりがな氏名
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
お支払い方法
送料はメールにてお知らせいたします。
また、振込手数料および代金引換手数料はお客様負担となります。 ）
メールアドレス
メールアドレス
郵便番号
郵便番号
ご住所
ご住所
電話番号
電話番号
お届け先お名前氏名
お届け先お名前氏名
ふりがな氏名
ふりがな氏名
お届け先郵便番号
お届け先郵便番号
お届け先ご住所
お届け先ご住所
お届け先電話番号
お届け先電話番号
ご連絡には、電話、メールのどちらがよろしいでしょうか？
メール希望　電話希望　どちらでもよい
通信欄（その他の連絡にお使いください）
入力データを記憶する入力データを記憶する
EP } sub personal2{ if($name3 eq ""){$name3=$name1} if($name4 eq ""){$name4=$name2} if($addr2 eq ""){$addr2=$addr} if($zip2 eq ""){$zip2 = $zip} if($tel2 eq ""){$tel2 =$tel1} if($zip2 eq ""){$zipcode2=$zipcode1} if($address2 eq ""){$address2=$address1} if($tel2 eq ""){$tel2=$tel1} $zipcode1=~s/\Q－\E/\-/g; $zip2=~s/\Q－\E/\-/g; $tel1=~s/\Q－\E/\-/g; $tel2=~s/\Q－\E/\-/g; $zip=~s/０/0/g; $zip=~s/１/1/g; $zip=~s/２/2/g; $zip=~s/３/3/g; $zip=~s/４/4/g; $zip=~s/５/5/g; $zip=~s/６/6/g; $zip=~s/７/7/g; $zip=~s/８/8/g; $zip=~s/９/9/g; $zip2=~s/０/0/g; $zip2=~s/１/1/g; $zip2=~s/２/2/g; $zip2=~s/３/3/g; $zip2=~s/４/4/g; $zip2=~s/５/5/g; $zip2=~s/６/6/g; $zip2=~s/７/7/g; $zip2=~s/８/8/g; $zip2=~s/９/9/g; $tel1=~s/０/0/g; $tel1=~s/１/1/g; $tel1=~s/２/2/g; $tel1=~s/３/3/g; $tel1=~s/４/4/g; $tel1=~s/５/5/g; $tel1=~s/６/6/g; $tel1=~s/７/7/g; $tel1=~s/８/8/g; $tel1=~s/９/9/g; $tel2=~s/０/0/g; $tel2=~s/１/1/g; $tel2=~s/２/2/g; $tel2=~s/３/3/g; $tel2=~s/４/4/g; $tel2=~s/５/5/g; $tel2=~s/６/6/g; $tel2=~s/７/7/g; $tel2=~s/８/8/g; $tel2=~s/９/9/g; $other=~s/\r\n/\n/g; $other=~s/\r/\n/g; $other=~s/\Q,\E/、/g; $other=~s/\Q.\E/。/g; $other=~s/\n/
/g;#改行コード print < 誤記や記入漏れがないかチェックしてしてください。内容が正しければ、送信を押してください。 お客様・お届け先情報 お名前$name1 ふりがな$name2 お支払方法$houhou メールアドレス$mail 郵便番号$zip ご住所$addr 電話番号$tel1 お届け先お名前$name3 ふりがな$name4 お届け先郵便番号$zip2 お届け先ご住所$addr2 お届け先電話番号$tel2 ご連絡$access[access] 通信欄$other
EP } sub personal3{ @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'}"); $other=~s/\n/[改行]/g; $num=@title; &lock($lock1); open(FILE,"$file"); while(){ chomp; $line[$in1]=$_; $in1++; } &unlock($lock1); $ln=@line; for($s=0;$s<$num;$s++){ for($p=0;$p<$ln;$p++){ chomp($line[$p]); if($line[$p]=~/^$gid[$s],/){ @data=split(/,/,$line[$p]); $data[16]=$data[16]-$kazu[$s]; if($data[5] ne ""){ @yobi3a=split(/\Q:\E/,"$data[5]"); @yobi1a=split(/\Q:\E/,"$data[3]"); $numyobi1=@yobi1a; foreach(@yobi1a){ if(/\Q$yobi1[$s]\E/){last} $c1[$s]++; } @yobi2a=split(/\Q:\E/,"$data[4]"); $numyobi2=@yobi2a; foreach(@yobi2a){ if(/\Q$yobi2[$s]\E/){last} $c2[$s]++; } if(($data[3] ne "")&&($data[4] ne "")){$yob3num=($numyobi2-1)*($c1[$s]-1)+$c2[$s]-1} elsif(($data[3] ne "")&&($data[4] eq "")){$yob3num=$c1[$s]-1} else{$yob3num=$c2[$s]-1} $yobi3a[$yob3num]=$yobi3a[$yob3num]-$kazu[$s]; $data[5]=join(":",@yobi3a); } $line[$p]=join(",",@data); last; } } if($yobi11[$s] eq "y"){$yobi11[$s] =""} if($yobi21[$s] eq "y"){$yobi21[$s] =""} if($yobi1[$s] eq "y"){$yobi1[$s] =""} if($yobi2[$s] eq "y"){$yobi2[$s] =""} $goods[$s]="$gid[$s],$title[$s],$price[$s],$kazu[$s],$yobi11[$s],$yobi1[$s],$yobi21[$s],$yobi2[$s]"; $goukei=$goukei+($price[$s]*$kazu[$s]); } # $tax=int($goukei*($taxrate/100)); if($goukei<$transfarlimit){$transfar=$transfarfee;$transfarcomment1=""} else{$transfar=0;$transfarcomment1=$transfarcomment} # $soukei=$goukei+$tax+$transfar; if($transfar=~/[^0-9]/){$soukei=$goukei} else{$soukei=$goukei+$transfar} $other=~s/\n//g; $other=~s/\015\012//g; $other=~s/\012//g; $other=~s/\015//g; if($name5 eq ""){$name5 = $name1} if($name6 eq ""){$name6 = $name2} if($name7 eq ""){$name7 = $name3} if($name8 eq ""){$name8 = $name4} if($addr2 eq ""){$addr2 = $addr} if($zip2 eq ""){$zip2 = $zip} open(NOTE,">>$note"); for($s=0;$s<$num;$s++){ print NOTE <>$note2"); for($s=0;$s<$num;$s++){ print NOTE2 <$file"); foreach(@line){ chomp; print FILE <ck.txt"); # print CK "1"; # close(CK); if($soukei<$transfarlimit){$souryou2="(及び送料)"} else{$souryou2="(及び送料)"} #手動による買い物内容書き込みのための工夫（$name1がnomailならメールを出さない） ($body1,$body2)=&mailbody2;#mailbody1のやり方だと変数が展開されない unless($name1 eq "nomail"){ &sendmail1; &sendmail2($companymail); } else{ &sendmail2($enginearmail); } #買い物内容を消す undef %COOKIE; &set_cookie2($cookiename,@cookiekeys); print <
お買い上げありがとうございました。
(3秒後、自動的にHOMEにジャンプします)
EP } sub ziptoaddress{ my ($code)=@_; $code=~s/\-//g; open(ZIP,"zipcode.csv"); while(){ if(/^$code,/){ @zips=split(/,/); last; } } if($zip1 ne ""){$address1=$zips[1]} if($zip2 ne ""){$address =$zips[1]} } sub listforpay{ @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; if($num>0){ print < お買い物カゴの内容 商品名価格数量金額備考 EP for($f=0;$f<$num;$f++){ $kingaku=$price[$f] * $kazu[$f]; if($yobi1[$f] ne ""){$bikou1=$yobi11[$f]."：".$yobi1[$f]} if($yobi2[$f] ne ""){$bikou2=$yobi21[$f]."：".$yobi2[$f]} if($bikou1 eq "y：y"){$bikou1=""} if($bikou2 eq "y：y"){$bikou2=""} if(($bikou1 ne "")&&($bikou2 ne "")){$bikoujoint=" "} $bikou=$bikou1.$bikoujoint.$bikou2; print <$title[$f]$price[$f]$kazu[$f]$kingaku$bikou EP $amount=$amount+$kingaku; } use integer; # $tax=$amount * $taxrate / 100; if($amount<$transfarlimit){$transfar=$transfarfee;$transfarcomment1=$transfarcomment} else{$transfar=0;$transfarcomment1=$transfarcomment} # $kei=$amount + $tax + $transfar;#外税の場合、下をこの行に変える。下記の表示部も改訂。メール部も改訂。 if($transfar=~/[^0-9]/){$kei=$amount;$transfar1=$transfar} else{$kei=$amount+$transfar;$transfar1=$transfar."円"} #内税の場合、上をこの行に変える。下記の表示部も改訂。メール部も改訂。 no integer; print <
金額合計$amount円
送　料$transfar1
$transfarcomment1
総　計$kei円
EP if($submit ne ""){ print < EP } } else{ print <mime_encode; open(SENDMAIL,"|$sendmail -t $mail")||die "can not send mail"; print SENDMAIL<mime_encode; open(SENDMAIL,"|$sendmail -t $frommail")||die "can not send mail"; print SENDMAIL</\n/g; open(UPLT,"$upperletterfl"); while(){ $upperletter .= $_; } close(UPLT); open(UNLT,"$underletterfl"); while(){ $underletter .= $_; } close(UNLT); $body .= "*受付番号：$tt\n"; $body .= "*お名前：$name1\n"; $body .= "*ふりがな：$name2\n"; $body .= "*お支払い方法：$houhou\n"; $body .= "*メールアドレス：$mail\n"; $body .= "*郵便番号：$zip\n"; $body .= "*ご住所：$addr\n"; $body .= "*お電話番号：$tel1\n"; $body .= "*****************************\n"; $body .= "*****************************\n"; $body .= "*お届け先お名前：$name3\n"; $body .= "*ふりがな：$name4\n"; $body .= "*お届け先郵便番号：$zip2\n"; $body .= "*お届け先ご住所：$addr2\n"; $body .= "*お届け先電話番号：$tel2\n"; $body .= "*連絡手段:$access[$access]\n"; $body .= "*その他の通信\n"; $body .= "$other\n"; $goodsnum=1; foreach $goods(@goods){ $goods=~s/\Qy：y\E//g; @goods1=split(/\Q,\E/,"$goods"); if($goods1[4] ne ""){$goods4="$goods1[4]:$goods1[5] $goods1[6]:$goods1[7]"} else{$goods4=""} $body.="$goodsnum.商品名(商品コード) $goods1[1]($goods1[0])\n"; $body.=" 単価 $goods1[2]\n"; $body.=" 数量 $goods1[3]\n"; $body.=" 備考 $goods4\n"; undef @goods1; $goodsnum++; } $transfarcomment=~s/
/\n/g; if($transfar=~/[^0-9]/){$transfar2=$transfar} else{$transfar2="￥".$transfar} $body.="*合計：￥$goukei\n"; $body.="*送料：$transfar2\n"; $body.="$transfarcomment\n"; $body.="*総計：￥$soukei $souryou2\n"; $body1="松司軒webshopからの自動返信です。\n\n"; $body1.="$upperletter\n"; $body1.=$body; $body1.=$underletter; $body2="松司軒webshopからの自動返信です。\n\n"; $body2.= "下記のお買い物がありました。\n"; $body2.= "サーバー上のファイルに書き込みました。\n\n"; $body2.=$body; Jcode::convert(\$body1,'jis'); Jcode::convert(\$body2,'jis'); =pod#テストのためのファイル書き込みをした open(FILE,">test1.txt"); print FILE $body1; print FILE $body2; close(FILE); =cut @ans=($body1,$body2); return @ans; } ###　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]=$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; \n"; } sub set_cookie2{ 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"; } @week=("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"); $youbi = $week[$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"; 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{ $tt=time; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($tt); $month = ($mon + 1); if ($sec < 10) { $sec = "0$sec";} if ($min < 10) { $min = "0$min";} if ($hour < 10) { $hour = "0$hour";} $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"; $date1=$date." ".$times; } sub lock{ my ($lockfile)=@_; my $retry= 5; while (!symlink(".", $lockfile)) { if(--$retry <= 0) {&errorjump} sleep(1); } } sub unlock{ my ($lockfile)=@_; if(-e $lockfile){unlink($lockfile)} } sub errorjump{ if ($ENV{PERLXS} eq "PerlIS") { # IIS (PerlIS) サーバ対応 print "HTTP/1.0 302 Temporary Redirection\r\n"; print "Content-type:text/html\n"; } print "Location:$errorurl\n\n"; exit; } sub errors{ my ($er2)=@_; print <$er2が書き込まれていません。
EP }