From f6d34c7bb7219a908ed7155eca716c38e71ce34d Mon Sep 17 00:00:00 2001
From: Metabox <vilijanac@gmail.com>
Date: Mon, 22 Apr 2019 06:38:14 +1000
Subject: [PATCH] Cosmetics.

---
 htdocs/cgi-bin/search.cgi | 8 ++++----
 htdocs/cgi-bin/stats.cgi  | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/htdocs/cgi-bin/search.cgi b/htdocs/cgi-bin/search.cgi
index 06cea49..8b38c09 100755
--- a/htdocs/cgi-bin/search.cgi
+++ b/htdocs/cgi-bin/search.cgi
@@ -21,7 +21,7 @@ my $password = $ENV{'DB_PASS'};
 
 my $q = CGI->new;
 
-my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) 
+my $db = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) 
    or die "<p>Error->"& $DBI::errstri &"</p>";
 
 my $today = DateTime->now;
@@ -30,7 +30,7 @@ $today->set_time_zone( 'Australia/Sydney' );
 my $stmtCat = "SELECT * FROM CAT;";
 
 
-my $sth = $dbh->prepare( $stmtCat );
+my $sth = $db->prepare( $stmtCat );
 my $rv = $sth->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
 
 my %hshCats;
@@ -78,7 +78,7 @@ else{
 
 print $q->end_html;
 
-$dbh->disconnect();
+$db->disconnect();
 
 
 
@@ -86,7 +86,7 @@ sub build{
 
 my $tbl = '<table class="tbl">
 		<tr class="r0"><th>Date</th><th>Time</th><th>Log</th><th>Category</th></tr>';
-$sth = $dbh->prepare( $stm );
+$sth = $db->prepare( $stm );
 $rv = $sth->execute() or die or die "<p>Error->"& $DBI::errstri &"</p>";
 if($rv < 0) {
 	     print "<p>Error->"& $DBI::errstri &"</p>";
diff --git a/htdocs/cgi-bin/stats.cgi b/htdocs/cgi-bin/stats.cgi
index b4aa5d6..6fe67d8 100755
--- a/htdocs/cgi-bin/stats.cgi
+++ b/htdocs/cgi-bin/stats.cgi
@@ -29,7 +29,7 @@ if(!$userid||!$dbname){
 
 my $database = '../../dbLifeLog/'.$dbname;
 my $dsn= "DBI:SQLite:dbname=$database";
-my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) or die "<p>Error->". $DBI::errstri ."</p>";
+my $db = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) or die "<p>Error->". $DBI::errstri ."</p>";
 
 
 
@@ -105,13 +105,13 @@ print '<div style="text-align:left;  border: 1px solid black;"><br/><b>Server In
 print '<div style="text-align:left;"><br/><b>Processes Info</b><br/><br/><pre>' . $processes .'</pre></div>';
 
 print $q->end_html;
-$dbh->disconnect();
+$db->disconnect();
 exit;
 
 sub selectSQL{
 
 
-	my $sth = $dbh->prepare( @_ );
+	my $sth = $db->prepare( @_ );
 	$sth->execute();
 	my @row = $sth->fetchrow_array();
 	$sth->finish;
-- 
2.34.1