#!/opt/gnu/bin/perl
 
 
# this script copies all the items in the user's cdsconfig directory into
# their branch directory  
 
sub refresh_config {
 
my($branch_name) = @_;
$home = $ENV{HOME};
 
 
# this directory is where the user's goodies exist
# CJS
$cds_config_dir = "$home/cdsconfig";
 
 
# go get the listing of files in th the cdsconfig directory. 
opendir (DIR, $cds_config_dir) ||  exit(-1);
local (@filenames) = readdir(DIR);
closedir(DIR);
 
# symbolic link each of the files in this directory to the branch directory
foreach $f (@filenames) {
	 #printf(STDOUT "$f\n");
	 if(-f "$cds_config_dir/$f") {
          	printf(STDOUT "linking $cds_config_dir/$f to $branch_name/$f - your branch area\n") ;
	  	# unlink the old link
	  	unlink("$branch_name/$f");
	  	system("/bin/ln -s $cds_config_dir/$f $branch_name/$f");
	}# end if
}# end foreach
 
printf(STDOUT "Finished linking files from $cds_config_dir to your branch area.\n") ;
 
}# end refresh_config
 
# this is necessary at the bottom of every subroutine file
1;