DoubleMessageBoard $data{'title'}
$data{'comments'}
NEW_DATA
$msg =~ tr/\n/ /s;
print LOCK "\t$msg\n";
open(DATAF, "<$dfile") or &error2("LINE-154",$erro1,$erro3,$!);
while ($dataf =
$data{'comments'}
HTML_DAUG
close DFL;
$data{'comments'} = substr($data{'comments'}, 0, $max);
$op = $data{'comments'} =~ tr//>/;
if ($op > $cl) {$data{'comments'} =~ s/(.*)<.*/$1/s;}
$op = $data{'comments'} =~ s/ $cl) {$data{'comments'} =~ s/(.*)<.*/$1/s;}
$cutoff = ($size - (length $data{'comments'}));
### link to daughterboard ###
$data{'comments'} .= " $cutoff more byte(s), click here!";
}
#####################
# thank you message #
#####################
sub thank
{
print <<"THANK_YOU";
REFRESH: $wait;URL=$html
Content-type: text/html
DoubleMessageBoard
is visitware, pay me visit!
HTML_FOOT
close BBSF;
}
######################
# new message to bbs #
######################
sub bbs
{
if (-e $tfile) {
if (-M $tfile > ($lexp/1440)) {
utime time, time, $tfile;
} else {
&error1($erro0,$erro2,$erro3,$!);
}
}
open(LOCK, ">$tfile") or &error1("LINE-125",$erro1,$erro3,$!);
$time = time;
$posted = gmtime($time);
if ($data{'name'} eq "") {$data{'name'} = $dname;}
if ($data{'email'}) {
$gname = "$data{'name'}";
} else {
$gname = $data{'name'};
}
if ($data{'title'} eq "") {$data{'title'} = $dttle;}
$data{'comments'} =~ s/(https?:\/\/[\w\/\.\-\~\?\=\&\+\%#_]+)/$1<\/a>/g;
$size = length $data{'comments'};
if ($size < 1) {$data{'comments'} = $dcmmt;}
elsif ($max < $size) {&dent;}
### new data ###
$msg = <<"NEW_DATA";
$gname ($posted)
Dear $data{'name'},
Your comments have been successfully added.
THANK_YOU
}
##################
# edit data file #
##################
sub edit
{
$pswd = crypt($pswd,$seed);
if ($data{'pswd'} ne $pswd) {
die("Corrupted password. $!");
}
unless (-e $tfile) {
die "The operation time allowance is expired. Please re-try. $!";
}
if ($data{'submit'} eq $aok) {
unlink $tfile;
} else {
open (LOCK, ">$tfile") or die "Check the permission of $tfile or its directory $!";
open (DATAF, "<$dfile") or die "Check the permission of $dfile or its directory $!";
$time = time();
$arch .= $time.".html";
open (ARCH, ">$arch") or die "Check the permission of your directory $!";
### archive page ###
print ARCH <<"ARCH_HEAD";
Now, you will be back to the MessageBoard.
DoubleMessageBoard Archives
$daugh";}
} elsif ($data{$i} eq "A") {
$dataf =~ s/^\t/\n/;
print ARCH $dataf;
} else {
print LOCK $dataf;
}
}
}
close DATAF;
if ($posi < (tell(ARCH))) {
print ARCH <<"ARCH_FOOT";
is visitware, pay me visit!
ARCH_FOOT
close ARCH;
### link to archives ###
print LOCK "\t
... more articles, click here!\n";
} else {
close ARCH;
unlink $arch;
}
close LOCK;
rename ($tfile, $dfile) or die "Re-try or use FTP to overwrite $dfile by $tfile $!";
&tobbs;
}
if ($msg) {
&error1("Following file(s) can not be deleted:",$msg,$!);
} else {
print "Content-type: text/plain\n\nThe operation is completed.";
}
exit;
}
################
# starts login #
################
sub strts
{
print <<"HTML_LOGIN";
Cache-Control: no-cache
Pragma: no-cache
Content-type: text/html
This is the webmaster's administrative page.
If you are here by mistake,
DoubleMessageBoard is Here.PLEASE ENTER
If you are here to hack the site, please don't.
\n";
close DATAF;
&tobbs;
print "Location: $html\n\n";
exit;
}
if (-e $tfile) {
if (-M $tfile > (1/1440)) {
utime time, time, $tfile;
} else {
die $erro2;
}
} else {
open(TFILE, ">$tfile") or die "Check the permission of message board directory $!";
close TFILE;
}
$day = gmtime($lexp*60 + time);
$day =~ s/ / 0/;
($wday,$mon,$day,$hms,$year) = split(/ /,$day);
$pswd = crypt($pswd,$seed);
### editor page head ###
print <<"HTML_HEAD";
Expires: $wday, $day $mon $year $hms GMT
Content-type: text/html
DoubleMessageBoard