[Bacula-commits] SF.net SVN: bacula: [4460] trunk/gui/bweb

[<ri...@us...>]

Revision: 4460
          http://bacula.svn.sourceforge.net/bacula/?rev=4460&view=rev
Author:   ricozz
Date:     2007-03-30 07:50:18 -0700 (Fri, 30 Mar 2007)

Log Message:
-----------
ebl  add a disconnect function

Modified Paths:
--------------
    trunk/gui/bweb/cgi/bgraph.pl
    trunk/gui/bweb/cgi/bweb.pl
    trunk/gui/bweb/lib/Bweb.pm

Modified: trunk/gui/bweb/cgi/bgraph.pl
===================================================================
--- trunk/gui/bweb/cgi/bgraph.pl	2007-03-30 11:36:19 UTC (rev 4459)
+++ trunk/gui/bweb/cgi/bgraph.pl	2007-03-30 14:50:18 UTC (rev 4460)
@@ -498,3 +498,4 @@
     print $obj->plot([$ret->{date}, $ret->{nb}])->png;    
 }
 
+$dbh->disconnect();

Modified: trunk/gui/bweb/cgi/bweb.pl
===================================================================
--- trunk/gui/bweb/cgi/bweb.pl	2007-03-30 11:36:19 UTC (rev 4459)
+++ trunk/gui/bweb/cgi/bweb.pl	2007-03-30 14:50:18 UTC (rev 4460)
@@ -382,6 +382,7 @@
 
 $bweb->display_end();
 
+$bweb->dbh_disconnect();
 
 __END__
 

Modified: trunk/gui/bweb/lib/Bweb.pm
===================================================================
--- trunk/gui/bweb/lib/Bweb.pm	2007-03-30 11:36:19 UTC (rev 4459)
+++ trunk/gui/bweb/lib/Bweb.pm	2007-03-30 14:50:18 UTC (rev 4460)
@@ -1071,6 +1071,15 @@
 	  },
 	 );
 
+sub dbh_disconnect
+{
+    my ($self) = @_;
+    if ($self->{dbh}) {
+       $self->{dbh}->disconnect();
+       undef self->{dbh};
+    }
+}
+
 sub dbh_selectall_arrayref
 {
     my ($self, $query) = @_;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.