sub start_parser {
my @resp = ();
if (!param()){
push @resp, &Modules::Htmlpage::make_header("Hello first page.");
push @resp, &Modules::Htmlpage::make_first_page();
} elsif (param('get_in')){
push @resp, &Modules::Htmlpage::make_header("I say hello to you.")
+;
push @resp, &Modules::Htmlpage::make_top_content("home");
}
push @resp, end_html;
return @resp;
}
If param() is true (i.e. there are parameters in the HTTP request) and param('get_in') is false (i.e. there isn't a get_in parameter or is was '' or '0') then start_parser() will just return '</body></html>'.
Fix it so that it returns an appropriate valid CGI response under these circumstances.
BTW: Do you know what the special &-prefixed subroutine call syntax does? If not then don't use it. If so, why you think you need it?
Update: Fixed spurious ! typo. |