+sub get_faculty_email {
+ my ($name, $school, $email);
+ if((-f $ENV{'HOME'} . "/public_html/faculty.csv") && ! %faculty) {
+ open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
+ while($_ = <INS>) {
+ chomp;
+ m/"([^"]*)",([^,]*),([^,]*)/;
+ ($name, $school, $email) = ($1, $2, $3);
+ $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
+ $name =~ s/ [A-Z]\.//g;
+ $name = lc $name;
+ $name =~ s/\W//g;
+ $faculty{$name} = $email;
+ }
+ }
+ $name = shift;
+ $name =~ s/ [A-Z]r?\.//g;
+ $name = lc $name;
+ $name =~ s/\W//g;
+ return $faculty{$name};
+}
+