cvs commit: qpsmtpd/plugins require_resolvable_fromhost

[email protected] (Ask "Bj?rn" Hansen) 3 Mar 2005 17:28:43 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
cvsuser     05/03/03 09:28:43

  Modified:    plugins  require_resolvable_fromhost
  Log:
  fix thinko from the log cleanup
  
  Revision  Changes    Path
  1.6       +2 -2      qpsmtpd/plugins/require_resolvable_fromhost
  
  Index: require_resolvable_fromhost
  ===================================================================
  RCS file: /cvs/public/qpsmtpd/plugins/require_resolvable_fromhost,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- require_resolvable_fromhost	3 Mar 2005 02:37:04 -0000	1.5
  +++ require_resolvable_fromhost	3 Mar 2005 17:28:43 -0000	1.6
  @@ -13,7 +13,7 @@
   
     $sender->format ne "<>"
       and $self->qp->config("require_resolvable_fromhost")
  -    and !check_dns($sender->host)
  +    and !$self->check_dns($sender->host)
       and return (DENYSOFT, 
                   ($sender->host
                      ? "Could not resolve ". $sender->host
  @@ -25,7 +25,7 @@
   
   
   sub check_dns {
  -  my $host = shift;
  +  my ($self, $host) = @_;
   
     # for stuff where we can't even parse a hostname out of the address
     return 0 unless $host;