$data2[3]

#!/usr/bin/perl #2003/JULY by toshi@abuu.co.jp #大塚刷毛様・Topics と新製品のご案内の表示CGI use Fcntl; use DB_File; require 'ohtsuka.pl'; require 'jcode.pl'; require 'cgi-lib.pl'; &ReadParse(*in); $ID = $in{'id'}; $DB = $in{'db'}; #1/2/3 if ($DB eq '') { &Error('●入力エラー','使用方法が違います。'); } if ($ID eq '') { tie(%DB, DB_File, $ALL_NEW_DB[$DB], O_RDONLY, 0644) or &Error('●サーバーエラー',"$NEW_3TYPE{$DB}のDB $ALL_NEW_DB[$DB] がオープンできません。"); @DATA = values %DB; untie %DB; @tmp = map {(split /$DELIMITER/)[0]} @DATA; @DATA = @DATA[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; $DATA_LINE = @DATA[0]; &jcode'convert(*DATA_LINE,'sjis'); @data2 = split(/$DELIMITER/,$DATA_LINE); } else { tie(%DB, DB_File, $ALL_NEW_DB[$DB], O_RDONLY, 0644) or &Error('●サーバーエラー',"$NEW_3TYPE{$DB}のDB $ALL_NEW_DB[$DB] がオープンできません。"); if (!$DB{$ID}) { untie %DB; &Error('●データ無し',"該当する$NEW_3TYPE{$DB}用のデータがありません。"); } $DATA = $DB{$ID}; untie %DB; &jcode'convert(*DATA,'sjis'); @data2 = split(/$DELIMITER/,$DATA); } &PrintConType; #--------------------------------------------------------- if ($data2[1] eq 'A') { if ($data2[11] eq '') { $data2[11] = $NO_IMG227_URL; } if ($data2[12] eq '') { $data2[12] = $NO_IMG227_URL; } print << "END_OF_HTML"; $data2[3]

$data2[4]

$data2[6]

END_OF_HTML @ALL_KTXT = ($data2[7],$data2[8],$data2[9],$data2[10]); for ($i = 0; $i <= 3; ++$i) { if ($ALL_KTXT[$i] ne '') { print << "END_OF_HTML"; END_OF_HTML } } print << "END_OF_HTML";

●	$ALL_KTXT[$i]

END_OF_HTML exit(0); } #--------------------------------------------------------- elsif ($data2[1] eq 'B') { if ($data2[11] eq '') { $data2[11] = $NO_IMG170_URL; } if ($data2[12] eq '') { $data2[12] = $NO_IMG129_URL; } if ($data2[13] eq '') { $data2[13] = $NO_IMG129_URL; } print << "END_OF_HTML"; $data2[3]

$data2[4]

$data2[6]

END_OF_HTML @ALL_KTXT = ($data2[7],$data2[8],$data2[9],$data2[10]); for ($i = 0; $i <= 3; ++$i) { if ($ALL_KTXT[$i] ne '') { print << "END_OF_HTML"; END_OF_HTML } } print << "END_OF_HTML";

●	$ALL_KTXT[$i]

END_OF_HTML exit(0); }