package Setting;
use base Bbs;
use strict;
sub initialize_setting
{}
#SETTING.TXT形式のファイルを読み込んで指定されたハッシュにいれとく
# $_[0]:オブジェクトのリファレンス $_[1]:読み込むファイル名 $_[2]:セットするハッシュの名前
sub read
{return unless exists $_[1] && exists $_[2];my($f,$n,$v);$f = $_[2];open ( FH_R, "<$_[1]" ) || return;flock FH_R, 2;while(<FH_R>){chomp;next if length == 0 || /^\#|^\[|^\//;($n,$v) = split '=', $_, 2;next if length $n == 0;$_[0]->$f( $n => $v );}close FH_R;$_[0];}
1;
__END__