sub testlink {
chdir($location) || die "Can't Chdir to $newdir: $!";
if ( -e $web_setup || $webin || $web_service ) {
print "The links for the \"$site\" site may already exist please check and try a
gain.\nYou may need to remove links before adding them.\n";
} else {
&linkfile;
&linkdir;
}