comment on

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";
}
[download]

> munchie, the number munchin newb
Llama: The other other white meat!
(you had to be there :-P)

In reply to Errors in my (simple?) CGI Script! by munchie

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Syntactic Confectionery Delight
	PerlMonks