#!/usr/bin/perl
sub usage { return <<EOL;
usage: jdcat dirname
EOL
}

if($#ARGV<0) { print &usage(); exit 1;}
if(! -d $ARGV[0]) { 
	print "$ARGV[0] is not a directory.\n";
	print &usage(); exit 1;
}

local $fmark = "1_2_3__________4_5_6";
local $ofile = "$ARGV[0].txt";
#open(O,">$ofile")||die("Can't open $ofile for write.\n");
subdir("$ARGV[0]");
close(O);

sub subdir {
	my ($dir)=@_;
	opendir(D,"$dir")||(print("Can't open $dir.\n")&& return());
	my @fs=readdir(D);
	closedir(D);

	#print "K1:$dir\n";
	foreach $f (@fs) {
		#print "K2:$f\n";
		if($f =~ /^[\.\/]+$/) {
			#print "K3:$f\n";
		}
		else {
		    $f = "$dir/$f";
		    if(-l "$f") {
			#print "link K4:$f\n";
		    }
		    elsif(-d "$f") {
			#print "K5:$f\n";
			subdir("$f");
		    }
		    elsif(-T "$f") {
			#print "K6:$f\n";
			jadd($f);
		    }
		    else {
			#print "else K7:$f\n";
		    }
		}
	}
}

sub jadd {
	my ($fname)=@_;
	#print O "$fmark $fname $fmark\n";
	`echo "$fmark $fname $fmark" >> $ofile`;
	`cat $fname >> $ofile`;
	#open(I,"$fname")||die("Can't open $fname for read.\n");
	#while($l
}