munchie has asked for the wisdom of the Perl Monks concerning the following question:
Hi, I wrote a script to initiate one of three blocks of code based on the query string. When I try to run the program on the web, it returns a 500 internal server error (it is CHMODed 755). For an example of what I type in:
http://www.publicutilityhome.com/ssrubin/ssrubin.cgi?progid=entry
The code:
#!/usr/bin/perl -w use strict; use CGI qw(:standard); my $progid = param('progid'); if ($progid == "entry") { print "Content-Type: text/html\n\n"; open FH, "entry-pool.dump" or die $!; my $SEP = "--------"; local $/ = $SEP; my $line = <FH>; while (<FH>) { $line = $_ if rand($.) < 1; } close FH; $_ = $line; s!^\s*!!; s!$SEP\s*$!!; tr!\cM!!d; my($title, $link, $excerpt) = split /\n/, $_, 3; print <<HTML; <a href="$link">$title</a><br /> $excerpt HTML } elsif ($progid == "desc") { require "desc.conf"; open (FILE, my $random_file); my @LINES=<FILE>; close(FILE); srand; print "Content-type: text/html\n\n$LINES[int rand(@LINES)]\n"; } elsif ($progid == "bush") { require "bush.conf"; open (FILE, my $random_file); my @LINES=<FILE>; close(FILE); srand; print "Content-type: text/html\n\n$LINES[int rand(@LINES)]\n"; }
> munchie, the number munchin newb
Llama: The other other white meat!
(you had to be there :-P)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Errors in my (simple?) CGI Script!
by shotgunefx (Parson) on Mar 09, 2002 at 21:09 UTC | |
by cjf (Parson) on Mar 09, 2002 at 21:50 UTC | |
by shotgunefx (Parson) on Mar 10, 2002 at 01:36 UTC | |
by theguvnor (Chaplain) on Mar 10, 2002 at 03:39 UTC | |
by jrsmith (Pilgrim) on Mar 15, 2002 at 22:35 UTC | |
by munchie (Monk) on Mar 09, 2002 at 21:18 UTC | |
Re: Errors in my (simple?) CGI Script!
by simon.proctor (Vicar) on Mar 09, 2002 at 21:23 UTC | |
by shotgunefx (Parson) on Mar 09, 2002 at 21:46 UTC | |
by simon.proctor (Vicar) on Mar 09, 2002 at 22:22 UTC | |
by theguvnor (Chaplain) on Mar 10, 2002 at 01:19 UTC | |
by simon.proctor (Vicar) on Mar 10, 2002 at 16:11 UTC | |
| |
by Juerd (Abbot) on Mar 09, 2002 at 22:36 UTC | |
by rob_au (Abbot) on Mar 10, 2002 at 01:24 UTC | |
by no_slogan (Deacon) on Mar 10, 2002 at 02:24 UTC | |
| |
by shotgunefx (Parson) on Mar 10, 2002 at 01:44 UTC | |
by impossiblerobot (Deacon) on Mar 09, 2002 at 21:52 UTC | |
by gellyfish (Monsignor) on Mar 09, 2002 at 22:04 UTC | |
by Dog and Pony (Priest) on Mar 09, 2002 at 22:10 UTC | |
Re: Errors in my (simple?) CGI Script!
by cayenne (Scribe) on Mar 10, 2002 at 08:07 UTC |
Back to
Seekers of Perl Wisdom