TEIM(ティム)：中古車！買取！オークション代行ならティム

#!/usr/bin/perl require './cgi-bin/cgi-lib.pl'; require './cgi-bin/jcode.pl'; require './cgi-bin/stdio.pl'; &decode; #methodの方式 $method = "POST"; #このスクリプト名 $script = "topics.cgi"; #TOP用データの格納先 $top_data = "./cgi-bin/data/topics.csv"; #特別企画用データの格納先 $special_data = "./cgi-bin/data/special.csv"; #画像ファイルの置き場所 $imgpath = "./cgi-bin/img_top/"; #画像の最大サイズ $MaxW = 110; $MaxH = 80; @list = (); $i = 0; open IN,"$top_data" or die &error("$top_dataが開けません"); while(){ $list[$i] = $_; $i++; } close IN; @special = (); $k = 0; open IN,"$special_data" or die &error("$special_dataが開けません"); while(){ $special[$k] = $_; $k++; } close IN; chop $special[0]; $top_pic = "$imgpath$special[0]"; ($type,$width,$height) = stdio::getImageSize($top_pic); # 画像表示縮小 if ($width > $MaxW || $height > $MaxH) { $W2 = $MaxW / $width; $H2 = $MaxH / $height; if ($W2 < $H2) { $key = $W2; } else { $key = $H2; } $width = int ($width * $key) || 1; $height = int ($height * $key) || 1; } &header; print <<"EOH";

EOH $j = 1; foreach(@list){ @data = split(/,/,$_); if(!$data[0]){ $j++; next; } print <<"EOH"; EOH $j++; } print <<"EOH";

	$data[0]

EOH if($special[0]){ print "

\n"; }else{ print "画像なし\n"; } print <<"EOH";

EOH $j = 0; $inj=0; foreach(@special){ if($j == 0){ $j++; next; } @data = split(/,/,$_); if(!$data[0]){ $j++; next; } print <<"EOH";

	$data[0]
	年式$data[3] 走行距離$data[5]Km
	$data[1]万円

EOH $j++; $inj++; last if($inj eq 3); } print <<"EOH";

EOH exit; ################################################################### # ヘッダー [ &header ] ################################################################### sub header { print "Content-type: text/html\n\n"; print <<"EOH"; TEIM(ティム)：中古車！買取！オークション代行ならティム EOH } ########################################################### # エラー処理 [ &error ] ########################################################### sub error{ if ($lockflag) { &unlock; } print "Content-type: text/html\n\n"; print "ERROR\n"; print "

\n"; print "ERROR!!
\n"; print "

$_[0]

\n"; if($_[1] eq "1"){ print "\n"; }else{ print "\n"; } exit; } #----------------# # デコード処理 # #----------------# sub decode { &ReadParse; while (($key,$val) = each %in) { if ($key ne "upfile") { # シフトJISコードに変換 &jcode'convert(*val, "sjis", "", "z"); # $val =~ s/\://g; $val =~ s/\,//g; # タグ処理 $val =~ s/&/&/g; $val =~ s/"/"/g; # $val =~ s//>/g; # 改行処理 if ($key eq "comment") { $val =~ s/\r\n/
/g; $val =~ s/\r/
/g; $val =~ s/\n/
/g; } # else { # $val =~ s/\r//g; # $val =~ s/\n//g; # } } $in{$key} = $val; } $mode = $in{'mode'}; $page = $in{'page'}; $in{'url'} =~ s/^http\:\/\///; if ($in{'sub'} eq "") { $in{'sub'} = "無題"; } # 日時の取得 $ENV{'TZ'} = "JST-9"; $times = time; ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime($times)); $year = $year + 1900; $mon++; if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } if ($hour < 10) { $hour = "0$hour"; } if ($min < 10) { $min = "0$min"; } if ($sec < 10) { $sec = "0$sec"; } # 日時のフォーマット @week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d", $year,$mon,$mday,$week[$wday],$hour,$min); $date1 = "$year$mon$mday$hour$min$sec"; $date2 = "$year/$mon/$mday"; } #--------------# # ロック処理 # #--------------# sub lock { # 1分以上古いロックは削除する if (-e $lockfile) { local($mtime) = (stat($lockfile))[9]; if ($mtime < time - 60) { &unlock; } } local($retry) = 5; # symlink関数式ロック if ($lockkey == 1) { while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error('LOCK is BUSY'); } sleep(1); } # mkdir関数式ロック } elsif ($lockkey == 2) { while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { &error('LOCK is BUSY'); } sleep(1); } } $lockflag=1; } #--------------# # ロック解除 # #--------------# sub unlock { if ($lockkey == 1) { unlink($lockfile); } elsif ($lockkey == 2) { rmdir($lockfile); } $lockflag=0; } ########################################################### # エラー探し [ &info ] ########################################################### sub info { print "Content-type: text/html\n\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

$_[0]

\n"; print"\n"; print"\n"; exit; }