$place_close_TD_tags_at_end_of_line=1;
&get_input;
&check_cookie;
&check_login;
	$URL =~ s/\?.+$//;$URL=~s`%20` `g;
$URL =~ m!^http://.+?/(.+)!;$FILEX="/".$1;
$FILE = $path_to_domain.$FILEX;

check_path($FILE,$saveas);
if(!-f $FILE) {
	if($FILE !~ m!/[^/]+\.[^/]+$!){
		@default_file_names=split(/,/,$default_file_name);
		foreach $dn (@default_file_names){
			$FILE.=$dn;
			if(-f $FILE){last}
		}
	}
}
if(!-f $FILE) {
	error("$com_text_write3 => $FILE");
}
if($saveas ne ''){&save_it_as}
open(H,"$FILE") || error("$com_text_write4 $FILE");
while(<H>){$PAGE .= $_}
close(H);
	while($PAGE =~ m!includeblock="(.+?)"[^>]*>(.+?)</(span|div)>!sig){$ssi{$1}=$2}
	while($PAGE =~ m!excludeblock="(.+?)"[^>]*>(.+?)</(span|div).+?excludeblock="\1"!sig){$exc{$1}=$2}
if($backup){backup($FILE)}
foreach $eblock (@EDITS){
	cleanup($$eblock);
	$$eblock =~ s!wrxib="(.+?)"!$ssi{$1}!g;
	$$eblock =~ s!wrxeb="(.+?)"!$exc{$1}!g;
	($n,$v)=split(/_/,$eblock,2);
	$$eblock=~s!<=textarea!</textarea!ig;
	$PAGE =~ s`($n="$v"[^>]*>)(.*)(</.+?$n="$v")`$1$$eblock$3`si;
			# must have quotes to keep 12 from matching with 123
}
if($edit_body){
	cleanup($edit_body);
	if($edit_body=~m`editblock|includeblock`){$editing_mode=0}
	$edit_body =~ s!wrxib="(.+?)"!$ssi{$1}!g;
	$edit_body =~ s`wrxeb="(.+?)"`$exc{$1}`g;
	$edit_body=~s`\&lt;`<`g;$edit_body=~s`\&gt;`>`g;
	if($editing_mode==1 && !$super){error("$com_text_write1")}
	if($editing_mode==2 && $PAGE !~ /FULL_PAGE_EDITING="YES"/ && !$super){error("$com_text_write2")}
	if($editing_mode==0 || $super){
		$PAGE =~ s`(\<body.+body\>)`$edit_body`si;
	}
	if($editing_mode==2 && $PAGE =~ /FULL_PAGE_EDITING="YES"/){
		$PAGE =~ s`(\<body.+body\>)`$edit_body`si;
	}
}	
$PAGE =~ s`\s*<SCRIPT language=JavaScript>\s*<!--\s*var SymRealOnLoad.+?SymOnLoad;\s*//-->\s*</SCRIPT>\s*``gis;

if($PAGE =~ /\?add_nu_user/ && $PAGE !~ /\?signup_js/){
	$add_form=qq~\n<script language=javascript src="$url_to_editor?signup_js"></script>
	~;
	$PAGE =~ s`(.+)(</body>.+)`$1$add_form$2`si;
}
if($PAGE =~ /\?basic_add_user/ && $PAGE !~ /\?basic_add_user_js/){
	$add_form2=qq~\n<script language=javascript src="$url_to_editor?basic_add_user_js"></script>
	~;
	$PAGE =~ s`(.+)(</body>.+)`$1$add_form2$2`si;
}

if($PAGE =~ /wrx_zoom/ && $PAGE !~ /wrx_img/){
	$ZOOM=qq~<img id=wrx_img onmousedown='this.style.display="none";wrx_revis()' src="$url_to_ikons/spacer.gif" title="Click To Close" style="DISPLAY:none;POSITION:absolute;CURSOR:hand">
~;
	$PAGE =~ s`(.+)(</body>.+)`$1$ZOOM$2`si;
}
	$ZOOMJS=qq~	<SCRIPT language=javascript src="$url_to_editor?functions_js"></SCRIPT>\n~;
