Item11303: backend validation of multi email

git-svn-id: http://svn.foswiki.org/trunk/FormPlugin@13492 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

lib/Foswiki/Plugins/FormPlugin/Validate/BackendValidator.pm

@@ -367,6 +367,31 @@ sub validate_email {
 
 =cut
 
+sub validate_multiemail {
+    my ( $name, $value ) = @_;
+
+    use Foswiki::Plugins::FormPlugin::Validate::Address qw(valid);
+
+    my @addresses = split( /\s*[[\s,;]]*\s*/, $value );
+    my $isValid = 0;
+
+    foreach my $address (@addresses) {
+    	print STDERR "$address:" . valid($address) . "\n";
+        $isValid ||= valid($address);
+    }
+
+    my $message =
+      $isValid
+      ? ''
+      : Foswiki::Plugins::FormPlugin::Validate::ValidationInstruction::parseMessage(
+        $name);
+    return ( $isValid, $message );
+}
+
+=pod
+
+=cut
+
 sub validate_url {
     my ( $name, $value ) = @_;