#!/usr/bin/perl

#use CGI::Carp qw(fatalsToBrowser);
# =========================================================================
#	[ LINK.CGI ] 作成者:株式会社ニーズ 日付:2004/03/13
#	 Description : 一覧ページ
#	 Copyright (C) NEEZ Co.,Ltd. 2002 All Rights Reserved.
# ------------------------------------------------------------------------
#	※当ＣＧＩプログラムの著作権は株式会社ニーズに帰属します
#	　著作者に無断で改変・配布・譲渡する事は原則として禁止致します
# =========================================================================
use Time::Local;

	require '../lib/toms.pl';
	require '../lib/config.pl';
	require '../ad24/sub.pl';
	require 'config.pl';

	# 本日の日付
	$today = &toms'get_local_time('nm');

	# フォーム読み込み
	%FORM = &toms'read_input('sjis',1);

	# クッキー読み込み
	$CK = &toms'read_cookie($cookie_header);
	%COOKIE = %$CK;

	# モード分岐
	$mode = $FORM{'MODE'};
	delete $FORM{'MODE'};
	goto "MODE".sprintf("%d",$mode);

# ------------------------------------
#	初期画面表示
# ------------------------------------
MODE0:

	@dir = &toms'GetDir($NEWS_DIR.'data/','^[0-9]{8}\_[0-9]{3}\.dat$');
	undef @list;
	foreach $rd(@dir){
		@data = &toms'FileOPEN(0,$NEWS_DIR.'data/'.$rd);
		undef @DAT;
		foreach $ed(@data){
			($n,$v) = split /<>/,$ed;
			$DAT[$n] = $v;
		}
		$fl = substr($rd,0,12).'.html';
		$dt = substr($rd,0,8);

		if    ($DAT[10] == 0){ $title = "<A href=\"$NEWS_URL$fl\">$DAT[4]</A>"; }
		elsif ($DAT[10] == 1){ $title = "<A href=\"../$DAT[11]\">$DAT[4]</A>"; }
		elsif ($DAT[10] == 2){ $title = "<A href=\"$DAT[11]\" target=_blank>$DAT[4]</A>"; }
		elsif ($DAT[10] == 3){ $title = "$DAT[4]"; }

		push @list,"$dt<>$title<>$fl<>$DAT[9]";
	}

	# 日付順に並び替え
	@list = reverse sort @list;

	# 設定された日数だけ過去の日付
	$limit = &cdate($today,-$days_of_new);

	# 表示用変換
	undef @OUT;
	$ct = 1;
	foreach $rd(@list){
		@P = split /<>/,$rd;
		if (!-e $NEWS_DIR.$P[2]){ next; }
		if ($P[3] != 1){ $dt = sprintf("%d/%d",substr($P[0],4,2),substr($P[0],6,2)).' '; } else { $dt = ""; }
		if ($P[0] >= $limit){ $ne = $NEWMARK; } else { $ne = ""; }
		push @OUT,"$dt$P[1]$ne";
		if ($ct >= $NEWS_LIST_MAX){ last; } else { $ct++; }
	}

	# 画面表示
	&toms'OutputTEXT(0,"list0.html",\%FORM,\@OUT);
	exit;