#!/usr/bin/perl

$file = '../../NEWS/nph-n001.html';
$file = '../../NEWS/news_daily.html';

require '../libs/vibeinit.pl';
&init;
&parse_option;
&page_header;

# if($FORM{name} eq "") { &error('name undefined.'); }

my $news_ymd = $FORM{news_ymd};
my $news_index = '';
my $news_description = '';

@usagelist = (
        'news_ymd', 'YMD', '日付'
);
$dbh=&dbi_connect;

unless ($news_ymd) {
  $sth = $dbh->prepare( "
   select max(to_char(news_ymd, 'YYYY.MM.DD'))
   from news
   where web_flg = '1'" ) || &dbi_error;
  $sth->execute;
  if( @row = $sth->fetchrow ) {
    $news_ymd = $row[0];
  }
  $sth->finish;
  if( $news_ymd eq '' ) {
    $dbh->disconnect;
    &error('データベースが存在しません');
  }
}

my( $year, $month, $mday ) = split /\D/, $news_ymd;
$news_ymd = sprintf("%d.%d.%d", $year, $month, $mday);

$execsql= <<EOM;
   SELECT
      News.Header, JOHO_Src.Name, News.Detail,
      Cont1.Gazo_Data Cont_URL1, Cont2.Gazo_Data Cont_URL2,
      Cont1.hanken    Cont_CREDIT1, Cont2.hanken Cont_CREDIT2,
      News.News_CD    ,News.Real_URL, News.WMP_URL, NEWS.News_rnk
    FROM
      News, JOHO_Src, Cont_Graph Cont1, Cont_Graph Cont2
    WHERE
      News.Web_Flg = '1' and
      News.News_ymd(+) = TO_DATE('$news_ymd') and
      NVL(News.limit_ymd, sysdate) >= trunc(sysdate) and
      News.JOHO_Src = JOHO_Src.JOHO_Src(+) and
      News.Cont_CD1 = Cont1.Cont_CD(+) and
      trunc(sysdate) <= NVL(Cont1.limit_ymd(+), sysdate) and
      News.Cont_CD2 = Cont2.Cont_CD(+) and
      trunc(sysdate) <= NVL(Cont2.limit_ymd(+), sysdate)
 ORDER BY TO_NUMBER(News.News_rnk)
EOM

$sth = $dbh->prepare($execsql) || &dbi_errir;
$sth->execute;
my $count = 0;
my $total = 0;
my $arrowinit1 = '';
my $arrowinit2 = '';
$sth->bind_columns( undef, \( $header, $joho_src, $detail, $cont1, $cont2, $hanken1, $hanken2, $news_cd, $real, $wmp, $news_rnk ) );
while( $sth->fetch )
  {
    my $button = 'button' . ($count * 3 + 1);
    my $bbsbutton = 'button' . ($count * 3 + 2);
    my $topbutton = 'button' . ($count * 3 + 3);
    $arrowinit1 .= <<EOM;
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'$button',/*URL*/'/images/arrow.gif',/*URL*/'/images/arrow2.gif',/*URL*/'/images/arrow3.gif','arrow');
EOM
    $arrowinit2 .= <<EOM;

CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'$topbutton',/*URL*/'/images/nw_top_btn.gif',/*URL*/'/images/nw_top_btn2.gif',/*URL*/'/images/nw_top_btn.gif','');
EOM
    ++ $count;
    if( $joho_src ne '' )
      {
        $joho_src = "($joho_src)";
      }
    $news_index .= <<EOM;
\t\t\t\t\t\t\t\t\t<tr>
\t\t\t\t\t\t\t\t\t\t<td width="19"><csobj w="19" h="17" t="Button" ht="/images/arrow2.gif" cl="/images/arrow3.gif"><a href="#$news_cd" onmouseover="return CSIShow(/*CMP*/'$button',1)" onmouseout="return CSIShow(/*CMP*/'$button',0);" onclick="return CSIShow(/*CMP*/'$button',2);return CSButtonReturn()"><img src="/images/arrow.gif" width="19" height="17" name="$button" border="0" alt="arrow"></a></csboj></td>
\t\t\t\t\t\t\t\t\t\t<td valign="top"><font size="2">$header $joho_src </font></td>
\t\t\t\t\t\t\t\t\t</tr>
EOM
    $news_descriptions .= <<EOM;
