#!/usr/bin/perl
#############################
#次世代Ｗｅｂｐａｃｋ		#
#	画像付ボード表示		#
#	 (C)Nagai IT section	#
#	  Chief Ishimatsu		#
#	Last Update	2002/02/08	#
#############################
####ファイル読込####
#●共通変数読込
require './include.cgi';

####データ処理開始####
;#●デコード
if($ENV{'CONTENT_TYPE'}=~ /multipart\/form-data/i){
	;#●アップローダをロード
	require $hp_value::DIR_LIB."/".$hp_value::LIB_UPLOAD;
	;#●アップローダのオプションをセット
	&uploader'option('img',$hp_value::DIR_TMP,1);
	;#●アップローダ発動(フォーム処理)
	%FORM=&uploader'decode();
}else{
	;#●ウェブパックデコード
	%FORM=&webpack'decode;
}

if($FORM{'ClientName'} eq ''){&webpack'error('Error','クライアントが指定されていません');}
if($FORM{'ps'} eq ''){&webpack'error('error','場所を指定してください');}

####オプション指定####
require "loader-c.cgi";
require "./loader-cs.cgi";

#●ファイル読込
$doc='統一データファイル';
if ($file eq '') { &webpack'error('File Not Found',$doc.'が指定されていません.');}
if (!-e $file) { &webpack'error('File Not Found',$doc."がありません。");}
if (!open(IN,$file)) { &webpack'error('File Not Open',$doc."を開くことができません.");}
@BASE = <IN>;
close(IN);
if($FORM{'next'} ne ''){
	$start=$FORM{'num'}+$max_view;
}elsif($FORM{'before'} ne ''){
	$start=$FORM{'num'}-$max_view;
}elsif($FORM{'num'} eq ''){
	$start=0;
}else{
	$start=$FORM{'num'};
}

#●検索処理
undef(@view);
undef($view_num);
if($FORM{'search'} ne ''){
	@view=&search_result;
	$view_num=$#view+1;
}elsif($FORM{'hit'} ne ''){
	push(@view,$FORM{'hit'});
}elsif($FORM{'view'} ne ''){
	@view=split(/\'/,$FORM{'view'});
}else{
	for($i=0;$i<@BASE;$i++){
		push(@view,$i);
	}
}
&view_data('new');
exit;

#●データ表示
sub view_data{
	#●データ
	if($fm){
		&webpack'html_head("$title_all表\示");
	}else{
		&webpack'html_head("$title_all表\示",1);
	}
	print<<"EOF";
	<!-- LINK REL="stylesheet" HREF="$css_url/default.css" TYPE="text/css" -->
  </HEAD>
EOF
print"	<BODY";
print" BGCOLOR=\"$bg\"" if($bg ne '');
print" BACKGROUND=\"".$DIR_LOADER_IMG."/".$bf."\"" if($bf ne 'null' && -e $DIR_LOADER_IMG."/".$bf);
print" onLoad=\"alert('ただ今の変更を有効にするために登録ボタンを押してください');\"" if($flug_java);
print" topmargin=2>\n";
print<<"EOF";
	<DIV STYLE="text-align:center;">
EOF
	if($fm){
		#print"\t\t<FORM ACTION=\"./loader-in.cgi\" METHOD=\"POST\" TARGET=\"_blank\">\n";
		#print"\t\t\t<INPUT TYPE=\"hidden\" NAME=\"ps\" VALUE=\"$FORM{'ps'}\">\n";
		#print"\t\t\t<INPUT TYPE=\"submit\" NAME=\"btm\" VALUE=\"データ入力画面へ\">\n";
		#print"\t\t</FORM>\n";
		print"\t\t<A HREF=\"./loader-in.cgi?ClientName=".$FORM{'ClientName'}."ps=".$FORM{'ps'}."\" TARGET=\"_blank\">データ入力画面へ</A><BR>\n";
		print"\t\t<FORM ACTION=\"./loader-v.cgi\" METHOD=\"POST\">\n";
		print"\t\t\t<INPUT TYPE=\"hidden\" NAME=\"ps\" VALUE=\"".$FORM{'ps'}."\">\n";
		print"\t\t\t<INPUT TYPE=\"submit\" NAME=\"btm\" VALUE=\"リロード\">\n";
		print"\t\t</FORM>\n";
	}
	if($sc==1&&$FORM{'hit'} eq ''){
		&search_form;
		print"$view_num件ヒットしました" if($view_num ne ''&&$view_num>0);
	}
	#print"<DIV STYLE=\"text-align:right;\"><IMG SRC=\"$new_mark\">は$new_expire日以内の情報です</DIV>\n" if($#view!=-1&&$new_expire !=0);
print<<"EOF";
	</DIV>
	<!-- #●既入力データ一覧 -->
	<DIV STYLE="text-align:center;">
	<FORM ACTION="$ENV{'SCRIPT_NAME'}" METHOD="POST">
	  <INPUT TYPE="hidden" NAME="ClientName" VALUE="$FORM{'ClientName'}">
	  <INPUT TYPE="hidden" NAME="num" VALUE="$start">
	  <INPUT TYPE="hidden" NAME="ps"  VALUE="$FORM{'ps'}">
EOF
	printf"	  <INPUT TYPE=\"hidden\" NAME=\"view\" VALUE=\"%s\">\n",join '\'',@view; 
	@BASE = reverse @BASE if($rv);
	for($i=0;$i<$max_view;$i++){
		if($i+$start>=@view){$end=1;last;}
		$dat=$BASE[$view[$i+$start]];
		$dat=~s/\n//g;
		&review(0,split(/,/,$dat));
	}
	if(++$i+$start>@view){$end=1;}

	print"\t<INPUT TYPE=\"submit\" NAME=\"before\" VALUE=\"前の".$max_view."件\">\n" if($start);
	print"\t<INPUT TYPE=\"submit\" NAME=\"next\"   VALUE=\"次の".$max_view."件\">\n" if(!$end);

	if(!@view){
		if($FORM{'search'} ne ''){
			print"\t\tご指定の条件に見合うデータが検索できませんでした\n";
		}else{
			print"\t\tデータが登録されていません\n";
		}
	}			
	print"\t</FORM>\n";
	print<<"EOF";
	</DIV>
  </BODY>
</HTML>
EOF
exit;
}