I actually already do that for the archive. The archive software is custom
written in .ASP and it checks the server to authenticate the posts and also
to find the time that the post hit the server, which it uses to sort the
messages so that delays introduced in delivery of the messages from the
server will not change the order in which they are displayed. Before I did
that, I would sometimes have peoples answers to post before the question was
asked and like that.

I have the environment and all the data, I just don't have time to add a
digest...ifyer..ater...ing thing and a list server.

---
James.
 
 

> -----Original Message-----
> From: piclist-bounces@mit.edu 
> [mailto:piclist-bounces@mit.edu] On Behalf Of Dave Tweed
> Sent: 2005 Mar 21, Mon 21:25
> To: piclist@mit.edu
> Subject: RE: [OT] Filtering on tags in evolution
> Importance: Low
> 
> "James Newton, Host" <jamesnewton@piclist.com> wrote:
> > The list software I have sees each post from the PICList as coming 
> > from the actual author of the post rather than as coming 
> from the list 
> > itself. I have no way to limit it's acceptance of posts to only a 
> > certain IP address or server.
> 
> I use the following snippet of Perl code to validate messages 
> to my piclist address <pic@dtweed.com> as coming from the 
> actual list server(s). All other spam and off-list mail gets 
> discarded and I never have to deal with it.
> 
> It's basically a matter of examining the a combination of the 
> "To:" and "Return-path:" fields in the header. Obviously, you 
> can't use this code directly (it depends on too many things 
> that are unique to my setup), but you should be able to 
> follow the logic. Perhaps you can set up this same logic in 
> whatever tools you are using.
> 
>     # Special handling for PICLIST and gnupic
>     if ($directory eq 'dtweed/pic') {
>         my $retpath = shift @{$msg->header('return-path')};
>         my $to = shift @{$msg->header('to')};
>         if ($retpath =~ /owner-piclist\@MITVMA\.MIT\.EDU/i
>             && $to =~ /PICLIST\@MITVMA\.MIT\.EDU/i) {
>             # a good PICLIST post (old server)
>             $folder = '';
>         } elsif ($retpath =~ /piclist-bounces\@mit\.edu/i
>             && $to =~ /piclist\@mit\.edu/i) {
>             # a good PICLIST post (new server)
>             $folder = '';
>         } elsif ($retpath =~ 
> /gnupic-return-\d+-pic=dtweed\.com\@linuxhacker\.org/i) {
>             # a good gnupic post
>             $folder = '';
>         } else {
>             $folder ||= 'offlist';
>         }
>     }
> 
> -- Dave Tweed
> --
> http://www.piclist.com PIC/SX FAQ & list archive View/change 
> your membership options at 
> http://mailman.mit.edu/mailman/listinfo/piclist
> 


-- 
http://www.piclist.com PIC/SX FAQ & list archive
View/change your membership options at
http://mailman.mit.edu/mailman/listinfo/piclist