TEIM ：ホームページ特別企画

){ $list[$i] = $_; $i++; } close IN; &header; print <<"EOH";

毎月ティムから限定数台の車をご奉仕中!!


	↓下記の車をお求めの方


	下記の車をお求めの方、ご質問のある方は、お名前とご連絡先、お求めになりたい車名をメールにご記入して頂きご連絡下さい。お問合せお待ちしております。 (業者の方はご遠慮下さい) TEL：0462-77-0770 E-mail：info\@teim.co.jp

EOH $u = 0; foreach(@list){ if($u == 0){ $u++; next; } @data = split(/,/,$_); if(!$data[0]){ $u++; next; } $imagepath = "$imgpath$data[11]"; ($type,$width,$height) = stdio::getImageSize($imagepath); # 画像表示縮小 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; } print <<"EOH";

$data[0]

ボディタイプ	年式	ドア数	走行距離	車検	色	ハンドル	修復歴
$data[2]	$data[3]	$data[4]	$data[5]Km	$data[6]	$data[7]	$data[8]	$data[9]

$data[10]

←詳細表\示

$data[1]万円

EOH $u++; print <<"EOH";

上記車の金額は車両本体価格(消費税込)につき登録に伴う費用は含まれておりません

EOH } 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; }