8 use OpenSRF::EX qw/:try/;
9 use OpenSRF::Utils::Logger qw/$logger/;
11 use OpenSRF::AppSession;
12 use OpenSRF::Utils::SettingsClient;
16 binmode(STDIN, ':utf8');
17 binmode(STDOUT, ':utf8');
21 my ($config, $delim, $after,$deleted) = ('@sysconfdir@/opensrf_core.xml', ' | ');
25 "bootstrap=s" => \$config,
26 "delimiter=s" => \$delim,
27 "include-deleted" => \$deleted,
30 OpenSRF::System->bootstrap_client( config_file => $config );
32 # XXX Get this stuff from the settings server
33 my $sc = OpenSRF::Utils::SettingsClient->new;
34 my $db_driver = $sc->config_value( reporter => setup => database => 'driver' );
35 my $db_host = $sc->config_value( reporter => setup => database => 'host' );
36 my $db_port = $sc->config_value( reporter => setup => database => 'port' );
37 my $db_name = $sc->config_value( reporter => setup => database => 'db' );
39 $db_name = $sc->config_value( reporter => setup => database => 'name' );
40 print STDERR "WARN: <database><name> is a deprecated setting for database name. For future compatibility, you should use <database><db> instead." if $db_name;
42 my $db_user = $sc->config_value( reporter => setup => database => 'user' );
43 my $db_pw = $sc->config_value( reporter => setup => database => 'pw' );
45 die "Unable to retrieve database connection information from the settings server" unless ($db_driver && $db_host && $db_port && $db_name && $db_user);
47 my $dsn = "dbi:" . $db_driver . ":dbname=" . $db_name .';host=' . $db_host . ';port=' . $db_port;
49 my $dbh = DBI->connect($dsn,$db_user,$db_pw, {AutoCommit => 1, pg_enable_utf8 => 1, RaiseError => 1});
51 my $SQL = 'SELECT id FROM biblio.record_entry WHERE id > 0';
52 $SQL .= " AND edit_date > '$after'" if ($after);
53 $SQL .= " AND deleted IS FALSE" if (!$deleted);
55 my $ids = $dbh->selectcol_arrayref($SQL);
62 REGEXP_REPLACE(marc, E'\\n','','g') AS marc
63 FROM biblio.record_entry
67 for my $id ( @$ids ) {
68 my $row = $dbh->selectrow_hashref( $SQL, {}, $id );
69 print "$$row{deleted}$delim$$row{id}$delim$$row{tcn_source}$delim$$row{tcn_value}$delim$$row{marc}\n";