From: Bodo Eggert <7eggert@gmx.de>
Subject: Re: script to send changesets per mail
To: Sam Ravnborg <sam@ravnborg.org>, linux-kernel@vger.kernel.org,
       Martin Waitz <tali@admingilde.org>
Reply-To: 7eggert@gmx.de
Date: Tue, 15 Mar 2005 00:22:56 +0100
References: <fa.f2usg94.a5sd8q@ifi.uio.no> <fa.hdaug7i.n7qkqg@ifi.uio.no>
User-Agent: KNode/0.7.7
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
Message-Id: <E1DAytl-00026G-S2@be1.7eggert.dyndns.org>
Sender: linux-kernel-owner@vger.kernel.org
Content-Length: 636
Lines: 21

Sam Ravnborg <sam@ravnborg.org> wrote:

> sub make_message_id
> {
> my $date = `date "+\%s"`;
> chomp($date);
> my $pseudo_rand = int (rand(4200));
> $message_id = "<$date$pseudo_rand\@kroah.com>";
> 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 majordomo@vger.kernel.org
More majordomo info at  http://vger.kernel.org/majordomo-info.html
Please read the FAQ at  http://www.tux.org/lkml/