Perl - Dump Request

Print out all request parameters and environment variables.

Marco Tag

<?PERL_MACRO id="test" pageID="<?UMBRACO_GETITEM field="pageID"/>"></?PERL_MACRO>

Marco Output

PERL FOR UMBRACO: The remote server returned an error: (404) Not Found. requesting http://www.darren-ferguson.com:80/plex/test.plex

Perl Source

use strict;
use utf8;
use CGI;
use Date::Format;

my $query = new CGI;
print $query->header(-charset => 'utf-8');
my @names = $query->param();

print '
Params
';

foreach my $name (@names)
{
	my $val = $query->param($name);
	print "pp $name: $val
\n"; 
}
 
print time2str("%C", time);
print "
Environment Variables
";
print ("$_:",$ENV{$_},"\n") foreach (keys %ENV);