#!/usr/bin/perl

require './data/jcode.pl';

$script = "./list1.cgi";

$file = "./data/data.csv";

$file3 = "./data/room.data";

$file8="./data/kihon.data";

$file13="../img/data.csv";


# methodの形式 (POST or GET)

$method = 'POST';

@wday_array = ('(日)','(月)','(火)','(水)','(木)','(金)','(土)');




#-----------------------------------------------------------#
#現在の日次を取得
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
$mon ++ ;
$year += 1900 ;
#-----------------------------------------------------------#


#---基本データ読み----------kihon.data-----------#
if (!open(FILE, "$file8")) {&error("***FileOpenError"); }
@BASE= <FILE>;
$var="@BASE";
#(@BASE) = split(/,/,$var);

($top_title,$pass,$view,$limit_hour,$sday,$link,$plan_ren,$bg,$tbt,$tbl,$tbr,$masmail,$title1,$title2,$mail_header,$mailC_header,$mail_footer,$title3,$title4,$i_mail_header,$i_mailC_header,$i_mail_footer,$cancel_com,)= split(/\<>/,$var);
close FILE;
#------------------------------------------------#


#テーブルcolor#
$tbb='#cccccc';
$tbt='#3366cc';
$tbl='#e4e4ff';
$tbr='#ffffff';




#---初期データ読み---------------------#
if (!open(FILE, "$file3")) {&minierror("FileOpenError"); }
@BASE= <FILE>;
$var="@BASE";
@BASE=split(/<>/,$var);

$i=0;



###車両情報読み

#print"Content-type:text/html\n\n";


	
	

	open (IN,"$file13") || &error("OPEN ERROR");
	while (<IN>) {
		($no,$rno,$img,$item1,$item2,$item3,$item4,$item5,$item6,$item7,$item8,$item9,$item10,$item11,$item12,$item13,$item14,$item15,$item16,$item17,$item18,$item19,$item20,$item21,$item22,$item23,$item24,$item25,) = split(/<>/);






if($item2 eq "del"){
push(@r_name,"");#車両名	
}
else{

$No=$no;
#push(@carcode,"$No");	#車両名
$Item11=$item11;#数量
$Item12=$item12;#車輌名

push(@r_name,$Item12);	#車両名


$Item13=$item13;#6H
$Item14=$item14;#12H
$Item15=$item15;#24H
$Item16=$item16;#1day追加
$Item17=$item17;#1h追加
$Item18=$item18;#1week追加
$Item19=$item19;#1month追加
$Item20=$item20;#menseki追加
$Item21=$item21;#コメント



	}
	}
	
	
	
@r_name=reverse @r_name;














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

for($x=1;$x<=$t1;$x++){
$_="type$x";
push(@roomtype,$_);
}

# メイン処理
#&decode;



################
if ($mode eq "") {&admin; }
elsif ($mode eq "admin") {&admin; }
elsif ($mode eq "mente") {&mente; }
elsif ($mode eq "end") {&end;}
################

