if($demo_mode){
print "Content-type: text/html\n\n";
print qq~
~;
}else{
&check_cookie;
&check_login;
if($buttons =~ /folder_delete/){print "Content-type: text/html\n\n";print qq~~;exit}
$param1=~s!/$!!;$url_to_domain=~s!/$!!;$user_root=~s!/$!!;
if($param1 eq $url_to_domain){print "Content-type: text/html\n\n";print qq~~;exit}
if($param1 eq $user_root){print "Content-type: text/html\n\n";print qq~~;exit}
$param1=~s!$url_to_domain!$path_to_domain!;
$param1.="/";
push(@ADIRS,$param1);
$AU = "a";
$AV = 1;
$AW = $AU.$AV;
$Param1=$param1;
$Param1=~s` `\\ `g;
@Athings=<$Param1*>;
foreach $thing (@Athings){
if(-f $thing){push(@AFILES,$thing)}
if(-d $thing){
push(@ADIRS,$thing);
$THNG=~s` `\\ `g;
@Adir=<$THNG/*>;
push(@$AW,@Adir);
}
}
&Bcycle;
foreach $f (@AFILES){
unlink($f);
}
@ADIRS=sort(@ADIRS);
@ADIRS=reverse(@ADIRS);
foreach $d (@ADIRS){
$d=~s!/$!!;
rmdir($d);
}
$param1=~m!/(.+?/)$!;$back1=$1;
@dirs=split(/\//,$param1);
pop(@dirs);$back1=join("/",@dirs);
$back1=~s` `+`g;
$back2=$back1;$back2=~s!$path_to_domain!$url_to_domain!;
print "Set-Cookie: Current_Dir=$back1;path=/\n";
$param1=~s!$path_to_domain!$url_to_domain!;
print "Content-type: text/html\n\n";
print qq~
~;
}#else demo
sub Bcycle{
foreach $thing (@$AW){
if(-f $thing){push(@AFILES,$thing)}
if(-d $thing){
push(@ADIRS,$thing);
$THNG=~s` `\\ `g;
@Adir=<$THNG/*>;
push(@AX,@Adir);
}
}
if($#AX > -1){++$AV;$AW = $AU.$AV;@$AW=@AX;@AX=();&Bcycle}
}#bcycle
1;