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 #!/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 # {{{EMULAB-LICENSE
# #
...@@ -732,5 +732,15 @@ sub SSHwithTimeout($$$$) ...@@ -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... # _Always_ make sure that this 1 is at the end of the file...
1; 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