]>
Commit | Line | Data |
---|---|---|
8d895cd7 GKH |
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"; |