mirror of
https://git.freebsd.org/ports.git
synced 2025-06-02 19:36:28 -04:00
7c47779cb9
${PERL5} points to a specific version of perl, say, perl5.22.1, it is
fine to use it in a ports Makefile to do Perly things, but ports using
it must use ${PERL}, that points to /usr/local/bin/perl so that if the
minor version is updated, the shebang keep working.
While there, make some ports use shebangfix, regen a few patches, and
bump PORTREVISION where a shebang went from PERL5 to PERL.
PR: 205367
With hat: portmgr
Sponsored by: Absolight
302 lines
5.8 KiB
Perl
302 lines
5.8 KiB
Perl
--- adcomplain.pl.orig 2015-12-17 16:02:13 UTC
|
|
+++ adcomplain.pl
|
|
@@ -1,15 +1,5 @@
|
|
-#! /bin/sh -- # -*- perl -*-
|
|
-# first line invokes sh. Some systems may need to refer to perl directly, i.e.:
|
|
-
|
|
#! /bin/perl
|
|
|
|
-# But the first way is preferable, because we have a trick (below) that
|
|
-# 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.
|
|
-
|
|
# use strict;
|
|
|
|
#-----------------------------------------------
|
|
@@ -533,6 +523,7 @@ local(
|
|
$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 +2511,17 @@ sub find_site {
|
|
($site2 = $host) =~ s/.*\.(.*\..*)/$1/;
|
|
($site3 = $host) =~ s/.*\.(.*\..*\..*)/$1/;
|
|
($junk = $host) =~ s/.*\.(.*)/$1/;
|
|
- if (length($junk) >= 3) {
|
|
+ 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) {
|
|
@@ -2618,6 +2619,7 @@ sub fqdn_name {
|
|
# Pick the alias with the _most_ dots
|
|
local($alias);
|
|
foreach $alias (split(' ', $aliases)) {
|
|
+ $alias =~ s/\.$//; # this adcomplain cannot deal with "foo.bar.com."
|
|
$cd = ($alias =~ tr/././);
|
|
if ($cd > $nd) {
|
|
$result = $alias;
|
|
@@ -3078,6 +3080,248 @@ sub get_constants_and_environment {
|
|
);
|
|
@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:',
|
|
'nym.alias.net', 'Message-Id:',
|