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 log.pl
Date Thu, 23 Jul 1998 13:16:28 GMT
dougm       98/07/23 06:16:27

  Modified:    .        Changes ToDo
               Log      Log.pm
               Util     Util.pm
               t/net/perl log.pl
  Log:
  alias Apache::Util unescape_uri -> Apache::unescape_url
  
  alias Apache::Log emerg -> emergency, crit -> critical
  
  Revision  Changes    Path
  1.89      +4 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.88
  retrieving revision 1.89
  diff -u -r1.88 -r1.89
  --- Changes	1998/07/23 02:59:33	1.88
  +++ Changes	1998/07/23 13:16:22	1.89
  @@ -8,6 +8,10 @@
   
   =item 1.14_01-dev
   
  +alias Apache::Util unescape_uri -> Apache::unescape_url
  +
  +alias Apache::Log emerg -> emergency, crit -> critical
  +
   deal with PL_ renaming in 5.004_76+
   
   fixes to support to apache_1.3.0+ssl_1.19 [Salvador Ortiz]
  
  
  
  1.51      +0 -4      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.50
  retrieving revision 1.51
  diff -u -r1.50 -r1.51
  --- ToDo	1998/07/23 02:59:34	1.50
  +++ ToDo	1998/07/23 13:16:24	1.51
  @@ -18,10 +18,6 @@
   
   - move /tmp/mod_perl_* to t/logs
   
  -- move unescape_url and unescape_url_info to Apache::Util
  -
  -- add crit/emerg aliases to Apache::Log
  -
   - add $r->get_server_port method
   
   - /perl/perl-status?sig dumps core under hpux 10.20
  
  
  
  1.2       +4 -2      modperl/Log/Log.pm
  
  Index: Log.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/Log/Log.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- Log.pm	1998/07/12 21:21:37	1.1
  +++ Log.pm	1998/07/23 13:16:26	1.2
  @@ -10,6 +10,8 @@
   $VERSION = '1.00';
   
   *Apache::log = *Apache::Server::log = \&log;
  +*emerg = \&emergency;
  +*crit  = \&critical;
   
   sub log { 
       my $self = shift;
  @@ -55,11 +57,11 @@
   
   =over 4
   
  -=item emergency
  +=item emerg
   
   =item alert
   
  -=item critical
  +=item crit
   
   =item error
   
  
  
  
  1.3       +5 -1      modperl/Util/Util.pm
  
  Index: Util.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/Util/Util.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- Util.pm	1998/07/18 17:00:50	1.2
  +++ Util.pm	1998/07/23 13:16:26	1.3
  @@ -6,8 +6,12 @@
   use Exporter ();
   use DynaLoader ();
   
  +*unescape_uri = \&Apache::unescape_url;
  +*unescape_uri_info = \&Apache::unescape_url_info;
  +
   @ISA = qw(Exporter DynaLoader);
  -@EXPORT_OK = qw(escape_html escape_uri parsedate ht_time);
  +@EXPORT_OK = qw(escape_html escape_uri unescape_uri unescape_uri_info 
  +		parsedate ht_time);
   %EXPORT_TAGS = (all => \@EXPORT_OK);
   $VERSION = '0.01';
   
  
  
  
  1.3       +2 -2      modperl/t/net/perl/log.pl
  
  Index: log.pl
  ===================================================================
  RCS file: /export/home/cvs/modperl/t/net/perl/log.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- log.pl	1998/07/18 18:59:37	1.2
  +++ log.pl	1998/07/23 13:16:27	1.3
  @@ -16,9 +16,9 @@
   my $rlog = $r->log;
   my $slog = $r->server->log;
   my @methods = qw{
  -emergency
  +emerg
   alert
  -critical
  +crit
   error
   warn
   notice
  
  
  

Mime
View raw message