&check_cookie;
open(TL,"$path_to_lang/$thislang/admin_tab.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
&check_login;
if(!$Admin_Login){error("Admin not logged in");}

if($Admin_Login =~ /admin\b/){
	($ad,$pw)=split(/\|/,$Admin_Login);
		open(USERS,"$path_to_users");
		while(<USERS>){
			if(/^admin=/){
				chomp();
				($AD,$PW)=split(/=/);
			}
		}
	if($PW ne $pw){exit}
}

$path=$param1;
$path=~s!$url_to_domain!$path_to_domain!;
$path=~s|/$||;
$path.="/";
push(@ADIRS,$path);
$AU = "a";
$AV = 1;
$AW = $AU.$AV;
$path=~s` `\\ `g;
@Athings=<$path*>;
foreach $thing (@Athings){
	if(-f $thing){push(@AFILES,$thing)}
	if(-d $thing){
		push(@ADIRS,$thing);
		$THNG=~s` `\\ `g;
		@Adir=<$thing/*>;
		push(@$AW,@Adir);
	}
}
&Ccycle;
foreach $f (@AFILES){
	unlink($f);
}

@ADIRS=sort(@ADIRS);
@ADIRS=reverse(@ADIRS);
foreach $d (@ADIRS){
$d=~s!/$!!;
rmdir($d) || &notq;
}



print "Content-type: text/html\n\n";
if(!$x){
print qq~<script language=javascript>alert("$param1 $ini3")</script>~;
}else{
print qq~<script language=javascript>alert("$ini4\\n\\n$x")</script>~;
}

sub Ccycle{
	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=();&Ccycle}
}#Ccycle
1;

sub notq{
$x.=$d."\\n";
}