$nul=" ";$url=$param1;
$url_to_editor=~s|http://.+?/|/|;
$path_to_domain=~s!/$!!;$path_to_domain.="/";
$param1=~s`http://.+?/`$path_to_domain`;
open(P,"$param1");
while(<P>){$PG.=$_}
$PG=~m`<title>(.+?)</title>`is;$title=$1;
$nul=~m/( )/;
$PG=~m`<meta.+name.+keywords.+?content="(.*?)"`is;$keywords=$1;
$nul=~m/( )/;
$PG=~m`<meta.+name.+description.+?content="(.*?)"`is;$descriptor=$1;
$nul=~m/( )/;
if($PG=~m`src[^>]+\?prompt`si){$script1="checked"}else{$script0="checked"}
$nul=~m/( )/;
$PG=~m`<meta.+page-enter.+?duration=.*(\d+).+?transition=(\d+)`is;$enterd=$1;$enter=$2;$entera="a".$enter;$$entera="selected";
$nul=~m/( )/;
$PG=~m`<meta.+page-exit.+?duration=.*(\d+).+?transition=(\d+)`is;$exitd=$1;$exit=$2;$exitb="b".$exit;$$exitb="selected";
$PG=~m`<body(.+?)>`is;$body=lc($1);
$body=~s/['"]//g;
@body=split(/ /,$body);
for(@body){($n,$v)=split(/=/);$$n=$v}
$nul=~m/( )/;
open(TL,"$path_to_lang/$thislang/page_wizard.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
if($demo_mode){
	$demo1=qq~'alert("DISABLED FOR DEMO")'~;
}else{
	$demo1=qq~document.forms[0].submit()~;
}
print "Content-type: text/html\n\n";
open(PW,"$htm/pagewizard.txt");
while(<PW>){
s/\$(\w+)/${$1}/eg;
print}
1;