the script now checks for DB disconnects and reconnects if disconnected

diff --git a/scripts/irssi_logger.pl b/scripts/irssi_logger.pl
index c6097aa6a95afd44de428286d9f570bdf22bbbbb..da3af7b03aa4438b59427b3c6ae1d8b3717f52d0 100644 (file)
--- 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();
+            }
+        }
     }
 }