Changeset 121

Timestamp:

03/26/09 21:03:01 (15 years ago)

Author:

nanardon

Message:

• trap db deconnection, then reconnect: important in fast_cgi or server mode

File:

• trunk/lib/Vote/Model/Vote.pm (modified) (2 diffs)

trunk/lib/Vote/Model/Vote.pm

@@ -20 +20 @@
 sub new {
     my ($class) = @_;
+    
+    bless {
+        db => _newdb(),
+    }, $class;
+}
+
+sub _newdb {
     my $db = DBI->connect(
         'dbi:Pg:' . Vote->config->{db},
@@ -31 +38 @@
     ) or return;
     $db->do(q{set DATESTYLE to 'DMY'});
-    
-    bless {
-        db => $db,
-    }, $class;
-}
-
-sub db { $_[0]->{db} }
+    return $db;
+}
+
+sub db {
+    return $_[0]->{db} && $_[0]->{db}->ping
+        ? $_[0]->{db}
+        : $_[0]->_newdb();
+}
 
 sub mail_header {