&check_cookie;
&check_login;
$time=time;
$return=qq~parent.toedit(0)~;
if($user_root){
$user_root=~s|/$||;$user_root.="/";
$user_root=lc($user_root);$para=lc($param1);
if($para !~ /\b$user_root\b/ && $param1 ne '' && $param1 ne "about:blank"){
$return=qq~alert("$com_privilege");parent.IFcanvas.location="$user_root"~;
@default_file_name=split(/,/,$default_file_name);
$user_root=~s|/$||;
$df_fnd=0;
foreach $dfn (@default_file_name){
$df=$user_root."/".$dfn;$dfx=$df;
$dfx=~s`http://$ENV{'HTTP_HOST'}`$path_to_domain`;
if(-e $dfx && $para =~ /\b$user_root\b/){
$return=qq~parent.toedit(0)~;
$df_fnd=1;
last;
}
}
if($df_fnd==0){$return=qq~alert("$com_privilege\\n\\n$para");parent.IFcanvas.location="$user_root"~;}
}
#$return = qq~alert("$df =$para")~;
}
if($user_files){
@files=split(/\|/,$user_files);
foreach $file (@files){
$file=~s!http://.+?/!http://$host/!;
$file=lc($file);
if($para eq $file){
$fnd=1;
if($usrtype eq "files"){
$para=~s`https*://$host``;$para=~s`(.*)/[^/]*$`$1`;
print "Set-Cookie: Files_Dir=$para;path=/\n";
}
}
}
if(!$fnd){
foreach $file (@files){
$file=~s!http://.+?/!http://$host/!;
$HREFS.=qq~ $file~;
}
$return=qq~alert("You do not have permission to edit this page\\n\\nSelect a page you do have permission to edit")
if(parent.document.getElementById("tbody")){parent.document.getElementById("tbody").style.visibility="hidden"}
if(parent.document.getElementById("bbody")){parent.document.getElementById("bbody").style.visibility="hidden"}
parent.IFcanvas.document.open()
parent.IFcanvas.document.write(''+
'
$username
$com_check_path
'+
''+
'')
parent.IFcanvas.document.close()
~;
}
}else{
print "Set-Cookie: Files_Dir=;path=/\n";
}
if($para =~ /$url_to_common/ && $url_to_common =~ /\w+/ && !$super){
$return=qq~parent.close_tools("C")~;
}
print "Content-type: text/html\n\n";
print qq~~;
1;