SilverB1rd has asked for the wisdom of the Perl Monks concerning the following question:
I have been trying to get this script to work for hours. the problem is that it won't branch to anything but the FrontPage sub I have checked the param values and they are ok but but it still wont branch. I'm running it on a solarus::apache::mod_perl box.
------
The Price of Freedom is Eternal Vigilance
#!/usr/bin/perl -w use CGI::Carp "fatalsToBrowser"; use CGI; use strict; $CGI::POST_MAX=1024 * 500; # max 500k post $CGI::DISABLE_UPLOADS = 1; # No uploads my ($q) = new CGI; my ($ThisScript, $DataFile, $i, $MyFile); my (%Subs); $ThisScript = 'Conf.cgi'; $DataFile = './data/list.txt'; %Subs=( 'FrontPage' => \&FrontPage(), 'ViewState' => \&ViewState()); if ( exists $Subs{$q->param('do')}) { $Subs{$q->param('do')}->(); } else { $Subs{$q->param('do')}->(); } exit; sub FrontPage { ... exit; } sub ViewState { ... exit; }
------
The Price of Freedom is Eternal Vigilance
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Won't jump to Sub!
by merlyn (Sage) on Apr 17, 2001 at 00:30 UTC | |
by tilly (Archbishop) on Apr 17, 2001 at 01:16 UTC | |
by sierrathedog04 (Hermit) on Apr 17, 2001 at 06:32 UTC | |
Re: Won't jump to Sub!
by jwest (Friar) on Apr 17, 2001 at 00:42 UTC | |
Re: Won't jump to Sub!
by Masem (Monsignor) on Apr 17, 2001 at 00:33 UTC | |
Re: Won't jump to Sub!
by Starky (Chaplain) on Apr 17, 2001 at 08:03 UTC |
Back to
Seekers of Perl Wisdom