From a6c5d314ec9dba0bb44983f8c7bd7726f53c1a3e Mon Sep 17 00:00:00 2001
From: Metabox <vilijanac@gmail.com>
Date: Fri, 31 May 2019 13:59:53 +1000
Subject: [PATCH] try catch added.

---
 htdocs/cgi-bin/login_ctr.cgi | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 27bf2b3..4f87dda 100755
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -120,6 +120,7 @@ return 0;
 }
 
 sub checkAutologinSet {
+try{
 		#We don't need to slurp as it is expected setting in header.
 		my @cre;
 		open(my $fh, '<', './main.cnf' ) or die "Can't open main.cnf: $!";		
@@ -148,6 +149,13 @@ sub checkAutologinSet {
 					}
 		}
 }
+ catch{	 	
+	  print $cgi->header;
+		print "<font color=red><b>SERVER ERROR</b></font>:".$_;
+    print $cgi->end_html;
+		exit;
+ }
+}
 
 sub checkCreateTables {
 try{
-- 
2.34.1