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

Diff for /loncom/LondConnection.pm between versions 1.11 and 1.12

version 1.11, 2003/09/30 10:46:57 version 1.12, 2003/10/07 11:23:26
Line 38  use Crypt::IDEA; Line 38  use Crypt::IDEA;
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
 use LONCAPA::HashIterator;  use LONCAPA::HashIterator;
   
   
   
   
 my $DebugLevel=0;  my $DebugLevel=0;
   my %hostshash;
   my %perlvar;
   
 #   Read the configuration file for apache to get the perl  #   Read the configuration file for apache to get the perl
 #   variable set.  #   variable set.
   
 my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');  sub ReadConfig {
 my %perlvar    = %{$perlvarref};      my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');
 my $hoststab   =       %perlvar    = %{$perlvarref};
     LONCAPA::Configuration::read_hosts(      my $hoststab   = 
             "$perlvar{'lonTabDir'}/hosts.tab") ||    LONCAPA::Configuration::read_hosts(
     die "Can't read host table!!";     "$perlvar{'lonTabDir'}/hosts.tab") || 
 my %hostshash  = %{$hoststab};     die "Can't read host table!!";
       %hostshash  = %{$hoststab};
       
       close(CONFIG);
   }
   
   
 close(CONFIG);  ReadConfig; # Make sure it gets read on init.
   
 sub Debug {  sub Debug {
     my $level   = shift;      my $level   = shift;
Line 65  sub Debug { Line 75  sub Debug {
   
 =head2 Dump  =head2 Dump
   
 Dump the internal state of the object: For debugging purposes.  Dump the internal state of the object: For debugging purposes, to stderr.
   
 =cut  =cut
   
Line 75  sub Dump { Line 85  sub Dump {
     my $value;      my $value;
     print "Dumping LondConnectionObject:\n";      print "Dumping LondConnectionObject:\n";
     while(($key, $value) = each %$self) {      while(($key, $value) = each %$self) {
  print "$key -> $value\n";   print STDERR "$key -> $value\n";
     }      }
     print "-------------------------------\n";      print "-------------------------------\n";
 }  }
Removed from v.1.11  
changed lines
  Added in v.1.12

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