#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
my $lab_root = dirname $0;

opendir( DH, $lab_root) or die "Cannot open $lab_root: $!\n";
my @kickstarts = grep ( /\.ks$/, readdir(DH));

my @bsname ;
my $hostname;
for my $kickstart (@kickstarts) {
    my $name = (split /\./)[0], $kickstart;
    open my $fh, $kickstart or die "Cannot open $kickstart: $!";
    while (<$fh>) {
        chomp;
        my @fields = split /=/;
        if ( $fields[0] eq '--hostname') {
            $hostname = $fields[1];
            print "$hostname\n";
            push @bsname , $hostname;
        }else {
            $hostname = $name;
            print "$hostname\n";
            push @bsname , $hostname;
        }
       close $fh;
    }
}