[BACK]Return to lontest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lontest.pm between versions 1.8 and 1.14

version 1.8, 2002/08/21 17:18:08 version 1.14, 2005/02/17 08:50:20
Line 48  sub section Line 48  sub section
   
  sub handler {   sub handler {
      my $r = shift;       my $r = shift;
      $r->content_type('text/html');       &Apache::loncommon::content_type($r,'text/html');
      $r->send_http_header;       $r->send_http_header;
      return OK if $r->header_only;       return OK if $r->header_only;
   
        my $html=&Apache::lonxml::xmlbegin();
      my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");       my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");
      $r->print('<html>'.$bodytag);       $r->print($html.'<head></head>'.$bodytag);
             
      my $envkey;       my $envkey;
     
      $->print("<hr><h1>Debugging</h1><hr>\n");       $r->print("<hr /><h1>Debugging</h1><hr />\n");
      $->print("<font face='Courier'>");       $r->print("<font face='Courier'>");
             
      my $i=0;       my $i=0;
      my $interval = 20; # change this to change how many keys/table       my $interval = 20; # change this to change how many keys/table
Line 74  sub section Line 75  sub section
  if ($prevSection ne $sec) # new section, print header   if ($prevSection ne $sec) # new section, print header
  {   {
      $r->print('<tr><td colspan="2">');       $r->print('<tr><td colspan="2">');
      $r->print("<br><br><h2 style='color: #008800'><u>$sec</u></h2>");       $r->print("<br /><br /><h2 style='color: #008800'><u>$sec</u></h2>");
      $r->print('</td></tr>');       $r->print('</td></tr>');
      $prevSection = $sec;       $prevSection = $sec;
  }   }
   
  my $envVal = $ENV{$envkey};   my $envVal = $ENV{$envkey};
  $envVal =~ s/(.{50})/\1\<wbr\>/g;   $envVal =~ s/(.{50})/$1\<wbr\>/g;
  $envkey =~ s/(.{30})/\1\<wbr\>/g;   $envkey =~ s/(.{30})/$1\<wbr\>/g;
       
  $r->print("<tr><td valign='top'><b>$envkey</b></td>");   $r->print("<tr><td valign='top'><b>$envkey</b></td>");
          $r->print("<td valign='top'>$envVal</td></tr>\n");           $r->print("<td valign='top'>$envVal</td></tr>\n");
Line 94  sub section Line 95  sub section
    if ($ENV{'request.course.id'}) {     if ($ENV{'request.course.id'}) {
   
      my %parmhash;       my %parmhash;
        my %symbhash;
      my %hash;       my %hash;
   
      my $fn=$ENV{'request.course.fn'};       my $fn=$ENV{'request.course.fn'};
   
      if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&           if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
  (tie(%parmhash,'GDBM_File',               $r->print('<h2>Big Hash</h2>');
      $ENV{'request.course.fn'}.'_parms.db',               foreach (sort keys %hash) {
      &GDBM_READER(),0640))) {           $r->print("\n<br />".$_.': '.$hash{$_});
      $r->print('<h2>Big Hash</h2>');               }
          foreach (sort keys %hash) {               untie %hash;
      $r->print("\n<br>".$_.': '.$hash{$_});           } else {
          }               $r->print('<h2>Count not tie big hash</h2>');
      $r->print('<h2>Parm Hash</h2>');  
          foreach (sort keys %parmhash) {  
      $r->print("\n<br>".$_.': '.$parmhash{$_});  
          }           }
          untie %hash;           if (tie(%parmhash,'GDBM_File',
          untie %parmhash;       $ENV{'request.course.fn'}.'_parms.db',
      }       &GDBM_READER(),0640)) {
                $r->print('<h2>Parm Hash</h2>');
                foreach (sort keys %parmhash) {
           $r->print("\n<br />".$_.': '.$parmhash{$_});
                }
                untie %parmhash;
            } else {
               $r->print('<h2>Could not tie parmhash</h2>');
    }
            if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {
               $r->print('<h2>Symb Hash</h2>');
               foreach (sort keys %symbhash) {
          $r->print("\n<br />".$_.': '.$symbhash{$_});
               }
               untie %symbhash;
    } else {
               $r->print('<h2>Could not tie symbhash</h2>');
    }
            if (-e $fn.'.state') {
        $r->print('<h2>State</h2>');
        my @conditions=();
        {
    my $fh=Apache::File->new($fn.'.state');
    @conditions=<$fh>;
        }
        foreach (@conditions) {
                    $r->print('<tt>'.$_.'</tt><br />');
        }
          }
  }   }
   
     
 # ------------------------------------------------------------------- End Debug  # ------------------------------------------------------------------- End Debug
      $r->print('</body></html>');               $r->print('</body></html>');    
        return OK;
  }   }
   
   
Removed from v.1.8  
changed lines
  Added in v.1.14

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>