if($demo_mode){
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("DISABLED FOR DEMO");parent.window.close()</script>~;
}else{
&get_input;
foreach $tag (@body_tags){
$tag_=$tag;$tag_=~s/body_tag_//;
	if($$tag ne ''){$body_tag = qq~$tag_="$$tag"~;
	if($tag_ =~ /^marginwidth/){$body_tag .= qq~ leftmargin="$$tag"~}
	if($tag_ =~ /^marginheight/){$body_tag .= qq~ topmargin="$$tag"~}	
	push(@TAGS,$body_tag);
	}
}
$TAGS=join(" ",@TAGS);
if($TAGS){$TAGS=" ".$TAGS;}
	$page =~ s/\?.+$//;
open(P,"$page");
while(<P>){$PAGE.=$_}
$PAGE =~ m`<body([^>]*)>`;$bt=$1;
if($bt =~ /wrx\./){$bt=""}
@BTAGS=split(/ /,$bt);
foreach $btag (@BTAGS){
	if($btag !~ m/^bgcolor|^text|^link|^vlink|^alink|^topmargin|^leftmargin|^marginwidth|^marginheight|^background/i){push(@OTAGS,$btag)}
	}
$OTAGS = join(" ",@OTAGS);
if($OTAGS){$OTAGS=" ".$OTAGS;}
$PAGE =~ s`<body.*?>`<body$TAGS$OTAGS>`is;


$PAGE=~s`<title>.+?</title>`<title>$title</title>`si;
$PAGE=~s`<script.+src=.+?\?prompt.+?/script>``sig;
if($script==1){
	$url_to_editor=~s|http://.+?/|/|;
	$PAGE=~s`(<title>.+</title>)`$1\n<script language=javascript src="$url_to_editor?prompt"></script>`si;
}
$PAGE=~m`(<meta.+name.+keywords.+?content=".*?)"`is;$kw=$1;
	if($kw){
	$PAGE=~s`(<meta.+name.+keywords.+?content=").*?"`$1$metakey"`si;
	}else{
	$PAGE=~s`(<title>.+</title>)`$1\n<META NAME ="keywords" CONTENT="$metakey">`si;
	}
	$PAGE=~m`(<meta.+name.+description.+?content=".*?)"`is;$ds=$1;
	if($ds){
	$PAGE=~s`(<meta.+name.+description.+?content=").*?"`$1$metadesc"`si;
	}else{
	$PAGE=~s`(<title>.+</title>)`$1\n<META NAME ="description" CONTENT="$metadesc">`si;
	}
if($enter ne 'none'){$enter=~s/x//;
	if($PAGE=~m`<meta.+page-enter.+?duration=.*(\d+).+?transition=(\d+)`si){
	$PAGE=~s`(<meta.+page-enter.+?duration=).+?>`$1$enterd,Transition=$enter)">`is;
	}else{
	$PAGE=~s`(<title>.+</title>)`$1\n<META http-equiv="Page-Enter" CONTENT="RevealTrans(Duration=$enterd,Transition=$enter)">`si;
	}
}
if($enter eq 'none'){
	$PAGE=~s`<meta.+page-enter.+?>\n``si;
}
if($exit ne 'none'){$exit=~s/x//;
	if($PAGE=~m`<meta.+page-exit.+?duration=.*(\d+).+?transition=(\d+)`si){
	$PAGE=~s`(<meta.+page-exit.+?duration=).+?>`$1$exitd,Transition=$exit)">`is;
	}else{
	$PAGE=~s`(<title>.+</title>)`$1\n<META http-equiv="Page-exit" CONTENT="RevealTrans(Duration=$exitd,Transition=$exit)">`si;
	}
}
if($exit eq 'none'){
	$PAGE=~s`<meta.+page-exit.+?>\n``si;
}
open(P,">$page");
print P "$PAGE";
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$com_text_page_write");parent.dialogArguments.wash("$page_url");parent.window.close()</script>~;
}#else demo
1;