procmail and hashcash

[Secret Squirrel <nobody@secret.squirrel.owl.de>]

PATH=/bin:/usr/bin:/usr/local/bin:$HOME/bin
MAILDIR=$HOME/Mail
LOGFILE=$HOME/.procmaillog
LOCKEXT=.lock
SHELL=/bin/sh

:0
* ^X-Hashcash-Coin:.*
{
	:0:
	* ? hashcash-email.pl
	mbox
}

:0:
* 1^1 ^From:.*president@whitehouse.gov
mbox

:0:
junk

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

#!/usr/local/bin/perl
$status = 0;
$use_db = 1;
$validity = 28;
$num_bits = 19;
$hashcash_coin = "";
$hashcash_db = "$ENV{'HOME'}/.email_hashcash.db";
$hashcash_exec = "$ENV{'HOME'}/bin/hashcash";
$resource_name = "nobody\@foo.bar.com";

while(<>) {
	/X-Hashcash-Coin:.*\s(.+)/ && do {
		$hashcash_coin = $1;
		last;
	};
}
exit 1 if(!$hashcash_coin);
if($use_db) {
	$status = system $hashcash_exec,"-d","-f$hashcash_db","-$num_bits",$resource_name,$hashcash_coin,$validity;
} else {
	$status = system $hashcash_exec,"-$num_bits",$resource_name,$hashcash_coin,$validity;
}
$status = $status / 256;
exit $status;