Commit b8fb1917 authored by Leigh B Stoller's avatar Leigh B Stoller

Add genhash method() to return some random stuff.

parent 7a2d123c
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
# Copyright (c) 2000-2014 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -732,5 +732,15 @@ sub SSHwithTimeout($$$$)
}
}
sub GenHash()
{
my $hash =`/bin/dd if=/dev/urandom count=128 bs=1 2> /dev/null | /sbin/md5`;
return undef
if ($?);
chomp($hash);
return $hash;
}
# _Always_ make sure that this 1 is at the end of the file...
1;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment