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.021 / U:1.388 seconds]
    ©2003-2016 Jasper Spaans. hosted at Digital OceanAdvertise on this site