cvs commit: xml-axkit/lib/Apache/AxKit PipeCtrl.pm

[mach]

mach        2003/10/27 15:07:51

  Modified:    lib/Apache/AxKit Tag: axkit-pipeline-2 PipeCtrl.pm
  Log:
  A few debug messages.
  
  Revision  Changes    Path
  No                   revision
  No                   revision
  1.1.2.3   +12 -2     xml-axkit/lib/Apache/AxKit/Attic/PipeCtrl.pm
  
  Index: PipeCtrl.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/Apache/AxKit/Attic/PipeCtrl.pm,v
  retrieving revision 1.1.2.2
  retrieving revision 1.1.2.3
  diff -u -r1.1.2.2 -r1.1.2.3
  --- PipeCtrl.pm       27 Oct 2003 22:42:16 -0000      1.1.2.2
  +++ PipeCtrl.pm       27 Oct 2003 23:07:51 -0000      1.1.2.3
  @@ -57,6 +57,8 @@
                
        # Add any pre/post defined styles into main styles list.
   
  +     AxKit::Debug(3, "PipeCtrl: create_pipeline()");
  +
        my @styles;
   
        push(@styles, @{$self->{'pre_styles'}} );
  @@ -118,6 +120,7 @@
        # or the cache is disabled.
        
        if($pipeline->cache_required() && !$AxKit::Cfg->NoCache()) {
  +              AxKit::Debug(4, "PipeCtrl: adding final cache");
                $pipeline = 
Apache::AxKit::Pipeline::Cache->new()->upstream($pipeline);
        }
   
  @@ -127,6 +130,7 @@
                        my ($transformer, $doit) = 
AxKit::get_output_transformer();
                
                        if( $doit ) {
  +                             AxKit::Debug(4, "PipeCtrl: adding Output 
Transformer");
                                $pipeline = 
Apache::AxKit::Pipeline::Transformer->new()->upstream($pipeline);
                        }
                }
  @@ -135,6 +139,8 @@
        # initialise the pipeline. (very important).
   
        $pipeline->set_stage();
  +     
  +     AxKit::Debug(4, "PipeCtrl: Running Initialisation phase");
        $pipeline->init($r);
                
        return $pipeline;
  @@ -151,6 +157,8 @@
   sub create_pre_pipeline{
        my ($self, $r, $provider) = @_;
   
  +     AxKit::Debug(3, "PipeCtrl: Creating pre-styles pipeline");
  +
        my @styles = @{$self->{'pre_styles'}};
        $self->{'pre_styles'}   = [];
   
  @@ -170,6 +178,7 @@
        }
        
        $pipeline->set_stage();
  +     AxKit::Debug(4, "PipeCtrl: Running Initialisation phase");      
        $pipeline->init($r);
        
        return $pipeline;
  @@ -177,7 +186,8 @@
   
   sub create_post_pipeline{
        my ($self, $r, $provider) = @_;
  -             
  +
  +     AxKit::Debug(3, "PipeCtrl: Creating post-styles pipeline");             
        my @styles = @{$self->{'post_styles'}};
        $self->{'post_styles'}  = [];
   
  @@ -203,6 +213,7 @@
        }
   
        $pipeline->set_stage();
  +     AxKit::Debug(4, "PipeCtrl: Running Initialisation phase");      
        $pipeline->init($r);
        
        return $pipeline;
  @@ -216,7 +227,6 @@
        no strict 'refs';
        my $processor = $style->{module} || 
$AxKit::Cfg->StyleMap->{$style->{type}};
   
  -    AxKit::Debug(3, "Pipeline: about to create $processor");
       AxKit::load_module($processor);
        
        return UNIVERSAL::isa( $processor, 'Apache::AxKit::Language') ?