;
close(DATA);
foreach $line (@lines) {
($pic,$nm,$mail,$http,$body,$dt,$ip,$host,$subject)=split("\t",$line);
$pic =~ s/[^0-9]//gs;
if ($pic ne $access-$lgnumber){ push(@new,$line); }
}
open(DATA,">$targetfile") or &CgiDie("The file is locked due to another submission request.","please try again soon.");
print DATA @new;
close(DATA);
}
if($title eq "")
{
$title="Untitled";
}
open(OUT,">>$targetfile") or &CgiDie("The file is locked due to another submission request.","please try again soon.");
print OUT "$access\t$name\t$email\t$url\t$comment\t$date\t$ENV{'REMOTE_ADDR'}\t$ENV{'REMOTE_HOST'}\t$title\n";
}
else
{
open(OUT,">>$targetfile") or &CgiDie("The file is locked due to another submission request.","please try again soon.");
print OUT "$FORM{'resno'}\t$name\t$email\t$url\t$comment\t$date\t$ENV{'REMOTE_ADDR'}\t$ENV{'REMOTE_HOST'}\t$title\n";
}
close(OUT);
&process_unlock;
if($FORM{'cook'} eq 'on'){&set_cookie;}
$mode="";
$name="";
$comment="";
$sub="";
$email="";
$url="";
}
#■■■■■■■■■■ コメント投稿画面 ■■■■■■■■■■
sub res_msg {
&get_cookie;
$file=$FORM{'resno'}%$lgnumber;
&head;
if($res_mode eq "new")
{
print "$MESSAGE8
\n";
}
elsif($res_mode eq "comment")
{
$comment =~ s/<//g;
print << "EOH";
$MESSAGE8
EOH
}
else
{
print "$MESSAGE3
\n";
if( -e "$gzfile".$file.".png"==0){
if(-e "$gzfile".$file.".jpg"==0){
print "
![](\"$gz2file$file.gif\")
";
}else
{
print "
![](\"$gz2file$file.jpg\")
";
}
}else
{
print "
![](\"$gz2file$file.png\")
";
}
}
print << "EOH";
EOH
&foot;
exit;
}
#■■■■■■■■■■ ファイルロック処理 ■■■■■■■■■■
#=================== File Lock Process ===================
sub process_lock {
local($wait) = 10;
while ( !symlink(".",$lock_file) ) {
&CgiDie("lock busy") if --$wait <= 0;
sleep (6);
}
}
#■■■■■■■■■■ ファイルロック処理２ ■■■■■■■■■■
#=================== File Lock Process 2 ===================
sub process_lock2 {
local($flag) = 0;
foreach (1 .. 5) {
if (-e $lock_file) { sleep(1); }
else {
open(LOCK,">$lock_file")
|| &CgiDie("lock busy");
close(LOCK);
$flag = 1;
last;
}
}
if ($flag == 0) { &CgiDie("lock busy") }
}
#■■■■■■■■■■ ファイルアンロック処理 ■■■■■■■■■■
#=================== File Lock Removal Process ===================
sub process_unlock {
unlink ($lock_file);
}
#■■■■■■■■■■ ロック状況の監視 ■■■■■■■■■■
#=================== File Lock Monitoring ===================
sub check_lock {
if ($FORM{'pass'} ne "$pass") {
&CgiError("Wrong Password","$back_message");exit;
}
if($FORM{'operate'} eq "unlock")
{
&process_unlock;
}
else
{
$lock_state="normal";
local($wait) = 4;
while ( !symlink(".",$lock_file) && $wait>0 ) {
$wait--;
if ($wait <= 0){$lock_state="failed";}
sleep (6);
}
if($lock_state eq "normal")
{
&process_unlock;
}
}
&head;
print << "EOH";
|
EOH
if($FORM{'operate'} eq "unlock")
{
print "Unlocked";
}
else
{
print "Current file lock state： $lock_state";
if($lock_state eq "failed")
{
print " ";
print "File is locked, probably due to heavy load.
";
print "[Filelock must be removed by the administrator]";
}
}
print << "EOH";
|
[Return to BBS]
EOH
&foot;
}
#■■■■■■■■■■ パスワード認証 ■■■■■■■■■■
#=================== Password Checking ===================
sub pass {
&head;
print << "EOH";
Please enter the administrator password.
EOH
&foot;
exit;
}
#■■■■■■■■■■ 管理者削除処理 ■■■■■■■■■■
#=================== Administration Process ===================
sub del{
if ($FORM{'pass'} ne "$pass") {
&CgiError("Wrong password","Please hit he back button on your browser.");exit;
}
if (open(FILE,"<$count_file")) {
$access = ;
close(FILE);
}
@res=();
open(FILE,"<$targetfile");
while(){
chop;
($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$_);
$title =~ s/\r//g;
$title =~ s/\n//g;
if($pic =~ /[\d]/){
$rank{$pic*100+$res[$pic]}.="$pic\t$name\t$mail\t$http\t$body\t$date\t$ip\t$host\t$title";
$res[$pic]++;
}
}
close(FILE);
@era=();
open(FILE,"<$erasefile");
while(){
$era[$_]=1;
}
close(FILE);
&head;
print << "EOH";
Check Status of File Lock
Select entries with the checkbox, and delete with the delete button.
[Return to BBS]
\n";
print "\n";
if($i==($access-$lgnumber) || $i==0 || $cc %$gznumber==0 )
{
if($cc>$gznumber){
print << "EOH";
|
EOH
}
}
if($cc % $gznumber== 0 && $cc<$lgnumber && $i!=0)
{
print << "EOH";
|
EOH
}
print "
\n";
&foot;
exit;
}
#■■■■■■■■■■ 一括削除処理 ■■■■■■■■■■
#=================== Batch Removal ===================
sub master_del{
if ($FORM{'pass'} ne "$pass") {
&CgiError("Password is incorrect","$back_message");exit;
}
if ($FORM{'del'} eq "" && $FORM{'del_res'} eq "") {
&CgiError("No items are checked for deletion.","$back_button");exit;
}
# ロック処理
if ($lock_mode == 0) { &process_lock; }
elsif ($lock_mode == 1) { &process_lock2; }
if($FORM{'del_res'} ne "")
{
open(DATA,"$targetfile") or &CgiDie("Files are currently locked due to another submission.","Please try again soon.");
@lines=;
close(DATA);
foreach $line (@lines) {
$flag=0;
($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$line);
$title =~ s/\r//g;
$title =~ s/\n//g;
$date =~ s/[^a-zA-Z0-9\/\:]//gs;
foreach $res (@delres) {
if ($date eq $res) {$flag = 1;if($title ne ""){push(@delete,$pic);$FORM{'del'}="del";}}
}
if ($flag == 0) { push(@new,$line); }
}
open(DATA,">$targetfile") or &CgiDie("Files are currently locked due to another submission.","Please try again soon.");
print DATA @new;
close(DATA);
}
if($FORM{'del'} ne "")
{
open(OUT,">>$erasefile") or &CgiDie("Files are currently locked due to another submission.","Please try again soon.");
foreach $pic (@delete) {
$pic =~ s/[^0-9]//gs;
$pic=$pic%$lgnumber;
unlink "$gzfile$pic.gif";####
unlink "$gzfile$pic.jpg";####
unlink "$gzfile$pic.png";####
print OUT "$pic\n";
}
close(OUT);
}
&process_unlock;
&del;
}
#■■■■■■■■■■ URLの自動リンク ■■■■■■■■■■
#=================== Auto Link ===================
sub auto_link {
$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1$2<\/a>/g;
}
#■■■■■■■■■■ クッキー設定 ■■■■■■■■■■
#=================== Cookie Setup ===================
sub set_cookie {
# クッキーは60日間有効
# Cookies expires in 60 days
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg)
= gmtime(time + 60*24*60*60);
$yearg += 1900;
if ($secg < 10) { $secg = "0$secg"; }
if ($ming < 10) { $ming = "0$ming"; }
if ($hourg < 10) { $hourg = "0$hourg"; }
if ($mdayg < 10) { $mdayg = "0$mdayg"; }
$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul',
'Aug','Sep','Oct','Nov','Dec')[$mong];
$youbi = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday')[$wdayg];
$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
$cook="name\:$name\,email\:$email\,url\:$url";
print "Set-Cookie: OEBBS=$cook; expires=$date_gmt\n";
}
#■■■■■■■■■■ クッキーを取得 ■■■■■■■■■■
#=================== Coockie Retreveal Process ===================
sub get_cookie {
@pairs = split(/\;/, $ENV{'HTTP_COOKIE'});
foreach $pair (@pairs) {
local($name, $value) = split(/\=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/\,/, $DUMMY{'OEBBS'});
foreach $pair (@pairs) {
local($name, $value) = split(/\:/, $pair);
$COOKIE{$name} = $value;
}
$c_name = $COOKIE{'name'};
$c_email = $COOKIE{'email'};
$c_url = $COOKIE{'url'};
if($FORM{'cook'}eq 'on'){
if ($FORM{'name'}) { $c_name = $FORM{'name'}; }
if ($FORM{'email'}) { $c_email = $FORM{'email'}; }
if ($FORM{'url'}) { $c_url = $url; }
}
}
#■■■■■■■■■■ ヘッダー ■■■■■■■■■■
#=================== Header ===================
sub head{
print << "EOH";
Content-type: text/html
Oekaki BBS
EOH
if ($BACKGIF eq '') {
print "
\n";
}
else {
print "
\n";
}
if ($TITLEGIF eq '') {
print "
+ $TITLE +
\n";
}
else {
print "
![\"TITLE\"](\"$TITLEGIF\")
\n";
}
}
#■■■■■■■■■■ フッター ■■■■■■■■■■
#=================== Footer ===================
sub foot{
#このリンク部を削除することはできません
print << "EOH";
EOH
exit;
}