make it more portable. Address #5375

diff --git a/src/main/radsecret b/src/main/radsecret
index 2a03a2e7bce3979aaca1908314be7be7511044b4..0c344a0daa899b725c5c844c20c6c92e2e3d33b2 100755 (executable)
--- a/src/main/radsecret
+++ b/src/main/radsecret
@@ -1,7 +1,12 @@
-#!/usr/bin/env perl
+#!/bin/sh
 #
 #  A tool which generates strong shared secrets.
 #
-use Convert::Base32;
-use Crypt::URandom();
-print join('-', unpack("(A4)*", lc encode_base32(Crypt::URandom::urandom(12)))), "\n";
+openssl rand -base64 12 2>/dev/null && exit 0
+
+(dd if=/dev/random bs=1 count=12 | base64 2>/dev/null) && exit 0
+
+(dd if=/dev/random bs=1 count=12 | base32 2>/dev/null) && exit 0
+
+echo "Failed finding 'openssl', 'base64', or 'base32' tools".
+exit 1