[hashcash] Re: Mutt and hashcash

Well after some tweaking I got it to work.  It maybe that I was
misconfiguring mutt but I put this in my .muttrc:

set sendmail='/home/adam/bin/hashcash-sendmail'

but found that mutt invokes it as:

"hashcash-sendmail -- adam@xxxxxxxxxxxxxxx"

and the parsing code with grep( /^--$/ .. 0, @args ) wasn't working
out.  I didn't understand what that grep is supposed to do, so I
changed to:

my $process_args = 1;
my @a = @args;
while ( my $arg = shift( @a ) ) {
    if ( $arg eq '--' ) { $process_args = 0; }
    if ( $process_args ) {
        if ( $arg eq '-f' ) {
            shift( @a );
            next;
        }
        push( @env_recip, $arg ) if ( $arg !~ /^-/ );
    } else {
        push( @env_recip, $arg );
    }
}

I also added:

if ( !-d $workdir ) { mkdir($workdir); }
if ( !-d "$workdir/queue" ) { mkdir("$workdir/queue"); }
if ( !-d "$workdir/tmp" ) { mkdir("$workdir/tmp"); }

near the top of both programs as they didn't exist system and it fails
if they don't.

Well haven't tested with two recipients, so this will be a test.

Very nice!

Adam

Kyle Hasselbacher wrote:
> [...]
> There's just the code there, but it has some comments that I've tossed in

Other related posts: