trunk/clients/perl/OpenXPKI-Client-HTML-Mason/htdocs/lib/debug.mhtml

   1 <%args>
   2   $level => undef
   3   $msg   => undef
   4 </%args>
   5 % foreach my $line (split "\n", $msg)
   6 % {
   7     <% $prefix %><% $line %><br/>
   8 % }
   9 <%init>
  10     return if (not defined $DEBUG);
  11     return if ($DEBUG < $level);
  12     # no debugging in /binary as it will screw up our binary output ...
  13     return if ($m->request_comp()->title =~ m{\A /binary}xms);
  14
  15     my $caller = $m->caller();
  16     my $label  = $caller->title();
  17     my $interp = $caller->interp();
  18     my $compiler = $interp->compiler();
  19     my $lexer    = $compiler->lexer();
  20
  21     print "<br/>wrong debug statement: $label: $msg<br/>\n"
  22         if (not defined $level or not defined $label);
  23
  24     ## start debugging and set the prefix
  25     ## my $prefix = "$label\[".$lexer->line_number()."]: ";
  26     my $prefix = "$label: ";
  27 </%init>
  28 <%once>
  29     my $DEBUG = 0;
  30 </%once>