\t\t\t\t\t\t\t\t\t<tr>
\t\t\t\t\t\t\t\t\t\t<td align="right" valign="top">
\t\t\t\t\t\t\t\t\t\t\t<div align="right">
\t\t\t\t\t\t\t\t\t\t\t\t<font size="2">
\t\t\t\t\t\t\t\t\t\t\t\t<table cellpadding="5" cellspacing="0" border="0" width="300">
\t\t\t\t\t\t\t\t\t\t\t\t\t<tr><!--top news 本文ここから-->
\t\t\t\t\t\t\t\t\t\t\t\t\t\t<td valign="top" bgcolor="#f2edc5"><b><a name="$news_cd"></a></b><font size="2">$news_ymd</font><br>
\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t<b>$header</b></td>
\t\t\t\t\t\t\t\t\t\t\t\t\t\t<!--top news 本文ここまで-->
\t\t\t\t\t\t\t\t\t\t\t\t\t</tr>
\t\t\t\t\t\t\t\t\t\t\t\t\t<tr>
\t\t\t\t\t\t\t\t\t\t\t\t\t\t<td valign="top"><font size="2">$detail $joho_src </font></td>
\t\t\t\t\t\t\t\t\t\t\t\t\t</tr>
\t\t\t\t\t\t\t\t\t\t\t\t\t<tr>
\t\t\t\t\t\t\t\t\t\t\t\t\t\t<td align="right" valign="bottom">
\t\t\t\t\t\t\t\t\t
\t\t\t\t\t\t\t\t\t 
\t\t\t\t\t\t\t\t\t
\t\t\t\t\t\t\t\t\t</csobj><img height="1" width="15" src="/images/dot.gif">
\t\t\t\t\t\t\t\t\t<csobj w="81" h="13" t="Button" ht="/images/nw_top_btn2.gif" cl="/images/nw_top_btn.gif">
\t\t\t\t\t\t\t\t\t  <a href="#nw_top" onmouseover="return CSIShow(/*CMP*/'$topbutton',1)" onmouseout="return CSIShow(/*CMP*/'$topbutton',0)" onclick="CSIShow(/*CMP*/'$topbutton',2);return CSButtonReturn()">
\t\t\t\t\t\t\t\t\t  <img src="/images/nw_top_btn.gif" width="81" height="13" name="$topbutton" border="0"></a>
\t\t\t\t\t\t\t\t\t</csobj><br>
\t\t\t\t\t\t\t\t\t\t\t\t\t\t</td>
\t\t\t\t\t\t\t\t\t\t\t\t\t</tr>
\t\t\t\t\t\t\t\t\t\t\t\t</table>
\t\t\t\t\t\t\t\t\t\t\t\t</font></div>
\t\t\t\t\t\t\t\t\t\t</td>
EOM
    $news_descriptions .= <<EOM;
\t\t\t\t\t\t\t\t\t  <td width="180" valign="top">
EOM
    if( $cont1 )
      {
        if( $cont2 )
          {
    $news_descriptions .= <<EOM;
\t\t\t\t\t\t\t\t\t\t\t<table><tr>
\t\t\t\t\t\t\t\t\t\t\t<td><font size="2"><img src="$cont1" border="0"><br></font></td>
\t\t\t\t\t\t\t\t\t\t\t<td><font size="2"><img src="$cont2" border="0"><br></font></td>
\t\t\t\t\t\t\t\t\t\t\t</tr><tr>
\t\t\t\t\t\t\t\t\t\t\t<td><font size="1">(c)$hanken1</font></td>
\t\t\t\t\t\t\t\t\t\t\t<td><font size="1">(c)$hanken2</font></td>
\t\t\t\t\t\t\t\t\t\t\t</tr></table>
EOM
          }
        else
          {
        $news_descriptions .= <<EOM;
\t\t\t\t\t\t\t\t\t\t\t<font size="2"><img src="$cont1" border="0"><br></font>
\t\t\t\t\t\t\t\t\t\t\t<font size="1">(c)$hanken1</font>
EOM
          }
      }
    $news_descriptions .= <<EOM if( $wmp || $real );
\t\t\t\t\t\t\t\t\t\t\t<font size="2">
\t\t\t\t\t\t\t\t\t\t\t<table border="0" cellpadding="0" cellspacing="0" width="160">
\t\t\t\t\t\t\t\t\t\t\t\t<tr>
\t\t\t\t\t\t\t\t\t\t\t\t\t<td width="85"><font size="1">ニュース画像が<br>
\t\t\t\t\t\t\t\t\t\t\t\t\t\tストリーミングで<br>
\t\t\t\t\t\t\t\t\t\t\t\t\t\tご覧いただけます。</font></td><td>
EOM
    $news_descriptions .= <<EOM if( $real );
\t\t\t\t\t\t\t\t\t\t\t\t\t<a href="$real"><font size="2">
\t\t\t\t\t\t\t\t\t\t\t\t\t\t<img height="15" width="17" src="/images/freerealplayer7-.gif" border="0">Real Player</a><br>
EOM
    $news_descriptions .= <<EOM if( $wmp );
\t\t\t\t\t\t\t\t\t\t\t\t\t\t<a href="$wmp"><img height="15" width="16" src="/images/bnrWinmediap-.gif" border="0"></font><font size="2">Windows<br>
\t\t\t\t\t\t\t\t\t\t\t\t\t\tMedia Player</font></a>
EOM
    $news_descriptions .= <<EOM if( $wmp || $real );
\t\t\t\t\t\t\t\t\t\t\t\t\t</td>
\t\t\t\t\t\t\t\t\t\t\t\t</tr>
\t\t\t\t\t\t\t\t\t\t\t</table>
\t\t\t\t\t\t\t\t\t\t\t</font><font size="2"><br>
EOM
    $news_descriptions .= <<EOM;
\t\t\t\t\t\t\t\t\t\t\t</font></td>
\t\t\t\t\t\t\t\t\t</tr>
EOM
  }
$sth->finish;
$dbh->disconnect;

$arrowinit1 .= $arrowinit2;


## デザインファイルの読み込み
if( open(F, $file) )
  {
    while( <F> )
      {
	if( ~ /<!--v_n001/ )
	  {
            ~ s/<!--v_n001_database_date-->/$news_ymd/g;
            ~ s/<!--v_n001_database_index-->/$news_index/g;
            ~ s/<!--v_n001_database_descriptions-->/$news_descriptions/g;
            ~ s/<!--v_n001_arrow_init-->/$arrowinit1/g;
	  }
        print;
      }
    close F;
  }