From d15ca36d0bbc3295a5fb03ef9110ad8804c23045 Mon Sep 17 00:00:00 2001
From: Stefan Schantl <stefan.schantl@ipfire.org>
Date: Thu, 2 Oct 2014 21:42:27 +0200
Subject: [PATCH] guardian: Use Getop::Std.

---
 config/guardian/guardian.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/config/guardian/guardian.pl b/config/guardian/guardian.pl
index 75982ef9a1..9775cd4356 100644
--- a/config/guardian/guardian.pl
+++ b/config/guardian/guardian.pl
@@ -7,14 +7,15 @@
 # Added SSH-Watch for SSH-Bruteforce Attacks
 # An suppected IP will be blocked on all interfaces
 
-require 'getopts.pl';
+use Getopt::Std;
 
 $guardianctrl = "/usr/local/bin/guardianctrl";
 
 # Array to store information about ignored networks.
 my @ignored_networks = ();
 
-&Getopts ('hc:d');
+# Option parser for given arguments from command line.
+getopts ('hc:d');
 if (defined($opt_h)) {
 	print "Guardian v1.7 \n";
 	print "guardian.pl [-hd] <-c config>\n";
@@ -23,7 +24,11 @@ if (defined($opt_h)) {
 	print " -c  specifiy a configuration file other than the default (/etc/guardian/guardian.conf)\n";
 	exit;
 }
+
+# Call function to read in the configuration file.
 &load_conf;
+
+# Setup signal handler.
 &sig_handler_setup;
 
 &write_log ("My ip address and interface are: $hostipaddr $interface\n");
-- 
2.39.5