Re: new toy

[email protected] writes:

>I was thinking about doing another similiar script that dropped you
>into vi to write a note on the bug at the same time as you closed it...
>
>Will try to come up with a more fully featured script and see what
>people think.
>
>Robrt/Merijn - if you can find code I'd love to read it...

Nothing special.  It let me type closebug 20000102.0001 and then
prompted for content of the note.  When I was on a bug closing binge
where lots of bugs had similar things, I'd just use:
    echo 'fixed in perl-current' | closebug 12345...

#!/usr/bin/perl -w

use strict;
my $bugid = $ARGV[0] || die "No bugid specified";
open(MAIL,"|/usr/lib/sendmail -t") || die "can't open sendmail";
print MAIL 
qq{From: user+bug$bugid\@host.obfuscated.com
Subject: [ID $bugid]
To: close_$bugid\@bugs.perl.org

};
print MAIL $_ while(<STDIN>);
close MAIL;