mnemoc

sub tgt_mnemosyne_render {
	my ($root,$pkgseldir,$prefix,$configin,$rulesin,$depth) = @_;
	my ($file,$dirname,$dirvar,$subdirs,$x);

	# exported variables
	my ($onchoice,$render)=(0,0);

	print "($root,$pkgseldir,$prefix,$configin,$rulesin)\n";

	print "($depth)$pkgseldir...\n";

	while(<$pkgseldir/*>) {
		$file=$_;
		print "($depth)$pkgseldir:$file...\n";
		if ( -d $file ) {
			tgt_mnemosyne_render($root,$file,$prefix,$configin,$rulesin,$depth+1);
		}
	}

}

if ($#ARGV != 3) {
	print "Usage mnemosyne.pl: <pkgseldir> <prefix> <configin> <rulesin>\n";
	exit (1);
	}

($pkgseldir,$prefix,$configin,$rulesin) = @ARGV;
tgt_mnemosyne_render($pkgseldir,$pkgseldir,$prefix,$configin,$rulesin,0)