X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-accept;h=0213a486beab89b2d27d953840baae1b0ec3e8e1;hp=ae9da06e2c76550b621adc8dbb3036dc46946f63;hb=0ed964cc851735c16ddf50743087e3f401afb07d;hpb=cf13558ac1b01fd521a7bb727cd8ab3acecb1211 diff --git a/perlmail-accept b/perlmail-accept index ae9da06..0213a48 100755 --- a/perlmail-accept +++ b/perlmail-accept @@ -1,6 +1,22 @@ #! /usr/bin/perl -# -# $Id$ +# +# $Id$ +# Copyright (C) 2002-2003 Jan Kratochvil +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + use vars qw($VERSION); $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; @@ -662,7 +678,6 @@ die "GetOptions error" if !Getopt::Long::GetOptions( # "Excessive arguments" checked in &inetd die "Missing mode" if !$opt_mode; -PerlMail::Config::audit_init(); %alternates_host=map((lc($_)=>1),@alternates_host); %dnsbl_whitelist=map(( $_ =>1),@dnsbl_whitelist);