Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: Help!! Premature ending of script headers?

by Anonymous Monk
on Oct 13, 2011 at 22:43 UTC ( #931386=note: print w/replies, xml ) Need Help??

in reply to Help!! Premature ending of script headers?

it still won't work. :(

Like CGI Help Guide and Troubleshooting Perl CGI scripts say:

Check the logs!!! or keep your own ( see CGI::Carp::carpout )

Read this if you want to cut your development time in half!

use CGI or die;, Ovids CGI Course, CGI Programming 101,

Try this on for size :)

#!/usr/bin/perl -- use strict; use warnings; use CGI (); use Data::Dumper (); #zum debuggen Main( @ARGV ); exit( 0 ); sub Main { return DebugCGI(); } sub DebugCGI { my $cgi = CGI->new; print $cgi->header(); # Write HTTP header print $cgi->start_html, $cgi->b( rand time, ' ', scalar gmtime ), '<table border="1" width="%100"><tr><td>', $cgi->Dump, '</td>', '<td><div style="white-space: pre-wrap; overflow: scroll;">', $cgi->escapeHTML( DD($cgi) ), '</div></td></tr></table>', CGI->new( \%ENV )->Dump, $cgi->end_html; } sub DD { scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://931386]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (6)
As of 2018-01-16 10:16 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (177 votes). Check out past polls.