#!/usr/bin/perl
#
# 最新情報登録(ヤマカ)
#
# =======================================================
# ==== Copyright 2005 (c) NK STUDIO Nobuhisa Ujino ======
# =======================================================
# DATE : 2005/08/27
# 
# +/cartimg(画像保存DIR)
# |
# +newstop.cgi[705](トップ用)
# |
# +newslist.cgi[705](詳細表示)
# |
# + -- /topics(更新情報DIR)
#        |
#        + --newsadmin.cgi[705]
#        |
#        + -- *****.tpl[604](画面テンプレート)
#        |
#        

$SCRIPT = 'newslist.cgi';


require'./topics/Config.pl';
require'./topics/Control.pl';
require'./topics/jcode.pl';

#Config上書
$CGI_DIR = './topics'; 
$FILE_DIR = "./cgiimg";


use Fcntl qw(:DEFAULT :flock);
use CGI;


#テンプレートファイル
$htmltpl = 'newslist.html';

#--------------------------------------------



$q = new CGI;
$q->param;
die ($q->cgi_error) if ($q->cgi_error); # インスタンス作成でエラー発生


&decode;

sysopen(FILE, "$CGI_DIR/$LOGFILE", O_RDONLY) or die &error("システムエラーFILE");
	flock(FILE, LOCK_EX) or die &error("システムエラーLOCK"); 
	@lines = <FILE>;
close(FILE);




foreach $line(@lines){

	%data  = &splitdata($line);

	if(!$data{'viewflg'}){ next; }

	$title = $data{'title'};
	if($data{'link'})  {$title = &make_titile_link_user($data{'title'},$data{'link'},$data{'linkwindow'});}

	$date = "$data{'year'}.$data{'mon'}.$data{'day'}";

	$img ='';
	if($data{'file1'}){ $img = qq|<img src="$FILE_DIR/$data{'file1'}" border="0" align="left"  alt="" style="margin:0 10px 10px 0;">|;}

	$vals{'table'} .= qq|
	    <table width="90%"  border="0" cellspacing="0" cellpadding="5" style="margin:0 0 10px 0; border:solid 1px;border-color:#CCCCCC;">
	      <tr>
	        <td><div style="margin-bottom:10px;">$date&nbsp;<span style="font-size:16px;">$title</span></div>
            <div>$img
            <span style="line-height:120%; color:#666666;font-size:12px;">$data{'honbun'}</span></dov></td>
	      </tr>
	    </table>
	|;

}

print "Content-Type: text/html\n\n";

&readtpl($htmltpl);

exit;


#---------------サブルーチン-----------------------------------------------------------------


#-------------------#
# タイトルにリンク  #
#-------------------#
sub make_titile_link_user{
	#引数(タイトル、URL、ウインドウ)
	my ($title,$link,$linkwindow) = @_;
	if ($linkwindow){ $target= qq|target="$linkwindow"|;}
	my $val = ($link)? qq|<a href="$link" $target class="menu">$title</a>| : $title ;
	return $val;
}


#---------------------------#
# タイトルにファイルリンク  #
#---------------------------#
sub make_file_link_user{
	#引数(ファイル名)
	my ($title,$file) = @_;
	$val = ($file)? qq|<a href="$FILE_URL/$file" target="_blank" class="menu">$title</a>| : $title ;
	return $val;
}

__END__