!; opendir(SOFFICE,"$surveyoffice_base_dir") || &error("Unable to read from Survey directory"); while($file = readdir(SOFFICE)) { if($file =~ /^(.*).info$/) { $survey = $1; if(-e "$surveyoffice_base_dir/$survey.rclosed" && -e "$surveyoffice_base_dir/$survey.closed") { next; } print "

Online Surveys
$survey	\n"; if(! -e "$surveyoffice_base_dir/$survey.rclosed") { print "View Results\n"; } else { print "Results Not Available\n"; }