[sitka/sitka-tools.git] / deployment / parse-osrf-xml.pl

#!/usr/bin/perl
use XML::LibXML;
use Data::Dumper;

# load the XML file
my $filename = shift;
open my $fh, '<', $filename;
binmode $fh; # drop all PerlIO layers possibly created by a use open pragma
my $doc = XML::LibXML->load_xml(IO => $fh);

# get the values we want
my $xpath_prefix = '/opensrf/default/apps/open-ils.storage/app_settings/databases/database';
my %config;
for my $attr ( qw/host port user db pw/ ) {
    $config{$attr} = $doc->findvalue("$xpath_prefix/$attr");
    #print $doc->findvalue("$xpath_prefix/$attr") . "\n";
}
for my $k ( qw/host port db/ ) {
    print "$k: " . $config{$k} . "\n";
}
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	}