#!/usr/bin/perl


$fileprefix = "Installed Macintosh HD";
$folderprefix = "Created the Folder: Macintosh HD";

print "\nAssuming that the prefixes are:\n";
print "\t\"$fileprefix\"\n";
print "\t\"$folderprefix\"\n";
print "Also assuming that : represents /.\n";

print "Is this acceptable(y/n)? ";
$ok = <STDIN>;
chomp $ok;

print "\n";

if($ok eq "y" || $ok eq "yes"){
	print "Where is the install log file located?\n";
	$log = <STDIN>;
	chomp $log;
	
	print "Reading data...\n";
	open(LOG,"< $log");
	@log = <LOG>;
	close(LOG);
	
	print "Chomping data...\n\n";
	for($i = 0; $i < @log; $i++){
		chomp $log[$i];
	}
	
	$maxinitshow = 5;
	$maxinitshow = @log if(@log < $maxinitshow);
	
	for($i = 1; $i < $maxinitshow + 1; $i++){
		print "$i: $log[$i - 1]\n";
	}
	
	print "\nHow many of the inital lines are garbage? ";
	$delnum = <STDIN>;
	chomp $delnum;
	print "\n";
	
	for($i = 0; $i < $delnum; $i++){
		shift @log;
	}
	
	
	
	
	for($i = $maxinitshow; $i > 0; $i--){
		print "$i: $log[@log-$i]\n";
	}
	
	print "\nHow many of the end lines are garbage? ";
	$delnum = <STDIN>;
	chomp $delnum;
	print "\n\n";
	
	my @folders;
	my @files;
	
	print "Formatting and categorizing data for removal...\n";
	for($i = 0; $i < @log - $delnum; $i++){
		if($log[$i] =~ /$fileprefix/){
			$log[$i] =~ s/$fileprefix//;
			
			$log[$i] =~ s/:/\//g;
			$log[$i] =~ s/ /\\ /g;
			$files[@files] = $log[$i];
		}
		if($log[$i] =~ /$folderprefix/){
			$log[$i] =~ s/$folderprefix//;
			
			$log[$i] =~ s/:/\//g;
			$log[$i] =~ s/ /\\ /g;
			$folders[@folders] = $log[$i];
		}
	}
	
	print "Removing all the files...\n";
	for($i = 0; $i < @files; $i++){
#		print "Would rm file$i: $files[$i]\n";
		system("rm $files[$i]");
	}
	print "Removing all the folders...\n";
	for($i = 0; $i < @folders; $i++){
#		print "Would rmdir folder$i: $log[$i]\n";
		system("rm -Rf $files[$i]");
	}
	
	print "Done!";
	
	print "\n\n";
} else {
	print "If you don't like the options, change them yourself.\n";
}