[thirdparty/kernel/stable-queue.git] / 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";
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";