#!/usr/bin/perl
# Obey the remove commands generated but not done by mirror.

# NEED TO unlink /public/micros/ibmpc/simtel20/sprdsht/tc810.arc
# NEED TO rmdir /public/micros/ibmpc/simtel20/sprdsht

while( <> ){
	chop;
	if( /^NEED TO (unlink|rmdir) (\/public.*)/ ){
		print "$1(\"$2\")\n";
		eval "$1(\"$2\")";
	}
}