1999-11-02 22:05:15 +00:00
|
|
|
--- 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) {
|
