PciIds/Html/Debug.pm

   1 package PciIds::Html::Debug;
   2 use strict;
   3 use warnings;
   4 use Apache2::Const qw(:common :http);
   5 use PciIds::Html::Util;
   6
   7 sub test( $$$$ ) {
   8         my( $req, $args, $tables, $auth ) = @_;
   9         genHtmlHead( $req, 'Test', undef );
  10         print '<p>Logged in: '.$auth->{'authid'} if( defined $auth->{'authid'} );
  11         print $auth->{'logerror'} if( defined $auth->{'logerror'} );
  12         return OK unless defined $auth->{'authid'};
  13         print "<p>";
  14         foreach( keys %ENV ) {
  15                 print encode( "$_: $ENV{$_}<br>" );
  16         }
  17         genHtmlTail();
  18         return OK;
  19 }
  20
  21 1;