+sub get_faculty_url {
+ my ($name, $url);
+ if((-f ($opts{'facurl'}||"")) && ! %facurl) {
+ open INS, $opts{'facurl'} or die $!;
+ while($_ = <INS>) {
+ chomp;
+ m/([^,]*),([^,]*)/; # "
+ ($name, $url) = ($1, $2);
+ $name =~ s/ [A-Z]\.//g;
+ $name = lc $name;
+ $name =~ s/\W//g;
+ $facurl{$name} = $url;
+ }
+ }
+ $name = shift;
+ $name =~ s/ [A-Z]r?\.//g;
+ $name = lc $name;
+ $name =~ s/\W//g;
+ return $facurl{$name};
+}
+