$user_path=$user_root;
$user_path=~s|/$||;$user_path.="/";
$user_path =~ s!http://.+?/!$path_to_domain/!;
$user_path=~s!/$!!;$user_path.="/";
($usermb,$usertot)=split(/\^/,$usermb);
$AU = "a";
$AV = 1;
$AW = $AU.$AV;
$user_path==~s` `\\ `g;
@Athings=<$user_path*>;
foreach $thing (@Athings){
if(-f $thing){push(@AFILES,$thing)}
if(-d $thing){
	$THNG=$thing;
	$THNG=~s` `\\ `g;
	@Adir=<$THNG/*>;
	push(@$AW,@Adir);
	}
}
&Acycle;
$NuM=$#AFILES+1;
if($NuM<=$usertot){
	foreach $f (@AFILES){
		@sz=stat($f);
		$SZ=$sz[7];
		$uMB += $SZ;
	}
	$uMB/=1000000;
	$uMB=sprintf("%1.2f",$uMB);
	$aMB=$usermb-$uMB;
	$aMB=sprintf("%1.2f",$aMB);
	if($uMB<=$usermb){
		$turnoff="save_it()";
		$MB=qq~ ($uMB $com_mb1 - $aMB $com_mb2 - $NuM $com_mb3)~;
	}else{
		$turnoff="not_save_it()";
		$MB=qq~ <b>$com_mb6 $usermb MB $com_mb7 - $com_mb5</b>~;	
		$MBALERT=qq~$com_mb6 $usermb MB $com_mb7 - $com_mb5~;
	}
}else{
	$MB=qq~<b>$com_mb4 $usertot - $com_mb5</b>~;
	$MBALERT=qq~$com_mb4 $usertot - $com_mb5~;
	$turnoff="not_save_it()";
}

sub Acycle{
	foreach $thing (@$AW){
	if(-f $thing){push(@AFILES,$thing)}
	if(-d $thing){
		$THNG=$thing;
		$THNG=~s` `\\ `g;
		@Adir=<$thing/*>;
		push(@AX,@Adir);
		}
	}
if($#AX > -1){++$AV;$AW = $AU.$AV;@$AW=@AX;@AX=();&Acycle}
}#Acycle
1;