cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Context.pm

[spadkins]

cvsuser     02/08/30 10:49:11

  Modified:    P5EEx/Blue/P5EEx/Blue Context.pm
  Log:
  modified some debug statements
  
  Revision  Changes    Path
  1.37      +18 -3     p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm
  
  Index: Context.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm,v
  retrieving revision 1.36
  retrieving revision 1.37
  diff -u -w -r1.36 -r1.37
  --- Context.pm        16 Aug 2002 16:06:10 -0000      1.36
  +++ Context.pm        30 Aug 2002 17:49:11 -0000      1.37
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Context.pm,v 1.36 2002/08/16 16:06:10 spadkins Exp $
  +## $Id: Context.pm,v 1.37 2002/08/30 17:49:11 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Context;
  @@ -205,6 +205,15 @@
       $session_class   = $args{sessionClass};
       $session_class   = "P5EEx::Blue::Session::HTMLHidden" if (! $session_class);
   
  +    if ($P5EEx::Blue::DEBUG >= 2) {
  +        my (@str, $key);
  +        push(@str,"Context->new(): config=$config_class session=$session_class\n");
  +        foreach $key (sort keys %args) {
  +            push(@str, "   $key => $args{$key}\n");
  +        }
  +        $self->dbgprint(join("",@str));
  +    }
  +
       eval {
           $self->{config} = P5EEx::Blue::P5EE->new($config_class, "new", \%args);
       };
  @@ -232,9 +241,15 @@
           }
       }
   
  +    if ($P5EEx::Blue::DEBUG && $self->dbg(2)) {
  +        my $file = $self->{initconfig}->{configFile};
  +        $self->dbgprint("Config [$file]: ");
  +    }
  +    if ($P5EEx::Blue::DEBUG && $self->dbg(4)) {
  +        $self->dbgprint(join("\n",%{$self->{initconfig}}));
  +    }
       if ($P5EEx::Blue::DEBUG && $self->dbg(8)) {
  -        my $file = $self->{config}->{configFile};
  -        $self->dbgprint("Config [$file]: " . $self->{config}->dump());
  +        $self->dbgprint($self->{config}->dump());
       }
   
       $self->init(\%args);