From: terminaldweller <redacted>
Date: Mon, 24 Mar 2025 14:41:47 +0000 (-0400)
Subject: the script now checks for DB disconnects and reconnects if disconnected
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=fa55bda0bca19af8b508129c78a361e051a562f8;p=irssi-scripts.irssi.org.git

the script now checks for DB disconnects and reconnects if disconnected
---

diff --git a/scripts/irssi_logger.pl b/scripts/irssi_logger.pl
index c6097aa..da3af7b 100644
--- a/scripts/irssi_logger.pl
+++ b/scripts/irssi_logger.pl
@@ -11,7 +11,7 @@ use vars qw($VERSION %IRSSI);
 # - postgresql
 # - postgresql-contrib (pg_trgm)
 
-$VERSION = "1.1";
+$VERSION = "1.2";
 %IRSSI = (
     authors     => "Aaron Bieber",
     contact     => "deftly\@gmail.com",
@@ -118,7 +118,13 @@ sub write_db {
 
         defined or $_ = "" for @vals;
 
-        $dbh->do($sql, undef, @vals) || Irssi::print("Can't log to DB! " . DBI::errstr);
+        $dbh->do($sql, undef, @vals);
+        if ($dbh->err) {
+            Irssi::print("Can't log to DB! " . DBI::errstr);
+            if (!$dbh->ping) {
+                $dbh->connect();
+            }
+        }
     }
 }