大塚刷毛　トピックス

$data2[1]

$data2[2]

$data2[3]

#!/usr/bin/perl #2003/JULY by toshi@abuu.co.jp #JAN-09-2004 UPDATE AlphaBridge #2005/May改修 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'}; tie(%DB, DB_File, $TOPICS_DB, O_RDONLY, 0644) or &Error('●サーバーエラー',"Topics用のDB $TOPICS_DB がオープンできません。"); if (!$DB{$ID}) { untie %DB; &Error('●データ無し','該当するTopics用のデータがありません。'); } $DATA = $DB{$ID}; untie %DB; &jcode'convert(*DATA,'sjis'); @data2 = split(/$DELIMITER/,$DATA); $data2[3] =~ s/($http_URL_regex)/$1<\/A>/go; #--------------------------------------------------------- &PrintConType; print << "END_OF_HTML"; 大塚刷毛　トピックス

END_OF_HTML #------------------------------------------------------------------------ #写真が右に入らない場合 if ($data2[5] eq '') { print << "END_OF_HTML"; END_OF_HTML } #写真が右に入る場合 else { print << "END_OF_HTML"; END_OF_HTML if(substr($ID, 8,1) eq '9') { $ebookid = substr($ID, 9, 5); print << "END_OF_HTML"; END_OF_HTML } else { print << "END_OF_HTML"; END_OF_HTML } #-- } #------------------------------------------------------------------------ print << "END_OF_HTML";

END_OF_HTML exit(0);