procmail
[Top] [All Lists]

FW: A simple rule for IP1<>IP2

2002-09-15 14:40:25
Sorry for dredging up a week-old thread, but last week
my mail to the list was bouncing for two days.  I think
the below never made it through.  The procmail.org alias
to the list seems also to (still?) be bouncing this
weekend.

-----Original Message-----
From: Dallman Ross [mailto:dman(_at_)nomotek(_dot_)com] 
Sent: Tuesday, September 10, 2002 4:24 PM


From: Tomislav Crnicki [mailto:tcrnicki(_at_)abacus(_dot_)hr] 


I left in your signature, because I wanted to remember to ask you
about the name of your town: does it have something historical to
do with the ancient counting instrument?  Anyway, interesting.

Abacus is the name of my company. :-) My town name is 
Varazdin, but many haven't probably heard of Croatia ("a 
small countryfor a great holiday") and I doubt anybody 
has heard about my town. 
:-/ :-\

Thanks.  I live in Germany, so people here have at least
heard of the idea of vacationing in Croatia.  In fact, I
know a couple of people who've done so.

Yesterday I wrote:

   DOTQUAD = [0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+


 :0  # look for sender's asserted machine
  * $  BOTTOM ?? ^^from +\/[^$WS].+[$WS]by[$WS]
  * $  MATCH       ?? ^^\/.+[^$WS]
  * $  MATCH       ?? ^^\/.+[^y]
  * $  MATCH       ?? ^^\/.+[^b]
  * $  MATCH       ?? ^^\/.+[^$WS]
  { CLIENT = $MATCH }



Then I do this:

 :0  # scam-tipped dotted-quad mismatch
  * $ CLIENT ?? ()$DOTQUAD\>(.*\<)?\/$DOTQUAD\>
  *   MATCH ?? [^0-9]*\/[0-9]+\.[0-9]+\.
  { SECOND_PAIREDQUAD = $MATCH }

 :0 A
  * $ CLIENT ?? ()\/$DOTQUAD\>
  *   MATCH ?? [^0-9]*\/[0-9]+\.[0-9]+\.
  { FIRST_PAIREDQUAD = $MATCH }

 :0 A:
  * $! FIRST_PAIREDQUAD ?? $SECOND_PAIREDQUAD
  suspectmail

Will try this!

I kind of botched it with some of the details.  (I was
tired!)  Okay, this works:


 :0  # scam-tipped dotted-quad mismatch
  * $ CLIENT ?? ()$DOTQUAD\>(.*\<)?\/$DOTQUAD\>
  *   MATCH ?? ^^\/[0-9]+\.[0-9]+\.
  { SECOND_PAIREDQUAD = $MATCH }

 :0 A
  * $ FOGGYCLIENT ?? ()\/$DOTQUAD\>(.*\<)?$\SECOND_PAIREDQUAD
  *   MATCH ?? ^^\/[0-9]+\.[0-9]+\.
  { FIRST_PAIREDQUAD = $MATCH }

 :0 A
  * $! FIRST_PAIREDQUAD ?? $\SECOND_PAIREDQUAD
  suspectmail


Dallman


_______________________________________________
procmail mailing list
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail