#!/usr/bin/perl

use XML::XPath;
use XML::XPath::XMLParser;

my $skip=0;
open FH, '<', 'pxe-default-image.spec' or die "Error: could not open pxe-default-image.spec: ".$?;
while (<FH>) {
  if ($_ =~ /^# END: generated BuildRequires/) {
    $skip = 0;
    my $xp = XML::XPath->new(filename => 'pxe-default-image.config.xml');
    my $nodeset = $xp->find('/image/packages/package[@name]');
    foreach my $node ($nodeset->get_nodelist) {
      print "BuildRequires:  ".($node->getAttribute('name') || "brokenXML")."\n";
    }
  }
  print $_ unless $skip;
  $skip = 1 if $_ =~ /^# START: generated BuildRequires/;
}
close FH;