[RT17143] Syntax errors fixed
authorLiam Whalen <liam.whalen@bc.libraries.coop>
Wed, 30 Sep 2015 18:47:02 +0000 (11:47 -0700)
committerLiam Whalen <liam.whalen@bc.libraries.coop>
Wed, 30 Sep 2015 18:47:02 +0000 (11:47 -0700)
data_cleanup/date1/date1_cleanup.pl

index de88edd..df549fb 100644 (file)
@@ -7,8 +7,10 @@ use DBI;
 use OpenSRF::Utils::Config;
 use Getopt::Long;
 use Net::Domain;
-use XML::LibXML
-use XML::LibXML::XPathContext
+use XML::LibXML;
+use XML::LibXML::XPathContext;
+
+my $output = '';
 
 my ($gather, $hostname, $core_config, $tmpdir) =
     (0, Net::Domain::hostfqdn(), '/srv/openils/conf/opensrf_core.xml', '/tmp/');
@@ -30,6 +32,8 @@ my $confxml = $xmlparser->parse_file($core_config);
 my $confxpc = XML::LibXML::XPathContext->new($confxml);
 my $osrfxml = $xmlparser->parse_file($settings_config);
 
+check_all_database_connections();
+
 sub check_all_database_connections {
     print "\nChecking database connections\n";
     # Check database connections
@@ -49,7 +53,7 @@ sub check_all_database_connections {
     }
 
     foreach my $database (@databases) {
-        unless ($database->parentNode->parentNode->localname eq 'open-ils.storage') {
+        unless ($database->parentNode->parentNode->localname eq 'open-ils.cstore') {
             next;
         }