#!/perl/bin/perl

use warnings;
use strict;
use File::Slurp::Tree;
use CGI qw(:header);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;


my $dir = param("dirnewpath");
my $flag = param("flag");
my $one;
my $sub_all_dir = param("deepin");


print header();

if(!$dir){
$dir = "c:/progra~1/apache~1/apache2/cgi-bin"; 
}else{
	
	$dir= $dir;
}

opendir(DIR,$dir)|| die "Can't open $dir\n";

my @content=sort(readdir(DIR));

foreach (@content){
	next if (/^[\.]/);
	my $all_dir =$_;
	chomp($all_dir);
	
	if(-d $dir."/".$all_dir){ 

		print "<a href=\"temp.pl?dirnewpath=$dir&flag=true\"><img src=../../tree/images/dir.gif border=0><b>$all_dir</b></a><br>";
		
		if($flag){
			
			       opendir(SUBDIR,$dir."/".$all_dir)|| die "L26-Can't open $dir\n";
			       my @subcontent=sort(readdir(SUBDIR));
			       foreach(@subcontent){
			       next if (/^[\.]/);
			       
			       $sub_all_dir = $_;
			       
	                       	if(-d $dir."/".$all_dir."/".$sub_all_dir){ 	
		                        print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"temp.pl?dirnewpath=$dir/$all_dir&flag=true&\"><img src=../../tree/images/dir.gif border=0> <b>$sub_all_dir</b></a><br>";
		                }else{
					print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox> L66 - $sub_all_dir<br>";}
		                
		                }
	                       closedir(SUBDIR) or die "Can't close SUBDIR"      
		             }
	                       
	}else{
		
	           print "<input type=checkbox> $all_dir<br>";

	}

}
closedir(DIR) or die "Can't close DIR";