$ptd=$path_to_domain;
$path_to_domain.="/";
$url_to_ikons=~s!/$!!;
$path_to_wysiwyg=~s!/$!!;
$dir=qq~<img src="$url_to_ikons/folder.gif" vspace=1 hspace=2 width="16" height="16" border="0" align=absbottom style=margin-right:1px>~;
$bin=qq~<img src="$url_to_ikons/image.gif" vspace=1 hspace=0 width="16" height="16" border="0" align=absmiddle>~;
$aro=qq~<img src="$url_to_ikons/openedfolder.gif" vspace=2 hspace=4 width="18" height="13" border="0" align=absmiddle>~;
$stop=0;
$disallow=~s!https*://.+?/!$path_to_domain!gi;	
@test=split(/\|/,$disallow);
&check_cookie;
&check_login;
$user_root=~s|/$||;
if($url_to_common){$com_path=$url_to_common;$com_path=~s!http://.+?/!$path_to_domain!i;}
	$user_path=$user_root;
		$user_path=~s!$url_to_domain!$path_to_domain!;
			$user_path=~s!^//!We_irD!;
			$user_path=~s!//!/!g;
			$user_path=~s!^We_irD!//!;
				$url_to_domain_=$url_to_domain."/";
$user_root=~s|/$||;$user_root.="/";
$user_root=~m!(http://.+?/)!;$LOC=$1;
if($Current_Dir && $Current_Dir =~ /$user_path/){$DIR=$Current_Dir}else{$DIR=$user_path}
$DIR =~ s!http://.+?/!$path_to_domain!;	
unless(-e $DIR){error("<P>The user's root folder<BR>$user_root<br>does not exist when converted to<br>$user_path<br>$x")}						
if($param1){	
	if($param1 eq "up"){
		if($Current_Dir eq $com_path || $Current_Dir eq $com_path."/"){
			$DIR=$user_path;
		}else{
			$Current_Dir=~m!(.*?/)\w*?-?\w*?/$!;$DIR=$1;
		}
	}else{
		$param1=~s|/$||;$DIR=$param1."/";
	}
}
if($param2 =~ /create_/ && ($param1 eq '' || $param1 eq "up") && $buttons !~ /jail_links/){$DIR=$path_to_domain}
if(length($DIR)<length($path_to_domain)){$DIR=$path_to_domain}
$DIR=~s!/$!!;$DIR.="/";
if($Files_Dir){$DIRX=$ptd.$Files_Dir."/";if($DIR !~ /^$DIRX/){$DIR=$DIRX}}
$com_path=~s!/$!!;
opendir(DIR,"$DIR");
@files = readdir(DIR);
@files=sort(@files);
$DIR =~ m!$path_to_domain(.*)!;$curr_dir=$1;
$un_url=$LOC.$curr_dir;
if($user_root eq $un_url){$aro_display="none";$aro_vis="hidden";$disabled="true"}else{$aro_display="";$aro_vis="visible";$disabled="false"}
if($un_url eq $url_to_domain_){$aro_display="none";$aro_vis="hidden";}
foreach $file (@files){
if($file !~ /\.$/ && $file !~ /^\./){
$file_=$DIR.$file;
$url=$file_;$url=~s!$path_to_domain!$LOC!;
if(-d $file_){
	if($com_path && $file_ =~ m`$com_path`){next}
	if($file =~ /^_/){next}
	if(!$super && !$Admin_Login){if(test($file_)){next}}
	if(!$super){if($file_ =~ m`/cgi-bin$`i){next}}
	if(!$super && !$Admin_Login){if($file_ =~ m`/$base$`i){next}}
	push(@fldrs,$file);
	if($param2 eq "create_button" || $param3 eq "two"){$hrf=qq~parent.selection2("dir","$file_","$url")~}else{$hrf=qq~parent.selection1("dir","$file_","$url")~}
	$FLDR=qq~<div style="margin-left:2px" id="$file" onclick='set(this.id);$hrf'>$dir<span id="x$file" class=reg>$file</span></div>
	~;
	push(@FLDRS,$FLDR);
	}
if(-T $file_ && $file_ !~ /\.pdf$/){
	$bell=1;
	get_title("$file_");$pt=~s`"`\\"`g;
	if($bell==1){
	push(@txts,$file);push(@bins,$file);
	$file_=~m!\.(\w+)$!;$ext=$1;
	if("@allowable_ascii_extensions" =~ /\b$ext\b/i){
	$txt=qq~<img alt="$PT" src="$url_to_ikons/html.gif" vspace=1 hspace=0 width="16" height="16" border="0" align=absmiddle>~;
	if($param2 !~ /upload_file|find_folder/){$hrf=qq~parent.selection1("bin","$file_","$url","$pt")~;$reg="reg"}else{$hrf='';$reg="unreg"}
	if($param2 eq "create_button" || ($param3 eq "two" && $param2 !~ /upload_file|saveas|find_folder/)){$hrf=qq~parent.selection2("bin","$file_","$url")~}	
	$TXT=qq~<div style="margin-left:4px" id="$file" onclick='set(this.id);$hrf' title="$PT">$txt <span id="x$file" class=$reg>$file</span></div>
	~;
	push(@TXTS,$TXT);
	push(@ARRAY,$file);
	}}}
if(-B $file_ || $file_ =~ /\.pdf$/){
	push(@bins,$file);
	if($file_ =~ m`^\.|^_`i){next}
	$file_=~m!\.(\w+)$!;$ext=$1;
	if("@allowable_binary_extensions" =~ /\b$ext\b/i && $ext ne ''){
	if($param2 !~ /upload_file|find_folder/){$hrf=qq~parent.selection1("bin","$file_","$url")~;$reg="reg"}else{$hrf='';$reg="unreg"}
	$BIN=qq~<div style="margin-left:4px" id="$file" onclick='set(this.id);$hrf'>$bin<span id="x$file" class=$reg> $file </span></div>
	~;
	push(@BINS,$BIN);
	push(@ARRAY,$file);	
	}}
}}
if($param2 =~ /insert_image|open_page/ && $un_url eq $user_root && $url_to_common){&common}
if($param2 =~ /upload/ && $un_url eq $user_root && $super && $url_to_common){&common}
@FLDRS=sort(@FLDRS);
if($param2 =~ /create_link|open_page|create_button|find_file/){
	$n=6;
	if($param2 =~ /create_link|create_button/){$n=5}
	if($Admin_Login=~/\w+/ || $param2 =~ /find_file/){$n=4}
	$cols=$#FLDRS+1;$cols+=$#TXTS+1;$cols/=$n;if($cols=~/\./){$cols=int($cols)+1}
	push(@RET,@FLDRS);push(@RET,@TXTS);push(@RET,@BINS);$i=0;
	foreach $r (@RET){
	$r=~s`image\.gif`file.gif`;
	if($i==0){$RETURN.=qq~<td valign=top>~}
	$RETURN.=$r;
	if($i==$n){$RETURN.=qq~</td>~;$i=-1}
	++$i;
	}}
if($param2 eq "upload_file"){
	$cols=$#FLDRS+1;$cols+=$#TXTS+1;$cols+=$#BINS+1;$cols/=6;if($cols=~/\./){$cols=int($cols)+1}
	push(@TXTS,@BINS);@TXTS=sort(@TXTS);
	push(@RET,@FLDRS);push(@RET,@TXTS);$i=0;
	foreach $r (@RET){
	if($i==0){$RETURN.=qq~<td valign=top>~}
	$RETURN.=$r;
	if($i==5){$RETURN.=qq~</td>~;$i=-1}
	++$i;
	}}	
if($param2 eq "saveas"){
	$cols=$#FLDRS+1;$cols+=$#TXTS+1;$cols/=6;if($cols=~/\./){$cols=int($cols)+1}
	push(@RET,@FLDRS);push(@RET,@TXTS);$i=0;
	foreach $r (@RET){
	if($i==0){$RETURN.=qq~<td valign=top>~}
	$RETURN.=$r;
	if($i==6){$RETURN.=qq~</td>~;$i=-1}
	++$i;
	}}	
if($param2 eq "find_folder"){
	$cols=$#FLDRS+1;$cols+=$#TXTS+1;$cols+=$#BINS+1;$cols/=4;if($cols=~/\./){$cols=int($cols)+1}
	push(@RET,@FLDRS);push(@RET,@TXTS);push(@RET,@BINS);$i=0;
	foreach $r (@RET){
	if($i==0){$RETURN.=qq~<td valign=top>~}
	$RETURN.=$r;
	if($i==4){$RETURN.=qq~</td>~;$i=-1}
	++$i;
	}
		$un_url=~s!/$!!;
		$re=qq~top.selection1("re","obj","$un_url")~;
	}	
	
if($param2 eq "insert_image"){
	$cols=$#FLDRS+1;$cols+=$#BINS+1;$cols/=4;if($cols=~/\./){$cols=int($cols)+1}
	push(@RET,@FLDRS);push(@RET,@BINS);$i=0;
	foreach $r (@RET){
	if($i==0){$RETURN.=qq~<td valign=top>~}
	$RETURN.=$r;
	if($i==4){$RETURN.=qq~</td>~;$i=-1}
	++$i;
	}}
if($param2 eq "saveas"){
	$CURRENT= qq~if(parent.document.getElementById("saveas_url")){parent.document.getElementById("saveas_url").value="$un_url"}~;
	}
$array=join("\",\"",@ARRAY);	
$folders=join("\",\"",@fldrs);	
$bins=join("\",\"",@allowable_binary_extensions);
$bins=uc($bins);
unless($param3 eq "two"){
print "Set-Cookie: Current_Dir=$path_to_domain$curr_dir;path=/\n";
}
$nu_folder_display="visible";
if($Files_Dir){$nu_folder_display="hidden";$disabled="true";if($DIR eq $DIRX){$aro_display="none";;}}

$vpage = qq~<html><head>
<script language=javascript>
window.onerror=un 
function un(msg,url,ln){
return true
}
files=new Array("$array")
folders=new Array("$folders")
bins=new Array("$bins")
function here(){
for(var i=0;i<document.images.length;++i){document.images[i].src=document.images[i].src}
parent.document.getElementById("up_arrow").style.display="$aro_display"
if(parent.document.getElementById("up_arrow2")){parent.document.getElementById("up_arrow2").style.display="$aro_display";}
parent.document.getElementById("up_arrow").style.visibility="$aro_vis"
if(parent.document.getElementById("up_arrow2")){parent.document.getElementById("up_arrow2").style.visibility="$aro_vis"}
if(parent.document.getElementById("del_folder")){parent.document.getElementById("del_folder").disabled=$disabled}
if(parent.document.getElementById("nu_foldr")){parent.document.getElementById("nu_foldr").style.visibility="$nu_folder_display"}
$re
document.body.focus()
}
function set(id){
for(var i=0;i<document.all.length;++i){
if(document.all[i].className && document.all[i].className=="sel"){document.all[i].className="reg"}
}
id="x"+id
if(document.getElementById(id) && document.getElementById(id).className && document.getElementById(id).className=="reg"){document.getElementById(id).className="sel"}
}
$CURRENT
vpath="$path_to_domain"
urldir="$un_url"
dir="$path_to_domain$curr_dir"
</script>
<style type="text/css">
TD{font-size:10px;color:#333333;font-family:Tahoma,Arial,}
DIV{white-space:nowrap}
.reg{background-color:#FFFFFF;color:#000000;font-family:tahoma;font-size:11;cursor:hand;padding:0px 2px}
.unreg{background-color:#FFFFFF;color:#666666;font-family:tahoma;font-size:11;padding:0px 2px}
.sel{background-color:#666666;color:#FFFFFF;font-family:tahoma;font-size:11;cursor:hand;padding:0px 2px}
</style>
<style type="text/css">$css</style>
</head>
<BODY oncontextmenu="return true" onload=here() style="background-color:white;border:0px;margin:0px" link=#000000 vlink=#000000 alink=#000000>
<table width=100% border=0 cellpadding=0 cellspacing=0><tr valign=middle><td style="font-family:tahoma;font-size:11;background-color:white">$aro  $un_url </td></tr></table>
<table width=100% border=0 cellpadding=0 cellspacing=0>
$RETURN
</table>
</body></html>~;

print "Content-type: text/html\n\n";
print "$vpage";

sub get_title{ #++++++++++++++++++++++++++++++++++++++++++++++++
$bell=1;
if($editing_mode==1 && !$super &&  $param2 eq "open_page"){$bell=0}
open(P,"$_[0]");
while(<P>){
	m!<title>(.+?)</title>!si;$pt=$1;
	$pt=~s`&laquo;|&raquo;|&quot;` `g;
	$pt=~ s`\W` `g;
	if($bell==0){
		if(/editblock=|includeblock=/){$bell=1;last}
	}else{
		if($pt ne ''){last}
	}
} 
$pt=substr($pt,0,60);
$pt=~s`'``g;
if($pt ne ''){$PT=qq~$com_text_title => $pt~}
}##get title

sub common{ #+++++++++++++++++++++++++++++++++++++++++++++++++++
@test=@files;
opendir(COM,$com_path);
@com=readdir(COM);
	if($#com>-1){
	$com_fldr_name=$com_path;$com_fldr_name=~s-.+/([^/]+)$-$1-;
	push(@fldrs,"common");
	$hrf=qq~parent.selection1("dir","$com_path","$url_to_common")~;
	$FLDR=qq~<div style="margin-left:2px" id="common" onclick='set(this.id);$hrf'>$dir<span id="xcommon" class=reg>$com_fldr_name</span></div>
	~;
	push(@FLDRS,$FLDR);	
	}
	@test=();
}#common

1;