scripts/make_message_id

#!/usr/bin/perl

# we make a "fake" message id by taking the current number
# of seconds since the beginning of Unix time and tacking on
# a random number to the end, in case we are called quicker than
# 1 second since the last time we were called.

my $date = `date "+\%s"`;
my $hostname = `hostname -d`;
chomp($date);
my $pseudo_rand = int (rand(4200));
$message_id = "$date$pseudo_rand\@$hostname";
print "$message_id";