MENU$refer

#!/usr/local/bin/perl $|=1; require './cgi-lib.pl'; require './jcode.pl'; $setting = ''; $backFilePath = "../index.html"; # Backで戻るファイルまでのパス $cartDispPath = "cart_disp.pl"; $cartMainPath = "cart_main.pl"; $passPath = "../cover.html"; #"pass.pl"; $imgPath = "../img"; $cartPath = "../cart_log"; $refer = $ENV{'HTTP_REFERER'}; if ($refer =~ /login.pl/) { $bCatalog = 0; } # login.plを開いたときとそうでないときを判別して else { $bCatalog = 1; } # 購入ページとカタログページを切り替える。 &ReadParse(*MYDATA); $f_lock = "off"; # on = #flock オン , off = #flock オフ #ファイルロック $dbbox = $MYDATA{'dbbox'}; $submit = $MYDATA{'submit'}; $id = $MYDATA{'id'}; $goods = $MYDATA{'goods'}; $cart = $MYDATA{'cart'}; $kazu = $MYDATA{'kazu'}; $name = $MYDATA{'name'}; $price = $MYDATA{'price'}; $size = $MYDATA{'size'}; $change = $MYDATA{'change'}; #***************************************************************** #--------------------------# # ID発行 # #--------------------------# if ($id eq "") { # id.txtにIDの連番を保存する open ID, "<$cartPath/id.txt" || die "Could not open the file"; $id = ; close ID; ++$id; # IDが1000になったら1に戻す if ($id == 1000){ $id = 1; } open ID, ">$cartPath/id.txt" || die "Could not open the file"; &f_lock("ID"); print ID $id; close ID; } # 全カートファイルをスキャンして1日以上経過しているファイルを削除 for ($i=1; $i<$id; $i++){ $fileName = "$cartPath/$i.txt"; if (-f $fileName){ ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($fileName); $nowTime = time; if (($nowTime - $mtime) > 86400){ unlink($fileName); } } } $Maker = $getForm{'id'}; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print " MENU$refer\n"; print ""; print "$setting\n"; print "\n"; print "\n"; if ($bCatalog == 0) { print "商品販売\n"; } else { print "商品カタログ\n"; } print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "車体カバー適合図\n"; # print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; if ($bCatalog == 0){ print "

\n"; # print "

\n"; if ($bCatalog == 0){ print "

\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; sub f_lock { if ($f_lock eq on) { flock($_[0], 2); seek($_[0], 0, 2); } }