#!/usr/bin/perl

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

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