lkml.org 
[lkml]   [2005]   [Mar]   [14]   [last100]   RSS Feed
Views: [wrap][no wrap]   [headers]  [forward] 
 
Messages in this thread
/
From
SubjectRe: script to send changesets per mail
Date
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/

\
 
 \ /
  Last update: 2005-03-22 14:11    [W:0.038 / U:0.132 seconds]
©2003-2014 Jasper Spaans. Advertise on this site