AZUMAの椅子張替えの張り替え実況中継

#!/usr/local/bin/perl # Written By Takeshi Fujita # Copyright(c)2001-2002 Trick Plus Planning All right reserved require "../../lib/jcode.pl"; require "../../lib/cgi-lib.pl"; require "../../lib/cgi-page.cgi"; &ReadParse; &getDate; print "Content-type: text/html\n\n"; #==========[ データ取得 ]================================================= $id = $in{'id'}; $submit = $in{'submit'}; #---------------------------------------------------------------- &jcode'convert(*id,'euc'); &jcode'convert(*submit,'euc'); #==========[ HTML出力 ]================================================= print < AZUMAの椅子張替えの張り替え実況中継 $STYLE $MIDASHI1 ～椅子張替え実況中継～ $MIDASHI2 $MENU1 $MENU2 $FLOW1 　AZUMAの椅子張替え（トップページ）

職人の技（施工例）

椅子張替え実況中継 $FLOW2

■椅子張替え実況中継の見方

各表右上の「■詳細ページをみる！」をクリックすると加工の詳細ページをご覧いただくことができます。

EOM #---------------------------------------------------------- if($id ne ""){ $main_file = "../data/main.cgi"; $hyouji=1; open(DAT,"$main_file"); while (){ chop; @retu = split('\n'); foreach $retu (@retu){ @cell = split('\t', $retu); if($cell[20] == 1 && $cell[0] == $id){ $main_0 = "$cell[0]"; #ID $main_1 = "$cell[1]"; #A-NO } } } close(DAT); $sub_file = "../data/sub.cgi"; open(DAT,"$sub_file"); while (){ chop; @retu = split('\n'); foreach $retu (@retu){ @cell = split('\t', $retu); if($cell[1] eq "$main_1"){ if($cell[3] == 1){ $sub_0 = "$cell[0]"; #INDEX-ID $sub_1 = "$cell[1]"; #A-NO if($hyouji == 1){ #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- } $file = "../data/data_18.cgi"; open(LOG,"$file"); while (){ chop; @line = split('\n'); foreach $line (@line){ @profile = split('\t', $line); if($profile[1] eq "$sub_0"){ $kako_0 = "$profile[0]"; #ID $kako_1 = "$profile[1]"; #INDEX-ID $photo[0] = "$profile[2]"; #写真１ $photo[1] = "$profile[3]"; #写真２ $exp[0] = "$profile[4]"; #加工説明１ $photo[2] = "$profile[5]"; #写真３ $photo[3] = "$profile[6]"; #写真４ $exp[1] = "$profile[7]"; #加工説明２ $photo[4] = "$profile[8]"; #写真５ $photo[5] = "$profile[9]"; #写真６ $exp[2] = "$profile[10]"; #加工説明３ $photo[6] = "$profile[11]"; #写真７ $photo[7] = "$profile[12]"; #写真８ $exp[3] = "$profile[13]"; #加工説明４ $photo[8] = "$profile[14]"; #写真９ $photo[9] = "$profile[15]"; #写真１０ $exp[4] = "$profile[16]"; #加工説明５ } } } close(LOG); #==========[ 画像 ]============================= for($t=0;$t<5;$t++){ $f = $t * 2; $d = $f + 1; if($photo[$f] ne ""){ $img_1 = "

"; }else{$img_1 = "";} if($photo[$d] ne ""){ $img_2 = "

"; }else{$img_2 = "";} if($img_1 ne "" || $img_2 ne ""){ if($t > 0){ $hr = "\n

"; } #---------------------------------------------------------------------- print < EOM #---------------------------------------------------------------------- } } $hyouji++; } } } } close(DAT); if($hyouji == 1){$mes = "該当する情報がありませんでした。";&error;} }else{ $mes = "該当する情報がありませんでした。";&error; } #---------------------------------------------------------------------- print <

張り替え実況中継

■詳細ページをみる！

$hr

加工前

加工後

$img_1

$img_2

$exp[$t]

トップページ

｜ダイニングチェア｜ソファ｜その他のイス等｜

職人の仕事

$jserch $FOOT $KAISEKI1 var ID="100032664-050"; $KAISEKI2 EOM #==========[ E R R O R ]================================================== sub error{ #---------------------------------------------------------------------- print <

トップページ

｜ダイニングチェア｜ソファ｜その他のイス等｜

職人の仕事

$jserch $FOOT $KAISEKI1 var ID="100032664-050"; $KAISEKI2 EOM #---------------------------------------------------------------------- exit; } #==========[ 年月日：時分秒取得 ]=========================================== sub getDate{ #/曜日表示（日英切換）/ ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = $year + 1900; $mon++; @e_wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); @j_wday_array = ('日','月','火','水','木','金','土'); $e_date = sprintf("%04d.%01d.%01d(%s)",$year,$mon,$mday,$e_wday_array[$wday]); $j_date = sprintf("%04d年%01d月%01d日（%s）",$year,$mon,$mday,$j_wday_array[$wday]); $e_time = "$hour:$min:$sec"; $j_time = "$hour時$min分$sec秒"; #/桁数統一/ @time = ($sec,$min,$hour,$mday,$mon,$year); foreach (@time){if($_ < 10){$_ = "0$_";}} ($sec,$min,$hour,$day,$mon,$year) = @time; $s_date = "$year.$mon.$day;$hour:$min:$sec"; } #====================================================================