Jonathan djjudas21

## update-puppet-modules.pl
#!/usr/bin/perl -w

use Switch;

# check we are root first
if ( $< != 0 ) {
        print "This script must be run as root\n";
        exit (0);
}

## check_radius_status.pl
#!/usr/bin/perl -w

use strict;
use Config::Tiny;

# Sample command
# echo "Message-Authenticator = 0x00, FreeRADIUS-Statistics-Type = 7" | radclient HOSTNAME:PORT status SECRET

# Sample response
# Received response ID 183, code 2, length = 344
	#!/usr/bin/perl -w

	use Switch;

	# check we are root first
	if ( $< != 0 ) {
	print "This script must be run as root\n";
	exit (0);
	}
	#!/usr/bin/perl -w

	use strict;
	use Config::Tiny;

	# Sample command
	# echo "Message-Authenticator = 0x00, FreeRADIUS-Statistics-Type = 7" \| radclient HOSTNAME:PORT status SECRET

	# Sample response
	# Received response ID 183, code 2, length = 344