[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] subroutine won't fly

hi,

the following bit of code (from pages 66-67 of the O'Reilly "CGI
Programming" book won't fly on MacPerl or on my server. i keep getting the
message that it:

 can't find End_of_File before EOF.

here is the code.

any ideas ?



sub return_error
        {
                local ($status, $keyword, $message) = @_;

                print "Content-type: text/html", "\n";
                print "Status: ", $status, " ", $keyword, "\n\n";

                print <<End_of_Error;

                Content-type: text/html

                <HTML>
                <HEAD>
                <TITLE>CGI - PROGRAM Unexpected Error</TITLE>
                </HEAD>
                <BODY>
                <H1>$keyword</H1>
                <HR>$message<HR>
                Please contact $webmaster for more information.
                </BODY>
                </HTML>

                End_of_Error

                        exit(1);
                }


thanks

johnny

         pInK frANKenStEin                     www.frankenstein.com


                       i am the king of the divan



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch