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

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.
......@@ -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 ($?);
return $hash;
# _Always_ make sure that this 1 is at the end of the file...
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