#!/usr/bin/perl
#
# 最新情報登録(ヤマカ)
#
# =======================================================
# ==== Copyright 2005 (c) NK STUDIO Nobuhisa Ujino ======
# =======================================================
# DATE : 2005/08/27
# 
# +/cartimg(画像保存DIR)
# |
# +newstop.cgi(トップ用)
# |
# + -- /topics(更新情報DIR)
#        |
#        + --newsadmin.cgi
#        |
#

#最新のものから何件表示するか
$MAX = 5;

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

$CGI_DIR = './topics';

use Fcntl qw(:DEFAULT :flock);





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

print "Content-Type: application/x-javascript\n\n";

print "document.write('<table border=0 cellspacing=0 cellpadding=0>');";
print "document.write('<tr><td colspan=3 align=center><span style=font-size:x-small;>== 最新の$MAX件\表\示 ==</span></td></tr>');";

$i = 0;
foreach $line(@lines){
	if($i>=$MAX){ last; }

	%data  = &splitdata($line);

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

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

	$date = "$data{'mon'}.$data{'day'}";
		
	print "document.write('<tr><td class=style7 valign=top>$date</td><td><img src=./images/spacer.gif width=5 height=1 alt=></td><td class=style7>$title</td></tr><tr><td height=4 colspan=3></td></tr>');";

	$i++;
}

print "document.write('<tr><td colspan=3 align=right><img src=./images/spacer.gif width=5 height=1 alt=></td></tr>');";
print "document.write('<tr><td colspan=3 align=right class=style7><a href=newslist.cgi>もっと詳しく見る&gt;&gt;</a></td></td>');";
print "document.write('</table>');";

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__