if($PAGE =~ /wrx_zoom/ && $PAGE !~ /functions_js/){
	$PAGE =~ s`(.+)(</head>.+)`$1$ZOOMJS$2`si;
}
if($PAGE =~ /wrx_note/ && $PAGE !~ /functions_js/){
	$PAGE =~ s`(.+)(</head>.+)`$1$ZOOMJS$2`si;
}
if($#wrx_notez>-1){
	foreach $wn (@wrx_notez){
	$PAGE =~ s`\s*<span[^>]*noteblock="$wn"[^>]*>.+?</table>\s*</span>\s*``si;
	}
}
if($wrx_notes){
	$PAGE =~ s`(.+)(</body>.+)`$1\n$wrx_notes\n$2`si;
}
if($dav eq "auth"){
if($FILE !~ m|_pending\.\w+$|){$FILE =~ s|(.\w+$)|_pending$1|;$URL =~ s|(.\w+$)|_pending$1|}
$URL=~m|http://.+?(/.+)|;$URL_S=$1;
$datetime = localtime;($wkday, $mon, $date, $time, $yr) = split(/\s+/,$datetime);$now=$mon."/".$date."-".$time;
$LOGREC=qq~$URL_S&$username&$now\n~;
open(LOG,">>$path_to_changelog");
print LOG "$LOGREC";
close(LOG);
}	
if($real =~/\./){
	open(LOG,"$path_to_changelog");
	while(<LOG>){
		unless(/^$FILEX&/){$LOGREC.=$_}
	}
	open(LOG,">$path_to_changelog");
	print LOG "$LOGREC";
	close(LOG);	
unlink($FILE);
$FILE=$path_to_domain.$real;
$URL=~s!_pending(\..+)!$1!;
}

open(H,">$FILE") || error("$com_text_write15 $URL");
print H "$PAGE";
close(H);

if($tidy){&tidy}

foreach $iblock (@INCLUDES){
($n,$INC)=split(/_/,$iblock,2);
	$INC=~s!http://$host!!;$INC=~s!^/!!;
	cleanup($$iblock);
	if($strip_urls){
		$hostx=$host;$hostx=~s`^www\.``;$$iblock =~ s`([^>])http://$hostx/`$1/`g;$$iblock=~ s`([^>])http://www\.$hostx/`$1/`g;
	}
	$$iblock=~s`^\s*``;
	if($tidy){tidy_block($$iblock)}
	if($INC=~/^userFolder\b/){
		$user_root=~s`http://$host`$path_to_domain`;
		$INC=~s`userFolder`$user_root`;
	}else{
		$INC=$path_to_domain."/".$INC;
	}
	if($backup && $INC !~ m`/path/navigation.inc`){back_inc($INC)}
	if($$iblock=~/excludeblock=/){
		open(P,"$INC");
		while(<P>){$PINC.=$_}
		while($PINC =~ m!(excludeblock="(.+?)".+?excludeblock="\2")!sig){$x=$1;
		$$iblock =~ s`excludeblock="$2".+?excludeblock="$2"`$x`sig;
		}
	}		
open(P,">$INC") || error("$com_text_write5 = $INC");
print P "$$iblock";
close(P);
$INC='';
}

