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

Diff for /loncom/interface/lontest.pm between versions 1.6 and 1.22

version 1.6, 2002/08/12 18:21:42 version 1.22, 2008/11/24 17:18:01
Line 27 Line 27
 #  #
 #  #
   
   
 package Apache::lontest;  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;
   use Apache::lonnet;
   
 # section takes one env var name as input, and returns  
 # what section the given env var is in, which is the part  
 # of the env var before the first period.  
 # Returns the section, or blank string for 'no section',  
 # which is normal for the standard ENV vars like REQUEST_URI.  
 sub section  sub section
 {  {
     my ($name) = @_;      my ($name) = @_;
Line 45  sub section Line 43  sub section
     return '';      return '';
 }  }
   
  sub handler {  sub print_hash {
      my $r = shift;      my ($r,$hash)=@_;
      $r->content_type('text/html');      my $i=0;
      $r->send_http_header;      my $interval = 20; # change this to change how many keys/table
      return OK if $r->header_only;      my $prevSection = ''; # keeps track of the section we're in.
   
       foreach my $envkey (sort(keys(%{$hash}))) {
    if (not ($i % $interval)) {
       $r->print('</table>') unless $i eq 0;
       $r->print('<table border="0">');
    }
    my $sec = section($envkey);
   
    if ($prevSection ne $sec) { # new section, print header 
       $r->print('<tr><td colspan="2">');
       $r->print("<br /><br /><h2 style='color: #008800'><u>$sec</u></h2>");
       $r->print('</td></tr>');
       $prevSection = $sec;
    }
   
    my $envVal = $hash->{$envkey};
    $envVal =~ s/(.{50})/$1\<wbr\>/g;
    $envkey =~ s/(.{30})/$1\<wbr\>/g;
     
    $r->print("<tr><td valign='top'><b>$envkey</b></td>");
    $r->print("<td valign='top'>$envVal</td></tr>\n");
    $i++;
       }
   
      $r->print('<html><body>');      $r->print('</table></font><h1>Total Number of Elements: '.$i.'</h1>');
   }
   sub handler {
       my $r = shift;
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       return OK if $r->header_only;
   
       $r->print(&Apache::loncommon::start_page("List Environment",undef,
        {'function' => 'admin'}));
   
       $r->print("<hr /><h1>Debugging</h1><hr />\n");
       $r->print("<font face='Courier'>");
       $r->print("<hr /><h2>ENV</h2><hr />\n");
       &print_hash($r,\%ENV);
       $r->print("<hr /><h2>env</h2><hr />\n");
       &print_hash($r,\%env);
   # ------------------------------------------------ If in a course, print hashes
       if ($env{'request.course.id'}) {
   
      my $envkey;   my %parmhash;
    my %symbhash;
    my %hash;
   
    my $fn=$env{'request.course.fn'};
   
    if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
       $r->print('<h2>Big Hash</h2>');
       foreach (sort keys %hash) {
    $r->print("\n<br />".$_.': '.$hash{$_});
       }
       untie %hash;
    } else {
       $r->print('<h2>Count not tie big hash</h2>');
    }
    if (tie(%parmhash,'GDBM_File',
    $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 />');
       }
    }
       }
     
      $->print("<hr><h1>Debugging</h1><hr>\n");  # ------------------------------------------------------------------- End Debug
      $->print("<font face='Courier'>");       $r->print(&Apache::loncommon::end_page());    
             return OK;
      my $i=0;   }
      my $interval = 20; # change this to change how many keys/table  
      my $prevSection = ''; # keeps track of the section we're in.  
      foreach $envkey (sort keys %ENV) {  
  if (not ($i % $interval))  
          {  
      $r->print('</table>') unless $i eq 0;  
      $r->print('<table border="0">')  
          }  
  my $sec = section($envkey);  
   
  if ($prevSection ne $sec) # new section, print header  
  {  
      $r->print('<tr><td colspan="2">');  
      $r->print("<br><br><h2 style='color: #008800'><u>$sec</u></h2>");  
      $r->print('</td></tr>');  
      $prevSection = $sec;  
  }  
   
  my $envVal = $ENV{$envkey};  
  $envVal =~ s/(.{50})/\1\<wbr\>/g;  
  $envkey =~ s/(.{30})/\1\<wbr\>/g;  
     
  $r->print("<tr><td valign='top'><b>$envkey</b></td>");  
          $r->print("<td valign='top'>$envVal</td></tr>\n");  
  $i++;  
      }  
   
      $r->print('</table></font><h1>Total Number of Elements: '.$i.'</h1>');  
   
 # ------------------------------------------------ If in a course, print hashes  1;
    if ($ENV{'request.course.id'}) {  __END__
   
      my %parmhash;  =pod
      my %hash;  
   
      my $fn=$ENV{'request.course.fn'};  =head1 NAME
   
      if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&  Apache::lontest;
  (tie(%parmhash,'GDBM_File',  
      $ENV{'request.course.fn'}.'_parms.db',  
      &GDBM_READER(),0640))) {  
      $r->print('<h2>Big Hash</h2>');  
          foreach (sort keys %hash) {  
      $r->print("\n<br>".$_.': '.$hash{$_});  
          }  
      $r->print('<h2>Parm Hash</h2>');  
          foreach (sort keys %parmhash) {  
      $r->print("\n<br>".$_.': '.$parmhash{$_});  
          }  
          untie %hash;  
          untie %parmhash;  
      }  
   
   =head1 SYNOPSIS
   
  }  Used for debugging and testing the LONCAPA
    system.
 # ------------------------------------------------------------------- End Debug  
      $r->print('</body></html>');          
  }  
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
 1;  =head1 HANDLER SUBROUTINE
 __END__  
   handler()
   
   =head1 OTHER SUBROUTINES
   
   =over
   
   =item  section() : 
   
   section takes one env var name as input, and returns
   what section the given env var is in, which is the part
   of the env var before the first period.
   Returns the section, or blank string for 'no section',
   which is normal for the standard env vars like REQUEST_URI.
   
   =item  print_hash()
   
   =back
   
   =cut
   
   
   
Removed from v.1.6  
changed lines
  Added in v.1.22

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