;
close(MAIN);
open(MAIN,">$basedir/$mesgfile") || die &error("Error writing file $basedir/$mesgfile - Please check your permissions. Sorry.");
foreach $main_line (@main) {
if (($newday eq 0) && ($main_line =~ //)) {
print MAIN "\n\n\n\n";
if ($blurbonly eq 1) {
if ($etitle) {
print MAIN "$etitle
$bodyone\n";
if ($pt eq 1) { print MAIN "
(Posted at $ptime.)";
} else { print MAIN "
"; }
} else {
print MAIN "$bodyone\n";
if ($pt eq 1) { print MAIN "
(Posted at $ptime.)
";
} else { print MAIN "
"; }
}
} else {
print MAIN "$etitle
$bodyone\n";
if ($pt eq 1) { print MAIN "
(Posted at $ptime.)
";
} else { print MAIN "
"; }
}
} elsif (($newday eq 1) && ($main_line =~ //)) {
print MAIN "\n\n\n\n";
print MAIN "
| \n";
print MAIN " $long_date |
\n\n\n";
if ($blurbonly eq 1) {
if ($etitle) {
print MAIN "$etitle
$bodyone\n";
if ($pt eq 1) { print MAIN "
(Posted at $ptime.)";
} else { print MAIN "
"; }
} else {
print MAIN "$bodyone\n";
if ($pt eq 1) { print MAIN "
(Posted at $ptime.)
";
} else { print MAIN "
"; }
}
} else {
print MAIN "$etitle
$bodyone\n";
if ($pt eq 1) { print MAIN "
(Posted at $ptime.)
";
} else { print MAIN "
"; }
}
} else {
print MAIN "$main_line";
}
}
close(MAIN);
&update;
}
sub return_html {
$error = $_[0];
&header("$error");
print "
$title: $error
\n";
print "\n";
&footer;
}
sub error {
$error = $_[0];
&header(error);
print "
error: $error
\n";
exit(0);
}
sub header {
$subtitle = $_[0];
print "Content-type: text/html\n\n";
print "$title: $subtitle\n";
}
sub footer {
print "";
}
sub ParseTags {
local($_) = @_;
local(@terms, $tag, $val);
s|^/||;
@terms = split('&');
foreach $term (@terms) {
($tag,$val) = split('=',$term,2);
if ((length($tag) > 100) || (length($val) > 100)) { &error("Variable length problem in line input"); }
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$val =~ s///g;
$val =~ s/<([^>]|\n)*>//g;
# may override previous value
$tags{$tag} = $val;
}
}
sub parse_form {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
if ((length($name) > 100) || (length($value) > 1000000)) { &error("Variable length problem in form input"); }
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# $value =~ s///g;
unless (($name eq 'body') || ($name eq 'bodyone')) {
$value =~ s/<([^>]|\n)*>//g;
}
$FORM{$name} = $value;
}
}
sub print_auth {
&header(Login);
print qq~
~;
&footer;
}
sub auth {
# v1.10
open(NUMBER,"$basedir/.phtmp");
$numm = ; close(NUMBER);
if (($tags{'v'} eq $numm) || (($fusername eq $username) && ($fpassword eq $password))) { &addform;
} else { &error("Not authorized"); }
}
sub lastarchive {
open(FILE,"$basedir/lastarchive.txt");
$lastarch=;
close(FILE);
}
sub archive {
open DEX,">$basedir/lastarchive.txt";
print DEX "$ngn";
close(DEX);
}
sub lastupdate {
open(FILE,"$basedir/lastupdate.txt");
$lastupdate=;
close(FILE);
}
sub update {
open DEX,">$basedir/lastupdate.txt";
print DEX "$ngn";
close(DEX);
}
sub addform {
&header("Add new entry");
# v1.10
$num = ""; srand(time ^ $$);
$num = int(rand(10000000000));
open(NUM,">$basedir/.phtmp") || &error("Couldn't write data file in $basedir");
print NUM "$num"; close(NUM);
# 1.15
print qq~
~;
&footer;
exit 0;
}
# v1.10
sub verify {
open(NUMBER,"$basedir/.phtmp");
$numm = ; close(NUMBER);
$v = $tags{'v'}; if (!($v)) { $v = $FORM{'v'}; }
$ct = $FORM{'ct'};
if ($v ne $numm) { &error("Not logged in"); }
# 1.15
elsif ($edit eq 2) {
&main_page;
$blurbonly = 1;
&return_html("index successfully archived");
exit 0;
}
elsif (!($ct)) {
&header("Choose a directory to edit");
print qq~
$title: choose a directory to edit
~;
&footer;
exit 0;
} elsif ($ct eq 1) {
&header("Choose a directory to edit");
$dir = $FORM{'dir'};
print qq~
$title: choose a file to edit
$dir
~;
opendir(DIR,"$dir") || &error("in get1 I could not open the directory $basedir");
@ls=readdir(DIR); closedir(DIR);
$_ = $line;
$files = "\.$ext";
foreach $dfile(@ls) {
$dfile =~ s/[\s]+//g;
if ($dfile =~ /$files/ && $dfile !~ /[ ]+/ && $dfile !~ /\n|\r/) {
# next if $dfile =~ /index.html?/i;
next if $dfile =~ /.txt?/i;
next if $dfile =~ /<|>/;
open(T,"$dir/$dfile") ||&error("in get1 I could not open the file $basedir$dfile");
URL: {
while() {
if (/([\S\s]+)<\/title>/i) {
next if $1 =~ /\$/i;
push(@urls,"<option value=\"$dir/$dfile\">$dfile - $1\n");
last URL;
close(T);
} else {
next;
}
}
}
}
}
print qq~
<form method="post" action="$cgi_url">
<select name="go" size="10"> ~;
foreach(@urls) { print; }
print qq~ </select>
<input type=hidden name=v value="$v">
<input type=hidden name=edit value="1">
<input type=hidden name=ct value="2"><br><br><input type="submit" value="Edit this File"></form>\n ~;
&footer; exit 0;
} elsif ($ct eq 2) {
$eiei = rindex($FORM{'go'},"/") +1;
$editedfn = substr($FORM{'go'},$eiei);
$fileBeingUpdated = $FORM{'go'};
$pathToDbase = "$fileBeingUpdated";
open(INFILE,"$pathToDbase") || open(INFILE,">$pathToDbase") || &print_error("Cannot open $pathToDbase in INFILE");
@infile = (<INFILE>); close(INFILE);
$size_all = (@infile + 10);
&header("Editing $editedfn");
print qq~
<center><div align=center>
<h3><font face="$font">$title: edit a file: $editedfn</font></h3>
<blockquote>
<p align="center">
<font face="$font" size="$size">
Press the <b>Publish the Page</b> button when you're ready to publish it.
</font></p>
<form method="post" action="$cgi_url">
<input type=hidden name="go" value="$fileBeingUpdated">
<TEXTAREA NAME="body" ROWS="30" COLS="65" wrap="physical">
~;
foreach(@infile) {
print "$_";
}
print qq~
</textarea>
<input type=hidden name=v value="$v">
<input type=hidden name=edit value="1">
<input type=hidden name=ct value="3">
<p><center><input type="submit" name="submit" value="Publish the Page"></center></form>
</blockquote>
~; &footer; exit 0;
} elsif ($ct eq 3) {
$eiei = rindex($FORM{'go'},"/") +1;
$editedfn = substr($FORM{'go'},$eiei);
$eoeo = rindex($FORM{'go'},"/",$eiei-2);
$editeddir = substr($FORM{'go'},$eoeo);
$pathToDbase = "$FORM{'go'}";
&header("File Successfully Updated");
print qq~ <center><div align=center>
<h3><font face="$font">$title: successfully edited<br>$dir</font></h3> ~;
local(@temp) = split(/\n/,$FORM{'body'});
foreach (@temp) {
$_ =~ s/\cM//;
$_ =~ s/^[\s]+//g;
$infile .= "$_\n";
push(@toprint,"$_\n");
}
open(BINFILE,">$pathToDbase") || &error("Cannot open $pathToDbase in INFILE");
print BINFILE "@toprint";
close(BINFILE);
print qq~ <p><font face="$font" size="$size">Go to ~;
if ($editeddir =~ /$mesgdir/) {
print " <a href=\"$idxurl$mesgdir/$editedfn\">$editedfn</a> ";
} else { print " <a href=\"$idxurl$editedfn\">$editedfn</a> "; }
print qq~
to view the changes <br><br>or add a <a href="$cgi_url?v=$v&auth=login&username=$username">New entry</a>.<br><br>
<b>Note:</b> You may have to Reload the page when you get there to see your changes.
</font>
~;
&footer; exit 0;
}
} # endsub
</body>
</html>
