#!/usr/bin/perl
#	comps2sh : generate sh script from comps

$dir = '/mnt/cdrom/RedHat/RPMS';
$comps = '/mnt/cdrom/RedHat/base/comps';
$flags = '';
$shfile = 'install';

open (COMPS,"$comps");
while (<COMPS>) {
	chop;
	
	if (/^$/) {
		next ;
	}
	
	if (/^\d/) {
	 	$head = "#!/bin/sh \n## \n";
		$name = s/\s/_/g;
		$name = substr($_,1,32);
	
		open (OUT,"> $shfile$name");
		select OUT;
		print $head;
		
		next;
	}
	
	if (/^end/) {
		next
		}
 
	print "rpm -ivh $flags $dir\/$_-[0-9]* \n";

}
unlink("install");