use master branch again for osrf/eg install
[sitka/sitka-tools.git] / 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 }