if($demo_mode){
print "Content-type: text/html\n\n";
print qq~
~;
}else{
open(TL,"$path_to_lang/$thislang/editsource.txt");
while(){push(@LaNg,$_)}
&exec_lang;
$path_to_library.="/";
$param1 =~ s/\?.+$//;
$param1 =~ m!http://.+?/(.+)!;$file=$path_to_domain."/".$1;
open(F,"$file");
while(){$FILE.=$_}
if($FILE=~s! $js5 ")~}
if($demo_mode){
$submit=qq~alert("DISABLED FOR DEMO")~;
}else{
$submit=qq~document.forms[0].submit()~;
}
print "Content-type: text/html\n\n";
require "$htm/editsource.txt";
}#else demo
1;