perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/t/net/perl file.pl
Date Tue, 06 Apr 1999 23:56:36 GMT
dougm       99/04/06 16:56:36

  Modified:    .        Changes ToDo apache-modlist.html
               src/modules/perl File.xs
               t/net/perl file.pl
  Log:
  added $r->mtime method
  
  Revision  Changes    Path
  1.274     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.273
  retrieving revision 1.274
  diff -u -r1.273 -r1.274
  --- Changes	1999/03/26 22:20:33	1.273
  +++ Changes	1999/04/06 23:56:32	1.274
  @@ -8,6 +8,8 @@
   
   =item 1.18_01-dev
   
  +added $r->mtime method [Andreas J. Koenig <andreas.koenig@anima.de>]
  +
   fix so version info is not inserted too early (i.e. before Apache/x.x.x)
   
   new Apache::PerlRun::namespace_from() method, returns
  
  
  
  1.171     +2 -0      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /home/cvs/modperl/ToDo,v
  retrieving revision 1.170
  retrieving revision 1.171
  diff -u -r1.170 -r1.171
  --- ToDo	1999/03/26 20:41:56	1.170
  +++ ToDo	1999/04/06 23:56:32	1.171
  @@ -3,6 +3,8 @@
                    (well, close to it anyhow)
   ---------------------------------------------------------------------------
   
  +- Leak.xs under win32
  +
   - $r->set_handlers(PerlAuthenHandler => undef) stomps other config!?
   
   - how to manipulate order of handlers (not just Perl*Handlers)
  
  
  
  1.54      +2 -1      modperl/apache-modlist.html
  
  Index: apache-modlist.html
  ===================================================================
  RCS file: /home/cvs/modperl/apache-modlist.html,v
  retrieving revision 1.53
  retrieving revision 1.54
  diff -u -r1.53 -r1.54
  --- apache-modlist.html	1999/01/25 22:39:48	1.53
  +++ apache-modlist.html	1999/04/06 23:56:33	1.54
  @@ -8,7 +8,7 @@
   <h1>The Apache/Perl Module List</h1>
   
   Maintained by <a href="mailto:dougm@pobox.com">Doug MacEachern</a>,
  -<br><i> $Revision: 1.53 $ $Date: 1999/01/25 22:39:48 $</i>
  +<br><i> $Revision: 1.54 $ $Date: 1999/04/06 23:56:33 $</i>
   
   <h3>Contents</h3>
   <a href="#intro">Introduction</a><br>
  @@ -225,6 +225,7 @@
   Roaming		bdpO	PUT/GET/MOVE/DELETE (Netscape Roaming)	JWEID
   
   * Development and Debug tools
  +DB		amcO	Hook Perl interactive DB into mod_perl	DOUGM
   Debug		Rmpf	mod_perl debugging utilities		APML
   DProf		bmcf	Hook Devel::DProf into mod_perl		DOUGM
   FakeRequest	ampO	Implement Apache methods off-line	APML
  
  
  
  1.7       +6 -0      modperl/src/modules/perl/File.xs
  
  Index: File.xs
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/File.xs,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- File.xs	1998/12/28 18:16:34	1.6
  +++ File.xs	1999/04/06 23:56:35	1.7
  @@ -6,6 +6,8 @@
   #define ap_fclose(r, fd) \
           ap_pfclose(r->pool, fd)
   
  +#define ap_mtime(r) r->mtime
  +
   #ifndef SvCLASS
   #define SvCLASS(o) HvNAME(SvSTASH(SvRV(o)))
   #endif
  @@ -199,6 +201,10 @@
   ap_update_mtime(r, dependency_mtime=r->finfo.st_mtime)
       Apache r
       time_t dependency_mtime
  +
  +time_t
  +ap_mtime(r)
  +    Apache r
   
   int
   ap_discard_request_body(r)
  
  
  
  1.4       +8 -4      modperl/t/net/perl/file.pl
  
  Index: file.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/file.pl,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- file.pl	1998/11/13 21:39:02	1.3
  +++ file.pl	1999/04/06 23:56:35	1.4
  @@ -14,13 +14,17 @@
   my $fh = Apache::File->new;
   my $i = 0;
   test ++$i, $fh;
  -test ++$i, $fh->open($0);
  -test ++$i, !$fh->open("$0.nochance");
  -test ++$i, !Apache::File->new("$0.yeahright");
  +test ++$i, $fh->open($r->filename);
  +test ++$i, !$fh->open($r->filename.".nochance");
  +test ++$i, !Apache::File->new($r->filename.".yeahright");
   #my $tmp = Apache::File->tmp;
   #test ++$i, $tmp;
   #++$i;
   #print $tmp "ok $i\n";
   #seek $tmp, 0, 0;
   #print scalar(<$tmp>);
  -test ++$i, Apache::File->tmpfile;
  +#test ++$i, Apache::File->tmpfile;
  +
  +$r->update_mtime;
  +test ++$i, $r->mtime;
  +print scalar localtime $r->mtime;
  
  
  

Mime
View raw message