Just tried it.......

minton — Tue, 18 Jul 2000 19:25:29 +0000

but am having a problem with it.

I am using a primitive password control system which will disply the admin side of the script iff the password is corrct and a bad passowrd page if it is not.

My problem is this:

When I accessed my script I had forgotten to take put the else {&default} bit so it showed that message instead ofmy login. I took this out (so there is no else) but nothing showed up. So I cahnged the &default for &ask_password (the main login screen). this worked. But when i presss ubmit it juist loads the login page again. I dont know why this is (actually I do but I dont know how to fix it). I am assuming it is doing this becase the function is not specified in the code richard gave me. Anyway, this is the code tghat checks the passoword:

&parse_form;

$password = $input{'password'};
$function = $input{'function'};

if ($function eq "post") {
if ($password eq $correctpass) {
&goodlogin;
}
&nologin;
}

&ask_password;

and this is at the top:

$section = param('section');

if ($section eq "admin") { &admin; }
elsif ($section eq "footer") { &footer; }
elsif ($section eq "header") { &header; }
elsif ($section eq "subscribers") { &subscribers; }
elsif ($section eq "archive") { &archive; }
elsif ($section eq "sendmail") { &sendmail; }
elsif ($section eq "sendonemail") { &sendonemail; }
else {&ask_password}
exit;

Can someopne help me???

minton — Tue, 18 Jul 2000 06:43:58 +0000

I'll try it later on today but it looks good. Thanks alot for your help

I see...

richjb — Tue, 18 Jul 2000 01:58:25 +0000

This is possible.

Let's say you had three sections: admin, form, and default. To call a seperate section, use a URL like this:

script.cgi?section=admin

#!/usr/bin/perl

BEGIN {
 use CGI::Carp qw(fatalsToBrowser);
}

use CGI qw(param header);
print header;

$section = param('section');

if ($section eq "admin") { &admin; }
elsif ($section eq "form") { &form; }
else { &default; }
exit;

sub admin {
 print qq|This is the admin section|;
}

sub form {
 print qq|This is the form section|;
}

sub default {
 print qq|This is the default section|;
}

Hope that solved your question.

Richard

minton — Mon, 17 Jul 2000 16:03:50 +0000

No, you misunderstand....

I meant like NAME

I want the script be one script but I want the admin area to link to different parts of the script. os can I do:

something

or doews it have to me in multiple scripts and not one single one

richjb — Mon, 17 Jul 2000 01:22:51 +0000

Simply put the functions in seperate sub routines. The format for a sub routine looks like this:

sub NAME_OF_SUB {

#code here

}

To call a subroutine:

&NAME_OF_SUB;

Just replace "NAME_OF_SUB" with the actual name of the subroutine.

Richard