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

Diff for /loncom/interface/lontest.pm between versions 1.15 and 1.23

version 1.15, 2005/04/05 20:43:27 version 1.23, 2014/12/15 00:59:40
Line 27 Line 27
 #  #
 #  #
   
   
 package Apache::lontest;  package Apache::lontest;
   
 use strict;  use strict;
Line 35  use GDBM_File; Line 36  use GDBM_File;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  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 84  sub handler { Line 80  sub handler {
     $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();      $r->print(&Apache::loncommon::start_page("List Environment",undef,
     my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");       {'function' => 'admin'}));
     $r->print($html.'<head></head>'.$bodytag);  
    
     $r->print("<hr /><h1>Debugging</h1><hr />\n");      $r->print("<hr /><h1>Debugging</h1><hr />\n");
     $r->print("<font face='Courier'>");      $r->print("<font face='Courier'>");
            $r->print("<hr /><h2>ENV</h2><hr />\n");
     my %differences=%ENV;  
     foreach my $key (sort(keys(%env))) {  
  if ($env{$key} eq $differences{$key}) {  
     delete($differences{$key});  
  }  
     }  
     &print_hash($r,\%differences);  
     &print_hash($r,\%env);  
     &print_hash($r,\%ENV);      &print_hash($r,\%ENV);
       $r->print("<hr /><h2>env</h2><hr />\n");
       &print_hash($r,\%env);
 # ------------------------------------------------ If in a course, print hashes  # ------------------------------------------------ If in a course, print hashes
     if ($ENV{'request.course.id'}) {      if ($env{'request.course.id'}) {
   
  my %parmhash;   my %parmhash;
  my %symbhash;   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)) {
     $r->print('<h2>Big Hash</h2>');      $r->print('<h2>Big Hash</h2>');
     foreach (sort keys %hash) {      foreach my $key (sort(keys(%hash))) {
  $r->print("\n<br />".$_.': '.$hash{$_});   $r->print("\n<br />".$key.': '.$hash{$key});
     }      }
     untie %hash;      untie %hash;
  } else {   } else {
     $r->print('<h2>Count not tie big hash</h2>');      $r->print('<h2>Count not tie big hash</h2>');
  }   }
  if (tie(%parmhash,'GDBM_File',   if (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>Parm Hash</h2>');      $r->print('<h2>Parm Hash</h2>');
     foreach (sort keys %parmhash) {      foreach my $param (sort(keys(%parmhash))) {
         $r->print("\n<br />".$_.': '.$parmhash{$_});          $r->print("\n<br />".$param.': '.$parmhash{$param});
     }      }
     untie %parmhash;      untie %parmhash;
  } else {   } else {
Line 131  sub handler { Line 120  sub handler {
  }   }
  if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {   if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {
             $r->print('<h2>Symb Hash</h2>');              $r->print('<h2>Symb Hash</h2>');
             foreach (sort keys %symbhash) {              foreach my $symb (sort(keys(%symbhash))) {
  $r->print("\n<br />".$_.': '.$symbhash{$_});   $r->print("\n<br />".$symb.': '.$symbhash{$symb});
             }              }
             untie %symbhash;              untie %symbhash;
  } else {   } else {
Line 145  sub handler { Line 134  sub handler {
  my $fh=Apache::File->new($fn.'.state');   my $fh=Apache::File->new($fn.'.state');
  @conditions=<$fh>;   @conditions=<$fh>;
     }      }
     foreach (@conditions) {      foreach my $cond (@conditions) {
  $r->print('<tt>'.$_.'</tt><br />');   $r->print('<tt>'.$cond.'</tt><br />');
     }      }
  }   }
     }      }
     
 # ------------------------------------------------------------------- End Debug  # ------------------------------------------------------------------- End Debug
      $r->print('</body></html>');           $r->print(&Apache::loncommon::end_page());    
      return OK;       return OK;
  }   }
   
Line 160  sub handler { Line 149  sub handler {
 1;  1;
 __END__  __END__
   
   =pod
   
   =head1 NAME
   
   Apache::lontest;
   
   =head1 SYNOPSIS
   
   Used for debugging and testing the LONCAPA
   system.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 HANDLER SUBROUTINE
   
   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.15  
changed lines
  Added in v.1.23

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