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

Diff for /loncom/interface/lontest.pm between versions 1.5 and 1.9

version 1.5, 2002/06/26 14:01:50 version 1.9, 2002/12/09 22:41:50
Line 32  package Apache::lontest; Line 32  package Apache::lontest;
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use GDBM_File;  use GDBM_File;
   use Apache::loncommon;
   
 # section takes one env var name as input, and returns  # section takes one env var name as input, and returns
 # what section the given env var is in, which is the part  # what section the given env var is in, which is the part
Line 51  sub section Line 52  sub section
      $r->send_http_header;       $r->send_http_header;
      return OK if $r->header_only;       return OK if $r->header_only;
   
      $r->print('<html><body>');       my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");
        $r->print('<html>'.$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 78  sub section Line 80  sub section
  }   }
   
  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 96  sub section Line 98  sub section
   
      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',   (tie(%parmhash,'GDBM_File',
      $ENV{'request.course.fn'}.'_parms.db',       $ENV{'request.course.fn'}.'_parms.db',
      &GDBM_READER,0640))) {       &GDBM_READER(),0640))) {
      $r->print('<h2>Big Hash</h2>');       $r->print('<h2>Big Hash</h2>');
          foreach (sort keys %hash) {           foreach (sort keys %hash) {
      $r->print("\n<br>".$_.': '.$hash{$_});       $r->print("\n<br>".$_.': '.$hash{$_});
Removed from v.1.5  
changed lines
  Added in v.1.9

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