#!/usr/bin/perl

print "Content-type: application/octet-stream\n";
print "Content-Disposition: attachment\; filename=\"kickstart.iso\"\n";
print "Content-Transfer-Encoding: binary\n";

binmode(STDOUT);

exec("mkisofs -r -T -J -V \"Redhat KSBoot\" -b pub/isolinux/isolinux.bin -c  pub/isolinux/boot.cat -no-emul-boot -boot-load-size 4 -boot-info-table -v .");