#!/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";
● |
$ALL_KTXT[$i] |
END_OF_HTML
}
}
print << "END_OF_HTML";
|
|
|
|
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";
● |
$ALL_KTXT[$i] |
END_OF_HTML
}
}
print << "END_OF_HTML";
|
|
|
|
END_OF_HTML
exit(0);
}