Changing Content On A Seperate Page

josephman1988 · Sep 20th, 2007, 13:42

What i want to do, is have content on a homepage, which can be edited via a form on a restricted page.

E.G.

I have news on home page, when i go to a restricted page (e.g. mysite.co.uk/admin) i am produced a form which if i type in, then enter, the news on the homepage is changed.

I can do this on a single page, but on a separate page is a bit confusing at the moment:

CGI:

Code: Select all

my $query = new CGI;
my $name = $query->param("name");
my $message = $query->param("message");

if ($query->param('action') eq 'insert') {
open (INSERT,">>msg.txt");
print INSERT "$name|$message\n";
close(INSERT);

      }

open (READ,"msg.txt");
my @loop_data = ();  
while (<READ>) {
chomp $_; 
my ($db_name,$db_message) = split(/\|/, $_); 
my %row_data;  

$row_data{NAME} = $db_name;
$row_data{MESSAGE} = $db_message;

 push(@loop_data, \%row_data);
}

      close(READ);

my $template = HTML::Template->new(filename => 'contactus.tmpl');
$template->param(LOOP => \@loop_data);  template
print "Content-Type: text/html\n\n";
print $template->output;

TMPL:

HTML: Select all

<TMPL_LOOP NAME="LOOP">
<strong>Name:</strong> <TMPL_VAR NAME="NAME"> <br />
<strong>Message:</strong> <TMPL_VAR NAME="MESSAGE"> <br /><br />
</TMPL_LOOP>
<form action='contactus.cgi' enctype='multipart/form-data' method='post'>
Name:<br />
<input type="text" name="name" /><br />
Message:<br />
<input type="text" name="message" /><br /><br />
 <input type="hidden" name="action" value="insert">
<input type='submit' value='submit' />
</form>

Any help would be greatly appreciated.