Commit | Line | Data |
---|---|---|
0155bbac JD |
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 db/ ) { | |
19 | print "$k: " . $config{$k} . "\n"; | |
20 | } |