Update find_orphaned_reports.pl to modern Evergreen (with apologies to chromatic):
authordbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 27 Oct 2009 19:02:15 +0000 (19:02 +0000)
committerdbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 27 Oct 2009 19:02:15 +0000 (19:02 +0000)
  * prefer non-deprecated reporter database settings
  * use opensrf_core.xml instead of bootstrap.conf
  * fix typo (boostrap -> bootstrap)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14632 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/reporter/find_orphaned_reports.pl

index 099e3f8..c3258b5 100755 (executable)
@@ -10,10 +10,10 @@ use OpenSRF::Utils::SettingsClient;
 use OpenILS::Reporter::SQLBuilder;
 use File::Find;
 
-my ($config, $du, $live, %seen) = ('SYSCONFDIR/bootstrap.conf', 0, 0);
+my ($config, $du, $live, %seen) = ('SYSCONFDIR/opensrf_core.xml', 0, 0);
 
 GetOptions(
-       "boostrap=s"    => \$config,
+       "bootstrap=s"   => \$config,
        "du"    => \$du,
        "live"  => \$live,
 );
@@ -24,9 +24,9 @@ my $sc = OpenSRF::Utils::SettingsClient->new;
 my $db_driver = $sc->config_value( reporter => setup => database => 'driver' );
 my $db_host = $sc->config_value( reporter => setup => database => 'host' );
 my $db_port = $sc->config_value( reporter => setup => database => 'port' );
-my $db_name = $sc->config_value( reporter => setup => database => 'name' );
+my $db_name = $sc->config_value( reporter => setup => database => 'db' ) || $sc->config_value( reporter => setup => database => 'name' );
 my $db_user = $sc->config_value( reporter => setup => database => 'user' );
-my $db_pw = $sc->config_value( reporter => setup => database => 'password' );
+my $db_pw = $sc->config_value( reporter => setup => database => 'pw' ) || $sc->config_value( reporter => setup => database => 'password' );
 
 my $output_base = $sc->config_value( reporter => setup => files => 'output_base' );