#!/usr/local/cpanel/3rdparty/bin/perl

my $urand = -e '/dev/urandom' ? 1 : 0;
my $rand  = -e '/dev/random'  ? 1 : 0;

if ( !$urand && !$rand ) {
    die "Both /dev/urandom and /dev/random are missing!";
}
elsif ( $urand && !$rand ) {
    print "Symlinking /dev/random to /dev/urandom\n";
    symlink( '/dev/urandom', '/dev/random' );
}
elsif ( !$urand && $rand ) {
    print "Symlinking /dev/urandom to /dev/random\n";
    symlink( '/dev/random', '/dev/urandom' );
}
else {
    print "/dev/urandom and /dev/random exist\n";
}