[26662] in Perl-Users-Digest
Perl-Users Digest, Issue: 8769 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 16 14:05:33 2005
Date: Fri, 16 Dec 2005 11:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 16 Dec 2005 Volume: 10 Number: 8769
Today's topics:
Re: attention remailer.org.uk operator <nobody@invalid.org>
Re: attention remailer.org.uk operator <fleegle@bananasplit.info>
Test <test@rr.com>
Testing <test@rr.com>
Re: What is the reason for Perl? <since_humans_read_this_I_am_spammed_too_much@spamyourself.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 16 Dec 2005 14:30:31 +0000 (GMT)
From: Anonymous <nobody@invalid.org>
Subject: Re: attention remailer.org.uk operator
Message-Id: <de6119283f107a12ed586589c912b77c@anon.bananasplit.info>
-----BEGIN xxx SIGNED MESSAGE-----
[comp.lang.perl.misc added]
In article <WIE08BH038701.7962962963@twistycreek.com>
Anonymous-Remailer@See.Comment.Header (minnie bannister) wrote:
>
> It appears that your m2n is set to delete the Followup-To: header.
>
> Could I get you to consider allowing it through where the groups
> listed in followup are a subset of those in the Newsgroups: header?
Please do not rely on me seeing messages in this group - the
remops mailing list or private email are better routes of
attracting my attention. Anyway, the answer is yes.
Now, can anyone tell me what I should write in PERL to allow it?
Something along the plain English equivalent of:
If $newsgroups = *$followups* then $allowfollowups = true
Gets more difficult if there are 3 original groups and 2 follow-
up groups - and the followup-groups may be written in reverse
order, etc.
It could be done using arrays split on "," I guess, but it's
beyone my meagre PERL talents.
-----BEGIN xxx SIGNATURE-----
Version: N/A
iQEVAwUBQ6LADYodg2SVfCwtAQHfMggAu3ahGloKZKj7LinH6lIzGaBuOr+jlwkM
AhjIQ5iaN+yEWUbE5MJu9+PWjegHBBJxqynj4P9EUh/4pvh0wF0uUDU1Qis7qMKz
43XgqW2sa3dZ12LR7OZ5Xq+DFGYvbEQ00GSXmRPCZkwtMBW++O7rr8aEhfc/j9Fr
eyQEeFRKwePGGF6hxjyJJ3KNbRTk492bVYUH0/Ut+W6KRni+3hyhRDRyZPdmE8K4
i9nwiLnSFjqqMHJDUZDiMW5yag6ZrKbjJVPIk6xfs6YSsoUAojvnclg3gTt/IaPV
Lki6HEB73TImlyjsQrpPF0HJzLwMO+4ZFqWSnx2XTQFOQ8pdTV0dUw==
=78Sd
-----END PGP SIGNATURE-----
------------------------------
Date: Fri, 16 Dec 2005 15:03:03 +0000 (UTC)
From: Zax <fleegle@bananasplit.info>
Subject: Re: attention remailer.org.uk operator
Message-Id: <dnukv7$314$1@bananasplit.info>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA512
On Fri, 16 Dec 2005 14:30:31 +0000 (GMT), Anonymous wrote in
Message-Id: <de6119283f107a12ed586589c912b77c@anon.bananasplit.info>:
> Now, can anyone tell me what I should write in PERL to allow it?
>
> Something along the plain English equivalent of:
>
> If $newsgroups = *$followups* then $allowfollowups = true
>
> Gets more difficult if there are 3 original groups and 2 follow-
> up groups - and the followup-groups may be written in reverse
> order, etc.
>
> It could be done using arrays split on "," I guess, but it's
> beyone my meagre PERL talents.
#Split the newsgroups header and the followup to header on ','
@newsgroups = split(/,/, $newsgroup);
@followups = split(/,/, $followupto);
%seen = (); # Hash to use as lookup table
#Build lookup table
foreach $item (@newsgroups) { $seen{$item} = 1 };
# Find elements in followup but not in newsgroups
foreach $item (@followups) {
unless ($seen{$item} {
<<action for failied message>>
};
};
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.4.2 (GNU/Linux)
iQEVAwUBQ6LXJ2oLu9HNUqmMAQrDmwf9FhpSTTUa+HVNlJN+7VOOVc2uCXW/XRHO
bIYZqvLwZ3Tnrg8Rb0gJq16kdwshwcLezDHseulsDUIZYc2SA9QjwIQnm3guKvSd
iqKJhEZPB+XFV7siWps3KlwaHDuQmeXyW+2aSCc2ugQ9VSAwcaude3l0tZH6wVna
FNIgyIG5xMd4wKmYrmHgCtTLdpNhKYzU82Kio2n8Nmil8qJlxNbvAzacWuZvsUdM
66h8+pyZMGVLBOzQt6PcsJrEuD7UeyXd+nGi8m22+oQL71J40BVz1LzhvByDIY9r
55QuElqNbPTr6enA15sRBT+YQXF83saD8RUUyayCPQXjIyxwZlYyMA==
=3vX2
-----END PGP SIGNATURE-----
--
pub 1024D/8ED57743 2003-07-08 Bananasplit Operator
Key fingerprint = 796F 67E0 E890 A0BB BDAE EBB4 94A6 7A09 8ED5 7743
uid Admin <admin.bananasplit.info>
------------------------------
Date: Fri, 16 Dec 2005 17:57:40 GMT
From: "Road Runner" <test@rr.com>
Subject: Test
Message-Id: <oeDof.2$%a6.1@news-wrt-01.rdc-nyc.rr.com>
TEST
------------------------------
Date: Fri, 16 Dec 2005 17:16:00 GMT
From: "Road Runner" <test@rr.com>
Subject: Testing
Message-Id: <kDCof.1$%a6.0@news-wrt-01.rdc-nyc.rr.com>
Hello test.
------------------------------
Date: Fri, 16 Dec 2005 13:36:37 +0100
From: Erwin Moller <since_humans_read_this_I_am_spammed_too_much@spamyourself.com>
Subject: Re: What is the reason for Perl?
Message-Id: <43a2b4d6$0$11061$e4fe514c@news.xs4all.nl>
Robico: you behave like a complete idiot.
Don't you see it yourself?
1) You ask a question. Or rather, you dare anybody in this Perl ng to say
anything positive abour Perl.
2) Eric Roode, who clearly didn't meet you before, writes a comprehensive
interesting response.
3) You flame him, and in the process clearly showing your own lack of
knowledge.
Robico: You are an idiot, did you know that?
I think Matt Garrish's response futher down sums it up nicely...
Instead of ranting in technical newsgroups, you might consider some
counceling, introspection, or (more) medicines.
Have a nice life.
Erwin Moller
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 8769
***************************************
