Re: deleting old mails

On Wed, Oct 05, 2005 at 11:32:48PM +0200, Dallman Ross wrote:
>   :0 E
>   * $ $MATCH ^0
>   { DD = 0$MATCH }  # zero-padding added for DD < 10
Nope, that's a bug.  That needs to be:


   :0 E
   * $ $MATCH ^0
   { DD = 0$= }  # zero-padding added for DD < 10


Once again, with _Schwung_:


------------------------------

  INCLUDERC = rc.today   # read in today's date as YYYYMMDD
  MON_TBL   = Jan01Feb02Mar03Apr04May05Jun06Jul07Aug08Sep09Oct10Nov11Dec12

  :0
  * () (Mon|Tue|Wed|Thu|Fri|Sat|Sun) ()\/[JFMASOND][aepuco][nbrylgptvc] ().+
  { H_FROM_ = $MATCH }

  :0
  *   MATCH   ?? ^^\/[a-z]+
  * $ MON_TBL ?? $MATCH\/[0-9]+
  { MM = $MATCH }

  :0
  * H_FROM_ ?? ()\/[0-9]+^^
  { YEAR = $MATCH }

  :0
  * H_FROM_ ?? ()\/[0-3]?[0-9] ()
  * MATCH   ?? ^^\/[0-9]+
  * $ $MATCH ^0
  *       -9 ^0
  { DD = $MATCH }  # no zero-padding needed for DD > 9

  :0 E
  * $ $MATCH ^0
  { DD = 0$= }  # zero-padding added for DD < 10

  :0
  * $       $TODAY ^0
  * $ -$YEAR$MM$DD ^0
  *          -9999 ^0
  { HOST = toodamnold }

-- 
dman

____________________________________________________________
procmail mailing list   Procmail homepage: http://www.procmail.org/
procmail(_at_)lists(_dot_)RWTH-Aachen(_dot_)DE
http://MailMan.RWTH-Aachen.DE/mailman/listinfo/procmail