scripts/make_message_id

   1 #!/usr/bin/perl
   2
   3 # we make a "fake" message id by taking the current number
   4 # of seconds since the beginning of Unix time and tacking on
   5 # a random number to the end, in case we are called quicker than
   6 # 1 second since the last time we were called.
   7
   8 my $date = `date "+\%s"`;
   9 my $hostname = `hostname -d`;
  10 chomp($date);
  11 my $pseudo_rand = int (rand(4200));
  12 $message_id = "$date$pseudo_rand\@$hostname";
  13 print "$message_id";