mail/adcomplain/files/patch-aa


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

--- adcomplain.pl.orig  Wed Nov  3 00:53:10 1999
+++ adcomplain.pl   Wed Nov  3 00:54:21 1999
@@ -1,3 +1,4 @@
+#!%PERL5%
 #! /bin/sh -- # -*- perl -*-
 # first line invokes sh.  Some systems may need to refer to perl directly, i.e.:
 
@@ -7,8 +8,8 @@
 # allows perl to be _anywhere_ in the user's path.  The intent is to reduce
 # the need to edit this file.
 
-eval 'exec perl $0 ${1+"$@"}'
-if 0;  # tee hee! This is on a separate line, so /bin/sh never sees it.
+#eval 'exec perl $0 ${1+"$@"}'
+#if 0;  # tee hee! This is on a separate line, so /bin/sh never sees it.
 
 # use strict;
 
@@ -2520,7 +2521,7 @@
   ($site2 = $host) =~ s/.*\.(.*\..*)/$1/;
   ($site3 = $host) =~ s/.*\.(.*\..*\..*)/$1/;
   ($junk = $host) =~ s/.*\.(.*)/$1/;
-  if (length($junk) >= 3) {
+  if (length($junk) >= 3 || $junk eq "ru") {
     ($junk = $site3) =~ s/(\W)/\\$1/g; # remove special characters
 
     if (grep(/^$junk$/, @site_exceptions) != 0) {