File Coverage

blib/lib/XML/Config.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

#(c)2000 XML Global Technologies, Inc.
# $Id: Config.pm,v 1.2 2000/05/21 23:41:03 matt Exp $

package XML::Config;
use XML::Parser;
use vars qw($VERSION);

my $err_str = undef;
$VERSION = 0.2;


sub new {
	my $class = shift;
	my $self = {};
	bless($self,$class);
	return($self);
}



sub load_conf {
	my ($self, $file, $h, $dno) = @_;


	$self->{fill_callers_hash} = 1;
	$self->{enforce_overwrite} = 1;

	if (!defined($h)) {
		$self->{fill_callers_hash} = 0;
	}

	if (!defined($dno)) {
		$self->{enforce_overwrite} = 0;
	}


	eval {
		my $xp = new XML::Parser(parent => $self, Handlers => {Char => \&XML::Config::__charparse});
		$xp->parsefile($file);
		undef($xp);
	};

	if ($@) {

		if ($@ !~ m!file.*found!i) {
			my $fbak = $file . '.bak';
			undef($@);

			eval {
				my $xp = new XML::Parser(parent => $self, Handlers => {Char => \&XML::Config::__charparse});
				$xp->parsefile($file);
				$err_str = "WARN: Loaded backup configuration\n";
				undef($xp);
			};

			if ($@) {
				$err_str = "PARSE ERROR, BACKUP READ ATTEMPTED: $@\n";
				return(undef);
			}
		}

		else {
			$err_str = "PARSE ERROR: $@\n";
			return(undef);
		}

	}


	my $conf = $self->{conf};


	if ($self->{fill_callers_hash} > 0) {

		if ($self->{enforce_overwrite}) {
			for (keys(%{$conf})) {
				my $k = $_;
				foreach my $no_o (@{$dno}) {
					if ($no_o eq $k) {
						next();
					}
					else {
						$h->{$k} = $conf->{$k};
					}
				}

			}
		}

		else {
			for (keys(%{$conf})) {
				$h->{$_} = $conf->{$_};
			}
		}
		return(1);
	}

	else {
		return %{$conf};
	}
}


sub err_str { return $err_str }

sub __charparse {
	my ($xp,$str) = @_;
	my $self = $xp->{parent};
	return if $str =~ /^\s*$/m;
	$self->{conf}{$xp->current_element} = $str;
}

__END__