Re^4: how to exec a CGI file with params?

use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;

my $teaser_show = 3;   # number of headlines to show in TEASER mode
my $page_show   = 50;  # number of headlines to show on page
my $intro       = "Hi;  # top message on screen when it's showing all 
+results

print header, start_html();

my $show  = url_param("show");
my $show1 = param("show");


if ($show ne "all" || $show1 ne "all")
{
   print "no SHOW param was found";
}
else
{
   print "this prints if the param is found";
}
[download]

Is what I am using right now

Comment on Re^4: how to exec a CGI file with params? Download Code

Replies are listed 'Best First'.
Re^5: how to exec a CGI file with params? by CountZero (Bishop) on Jun 18, 2006 at 09:44 UTC
Other than that you have missed the closing double quotes at the `my $intro` line it seems OK to me and if indeed the show param is passed to your script by the webserver it should work as expected. (tested it in the CGI-simulation mode of the Komodo-editor) CountZero "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law	[reply] [d/l]