package Subback;
use base Bbs;
use strict;
sub remake
{my($f,$l,$d,$base,$bbs,$i,$title);$f=$_[0]->path('subback') . $_[0]->file('subback');$l=$_[1] || $_[0]->list('subject');$d=$_[0]->conf('delimiter');$base="http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";$bbs=$_[0]->from('bbs');$i=0;$base =~ s|[^/]*\.cgi$|read\.cgi/$bbs/|;$title=$_[0]->setting('BBS_TITLE');open( FH, ">$f" ) || return;flock FH, 2;local $\ = "\n";print FH qq(\n\n\n\n$title\n\n\n);/(.*?)\.dat$d(.*)/o, print FH qq($i:$2 ) while $_=@$l[$i++];print FH '過去ログ倉庫はこちら
';print FH "\n";close FH;$_[0];}
1;
__END__