#!/usr/bin/perl
# Cheezy installer log replay script. Pauses before screen clears until you
# hit enter, so you can see what happened during the install.
$|=1;
while (<>) {
	if (/(.*?)(\e\[2J|\e\[\?1049h)(.*)/) {
		print $1;
		<STDIN>;
		print $3;
	}
	else {
		print $_;
	}
}
