#!/usr/athena/bin/perl

$odir = `pwd`;
chop($odir);
&fsdir($odir);


sub fsdir {
	local($d) = @_;
	local(@fasd);
	opendir(ID, $d);
	$dit = ".";
	while($dit ne "") {$dit =readdir(ID);
	if(!(-d $dit)){
		`ln -s $d/$dit /afs/sipb/project/corewars/Warriors/all`;
		print("Linking $d/$dit\n");
	}
	push(@fasd, $dit); }
	closedir(ID);
	foreach $p (@fasd) {
		if((-d $d."/".$p) && ($p ne ".") && ($p ne "..") && ($p ne "")) {
			$nd = $d."/".$p;
			&fsdir($nd);
		}
	}
}