Hi guys,
First thx for the interest you are been taking, here's a full cgi sample I've rewrite to bbe simple
#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
my $query = CGI->new ;
loadPage ();
sub loadPage {
my $page = "";
$page = $query->param("page");
if ($page eq 'main') {
print "Content-Type: text/html\n\n";
print "main page to load";
}else {
print "Content-Type: text/html\n\n";
print "error";
}
}
this code work well now, I'm searching on other modules to see what's wrong
thx
Alexandre Jaquet | [reply] [Watch: Dir/Any] [d/l] |
#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
Main( @ARGV );
exit( 0 );
sub Main {
my $q = CGI->new;
my( $headers, $body ) = loadPage( $q );
print $headers, $body;
}
sub loadPage {
my( $query ) = @_;
if( authenticate( $q ) ){
my $page = $q->page || 'default';
return ThisPage( $pms, $q ) if $page eq 'thisone';
return ThatPage( $pms, $q ) if $page eq 'thatone';
return DefaultPage( $pms, $q );
} else {
return UnauthorizedPage( $pqms, $q );
}
}
... | [reply] [Watch: Dir/Any] [d/l] |