sub cleanup{ #++++++++++++++++++++++++++++++++++++++++++++++++++
if($strip_urls){
	$hostx=$host;$hostx=~s`^www\.``;$_[0] =~ s`([^>])http://$hostx/`$1/`g;$_[0]=~ s`([^>])http://www\.$hostx/`$1/`g;
}
$_[0]=~s` unselectable="\w{2,3}"``g;
$_[0]=~s` ondblclick=""``gi;
$_[0]=~s`BORDER-\w+?: 0px*;*``gi;
$_[0]=~s`PADDING-\w+?: 0px*;*``gi;
$_[0]=~s`style="\W*?"``gi;
$_[0]=~s`style="\s+(.+?)"`style="$1"`gi;
$_[0]=~s`contenteditable="?\w{4,5}"? ?``gi;
$_[0]=~s`  +` `g;
$_[0]=~s` >`>`g;
$_[0]=~s`(</table>)`\n$1\n`gi;
$_[0]=~s`(<tr)`\t$1`gi;
$_[0]=~s`(</tr>)`\n\t$1`gi;
$_[0]=~s`(<td)`\t\t$1`gi;
if($place_close_TD_tags_at_end_of_line){$_[0]=~s`\s+(</td>)`$1`gi}
$_[0]=~s`(</TBODY>)`\n$1`gi;
$_[0]=~s`(<IMG.+?)/>`$1>`ig;
$_[0]=~s`(<IMG.+?)>`$1 />`ig;
$_[0]=~s`</FORM>`\n</FORM>\n`ig;
$_[0]=~s`\s*<CENTER>`\n<CENTER>\n`sig;
$_[0]=~s`\s*</CENTER>\s*`\n</CENTER>\n`sig;
$_[0]=~s`</DIV>\s*`</DIV>\n`sig;
$_[0]=~s`<IMG onmousedown='this.style.display="none";wrx_revis()' id=wrx_img .+?>`<img id=wrx_img onmousedown='this.style.display="none";wrx_revis()' title="$com_text_alt" style="DISPLAY:none;POSITION:absolute;CURSOR:hand">`i;
$_[0]=~s/<([\w]+) lang=([^ |>]+)([^>]+)/<$1$3/gi;
$_[0]=~s/<\?//g;
$_[0]=~s/<xml[^>]+>//gi;
$_[0]=~s/<\xml[^>]+>//gi;
$_[0]=~s/<?xml[^>]+>//gi;
$_[0]=~s/<\/?st1:[^>]*>//g;  
$_[0]=~s/style="[^"]?excel[^"]?"//gi;  
$_[0]=~s/style="[^"]?access[^"]?"//gi;  
$_[0]=~s/style="[^"]?word[^"]?"//gi;  
$_[0]=~s/<LI>\s*<P>/<LI>/gi;
$_[0]=~s/<\/P>\s*<\/LI>/<\/LI>/gi;
$_[0]=~s/<\/?[a-z]\:[^>]*>//g; 
$_[0]=~s/class=Mso\w+//gi;
$_[0]=~s/ style=""//gi;
$_[0]=~s/<b>/<strong>/gi;
$_[0]=~s/<\/b>/<\/strong>/gi;
$_[0]=~s/<em>/<i>/gi;
$_[0]=~s/<\/em>/<\/i>/gi;
$_[0]=~s/  +/ /gi;
$_[0]=~s/<strong[^>]*><\/strong>//gi;
$_[0]=~s/<font[^>]*><\/font>//gi;
$_[0]=~s/<p[^>]*><\/p>//gi;		
$_[0]=~s/<span[^>]*><\/span>//gi;
$_[0]=~s/<a[^>]*><\/a>//gi;		
$_[0]=~s/<BR>/<br \/>/gi;
#$_[0]=~s`(<LI.*?>.+?)\n+[^<LI>]`$1</LI>\n`sgi;
$_[0]=~s`(<LI[^\n]+[^</UL>])\n`$1</LI>\n`sgi;
$_[0]=~s/<PARAM NAME/\n<PARAM NAME/g;
$_[0]=~ s/<PARAM NAME="Play" VALUE="0">/<PARAM NAME="Play" VALUE="-1">/gi;
}#cleanup

sub tidy{
$sc_off=1;
open(T,"$FILE");
while(<T>){
	if(/<script/i){$sc_off=0}
	if($sc_off==1){
	s`(<\w+>)`lc($1)`ge;
	s`(<\w+ )`lc($1)`ge;
	s`(<\/\w+>)`lc($1)`ge;	
	s`(\w+-\w+:)`lc($1)`ge;
	s`(\w+:)`lc($1)`ge;
	s`(\w+=)`lc($1)`ge;
	s`<u></u>``gi;
	unless(/<meta/){s`(\w+=)([^ >\s'"]+)([ >\s"]+)`$1"$2"$3`g;}
	s`(codebase=".+?)="(.+)""`$1=$2"`gsi;
	s`(href=".+?)="(.+)""`$1=$2"`gsi;
	s`(action=".+?)="(.+)""`$1=$2"`gsi;
	}
	if(/<\/script>/i){$sc_off=1}
	$TIDY.=$_;
	}
open(T,">$FILE");
print T "$TIDY";
close(T);
}#tidy

