$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="$script_link">
<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">
~; if ($userid) { print qq~
<input type=hidden name="username" value="$userid">
~; } print qq~
<input type=hidden name="uid" value="$db_uid">
<input type=hidden name=ct value="2"><br><br><input type="submit" value="Edit this File"></form>\n ~;
&footer;
} elsif ($ct eq 2) {
$eiei = rindex($in{'go'},"/") +1;
$editedfn = substr($in{'go'},$eiei);
$fileBeingUpdated = $in{'go'};
$pathToDbase = "$fileBeingUpdated";
open(INFILE,"$pathToDbase") || open(INFILE,">$pathToDbase") || &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="$script_link">
<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">
~; if ($userid) { print qq~
<input type=hidden name="username" value="$userid">
~; } print qq~
<input type=hidden name="uid" value="$db_uid">
<p><center><input type="submit" name="submit" value="Publish the Page"></center></form>
</blockquote>
~; &footer;
} elsif ($ct eq 3) {
$eiei = rindex($in{'go'},"/") +1;
$editedfn = substr($in{'go'},$eiei);
$eoeo = rindex($in{'go'},"/",$eiei-2);
$editeddir = substr($in{'go'},$eoeo);
$pathToDbase = "$in{'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/,$in{'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="$script_link&v=$v&auth=login">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;
}
} # endsub
# -------------------------------------------
# Crypt pass routines
# -------------------------------------------
sub print_auth {
$error = $_[0];
open (PASSFILE, "$auth_pw_file") || &print_new_auth("First time user... Please enter a username and password to get started"); #check for password file
close(PASSFILE);
&header(Login);
print qq~
<p> <p><center><div align=center>
<h3><font face="$font">$title: login</font></h3>
~;
if ($error) { print "<font face=\"arial\" size=\"-1\" color=\"#CC0000\"><b>$error</b></font><br><br>"; }
print qq~
<form action="$db_script_url" method="post">
<table border=1 cellspacing=0 cellpadding=4><tr><td align=right>
<font face="$font" size="$size">Username:</font></td><td><input type=text name=username size=10>
</td></tr><tr><td align=right>
<font face="$font" size="$size">Password:</font></td><td><input type=password name=password size=10>
</td></tr><tr><td $tcolor colspan=2><center>
<input type=hidden name=auth value=login>
<input type=hidden name=login value=1>
<input type=submit value="Login">
</td></tr></table>
</form></div></center>
~;
&footer;
}
sub print_new_auth {
$error = $_[0];
&header("New user");
print qq~
<p> <p><center><div align=center>
<h3><font face="$font">Create a New User Acount<br>$title: login</font></h3>
~;
if ($error) { print "<font face=\"arial\" size=\"-1\" color=\"#CC0000\"><b>$error</b></font><br><br>"; }
print qq~
<form action="$db_script_url" method="post">
<table border=1 cellspacing=0 cellpadding=4><tr><td align=right>
<font face="$font" size="$size">Username:</font></td><td><input type=text name=username size=10>
</td></tr><tr><td align=right>
<font face="$font" size="$size">Password:</font></td><td><input type=password name=password size=10>
</td></tr><tr><td align=right>
<font face="$font" size="$size">Verify:</font></td><td><input type=password name=verify size=10>
</td></tr><tr><td $tcolor colspan=2><center>
<input type=hidden name="auth" value="newpass">
<input type=submit value="Add">
</td></tr></table>
</form></div></center>
~;
&footer;
}
# -------------------------------------------------
sub lastupdate {
open(FILE,"$progdir/ojlastupdate.txt") || &update;
$lasttimes=<FILE>;
($lastarch, $lastupdate) = split (/:/, $lasttimes);
close(FILE);
}
sub update {
$edit = $_[0];
if ($edit eq "2") {
$gfy = "9999";
} else {
$gfy = $ngn;
}
open DEX,">$progdir/ojlastupdate.txt";
print DEX "$ngn:$gfy";
close(DEX);
}
sub try_file { $newday = 1; $result = `cp $tplt_dir/index $basedir/$mesgfile`; &try_file2; }
sub try_file2 { $result = `cp $tplt_dir/index $basedir/$mesgdir/$mesgfile`; }
# -------------------------------------------------
sub print_blurb {
open(ENTRY,"$tplt_dir/entry") || &error("Error reading from the file $tplt_dir/entry - Please check your permissions.");
@entry = <ENTRY>; close(ENTRY);
foreach $line (@entry) {
$_ = $line;
if (($blurbonly eq 1) && ($etitle)) {
$line =~ s/<!-- TITLE -->/$etitle$linebr/g;
} elsif ($etitle) {
$line =~ s/<!-- TITLE -->/<a href=\"$ojdir\/$mesgdir\/$nfn\.$ext\" target=\"$target_window\">$etitle<\/a>$linebr/g;
}
$line =~ s/<!-- PTIME -->/$ptime/g;
$line =~ s/<!-- BLURB -->/$bodyone/g;
$line =~ s/<!-- BODY -->/$body/g;
if ($multiuser) {
$line =~ s/<!-- USERNAME -->/by $userid/g;
}
$line =~ s/<!-- OJNAME -->/$title/g;
$line =~ s/<!-- BODYPREVIEW -->//g;
printf MAIN "$line\n";
}
} # End Sub
sub templates {
foreach $line (@LINES) {
$_ = $line;
if ($etitle) { $line =~ s/<!-- TITLE -->/$etitle/g; }
$line =~ s/<!-- PTIME -->/$ptime/g;
$line =~ s/<!-- BLURB -->/$bodyone/g;
if ($body) { $line =~ s/<!-- BODY -->/$body/g; }
if ($multiuser) {
$line =~ s/<!-- USERNAME -->/by $userid/g;
}
$line =~ s/<!-- OJNAME -->/$title/g;
$line =~ s/<!-- BODYPREVIEW -->//g;
print NEWFILE "$line\n";
}
} # End Sub