sub admin {

	# ログを読みこみ
	open(IN,"$file") || &error("Open Error : $logfile");
	@lines= <IN>;
	close(IN);

	# 削除処理
	if ($in{'action'} eq 'delete') {

		if (@DEL eq '') { &error("削除情報がありません"); }

		@new=();
		foreach $line (@lines) {
			$flag=0;

local($no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1)= split(/<>/, $line);

			foreach $del (@DEL) {


			if ($no eq "$del") { $flag=1; last; }

			}
			if ($flag == 0) { push(@new,$line); }
			}
	
		# ログを更新
		open(OUT,">$file") || &error("Write Error : $logfile");
		print OUT @new;
		close(OUT);

	#@lines = @new;

		print"Location: 		http://www.sun21.jp/C1/newtype/campingcar/take01/admin_g6d6/list1.cgi
\n\n";
		
	#	http://www.sun21.jp/C1/newtype/campingcar/take01/admin_g6d6/list.cgi
	}



exit;




















#####月を表示###################################################################
#==============================================================================#
$now_utc = time + 9*60*60;
($sec,$min,$nowhour,$nowmday,$nowmon,$nowyear,$wday,$dum) = gmtime($now_utc);
$nowyear += 1900;
$nowmon++;
#==============================================================================#
	###
	$Year=$nowyear;
        $mm =$nowmon;

	if($mm eq '1'){
	$Year=$nowyear-1;
	#$mm=11;
	}

	elsif($mm eq '2'){
	$Year=$nowyear-1;
	$mm=12;
	}

	else{
	$mm=$mm-2;
	}
	#####


$nowM=substr($in{'cHeck'},4,2);

$MMM= sprintf("%02d" , $nowmon);

if(!$nowM){$nowM=$MMM;}

print"<table border=0 width=100%><tr><td valign=top>";

print"<table border=0 cellpadding=\"4\" cellspacing=\"1\" bgcolor=\"$tbb\"><tr>";
print"<td width=100 align=center bgcolor=\"$tbt\"><font color=\"#ffffff\">月の変更</td>";

foreach(1..5){

$Mm= sprintf("%02d" , $mm);



if($nowM eq $Mm){

print"<td  align=center bgcolor=\"$tbl\" nowrap><a href=$self?cHeck=$Year$Mm&sn=$FORM{'sn'}><font color=\"$tbt\">$mm月</a></td>";

}
else{
print"<td  align=center bgcolor=\"$tbr\" nowrap><a href=$self?cHeck=$Year$Mm&sn=$FORM{'sn'}><font color=\"$tbt\">$mm月</a></td>";

}



	if($dd eq '12'){
	$mm=1;
	$Year=$Year+1;
	}
	if($mm eq  '12'){
	$Year=$Year+1;
$mm=0
}
	$mm++;
}

print"</tr></table>";

print"</td><td align=right bgcolor=#ffffff>";



	print "<form action=\"list.cgi\" method=POST>\n";
	print "<input type=hidden name=mode value=\"admin\">";
	print "<input type=hidden name=ac value=\"all\">";

	if ( $in{'word'} =~ /pl/ ) {
	$flag=1;
	} 
	
print"<table border=0 cellpadding=\"0\" cellspacing=\"3\" ><tr>";
print "<td>&nbsp;<font color=#555555>キーワード検索&nbsp;";

if($flag eq '1'){
print"<input type=text size=30 name=word  value=\"$in{'word'}\">&nbsp;";
}
else{
print"<input type=text size=30 name=word value=\"$in{'word'}\">&nbsp;";	
}

print"</td>\n";
print"<td><input type=submit value=\"検索\">&nbsp;<INPUT TYPE=\"button\" OnClick=\"window.location.href='list.cgi'\" VALUE=\"戻る\"></td><td></td></tr>\n";
print"</table>";
$flag="";

print"</form>";
print"</td></tr></table>";
############################################










############################################
	print "<form action=\"$script\" method=POST>\n";
	print "<input type=hidden name=mode value=\"admin\">";
	print "<input type=hidden name=ac value=\"all\">";

print"</form>";
############################################



#print"</td></tr></table>";

	$in{'word'} =~ s///g;

	@word = split(/\s+/,$in{'word'});

	@new= ();

	open (IN,"$file") || &error("OPEN ERROR");

	###########################
	if (!$in{'word'}) {
		while (<IN>) {
		push(@new,$_);
		}
	}
	###########################

		while (<IN>) {
		$find = 0;
			foreach $word (@word) {
				if (0 <= index($_,$word)) {

				$find = 1;

				} 
				else {

				$find = 0; last;
				}

			}

			if ($find) {
			push(@new,$_);
			}

		}

	close IN;



############################################

foreach (@new){

$data=$_;

chop $data;

$so='2';			

$key=(split(/<>/,$data))[$so];

push @alldatA,$data;

push @keys,$key;

}
close IN;

sub bykeys {$keys[$a] cmp $keys[$b];}

@alldatA=@alldatA [sort bykeys 0..$#alldatA];

###########################################


$Nowyear=$nowyear;
$Nowmon= sprintf("%02d" , $nowmon);

if(!$in{'cHeck'}){
$NuU="01";
$SYyMm="$Nowyear$Nowmon$NuU";
$Nuu="31";
$LYyMm="$Nowyear$Nowmon$Nuu";
}
else{
$NuU="01";
$SYyMm="$in{'cHeck'}$NuU";
$Nuu="31";
$LYyMm="$in{'cHeck'}$Nuu";
}

$NoWMon=substr($SYyMm,0,6);

foreach (@alldatA) {
local($no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1)= split(/<>/, );

$YtMm=substr($ymd,0,8);

if($in{'ac'}){

$_="$no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1\n";

push(@alldata,$_);

}
else{

if($YtMm >= $SYyMm && $YtMm <= $LYyMm){

$_="$no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1\n";

push(@alldata,$_);

}
}

}

$count=@alldata;
###▲
###########################################

$count = @alldata;

if($count =='0'){

print"<hr width=30%>";
print"<font color=\"#ff0000\">データがありません";
print"<hr width=30%>";
exit;
}


	#ページ制御
	if ($page eq '') 	{ $page = 0; }
	if ($view eq '') 	{ $view = $p_cnt; }
	$page_end = $page + $view - 1;
	$page_end = $count - 1 if($page_end >= $count);

	$next_page = $page_end + 1;
	$back_page = $page - $view;

	#一覧表示件数表示
	$n_page = $page + 1;
	if ($count eq '0') {
print"\n";
	} else {

print"<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" border=0 width=640<tr>\n";
	print"<td >&nbsp;登録件数：$count件中\n";
	if ($page eq '0') 	{ 
print "\n"; 
}
	else	{ 
print "$n_page\n";
 }
	
	print "～ \n";
	
	$Fraction = $count;
	while ( $Fraction > 20 ) {
		$Fraction = $Fraction - 20;
		}
	
	if (($count - $page) >= $view) {

 print "$next_page\n"; 

}
	if (($count - $page) < $view) { 

print "$count\n"; 

}

	print "件を\表\示しています。</td>\n";
	print "<td align=\"right\" nowrap>\n";
	

		#改ページ制御
	if ($back_page >= 0) {
		print "<a href=\"$script?data1=$in{'data1'}&&page=$back_page&cHeck=$in{'cHeck'}\"><font color=\"#000000\"><< Back</a><td width=11% >\n";
	}
	if ($page_end ne ($count -1)) {
		print "<a href=\"$script?no=$no&page=$next_page&cHeck=$in{'cHeck'}\">";


		print "&nbsp;&nbsp;";
			if (($count - ($page + $view)) <= $view) { 
print "<font color=\"#000000\">Next >>"; 
}
			else { 
print "<font color=\"#000000\">Next >>"; 
}
		print "</td><td width=11% >\n";
	}
	print "</td></tr></table>";
	
	}

	print "</td></tr></table>";
############################################
print "<form action=\"$script\" method=\"$method\">\n";
print "<input type=hidden name=mode value=\"admin\">\n";
print "<input type=hidden name=action value=\"delete\">\n";
############################################

print "<table border=0 cellpadding=\"4\" cellspacing=\"1\" width=95% bgcolor=\"$tbb\"><tr>\n";

print "<td width=30 height=28 align=center bgcolor=\"$tbt\"><font color=\"#ffffff\"><a href=\"#\" onclick=\"checkOn('del')\">削除</font></td>\n";

print "<td align=\"center\"  bgcolor=\"$tbt\" nowrap><font color=\"#ffffff\"><a href=\"#\" onclick=\"checkOff('del')\">予\約日/\予\約No</font></td>\n";
print "<td align=center nowrap  bgcolor=\"$tbt\"><font color=\"#ffffff\">名前/住　所</font></td>\n";

print "<td align=\"center\" bgcolor=\"$tbt\"><font color=\"#ffffff\">車種/オプション</font></td>\n";


print "<td align=center  bgcolor=\"$tbt\"><font color=\"#ffffff\">tel/Email</font></td>\n";

print "<td align=center width=120  bgcolor=\"$tbt\"><font color=\"#ffffff\">ご要望</font></td></tr>\n";

#####################

	foreach ($page .. $page_end) {
	($no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1) = split(/<>/, $alldata[$_]);

$_="$no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1\n";

push(@file_hen,$_);
}

foreach $line (@file_hen) {
local($no,$rno,$ymd,$DA2,$kazu,$Sday,$stime,$Lday,$ltime,$st,$PRICE,$entime,$op1,$op2,$op3,$op4,$op10,$name,$name_kana,$age,$sex,$hito,$uno,$pref,$tel,$ctel,$email,$chaku,$kchaku,$rep,$tabako,$msg,$pass,$data1,$data1) = split(/,/, $line);







$year=substr($ymd,0,4);
$m=substr($ymd,4,2);
$d=substr($ymd,6,2);
$wday=substr($ymd,8,1);
$md=substr($ymd,4,4);

if($md ne $rmd){
print"<td colspan=\"6\" bgcolor=\"$tbb\" height=\"1\" style=padding:0></td></tr>\n";
}

print "<td align=center bgcolor=\"#ffffff\"><input type=checkbox name=\"del\" value=\"$no\"></td>";

print "<td valign=top bgcolor=\"#ffffff\"><font style=letter-spacing:1px;>$year/<b>$m/$d</b>@wday_array[$wday]<br>$rno</td>\n";



print "<td valign=top bgcolor=\"#ffffff\"><font style=letter-spacing:0.2em;><b>$name</b><br>$name_kana<br>$uno<br>$pref<br></td>\n";






$num=substr($DA2,4,2);

print "<td valign=top bgcolor=\"#ffffff\"><font style=letter-spacing:1px;><b>$Sday</b><br>";
$stime=~ s/\s//g;
$stime =~ s/\//\n/g;


$stime =~ s/op/・/g;

$stime =~ s/\!/<br>/g;



print"$stime";




print"</td>";



print "<td valign=top bgcolor=\"#ffffff\"><font style=letter-spacing:1px;color:#000000;>$tel<br><a href=mailto:$email><font color=\"#0000ff\">$email</a></td>";

print "<td valign=top width=120 bgcolor=\"#ffffff\">$msg</td></tr>\n";
$rmd=$md;

}







print"<td colspan=\"26\" bgcolor=\"#555555\" height=\"1\" style=padding:0></td></tr>\n";
print "</table><br>\n";


	#改ページ制御
	print "<table border=\"0\" width=500 cellpadding=\"0\" cellspacing=\"0\"><tr><td align=\"right\">\n";
	if ($back_page >= 0) {
		print "<a href=\"$script?data1=$in{'data1'}&page=$back_page&cHeck=$in{'cHeck'}\"><font color=\"#000000\"><< Back</a>\n";
	}
	if ($page_end ne ($count -1)) {
		print "<a href=\"$script?data1=$in{'data1'}&page=$next_page&cHeck=$in{'cHeck'}\">";

		print "&nbsp;&nbsp;";
			if (($count - ($page + $view)) <= $view) { print "<font color=\"#000000\">Next >>"; }
			else { print "<font color=\"#000000\">Next >>"; }
		print "\n";
	}
	print "</td></tr></table>\n";






print"<br>";
print "<input type=submit value=\"削除する\" onClick=\"message(); return f\"><input type=reset value=\"リセット\">\n";


print"<input type=hidden name=cHeck value=\"$in{'cHeck'}\">";

print "</form></center>\n</body></html>\n";

exit;
}




#----------------------------#
#  フォームからのデータ処理  #
#----------------------------#
sub decode {

	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# 文字コード変換
		#&jcode'convert(*value,'utf8');

		# 禁止文字変換
		$value =~ s/<>/&lt;&gt;/g;

		# 削除情報
		if ($name eq 'del') { 

		push(@DEL,$value); 
		}


		$in{$name} = $value;
	}

	$mode = $in{'mode'};

	$mode    = $in{'mode'};
	$action  = $in{'action'};
	$page  	 = $in{'page'};



}

