#!/usr/bin/perl --



#use CGI::Carp qw(fatalsToBrowser);

# =========================================================================

#	[ INDEX.CGI ] 作成者:株式会社ニーズ 日付:2004/08/13

#	 Description : コラム表示プログラム

#	 Copyright (C) NEEZ Co.,Ltd. 2002 All Rights Reserved.

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

#	※当ＣＧＩプログラムの著作権は株式会社ニーズに帰属します

#	　著作者に無断で改変・配布・譲渡する事は原則として禁止致します

# =========================================================================



	require '../lib/toms.pl';



	# フォーム読み込み

	%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:



	# 挨拶データ読み込み

	@aisatsu = &toms'FileOPEN(0,"../data/colum2.dat");

	$FORM{'AISATSU'} = join("<BR>\n",@aisatsu);



	# コラムデータ読み込み

	@colum = reverse &toms'FileOPEN(0,"../data/colum.dat");



	# デフォルトでは最新版を表示

	$max_page = @colum - 1;

	if ($FORM{'page'} !~ /^[0-9]+$/){ $FORM{'page'} = $max_page; }



	# 表示変換

	@PG = split /<>/,$colum[$FORM{'page'}];

	$FORM{'DATE'} = substr($PG[1],0,4).'年'.sprintf("%d",substr($PG[1],4,2)).'月'.sprintf("%d",substr($PG[1],6,2)).'日';

	$FORM{'COMMENT'} = $PG[2];



	# 移動リンク

	undef @link;

	if ($FORM{'page'} > 0){

		$mvlink = $FORM{'page'} - 1;

		$FORM{'BEFORE'} = "<A href=\"index.cgi?page=$mvlink\">&lt;&lt; 前回のコラムへ</A>";

	}

	if ($FORM{'page'} < $max_page){

		$mvlink = $FORM{'page'} + 1;

		$FORM{'NEXT'} = "<A href=\"index.cgi?page=$mvlink\">新しいコラムへ &gt;&gt;</A>";

	}



	# 画面表示

	&toms'OutputTEXT(0,"colum01.html",\%FORM,\@OUT);

	exit;





# ============================================================

	# 汎用エラー画面

	sub ErrPAGE

	{

		my $msg = $_[0];

		$FORM{'MESSAGE'} = $msg;

		&toms'OutputTEXT(0,"colum99.html",\%FORM);

		exit;

	}

# ============================================================