#!/usr/bin/perl -w

use strict;

# This wouldn't be needed if kickstart includes actually worked in RH 9
# (they're not documented properly, and have bugs reported in RH's bugzilla)
# -- Marc

die "$0 source_file\n" if ($#ARGV != 0);

open(SRC, $ARGV[0]) or die "Can't open ARGV[0]: $!";

print <<EOF;
# *****************************************************************************
# Warning, this file is autogenerated from the associated .src. Do not edit !!! 
# *****************************************************************************


EOF

while (defined ($_ = <SRC>))
{
    if (s/^%include //)
    {
	chomp;
	open (SUBSRC, $_) or die "Can't open $_: $!";
	print <SUBSRC>;
	close SUBSRC;
	next;
    }

    print $_;
}

close (SRC);