sub diehtml {
	print start_html('Error processing order'), @_, end_html(), "\n";
	exit 1;
}