Ok,
I found a script I wrote a LONG time ago (in my infant days admittedly). I make no warranties for it, but you may find it useful. Basically, you can define the file to modify within the variables (fairly self explanatory) set a username/password and let the user update it via the web.
Like I said, I do NOT support this NOR do I make any warranties, just digging some old stuff up I had.
#!/usr/bin/perl
use strict;
# Print to the server.
print "Content-Type: text/html\n\n";
# File to open and modify. Full path.
my $file = '/path/to/file/bob.txt';
# This scripts location
my $script = 'http://address.to.script/location/script.cgi';
# username and password for access
my $username = 'user';
my $password = 'password';
my %FORM;
&FormParse;
&CheckPass;
my $uid = 0;
my $pid = 0;
if(($uid eq '0') or ($pid eq '0')) { &Wrong; exit; }
unless($FORM{'update.txt'} eq 'confirm') {
open(FILE,$file) or print "Can't open $file";
my @FILE = <FILE>;
close(FILE);
print qq~
<center>
<font face="arial, helvetica" color=red size=+1>
<strong>Update File<br><br></strong></font></font></font>
<form method=POST><input type=hidden name="update.txt" value="confirm"><input type=hidden name=username value="$FORM{'username'}"><input type=hidden name=password value="$FORM{'password'}">
<div align=center>
<center>
<table border=1 width=600>
<tr>
<td width=100 valign=top align=left>File:</td>
<td width=500><textarea rows=10 name=file cols=60>@FILE</textarea></td>
</tr>
<tr>
<td width=100></td>
<td width=500><input type=submit></td>
</tr>
</table>
<br><br>
<table border=1 width=200>
~;
}
else {
my @Content = $FORM{'file'};
open(REALFILE,">$file");
foreach my $line (@Content)
{
$line =~ s/\r\n/<p>/g;
print REALFILE "$line \n";
}
close(REALFILE);
print "<b>File Update occured. </b> This script was executed at $script";
print "<br> Thanks, bye. "
}
sub Wrong {
print "<b>Wrong Username and Password combo<br></b>";
}
# FORM PARSING
sub FormParse
{
# CGI.pm loading
use CGI;
my $q = new CGI;
CGI::ReadParse();
# Load up the formInformation hash
my $formVariableName;
foreach $formVariableName ($q->param) {
$FORM{$formVariableName} = $q->param($formVariableName);
}
}
sub CheckPass {
if(!(($FORM{'username'}) or ($FORM{'password'}))) {
print qq~
<center>
<font face="arial, helvetica" color=red size=+1>
<strong>Please Login<br><br></strong></font></font></font>
<form method=POST>
<div align=center>
<center>
<table border=1 width=600>
<tr>
<td width=100 valign=top align=left>Username:</td>
<td width=500><input name=username></td>
</tr>
<tr>
<tr>
<td width=100 valign=top align=left>Password:</td>
<td width=500><input name=password>
</tr>
<td width=100></td>
<td width=500><input type=submit></td>
</tr>
</table>
<br><br>
<table border=1 width=200>
~;
}
else {
if($FORM{'username'} eq $username) { $uid = '1'; }
if($FORM{'password'} eq $password) { $pid = '1'; }
}
}
Hope it helps somewhere *shrugs*.
Stuart
GraywolfSurvival 
Linear Mode