sub tidy_block{
	$_[0]=~s`(<\w+>)`lc($1)`ge;
	$_[0]=~s`(<\w+ )`lc($1)`ge;
	$_[0]=~s`(<\/\w+>)`lc($1)`ge;	
	$_[0]=~s`(\w+-\w+:)`lc($1)`ge;
	$_[0]=~s`(\w+:)`lc($1)`ge;
	$_[0]=~s`(\w+=)`lc($1)`ge;
	$_[0]=~s`<u></u>``gi;
	$_[0]=~s`(\w+=)([^ >\s'"]+)([ >\s"]+)`$1"$2"$3`g;
	$_[0]=~s`(codebase=".+?)="(.+)""`$1=$2"$3`gsi;
}#tidy_b;ock

sub backup{ #+++++++++++++++++++++++++++++++++++++++++++++++++++
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
++$mon;
if($mon<10){$mon="0".$mon}
if($mday<10){$mday="0".$mday}
$now=$mon.$mday.$hour.$min.$sec;
$bak=$_[0];
$bak=~m`\.(\w+)$`;$ext=$1;
$bak=~s`$ext$`$now.$ext`;
open(BAK,">$bak");
print BAK "$PAGE";
close(BAK);
if($^O !~ /mswin32/i){chmod(0644,"$bak")}
}#backup

sub back_inc{ #+++++++++++++++++++++++++++++++++++++++++++++++++
open(IN,"$_[0]");
while(<IN>){$IN.=$_}
$bak=$_[0];
$bak=~m!\.(\w+)$!;$ext=$1;
$bak=~s`$ext$`$now.$ext`;
open(BAK,">$bak") || error("$com_text_write5 $bak");
print BAK "$IN";
close(BAK);
if($^O !~ /mswin32/i){chmod(0644,"$IN")}
}#back_inc

sub save_it_as{ #+++++++++++++++++++++++++++++++++++++++++++++++
$saveas =~ m!^http://.+?/(.+)!;$XFILE=$1;$xfi=$XFILE;
$XFILE=~m!\.(\w+)$!;$ext=$1;
if("@allowable_ascii_extensions" !~ /\b$ext\b/i){error("$ext $com_text_write6")}
if($usermb =~ /\d+/){
@sz=stat($FILE);
$SZ=$sz[7];
$SZx=$sz[7];
$szz=$SZ/100000;
	$szz=sprintf("%1.2f",$szz);
&allocation;
$reMB=$uMB - $szz;
	if($uMB > $usermb){
	$xMB=$uMB-$usermb;
	$xMB=sprintf("%1.2f",$xMB);
	$TS=sprintf("%1.2f",$SZx/100000);
	$UMB=$uMB-$TS;
	error("$com_text_write7 $TS - $com_text_write8 $usermb $com_text_write9 $xMB $com_text_write10 $uMB $com_text_write11 $usermb $com_text_write12");
	}
}
open(GF,"$FILE");
while(<GF>){
s!<title>.+?</title>!<title>$page_title</title>!si;
$X_FILE .= $_;
}
close(GF);
$path_to_domain =~ s!/$!!;
$XFILE = $path_to_domain."/".$XFILE;
open(XF,">$XFILE") || alert("$com_text_write13\n\n$xfi\n\n$com_text_write14");
print XF "$X_FILE";
close(XF);
chmod(0644,$XFILE);
$FILE=$XFILE;
$URL=$saveas;
}#save_it_as

1;