[SLUG] Procmail FAQs

From: Derek Glidden (dglidden@illusionary.com)
Date: Tue Jul 17 2001 - 18:47:32 EDT


Paul or anyone else who's a Procmail type: How have you learned all the
ins and outs of procmail? I haven't been able to find anything on the
web that's even vaguely useful as a reference, and the procmail manpage
is pretty useless to me.

I'd like to start using procmail more, so I'm not as reliant on my email
client having a decent set of filtering capabilities, but I'm kind of
stuck because I haven't been able to find anywhere that gives me a good
idea of what procmail can actually do. (Yeah, I could read the source
code, but I'd rather have a real reference for it...)

In the meanwhile, and my main sticking point at the moment, does anyone
know of a way to make procmail copy an incoming message (based on a
regex match) to another folder, then "tag" that message as "deleted"
without actually deleting it from the inbox?

My problem is that I like everything to live in my INBOX until I can
read it, but to also get filed appropriately without my manual
intervention. I have Netscape configured to copy mail into the
appropriate folders, but only tag the messages as "deletable" until I
manually delete them from the INBOX. If stuff automagically moves from
folder to folder without sticking around in the inbox, I'll have to keep
my eyes on about 25 or 30 different folders to see if new mail comes in,
which I think will be more work than just moving stuff out of inbox by
hand.

-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#!/usr/bin/perl -w
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map
{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;
$t^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)
[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h=5;$_=unxb24,join
"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=
unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d
>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*
8^$q<<6))<<9,$_=$t[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}
print+x"C*",@a}';s/x/pack+/g;eval 

usage: qrpff 153 2 8 105 225 < /mnt/dvd/VOB_FILENAME \ | extract_mpeg2 | mpeg2dec -

http://www.eff.org/ http://www.opendvd.org/ http://www.cs.cmu.edu/~dst/DeCSS/Gallery/



This archive was generated by hypermail 2.1.3 : Fri Aug 01 2014 - 16:12:17 EDT