aboutsummaryrefslogtreecommitdiff
path: root/mail/adcomplain
diff options
context:
space:
mode:
authorAndrey A. Chernov <ache@FreeBSD.org>1999-11-04 00:39:52 +0000
committerAndrey A. Chernov <ache@FreeBSD.org>1999-11-04 00:39:52 +0000
commite1ef1b0b0b9d1dc78c76a877b3b171280deb3218 (patch)
treea24ea14b2199e2d4b48e9eeabbdd257ac1511320 /mail/adcomplain
parentf7e02e44338cb873b439788ff82df87b210ee1b0 (diff)
downloadports-e1ef1b0b0b9d1dc78c76a877b3b171280deb3218.tar.gz
ports-e1ef1b0b0b9d1dc78c76a877b3b171280deb3218.zip
Notes
Diffstat (limited to 'mail/adcomplain')
-rw-r--r--mail/adcomplain/files/patch-aa275
1 files changed, 271 insertions, 4 deletions
diff --git a/mail/adcomplain/files/patch-aa b/mail/adcomplain/files/patch-aa
index e08ba2095bfe..8da9418b7a58 100644
--- a/mail/adcomplain/files/patch-aa
+++ b/mail/adcomplain/files/patch-aa
@@ -1,5 +1,5 @@
---- adcomplain.pl.orig Wed Nov 3 00:53:10 1999
-+++ adcomplain.pl Wed Nov 3 00:54:21 1999
+--- adcomplain.pl.orig Thu Nov 4 03:06:09 1999
++++ adcomplain.pl Thu Nov 4 03:24:22 1999
@@ -1,3 +1,4 @@
+#!%PERL5%
#! /bin/sh -- # -*- perl -*-
@@ -16,12 +16,279 @@
# use strict;
-@@ -2520,7 +2521,7 @@
+@@ -533,6 +534,7 @@
+ $quiet, # control flag, limits interaction and output
+ %rematch_aliases, # heuristic list, resets priority of another header
+ $response, # text of letter we will send
++ @rusu_3level, # 3rd level .RU/.SU exceptions
+ $site, # site we will send the complaint to
+ @site_exceptions, # sites that have irregular syntactic form
+ $subject, # subject header of the ad
+@@ -2520,7 +2522,17 @@
($site2 = $host) =~ s/.*\.(.*\..*)/$1/;
($site3 = $host) =~ s/.*\.(.*\..*\..*)/$1/;
($junk = $host) =~ s/.*\.(.*)/$1/;
- if (length($junk) >= 3) {
-+ if (length($junk) >= 3 || $junk eq "ru") {
++ if ($junk eq "ru" || $junk eq "su") {
++ ($junk = $site2) =~ s/(\W)/\\$1/g; # remove special characters
++
++ if (grep(/^$junk$/, @rusu_3level) != 0) {
++ $site = $site3;
++ }
++ else {
++ $site = $site2;
++ }
++ }
++ elsif (length($junk) >= 3) {
($junk = $site3) =~ s/(\W)/\\$1/g; # remove special characters
if (grep(/^$junk$/, @site_exceptions) != 0) {
+@@ -3077,6 +3089,248 @@
+ 'xs4all.nl',
+ );
+ @site_exceptions = sort @site_exceptions; # needed for bsearch to work
++
++ @rusu_3level = (
++ 'abkhazia.su',
++ 'adygeya.ru',
++ 'adygeya.su',
++ 'aktyubinsk.su',
++ 'alma-ata.su',
++ 'altai.ru',
++ 'altai.su',
++ 'amur.ru',
++ 'amur.su',
++ 'amursk.ru',
++ 'arkhangelsk.ru',
++ 'arkhangelsk.su',
++ 'armenia.su',
++ 'ashgabad.su',
++ 'astrakhan.ru',
++ 'astrakhan.su',
++ 'azerbaijan.su',
++ 'baikal.ru',
++ 'balashov.su',
++ 'bashkiria.ru',
++ 'bashkiria.su',
++ 'belgorod.ru',
++ 'belgorod.su',
++ 'bir.ru',
++ 'bishkek.su',
++ 'bryansk.ru',
++ 'bryansk.su',
++ 'bukhara.su',
++ 'buriatia.su',
++ 'buryatia.ru',
++ 'cbg.ru',
++ 'chel.ru',
++ 'chel.su',
++ 'chelyabinsk.ru',
++ 'chimkent.su',
++ 'chita.ru',
++ 'chita.su',
++ 'chukotka.ru',
++ 'chuvashia.ru',
++ 'chuvashia.su',
++ 'cmw.ru',
++ 'com.ru',
++ 'dagestan.ru',
++ 'dagestan.su',
++ 'dubna.su',
++ 'dudinka.ru',
++ 'e-burg.ru',
++ 'e-burg.su',
++ 'east-kazakhstan.su',
++ 'engels.su',
++ 'fareast.ru',
++ 'georgia.su',
++ 'grozny.ru',
++ 'grozny.su',
++ 'irkutsk.ru',
++ 'irkutsk.su',
++ 'ivanovo.ru',
++ 'ivanovo.su',
++ 'izhevsk.ru',
++ 'jamal.ru',
++ 'jambyl.su',
++ 'jar.ru',
++ 'joshkar-ola.ru',
++ 'k-uralsk.ru',
++ 'kalmykia.ru',
++ 'kalmykia.su',
++ 'kaluga.ru',
++ 'kaluga.su',
++ 'kamchatka.ru',
++ 'kamchatka.su',
++ 'karacol.su',
++ 'karaganda.su',
++ 'karakol.su',
++ 'karelia.ru',
++ 'karelia.su',
++ 'kazan.ru',
++ 'kazan.su',
++ 'kchr.ru',
++ 'kemerovo.ru',
++ 'kemerovo.su',
++ 'khabarovsk.ru',
++ 'khabarovsk.su',
++ 'khakassia.ru',
++ 'khakassia.su',
++ 'khv.ru',
++ 'kirov.ru',
++ 'kms.ru',
++ 'koenig.ru',
++ 'koenig.su',
++ 'komi.ru',
++ 'komi.su',
++ 'kostroma.ru',
++ 'kostroma.su',
++ 'krasnodar.su',
++ 'krasnoyarsk.ru',
++ 'krasnoyarsk.su',
++ 'kuban.ru',
++ 'kuban.su',
++ 'kurgan.ru',
++ 'kurgan.su',
++ 'kursk.ru',
++ 'kursk.su',
++ 'kustanai.ru',
++ 'kustanai.su',
++ 'kuzbass.ru',
++ 'lipetsk.ru',
++ 'lipetsk.su',
++ 'magadan.ru',
++ 'magadan.su',
++ 'magnitka.ru',
++ 'mangyshlak.su',
++ 'mari-el.ru',
++ 'mari.ru',
++ 'mari.su',
++ 'marine.ru',
++ 'marine.su',
++ 'moldova.su',
++ 'mordovia.ru',
++ 'mordovia.su',
++ 'mosreg.ru',
++ 'msk.ru',
++ 'msk.su',
++ 'murmansk.ru',
++ 'murmansk.su',
++ 'mytis.ru',
++ 'nakhodka.ru',
++ 'nalchik.ru',
++ 'nalchik.su',
++ 'naryn.su',
++ 'navoi.su',
++ 'net.ru',
++ 'nkz.ru',
++ 'nnov.ru',
++ 'nnov.su',
++ 'norilsk.ru',
++ 'north-kazakhstan.su',
++ 'nov.ru',
++ 'nov.su',
++ 'novosibirsk.ru',
++ 'nsk.ru',
++ 'nsk.su',
++ 'obninsk.su',
++ 'omsk.ru',
++ 'omsk.su',
++ 'orenburg.ru',
++ 'orenburg.su',
++ 'org.ru',
++ 'oryol.ru',
++ 'oryol.su',
++ 'osh.su',
++ 'oskol.ru',
++ 'palana.ru',
++ 'pavlodar.su',
++ 'penza.ru',
++ 'penza.su',
++ 'perm.ru',
++ 'perm.su',
++ 'pokrovsk.su',
++ 'pp.ru',
++ 'pskov.ru',
++ 'pskov.su',
++ 'ptz.ru',
++ 'pyatigorsk.ru',
++ 'pyatigorsk.su',
++ 'rnd.ru',
++ 'rostov-na-donu.su',
++ 'rubtsovsk.ru',
++ 'ryazan.ru',
++ 'ryazan.su',
++ 'sakhalin.ru',
++ 'sakhalin.su',
++ 'samara.ru',
++ 'samara.su',
++ 'saratov.ru',
++ 'saratov.su',
++ 'semsk.su',
++ 'serpukhov.su',
++ 'simbirsk.ru',
++ 'simbirsk.su',
++ 'smolensk.ru',
++ 'smolensk.su',
++ 'sochi.su',
++ 'spb.ru',
++ 'spb.su',
++ 'stavropol.ru',
++ 'stavropol.su',
++ 'stv.ru',
++ 'surgut.ru',
++ 'surgut.su',
++ 'syzran.ru',
++ 'tambov.ru',
++ 'tambov.su',
++ 'tashkent.su',
++ 'tatarstan.ru',
++ 'termez.su',
++ 'togliatti.su',
++ 'tom.ru',
++ 'tomsk.ru',
++ 'tomsk.su',
++ 'troitsk.su',
++ 'tsaritsyn.ru',
++ 'tsaritsyn.su',
++ 'tselinograd.su',
++ 'tsk.ru',
++ 'tula.ru',
++ 'tula.su',
++ 'tuva.ru',
++ 'tuva.su',
++ 'tver.ru',
++ 'tver.su',
++ 'tyumen.ru',
++ 'tyumen.su',
++ 'udm.ru',
++ 'udmurtia.ru',
++ 'udmurtia.su',
++ 'ulan-ude.ru',
++ 'vdonsk.ru',
++ 'vladikavkaz.ru',
++ 'vladikavkaz.su',
++ 'vladimir.ru',
++ 'vladimir.su',
++ 'vladivostok.ru',
++ 'volgograd.ru',
++ 'vologda.ru',
++ 'vologda.su',
++ 'voronezh.ru',
++ 'voronezh.su',
++ 'vrn.ru',
++ 'vyatka.ru',
++ 'vyatka.su',
++ 'yakutia.ru',
++ 'yakutia.su',
++ 'yamal.ru',
++ 'yaroslavl.ru',
++ 'yaroslavl.su',
++ 'yekaterinburg.ru',
++ 'yuzhno-sakhalinsk.ru',
++ 'zgrad.ru',
++ 'zgrad.su',
++ );
+
+ %rematch_aliases = (
+ 'nonexistent.com', 'X-NNTP-Posting-Host:',