richjb — Sun, 06 Aug 2000 05:17:47 +0000

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

use CGI qw(param header);
print header;

$section = param('section');
$function = param{'function'};

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

I see no reason why the above code, as edited by myself, woudn't work. Try, tell me if it doesn't. If it doesn't, please post your whole script...

Richard

Laguna Loire — Sat, 05 Aug 2000 18:30:36 +0000

I do it this way:

#!/usr/bin/perl

print "Content-type: text/html\n\n"; #content is html

#get the varibles that are incoming!
if ($ENV{"REQUEST_METHOD"} eq "GET") {
$input = $ENV{QUERY_STRING};
@pairs = split /\&/ , $input;

foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$form{$name} = $value;
}
} else {
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$form{$name} = $value;
}
}

$action = $form{'action'};

#Begin the process
if ($action eq "something") {

#do this

} elsif ($action eq "somethingelse") {

#do this

}

#end

-if you wanted to access different parts you would type in myscript.pl(or .cgi)?action=something

[Edited by Laguna Loire on 08-05-2000 at 02:32 PM]