#--------------#
#  エラー処理  #
#--------------#
sub error {
	&header;
	print "<center><hr width='75%'><P><h3>ERROR !</h3>\n";
	print "<P><font color='red'><B>$_[0]</B></font>\n";
	print "<P><hr width='75%'></center>\n";
	print "</body></html>\n";
	exit;
}

#------------------#
#  HTMLのヘッダー  #
#------------------#
sub header {
print"Content-type:text/html\n\n";
print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=utf-8\">\n";
print"<head><title>予約者リスト一覧</title>";

print<<"EOF";

        <SCRIPT language="JavaScript">
        <!--
        function PageBack(){ history.back(); }
        function message()
        {
                f = confirm("削除実行してよろしいですか？");
                return f
        }
        //-->
        </SCRIPT>



<style type="text/css">
A:hover{color:#cccccc}
A{text-decoration:none}
TD{font-size:14px;
}
</STYLE>

<SCRIPT TYPE="text/javascript">

function checkOn( groupName ) {
    var grpcb = document.getElementsByName( groupName );
    for (i=0 ; i<grpcb.length ; i++ )
        grpcb[i].checked = true;
}


function checkOff( groupName ) {
    var grpcb = document.getElementsByName( groupName );
    for (i=0 ; i<grpcb.length ; i++ )
        grpcb[i].checked = false;

	}
</SCRIPT>

</head>

<body bgcolor=#ffffff leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#ffffff" vlink="#ffffff" alink="#ffffff">



<!--menu-->
<script type="text/javascript" src="milonic_src.js"></script>	
<script type="text/javascript" src="mmenudom.js"></script>
<script type="text/javascript" src="menu_data.js"></script>	

<table width=100% bgcolor=#555555 cellpadding=0 cellspacing=0><tr><td>
<table bgcolor=#555555 cellpadding=2 cellspacing=0><tr><td><font color=#ffffff>MENU&nbsp;&nbsp;&nbsp;</td>
<!--1-->
<td onMouseover="this.style.backgroundColor='#aaaaaa'" onMouseout ="this.style.backgroundColor='#555555'">
<div name=milonicmenu id=milonicmenu>
<a href=# 
onmouseover="popup('milonic','milonicmenu')" onmouseout=popdown()><font color=#ffffff>▼予約者リスト&nbsp;&nbsp;&nbsp;</font></a>
</td>
<!--2-->
<td onMouseover="this.style.backgroundColor='#aaaaaa'" onMouseout ="this.style.backgroundColor='#555555'">
<div name=partnersmenu id=partnersmenu>
<a href=# onmouseover="popup('partners','partnersmenu')" onmouseout=popdown()><font color=#ffffff>▼ID登録者一覧&nbsp;&nbsp;&nbsp;</font></a>
</td>
<!--3-->
<td onMouseover="this.style.backgroundColor='#aaaaaa'" onMouseout ="this.style.backgroundColor='#555555'">
<div name=linksmenu id=linksmenu>
<a href=./seigen.cgi onmouseover="popup('links','linksmenu')" onmouseout=popdown()><font color=#ffffff>日別制限&nbsp;&nbsp;&nbsp;</font></a>
</td>
<!--4-->
<td onMouseover="this.style.backgroundColor='#aaaaaa'" onMouseout ="this.style.backgroundColor='#555555'">
<div name=mymilonicmenu id=mymilonicmenu4>
<a href=# onmouseover="popup('my milonic4','mymilonicmenu4')" onmouseout=popdown()><font color=#ffffff>▼初期設定&nbsp;&nbsp;&nbsp;</font></a>
</td>


<!--5

-->

<!--6-->
<td onMouseover="this.style.backgroundColor='#aaaaaa'" onMouseout ="this.style.backgroundColor='#555555'">
<div name=mymilonicmenu id=mymilonicmenu6>
<a href=../index.cgi onmouseover="popup('my milonic6','mymilonicmenu6')" onmouseout=popdown()><font size=3 color=#ffffff>トップ画面&nbsp;&nbsp;&nbsp;</font></a>
</td></tr></table>
</td><td>
<a href=http://www.milonic.com/><font color=#555555>http://www.milonic.com</a></font>
</td></tr></table>
<!--end-->









EOF
print"<center>";

}