#!/usr/bin/perl

require './dir.pl';

#CGIの名称自動取得
$self =  substr($0,  rindex($0 , "/") +1); 
require $root_to_kanri.'/common/library_base.pl'; # 共通ライブラリーを読み込み
require $root_to_kanri.'/common/library_pc.pl'; # 共通ライブラリーを読み込み
&require_files; # 各必要ファイルを読み込み
&config; #基本設定読み込み



#---初期設定ここまで----------------------------------------

use POSIX;
use CGI;
use DBI;

&decode;

$contents_id = $in{'contents_id'};
if(!$contents_id){$contents_id = '1';}

$main_cate = 'HOME';

#ブログデータ先読みパーツ
#require './rss/rss.pl';
#&blog_include;

# DBに接続
&db_connect;

$sql = "select * from contents where contents_id=1";
$sth = $db->prepare($sql);
if(!$sth->execute){print "データの取得に失敗しました(2)<br>\n";exit;}
@rec = $sth->fetchrow_array;

if($rec[48]){$title=$rec[48];}
if($rec[49]){$keywords=$rec[49];}
if($rec[50]){$description=$rec[50];}
$sth->finish;


&header($title);

&head_lines;

#&menu_top;
#&menu;
#&menu_end;

&box_top;

if($rec[41]){print "\n$rec[41]\n\n";}
#&event_top;
#&blog_top;

$sql = "select * from contents where contents_id=3";
$sth = $db->prepare($sql);if(!$sth->execute){print "データの取得に失敗しました(2)<br>\n";exit;}
@rec = $sth->fetchrow_array;
if($rec[41]){print "\n$rec[41]\n\n";}
$sth->finish;

&whats_new();  ###999を指定した場合は、カテゴリー番号が設定されていない項目を指定したことになる。すべて表示の場合は空白にする。番号を複数設定する場合は半角「,」で区切る。

$sql = "select * from contents where contents_id=2";
$sth = $db->prepare($sql);if(!$sth->execute){print "データの取得に失敗しました(2)<br>\n";exit;}
@rec = $sth->fetchrow_array;
if($rec[41]){print "\n$rec[41]\n\n";}
$sth->finish;

&box_end;


&footer3;

exit;