diff --git a/scripts/ZoneMinder/lib/ZoneMinder/Database.pm b/scripts/ZoneMinder/lib/ZoneMinder/Database.pm index f05c09720..ff5dca53e 100644 --- a/scripts/ZoneMinder/lib/ZoneMinder/Database.pm +++ b/scripts/ZoneMinder/lib/ZoneMinder/Database.pm @@ -43,7 +43,7 @@ our @ISA = qw(Exporter ZoneMinder::Base); our %EXPORT_TAGS = ( 'functions' => [ qw( zmDbConnect - zmDbDisConnect + zmDbDisconnect zmDbGetMonitors zmDbGetMonitor zmDbGetMonitorAndControl diff --git a/scripts/zmupdate.pl b/scripts/zmupdate.pl index c081e7189..57a4df43c 100644 --- a/scripts/zmupdate.pl +++ b/scripts/zmupdate.pl @@ -130,8 +130,8 @@ if ( $check && ZM_CHECK_FOR_UPDATES ) my $sth = $dbh->prepare_cached( $sql ) or die( "Can't prepare '$sql': ".$dbh->errstr() ); my $res = $sth->execute( "$curr_version" ) or die( "Can't execute: ".$sth->errstr() ); } + zmDbDisconnect(); - $dbh->disconnect(); while( 1 ) { my $now = time(); @@ -162,7 +162,7 @@ if ( $check && ZM_CHECK_FOR_UPDATES ) Info( "Got version: '".$last_version."'\n" ); - my $dbh = zmDbConnect(); + $dbh = zmDbConnect(); my $lv_sql = "update Config set Value = ? where Name = 'ZM_DYN_LAST_VERSION'"; my $lv_sth = $dbh->prepare_cached( $lv_sql ) or die( "Can't prepare '$lv_sql': ".$dbh->errstr() ); @@ -172,7 +172,7 @@ if ( $check && ZM_CHECK_FOR_UPDATES ) my $lc_sth = $dbh->prepare_cached( $lc_sql ) or die( "Can't prepare '$lc_sql': ".$dbh->errstr() ); my $lc_res = $lc_sth->execute( $last_check ) or die( "Can't execute: ".$lc_sth->errstr() ); - $dbh->disconnect(); + zmDbDisconnect(); } else {