[Rt-commit] r18380 - rt/3.8/trunk/bin

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb 13 19:14:26 2009
New Revision: 18380

Modified:
   rt/3.8/trunk/bin/webmux.pl.in

Log:
* test DB compatibility in webmux.pl

Modified: rt/3.8/trunk/bin/webmux.pl.in
==============================================================================
--- rt/3.8/trunk/bin/webmux.pl.in	(original)
+++ rt/3.8/trunk/bin/webmux.pl.in	Fri Feb 13 19:14:26 2009
@@ -101,9 +101,23 @@
     RT->InitPluginPaths();
 }
 
-
 {
+    require RT::Handle;
+    my $dsn = RT::Handle->DSN;
+    my $user = RT->Config->Get('DatabaseUser');
+    my $pass = RT->Config->Get('DatabasePassword');
+
+    my $dbh = DBI->connect(
+        $dsn, $user, $pass,
+        { RaiseError => 0, PrintError => 0 },
+    );
+    if ( $dbh ) {
+        my ($status, $msg) = RT::Handle->CheckCompatibility( $dbh, 'post' );
+        die $msg unless $status;
+    }
+}
 
+{
     package HTML::Mason::Commands;
     use vars qw(%session);
 }