deployment/parse-osrf-xml.pl

   1 #!/usr/bin/perl
   2 use XML::LibXML;
   3 use Data::Dumper;
   4
   5 # load the XML file
   6 my $filename = shift;
   7 open my $fh, '<', $filename;
   8 binmode $fh; # drop all PerlIO layers possibly created by a use open pragma
   9 my $doc = XML::LibXML->load_xml(IO => $fh);
  10
  11 # get the values we want
  12 my $xpath_prefix = '/opensrf/default/apps/open-ils.storage/app_settings/databases/database';
  13 my %config;
  14 for my $attr ( qw/host port user db pw/ ) {
  15     $config{$attr} = $doc->findvalue("$xpath_prefix/$attr");
  16     #print $doc->findvalue("$xpath_prefix/$attr") . "\n";
  17 }
  18 for my $k ( qw/host port user db pw/ ) {
  19     print "$k: " . $config{$k} . "\n";
  20 }