cvs commit: qpsmtpd Changes

cvsuser     03/09/15 03:50:27

  Modified:    plugins  http_config
               lib/Qpsmtpd SMTP.pm
               lib      Qpsmtpd.pm
               .        Changes
  Log:
  don't use Data::Dumper
  
  Revision  Changes    Path
  1.3       +1 -1      qpsmtpd/plugins/http_config
  
  Index: http_config
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/plugins/http_config,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- http_config	9 Dec 2002 08:47:36 -0000	1.2
  +++ http_config	15 Sep 2003 10:50:27 -0000	1.3
  @@ -43,7 +43,7 @@
       chomp @config;
       @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/ } @config;
       close CF;
  -    $self->log(0, "returning http_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
  +    # $self->log(0, "returning http_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
       return (OK, @config) if @config;
     }
     return DECLINED;
  
  
  
  1.17      +1 -1      qpsmtpd/lib/Qpsmtpd/SMTP.pm
  
  Index: SMTP.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd/SMTP.pm,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -w -r1.16 -r1.17
  --- SMTP.pm	5 Sep 2003 05:10:40 -0000	1.16
  +++ SMTP.pm	15 Sep 2003 10:50:27 -0000	1.17
  @@ -14,7 +14,7 @@
   use Mail::Address ();
   use Mail::Header ();
   use IPC::Open2;
  -use Data::Dumper;
  +#use Data::Dumper;
   use POSIX qw(strftime);
   use Net::DNS;
   
  
  
  
  1.27      +1 -1      qpsmtpd/lib/Qpsmtpd.pm
  
  Index: Qpsmtpd.pm
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/lib/Qpsmtpd.pm,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -w -r1.26 -r1.27
  --- Qpsmtpd.pm	30 Aug 2003 15:14:56 -0000	1.26
  +++ Qpsmtpd.pm	15 Sep 2003 10:50:27 -0000	1.27
  @@ -82,7 +82,7 @@
     chomp @config;
     @config = grep { $_ and $_ !~ m/^\s*#/ and $_ =~ m/\S/} @config;
     close CF;
  -  $self->log(10, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
  +  #$self->log(10, "returning get_config for $config ",Data::Dumper->Dump([\@config], [qw(config)]));
     $self->{_config_cache}->{$config} = \@config;
     return wantarray ? @config : $config[0];
   }
  
  
  
  1.50      +2 -0      qpsmtpd/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/Changes,v
  retrieving revision 1.49
  retrieving revision 1.50
  diff -u -w -r1.49 -r1.50
  --- Changes	5 Sep 2003 05:10:40 -0000	1.49
  +++ Changes	15 Sep 2003 10:50:27 -0000	1.50
  @@ -1,5 +1,7 @@
   0.27 
   
  +  Take out Data::Dumper to save a few bytes of memory
  +
     Say Received: ... via ESMTP instead of via SMTP when the client
     speaks ESMTP.  (Hoping this can be a useful SpamAssassin rule).