File Coverage

blib/lib/RedHat/XML.pm

Criterion	Covered	Total	%
statement	24	37	64.8
branch	7	14	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	34	55	61.8

package RedHat::XML;

our $VERSION = '0.3';

#####################################################################
# XML.pm
# by Patrick Devine
# [e-mail]
#
# This software is covered under the same terms as Perl itself.
#
# WARNING:
#
# This software is no where near finished and lots of stuff will
# probably change before it is officially released (as 1.0).
#

use RedHat::SysConfig;
@ISA = qw/ RedHat::SysConfig /;

$TAB	= 2;

#####################################################################
# method:	xml
# function:	creates a scalar containing all of the data necessary
#		for to create a kickstart file

sub xml {
  my $self	= shift;
  my $version	= shift;

  my $buf;
  my $settings	= $self->{settings};


  $buf = _hash_pair( $settings, $TAB, '' );

  \$buf;


}

sub _hash_pair {
  my $data_set	= shift;
  my $offset	= shift;
  my $node_name	= shift;

  my $buf;

  if( ref( $data_set ) eq 'HASH' ) {
    for( sort keys %{ $data_set } ) {

      if( ref( $data_set->{$_} ) eq 'HASH' ) {
        $buf .= ' ' x $offset . "<$_>\n";
        $buf .= _hash_pair( $data_set->{$_}, $offset + $TAB, '' );
        $buf .= ' ' x $offset . "\n";
      } elsif( ref( $data_set->{$_} ) eq 'ARRAY' ) {
        #$buf .= ' ' x $offset . "<$_>\n";
        $buf .= _hash_pair( $data_set->{$_}, $offset, $_ );
        #$buf .= ' ' x $offset . "\n";
      } else {
        $buf .= ' ' x $offset . "<$_>";
        $buf .= _hash_pair( $data_set->{$_}, 0, '' ) . "\n";
      }
    }
  } elsif( ref( $data_set ) eq 'ARRAY' ) {
    for my $array ( @{ $data_set } ) {
      if( ref( $array ) eq 'ARRAY' ) {
        $buf .= ' ' x $offset . "<$node_name>";
        $buf .= _hash_pair( $array, 0, '' );
	$buf .= "\n";
      } elsif( ref( $array ) eq 'HASH' ) {
        $buf .= ' ' x $offset . "<$node_name>\n";
        $buf .= _hash_pair( $array, $offset + $TAB, '' );
        $buf .= ' ' x $offset . "\n";
      } else {
        $buf .= ' ' x $offset . "<$node_name>";
        $buf .= _hash_pair( $array, 0, '' );
	$buf .= "\n";
      }
    }

  } else {
    $buf .= ( $data_set ? "$data_set" : 'true' );
  }

  $buf;

}


1;

__END__