CGIScript.net :: Automate your website for less!

Perl Debug Tool Go to www.cgiscript.net for more free tools!
Description: Use this code to display environment variables and form variables. The form variables are assumed to be in the %in associative array (as extracted by the &getdata subroutine show in a previous example). This is generally used when the script encounters an error and is very useful for debugging.
Directions: Follow Steps 1 and 2 below. Use the 'Grab Text' buttons to select the code within the adjacent textarea. Then use Control-C or Edit -> Copy to buffer the text for pasting into your document.

Usage (Step 1): Add this code to dump the variables. You can either explicitly call this subroutine as in use #1 or you can call it conditionally as in use #2.

Then use Control-C to copy the text into your web page.
Use #1: &PrintErr; Use #2: if($SomeError){ &PrintErr; }

Code (Step 2): Add the following code somewhere within your script.

Then use Control-C to copy the text into your web page.
sub PrintErr { print "<PRE>\nCGI Error: $!\n"; print "Message: $_[0]\n\n"; print "====== Form Variables ======\n"; foreach $key (sort keys %in) { print "$key: \t$in{$key}\n"; } print "\n====== Environment Variables ======\n"; foreach $env (sort keys %ENV) { print "$env: \t$ENV{$env}\n"; } print "\n</PRE>"; exit; }