#!/afs/athena/contrib/perl/p

open(PID, "$ENV{'HOME'}/.mosaicpid");
chop($pid = (<PID>));
close(PID);

unlink("/tmp/Mosaic.$pid");
&rcont_file($ARGV[0]);

print "Killing pid \"$pid\"\n";
kill 30, $pid;

sub rcont_file {
	local($url) = @_;

	open(RF, ">/tmp/Mosaic.$pid");
	print RF "newwin\r\n";
	print RF "$url\r\n";
	close(RF);
}