+sub CheckEmail($$) {
+ my ($username, $domain) = @_;
+
+ # Check to see if a full email address in either $username or $domain
+ if ($username eq '') {
+ return '' if $domain eq '';
+
+ if ($domain =~ /(.*)\@(.*)/) {
+ ($username, $domain) = split '@', $domain;
+ } # if
+ } elsif ($domain eq '') {
+ if ($username =~ /(.*)\@(.*)/) {
+ ($username, $domain) = split '@', $username;
+ } # if
+ } # if
+
+ return lc "$username\@$domain";
+} # CheckEmail
+