Sam Ravnborg <[EMAIL PROTECTED]> wrote:
> sub make_message_id
> {
> my $date = `date "+\%s"`;
> chomp($date);
> my $pseudo_rand = int (rand(4200));
> $message_id = "<[EMAIL PROTECTED]>";
> print "new message id = $message_id\n";
> }
Why not
use Email::MessageID;
use Net::Domain qw(hostfqdn);
sub make_message_id()
{
return Email::MessageID->new(host => hostfqdn());
}
-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to [EMAIL PROTECTED]
More majordomo info at http://vger.kernel.org/majordomo-info.html
Please read the FAQ at http://www.tux.org/lkml/
