Messages in this thread | | | From | Bodo Eggert <> | Subject | Re: script to send changesets per mail | Date | Tue, 15 Mar 2005 00:22:56 +0100 |
| |
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/
| |