#!/usr/bin/perl
#
# 最新情報ＴＯＰセンター表示用(ヤマカ)
#
# =======================================================
# ==== Copyright 2005 (c) NK STUDIO Nobuhisa Ujino ======
# =======================================================
# DATE : 2005/08/27
# 
# DIR構成詳細は管理画面

use CGI::Carp qw(fatalsToBrowser);

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

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

#config値上書き
$CGI_DIR  = './topics';
$FILE_DIR = "./cgiimg";


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";


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

	%data  = &splitdata($line);

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


	$title = $data{'title'};
	$img = '';
	if($data{'link'})  {$title = &make_titile_link_user($data{'title'},$data{'link'},$data{'linkwindow'});}
	if($data{'file1'}) {
		# 保存された画像のサイズチェック
		if ( $data{'file1'} =~ /gif/i )      { ($W,$H) = &GifSize("$FILE_DIR/$data{'file1'}"); }
		elsif ( $data{'file1'} =~ /jpe?g/i ) { ($W,$H) = &JpegSize("$FILE_DIR/$data{'file1'}");  }
		($W,$H) = &resize($W,$H,130,130);
		$imgtag = "<img src=\"$FILE_DIR/$data{'file1'}\" align=left width=$W height=$H alt=* border=0 style=\"margin:0 5px 5px 0\";>";
	}

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

	print "document.write('<table width=319 border=0 align=center cellspacing=0>');";
	print "document.write('<tr><td align=left>$date</td></tr>');";
	print "document.write('<tr><td align=left><strong>$title</strong></td></tr>');";
	print "document.write('<tr><td><img src=\"./images/spacer.gif\" width=1 height=5></td></tr>');";
	print "document.write('<tr><td align=left>$imgtag$data{'honbun'}</td></tr>');";
	print "document.write('</table><br>');";
        
	$i++;
}


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;
}




__END__