perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From cho...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl Server.xs
Date Fri, 20 Aug 1999 08:34:44 GMT
cholet      99/08/20 01:34:43

  Modified:    .        Changes
               Apache   typemap
               src/modules/perl Server.xs
  Log:
  add $r->server->uid and $r->server->gid
  
  Revision  Changes    Path
  1.339     +3 -1      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.338
  retrieving revision 1.339
  diff -u -r1.338 -r1.339
  --- Changes	1999/08/17 02:53:07	1.338
  +++ Changes	1999/08/20 08:34:41	1.339
  @@ -10,6 +10,8 @@
   
   =item 1.21_01-dev
   
  +add $r->server->uid and $r->server->gid [Eric Cholet <cholet@logilune.com>]
  +
   add per-server configuration merge [Eric Cholet <cholet@logilune.com>]
   
   `_' is no longer escaped in Apache::Registry package names
  @@ -39,7 +41,7 @@
   Meier for the spot
   
   Tweak Apache::content to comply with media-types embedded in content-types
  -(RFC 2616 section 3.7) <cholet@logilune.com>
  +(RFC 2616 section 3.7) [Eric Cholet <cholet@logilune.com>]
   
   Removed and added a few modules from the Bundle file. <ask@netcetera.dk>
   
  
  
  
  1.10      +2 -0      modperl/Apache/typemap
  
  Index: typemap
  ===================================================================
  RCS file: /export/home/cvs/modperl/Apache/typemap,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- typemap	1998/10/29 20:53:27	1.9
  +++ typemap	1999/08/20 08:34:42	1.10
  @@ -11,6 +11,8 @@
   Apache::Table		T_TABLEOBJ
   Apache::table		T_PTROBJ
   pid_t			T_IV
  +uid_t			T_IV
  +gid_t			T_IV
   Apache::Scoreboard      O_HvRV
   Apache::URI		T_PTROBJ    
   
  
  
  
  1.6       +21 -0     modperl/src/modules/perl/Server.xs
  
  Index: Server.xs
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/Server.xs,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- Server.xs	1999/01/19 22:36:12	1.5
  +++ Server.xs	1999/08/20 08:34:43	1.6
  @@ -150,6 +150,26 @@
       OUTPUT:
       RETVAL
   
  +uid_t
  +uid(server)
  +    Apache::Server	server
  +
  +    CODE:
  +    RETVAL = server->server_uid;
  +
  +    OUTPUT:
  +    RETVAL
  +
  +gid_t
  +gid(server)
  +    Apache::Server	server
  +
  +    CODE:
  +    RETVAL = server->server_gid;
  +
  +    OUTPUT:
  +    RETVAL
  +
   int
   is_virtual(server)
       Apache::Server	server
  @@ -170,3 +190,4 @@
   #else
       ST(0) = array_header2avrv(server->names);
   #endif
  +
  
  
  

Mime
View raw message