#!/usr/bin/perl

print "<iframe scrolling='auto' name='myiframe' id='myiframe' src='index.raw' frameborder='0' width='100%' onload='resizeIframe(this);'></iframe>\n";
print "<script>\n";
print "function setupObserver(iframe) {\n";
print "	const body = iframe.contentDocument.body;\n";
print "	const updateDimensions = () => {\n";
print "		iframe.style.height = iframe.contentDocument.body.offsetHeight + 'px';\n";
print "	};\n";
print "	const observer = new MutationObserver(updateDimensions);\n";
print "	observer.observe(body, {\n";
print "		attributes: true,\n";
print "		childList: true,\n";
print "		characterData: true,\n";
print "		subtree: true,\n";
print "	});\n";
print "}\n";
print "function resizeIframe(obj) {\n";
print "  if (!obj) return;\n";
print "	 setupObserver(obj);\n";
print "  obj.style.height = obj.contentWindow.document.body.scrollHeight + 'px';\n";
if ($ENV{SKIN_NAME} eq "enhanced") {
	print "	obj.style.width = obj.contentWindow.document.body.scrollWidth + 'px';\n";
} else {
	print "	obj.style.width = '98vw';\n";
}
print "	window.scrollTo(0,0);\n";
print "	window.parent.scrollTo(0,0);\n";
print "	window.parent.parent.scrollTo(0,0);\n";
print "}\n";
print "</script>\n";