in reply to Re^2: how to exec a CGI file with params?
in thread how to exec a CGI file with params?

To be able to answer your question, we need to see more of your CGI-program.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

  • Comment on Re^3: how to exec a CGI file with params?

Replies are listed 'Best First'.
Re^4: how to exec a CGI file with params?
by Anonymous Monk on Jun 18, 2006 at 04:14 UTC 
    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
[reply]
[d/l]
      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]

In Section Seekers of Perl Wisdom