Open-ILS/src/support-scripts/object_dumper.pl

   1 #!/usr/bin/perl
   2 # ---------------------------------------------------------------------
   3 # Generic databse object dumper.
   4 # ./object_dumper.pl <bootstrap_config> <type>, <type>, ...
   5 # ./object_dumper.pl /openils/conf/opensrf_core.xml permission.grp_tree
   6 # ---------------------------------------------------------------------
   7
   8 use strict;
   9 use warnings;
  10 use OpenSRF::Utils::JSON;
  11 use OpenSRF::System;
  12 use OpenILS::Utils::Fieldmapper;
  13 use OpenSRF::Utils::SettingsClient;
  14
  15 my $config = shift || die "bootstrap config required\n";
  16
  17 OpenSRF::System->bootstrap_client( config_file => $config );
  18 Fieldmapper->import;
  19
  20 require OpenILS::Utils::CStoreEditor;
  21 my $e = OpenILS::Utils::CStoreEditor->new;
  22
  23 for my $t (@ARGV) {
  24         $t =~ s/\./_/og;
  25         my $m = "retrieve_all_$t";
  26         my $d = $e->$m();
  27         print OpenSRF::Utils::JSON->perl2JSON($_) . "\n" for @$d;
  28 }