#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■C-BOARD Moyukuライブラリ
#┠──────────────────────────────────────
#┃複数掲示板管理関係の関数が含まれています。
#┃
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package BOARD;
##use strict;

my $write_dir_mod = 0707;	#表記注意

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   削除
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub delete {
	 require './app/cmd/lgn.pl';
	if ($CNF::syslog{'mode'}) { require './app/cmd/mst.pl'; &MASTER::syslog;}
	&LOGIN::check or &LOGIN::input;
	length($::FORM{'id'}) && &::error(\'不正なリクエストです。');
	if ($::FORM{'flag'} && ($::FORM{'name'} =~ /^\w+$/)) {
		&COMMON::del_dir("$CNF::place{'data'}{'path'}/$::FORM{'name'}")
			or &::error(\('一部削除できませんでした。削除されなかった'
						. 'ものはＦＴＰソフト等で削除してください。'));
		&BASE::location("$CNF::place{'this'}{'url'}?cmd=mnb");
	}
	else {
		&BASE::head2('dlb');
		print <<"__HTML__";
  <table border=0 cellspacing=0 bgcolor="#494949">
   <tr>
    <td><span class=MasterInfo>
	掲示板(ID:$::FORM{'name'})を削除します。<br>
	掲示板を削除するとこの掲示板のデータが全て失われます。<br>
	続行しますか？<br>
	（フォルダ構\成を変えた場合はデータを完全には消去できません）</span>
    </td>
   </tr>
   <tr>
    <td align="center">
     <hr size=1>
     <input type="hidden" name="cmd" value="dlb">
     <input type="hidden" name="name" value="$::FORM{'name'}">
     <input type="hidden" name="flag" value="1">
     <input type="submit" name="send" value="続&nbsp;行" class=MasterInput>
     <a href="$CNF::place{'this'}{'path'}?cmd=mnb"><span class=MasterInfo>&nbsp;&nbsp;キャンセル</span></a>
    </td>
   </tr>
  </table>
__HTML__
		&BASE::foot2('dlb');
	}
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   管理画面表示
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub manage {
	
	require './app/cmd/mst.pl'; require './app/cmd/lgn.pl';
	$CNF::syslog{'mode'} && &MASTER::syslog;
	
	&LOGIN::check or &LOGIN::input;
	length($::FORM{'id'}) && &::error(\'不正なリクエストです。');

	my $def_brd = 'myk';
	my $base = $::SYS{'path_brd'};
	my $now_id = $::FORM{'id'};

	opendir(DIR, "$base") or &error(\'データディレクトリを開けませんでした。');
	my @board = ( grep(-e "$base/$_/config.cgi" && !/\W/, readdir(DIR)));
	close(DIR); 


	my(%info, %total, $name);
	foreach $name (@board) {

		if ($name ne $def_brd) {
			untie %CNF::post; untie %CNF::mail; untie %CNF::tag;
			untie %CNF::upload; untie %CNF::mobile; untie %CNF::STY::psn;
			untie %CNF::STY::srn; untie %CNF::STY::rst;
			untie %CNF::STY::csn; untie %CNF::STY::hmn;
			untie %CNF::STY::ror; untie %CNF::STY::idx;

			#eval { do "$base/$name/config.cgi" };
			$::FORM{'id'} = $name;
			&COMMANDER::read_cnf(2);

			if (length($@)) { $info{$name}{'last'} = '致命的エラー'; next;}

		}
		
		#情報取得
		$info{$name} = &info;

		if ($name eq $def_brd) {
			$info{$name}{'total'}{'size'} += (-s "$::SYS{'path_brd'}/myk/config.cgi");

		} else {
			$info{$name}{'total'}{'size'} += (-s "$base/$name/config.cgi");
		}

		foreach (keys %{$info{$name}}) {
			$total{$_}{'size'} += $info{$name}{$_}{'size'};
			$total{$_}{'number'} += $info{$name}{$_}{'number'};
		}
		$info{$name}{'last'}
			= (-e "$base/$name/data/total.cgi")
			?  &COMMON::date('yy/m/d(dddd) hhh:nn',
							 (stat("$base/$name/data/total.cgi"))[9]) : '〜未使用〜';

	}

	#戻す
	$::FORM{'id'} = $now_id;

	untie %CNF::post; untie %CNF::mail; untie %CNF::tag;
	untie %CNF::upload; untie %CNF::mobile; untie %CNF::STY::psn;
	untie %CNF::STY::srn; untie %CNF::STY::rst; untie %CNF::STY::csn;
	untie %CNF::STY::hmn; untie %CNF::STY::ror; untie %CNF::STY::idx;

	#ここはdoで
	#eval { do "$::SYS{'path_brd'}/myk/config.cgi"; };
	&COMMANDER::read_cnf(2);
	
	$total{'total'}{'size'} += -s "$base/$name";
	foreach ( qq( app skn public tmp ) ) {
		$total{'total'}{'size'} += &COMMON::dir_size($_);
	}
	map($total{$_}{'size'} = &COMMON::size($total{$_}{'size'}), keys %total);
	foreach $name (keys %info) {
		map($info{$name}{$_}{'size'}
			 = &COMMON::size($info{$name}{$_}{'size'}), keys %{$info{$name}});
	}


	&BASE::head2('mnb');
	print <<"__HTML__";
  <table border=0 cellspacing=0 bgcolor="#fcfcfc">
   <tr>
    <td align="center" bgcolor="#494949">
     <img src="$CNF::place{'image'}{'url'}/mnb_title.gif" width=125 height=28 alt="掲示板管理">
    </td>
   </tr>
   <tr>
    <td align="right">
    <hr size=1>
    <table border=0 cellspacing=0 cellpadding=0>
     <tr>
	<td><span class=Master>&nbsp;■<strong>掲示板数：@{[scalar(@board)]}</strong></span></td>
	<td><span class=Master>&nbsp;■総サイズ： $total{'total'}{'size'}</span></td>
	<td><span class=Master>&nbsp;■総記事数：$total{'message'}{'number'}</span></td>
	<td><span class=Master>&nbsp;■総記事サイズ： $total{'message'}{'size'}</span></td>
     </tr>
     <tr>
	<td colspan=2><span class=Master>&nbsp;</span></td>
	<td><span class=Master>&nbsp;■総添付ファイル数： $total{'file'}{'number'}</span></td>
	<td><span class=Master>&nbsp;■総添付ファイルサイズ： $total{'file'}{'size'}</span></td>
     </tr>
     <tr></tr>
     <tr>
	<td colspan=2><span class=Master>&nbsp;</span></td>
	<td><span class=Master>&nbsp;■総過去ログ数： $total{'log'}{'number'}</span></td>
	<td><span class=Master>&nbsp;■総過去ログサイズ： $total{'log'}{'size'}</span></td>
     </tr>
    </table>
    <hr size=1>
   </td>
  </tr>
  <tr>
    <td>
     <table border=3 cellspacing=0>
      <tr>
	<td align="center"><span class=Master><strong>ＩＤ</strong></span></td>
	<td align="center"><span class=Master><strong>最終投稿</strong></span></td>
	<td align="center"><span class=Master><strong>総サイズ</strong></span></td>
	<td align="center"><span class=Master><strong>記事データ</strong></span></td>
	<td align="center"><span class=Master><strong>添付ファイル</strong></span></td>
	<td align="center"><span class=Master><strong>過去ログ</strong></span></td>
	<td align="center" colspan=2><span class=Master><strong>管&nbsp;理</strong></span></td>
      </tr>
__HTML__

	foreach $name (@board) {
		my $id = ($name eq $def_brd) ? '' : $name;
		my $callname = ($name eq $def_brd) ? "デフォルト($name)" : $name;
		
		print <<"__HTML__";
      <tr>
	<td align="center">
	<a href="$CNF::place{'this'}{'path'}?id=$id"><span class=Master><strong>$callname</strong></span></a>
	</td>
	<td align="center"><span class=Master>$info{$name}{'last'}</span></td>
	<td align="center"><span class=Master>$info{$name}{'total'}{'size'}</span></td>
	<td align="center"><span class=Master>$info{$name}{'message'}{'size'}&nbsp;/&nbsp;$info{$name}{'message'}{'number'}</span></td>
	<td align="center"><span class=Master>@{[defined $info{$name}{'file'}{'size'}
					? "$info{$name}{'file'}{'size'}&nbsp;/&nbsp"
					. "$info{$name}{'file'}{'number'}"
					: '---']}
		</span></td>
	<td align="center"><span class=Master>@{[defined $info{$name}{'log'}{'size'}
					? "$info{$name}{'log'}{'size'}&nbsp/&nbsp"
					. "$info{$name}{'log'}{'number'}"
					: '---']}
		</span></td>
	<td><a href="$CNF::place{'this'}{'path'}?cmd=lgn;id=$id"><span class=Master><strong>ＭＥＮＵ</strong></span></a></td>
	<td><span class=Master>@{[($name eq '【デフォルト】')
					? '-----'
					: qq|<a href="$CNF::place{'this'}{'path'}?cmd=dlb;name=|
					. qq|$name"><span class=Master><strong>削&nbsp;除</strong></span></a>|]}
		</span></td>
      </tr>
__HTML__

	}
	print <<"__HTML__";
     </table>
     </td>
   </tr>
   <tr>
     <td align="center"><hr size=1></td>
   </tr>
   <tr>
     <td align="right">
	<span class=Master>&nbsp;■<strong>掲示板作成</strong>&nbsp;&nbsp;ＩＤ：
	<input type="text" name="name" size=10 value="" class=MasterInput>&nbsp;&nbsp;設定継承
	<select name="suc" class=MasterInput>
	  <option value="" selected>--なし--</option>
	  <option value="*">【デフォルト】</option>
__HTML__
	foreach  my $brd ( @board ){
		if ( $brd ne "myk" ) {
			print qq|<option value="$brd">$brd</option>\n|;
		}
	}
	print <<"__HTML__";
	</select>
	<input type="hidden" name="cmd" value="mkb">&nbsp;
	<input type="submit" name="send" value="作&nbsp;成" class=MasterInput>
       </span>
       <hr size=1>
     </td>
   </tr>
  </table>
__HTML__
	&BASE::foot2('mnb');
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   掲示板作成
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub make {
	require './app/cmd/sty.pl'; require './app/cmd/lgn.pl';
	
	if ($CNF::syslog{'mode'}) { require './app/cmd/mst.pl'; &MASTER::syslog;}

	&LOGIN::check or &LOGIN::input;

	length($::FORM{'id'}) && &::error(\'不正なリクエストです。');
	($::FORM{'name'} =~ /^\w+$/)
		or &::error(\'ＩＤが不正です。半角英数字で指定して下さい。');
	(length($::FORM{'name'}) > 15)
		&& &::error(\'ＩＤが長すぎます。半角15文字以内にして下さい。');


	my $base = "$::SYS{'path_brd'}/$::FORM{'name'}";
	(-e "$base")
		&& &::error(\('既に同一のＩＤの掲示板が存在している可能性があります。'));

	my $config;
	if ($::FORM{'suc'} eq '*') { $config = "$::SYS{'path_brd'}/myk/config.cgi";}
	elsif (length($::FORM{'suc'})) {
		if (-e "$::SYS{'path_brd'}/$::FORM{'suc'}/config.cgi") {
			$config = "$::SYS{'path_brd'}/$::FORM{'suc'}/config.cgi";
		} else { 
			&::error(\('継承元の設定ファイルが存在しません。'));
		}
	}
	else { $config = './app/default/config.cgi';}
	
	#作成開始
	umask 000;
	if (!mkdir("$base", $write_dir_mod) || !mkdir("$base/data", $write_dir_mod)
	 || !mkdir("$base/upload", $write_dir_mod) || !mkdir("$base/image", $write_dir_mod)
	 || !mkdir("$base/past", $write_dir_mod) || !mkdir("$base/cache", $write_dir_mod)
	 || !open(CNF, ">$base/config.cgi") || !open(CNF_, "<$config")
	 || !open(CSS, ">$base/data/c-board.css")
	 || !open(CSS_, "<./app/default/c-board.css")) {
		rmdir("$base/data"); rmdir("$base/upload"); rmdir("$base/image");
		rmdir("$base/past"); rmdir("$base/cache"); close(CNF); close(CSS);
		close(CNF_); close(CSS_);
		unlink("$base/config.cgi", "$base/data/c-board.css"); rmdir("$base");
		&::error(\'作成できませんでした。');
	}
	my $buf; while (read(CNF_, $buf, 16384)) { print CNF $buf;}
	print CNF <<"__CONFIG__";
#'━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━'
package CNF;

%cookie = (
	'expire'	=> '30',
	'name'	=> 'Cboard_$::FORM{'name'}',
);

%place = (
	cache	=> {
		path	=> '$base/cache',
	},
	css	=> {
		path	=> '$base/data',
		url	=> '$base/data',
	},
	data	=> {
		path	=> '$base/data',
	},
	digit	=> {
		url	=> '$base/image',
	},
	file	=> {
		path	=> '$base/upload',
		url	=> '$base/upload',
	},
	gzip	=> {
		path	=> '$CNF::place{'gzip'}{'path'}',
	},
	image	=> {
		path	=> '$base/image',
		url	=> '$base/image',
	},
	log	=> {
		path	=> '$base/past',
		url	=> '$base/past',
	},
	sendmail	=> {
		path	=> '$CNF::place{'sendmail'}{'path'}',
	},
	smtp	=> {
		path	=> '$CNF::place{'smtp'}{'path'}',
	},
	this	=> {
		path	=> '$CNF::place{'this'}{'path'}',
		url	=> '$CNF::place{'this'}{'url'}',
	},
);

1;
__CONFIG__
	close(CNF); close(CNF_);
	while (read(CSS_, $buf, 16384)) { print CSS $buf;}
	close(CSS); close(CSS_); 
	
	if ( ! open( IDX, ">$base/data/index.htm" ) ) {
		&::error(\'データディレクトリのindex.htmが作成できませんでした。');
		close(IDX);
	}
	
	untie %CNF::post; untie %CNF::mail;
	untie %CNF::tag; untie %CNF::upload; untie %CNF::mobile;
	untie %CNF::STY::psn; untie %CNF::STY::srn; untie %CNF::STY::rst;
	untie %CNF::STY::csn; untie %CNF::STY::hmn; untie %CNF::STY::ror;
	untie %CNF::STY::idx;
	eval { require "$base/config.cgi" };

	if (length($@)) {
		rmdir("$base/data"); rmdir("$base/upload"); rmdir("$base/image");
		rmdir("$base/past");
		unlink("$base/config.cgi", "$base/data/c-board.css");
		rmdir("$base"); &::error(\'作成できませんでした。');
	}
	foreach (@{$::FLAG{'lock'}{'mode'}}) {
		open(LCK, ">$base/data/$_\_lock")
			or &::error(\'ロック用ファイルを作成できませんでした。');
	}


	untie %CNF::post; untie %CNF::mail; untie %CNF::tag;
	untie %CNF::upload; untie %CNF::mobile; untie %CNF::STY::psn;
	untie %CNF::STY::srn; untie %CNF::STY::rst; untie %CNF::STY::csn;
	untie %CNF::STY::hmn; untie %CNF::STY::ror; untie %CNF::STY::idx;
	
	# ここはdoで
	#eval { do "$::SYS{'path_brd'}/myk/config.cgi"; };
	&COMMANDER::read_cnf(2);
	
	foreach (0 .. 9) {
		open(IMG_, "<$CNF::place{'image'}{'path'}/$_.gif")
			&& open(IMG, ">$base/image/$_.gif") or next;
		binmode(IMG_); binmode(IMG);
		while (read(IMG_, $buf, 16384)) { print IMG $buf;}
		close(IMG_); close(IMG);
	}
	
	#表示
	&BASE::head2('mkb');
	print <<"__HTML__";
  <table border=0 cellspacing=0 bgcolor="#494949">
   <tr>
    <td><span class=MasterInfo>
	掲示板(ID:$::FORM{'name'})を作成しました。$CNF::place{'image'}{'path'}<br>
	ＵＲＬは「
	<a href="$CNF::place{'this'}{'url'}?id=$::FORM{'name'}"><span class=MasterInfo><strong>$CNF::place{'this'}{'url'}?id=$::FORM{'name'}</strong></span></a>
	」になります。<br>
	設定は継承してない限り、デフォルト（パスワード：無し）のままなので、早めに
	<a href="$CNF::place{'this'}{'url'}?cmd=stn;id=$::FORM{'name'}"><span class=MasterInfo><strong>セットアップ</strong></span></a>
	＆
	<a href="$CNF::place{'this'}{'url'}?cmd=syn;id=$::FORM{'name'}"><span class=MasterInfo><strong>セットアップ（スタイル）</strong></span></a>
	を実行して下さい。<br><br>
	<span style="color:#ff9999;">※「セットアップ」⇒「セットアップ（スタイル）」の順で２つとも実行しないと正常に動作しません。</span>
      </span>
    </td>
   </tr>
   <tr>
     <td align="center">
        <hr size=1>
	<input type="hidden" name="cmd" value="mnb">
	<input type="submit" name="send" value="Ｏ&nbsp;Ｋ" class=MasterInput>
     </td>
   </tr>
  </table>
__HTML__
	&BASE::foot2('mkb');
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃   掲示板情報
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub info {

	require './app/lib/file/msg.pl'; require './app/lib/file/fle.pl';
	require './app/lib/file/ttl.pl';

	my %info; 
	my $o_message = new FILE::MESSAGE($CNF::place{'data'}{'path'});

	$info{'message'}{'size'} = $o_message->size();
	my $o_total = new FILE::TOTAL($CNF::place{'data'}{'path'});

	(my $r_total = $o_total->read)
		or &::error(\'記事データを読み込めませんでした');
	$info{'message'}{'number'} = ${$r_total}{'message'};
	my $o_file = new FILE::FILE($CNF::place{'data'}{'path'});
	($info{'file'} = $o_file->info())
		or &::error(\'添付ファイル情報を読み込めませんでした。');
	$info{'total'}{'size'} += &COMMON::dir_size($CNF::place{'image'}{'path'});
	$info{'total'}{'size'} += -s $CNF::place{'css'}{'url'};
	$info{'total'}{'size'} += $info{'message'}{'size'}
							+ $info{'file'}{'size'};
	if ($CNF::log{'mode'}) {
		require './app/cmd/log.pl'; 
		my $log_info = &LOG::info;
		$info{'log'}{'size'} = $$log_info{'size'};
		$info{'log'}{'number'} = $$log_info{'tre'}{'no'};
	}
	$info{'message'}{'percent'}
		= sprintf('%1.1f',
				  $info{'message'}{'number'} * 100
				   / ($CNF::post{'total'} || 1));
	$info{'file'}{'percent'}
		= sprintf('%1.1f',
				  $info{'file'}{'size'} * 100
				   / ($CNF::upload{'size'}{'total'} || 1));
	return(\%info);
}

1;