perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/user/config custom.pod
Date Mon, 13 Sep 2004 22:36:44 GMT
gozer       2004/09/13 15:36:44

  Modified:    src/docs/2.0/api/Apache Module.pod
               src/docs/2.0/user/config custom.pod
  Log:
  Apache::Module top_module() and get_config() changed from class
  methods to regular subroutines
  
  Revision  Changes    Path
  1.19      +6 -6      modperl-docs/src/docs/2.0/api/Apache/Module.pod
  
  Index: Module.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/Apache/Module.pod,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -r1.18 -r1.19
  --- Module.pod	13 Sep 2004 22:13:05 -0000	1.18
  +++ Module.pod	13 Sep 2004 22:36:44 -0000	1.19
  @@ -10,7 +10,7 @@
     use Apache::Module ();
     
     # iterate over the whole module list
  -  for (my $modp = Apache::Module->top_module; $modp; $modp = $modp->next) {
  +  for (my $modp = Apache::Module::top_module(); $modp; $modp = $modp->next) {
         my $name          = $modp->name;
         my $index         = $modp->module_index;
         my $version       = $modp->version;
  @@ -27,7 +27,7 @@
     # access module configuration from a directive
     sub MyDirective {
         my ($self, $parms, $args) = @_;
  -      my  $srv_cfg = Apache::Module->get_config($self, $parms->server);
  +      my  $srv_cfg = Apache::Module::get_config($self, $parms->server);
         [...]
     }
     
  @@ -97,8 +97,8 @@
   
   Retrieve a module's configuration. Used by configuration directives.
   
  -  $cfg = Apache::Module->get_config($class, $server, $dir_config);
  -  $cfg = Apache::Module->get_config($class, $server);
  +  $cfg = Apache::Module::get_config($class, $server, $dir_config);
  +  $cfg = Apache::Module::get_config($class, $server);
     $cfg =          $self->get_config($server, $dir_config);
     $cfg =          $self->get_config($server);
   
  @@ -351,13 +351,13 @@
   Returns the first module in the module list. Usefull to start a
   module iteration.
   
  -  $ret = Apache::Module->top_module();
  +  $module = Apache::Module::top_module();
   
   =over 4
   
   =item obj: C<Apache::Module> ( class name )
   
  -=item ret: C<$ret>
  +=item ret: C<$module>
   ( C<L<Apache::Module object|docs::2.0::api::Apache::Module>> )
   
   =item since: 1.99_12
  
  
  
  1.11      +6 -6      modperl-docs/src/docs/2.0/user/config/custom.pod
  
  Index: custom.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/config/custom.pod,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- custom.pod	12 Jul 2004 23:13:22 -0000	1.10
  +++ custom.pod	13 Sep 2004 22:36:44 -0000	1.11
  @@ -743,7 +743,7 @@
   
     use Apache::Module ();
     ...
  -  my $srv_cfg = Apache::Module->get_config('MyApache::MyParameters', $s);
  +  my $srv_cfg = Apache::Module::get_config('MyApache::MyParameters', $s);
     print $srv_cfg->{name};
   
   If a request is made to a resource inside a virtual host, C<$srv_cfg>
  @@ -755,7 +755,7 @@
     use Apache::ServerUtil ();
     ...
     if ($s->is_virtual) {
  -      my $base_srv_cfg = Apache::Module->get_config('MyApache::MyParameters',
  +      my $base_srv_cfg = Apache::Module::get_config('MyApache::MyParameters',
                                                       Apache->server);
         print $base_srv_cfg->{name};
     }
  @@ -823,7 +823,7 @@
   
     use Apache::Module ();
     ...
  -  my $dir_cfg = Apache::Module->get_config('MyApache::MyParameters',
  +  my $dir_cfg = Apache::Module::get_config('MyApache::MyParameters',
                                              $s, $r->per_dir_config);
     print $dir_cfg->{foo};
   
  @@ -890,7 +890,7 @@
         my($key, $self, $parms, $arg) = @_;
         $self->{$key} = $arg;
         unless ($parms->path) {
  -          my $srv_cfg = Apache::Module->get_config($self,
  +          my $srv_cfg = Apache::Module::get_config($self,
                                                      $parms->server);
             $srv_cfg->{$key} = $arg;
         }
  @@ -900,7 +900,7 @@
         my($key, $self, $parms, $arg) = @_;
         push @{ $self->{$key} }, $arg;
         unless ($parms->path) {
  -          my $srv_cfg = Apache::Module->get_config($self,
  +          my $srv_cfg = Apache::Module::get_config($self,
                                                      $parms->server);
             push @{ $srv_cfg->{$key} }, $arg;
         }
  @@ -1064,7 +1064,7 @@
     use Apache::Const -compile => qw(OK);
     
     sub get_config {
  -      Apache::Module->get_config('MyApache::CustomDirectives', @_);
  +      Apache::Module::get_config('MyApache::CustomDirectives', @_);
     }
     
     sub handler {
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message