- my $lname = $Requestor->{'values'}->{'realname'} ?
- (split (/ /, $Requestor->{'values'}->{'realname'}))[-1] :
- 'Requestor';
+ ## get first and last name for contact.
+ my ($fname, $lname) = (
+ split (/\@/, substr($Requestor->{'values'}->{'emailaddress'}, 0, index($Requestor->{'values'}->{'emailaddress'}, ".")))
+ );
+
+ use Lingua::EN::NameParse;
+ my $name = Lingua::EN::NameParse->new();
+
+ my $error = $name->parse($Requestor->{'values'}->{'realname'})
+ unless !$Requestor->{'values'}->{'realname'};