Fix regular expression.

[usenet/usevote.git] / uvvote.pl

diff --git a/uvvote.pl b/uvvote.pl
index 836903a..67754d2 100755 (executable)
--- a/uvvote.pl
+++ b/uvvote.pl
@@ -241,8 +241,9 @@ sub process_vote {
   }
 
   # correct voting?
   }
 
   # correct voting?

-  if ($$body =~ /\Q$config{ballotintro}\E\s+(.+?)\s*$/m) {
+  if ($$body =~ /\Q$config{ballotintro}\E\s+(.+?)\s*\n(.*?[\t ]+(\S+.+)\s*$)?/m) {

     $voting = $1;
     $voting = $1;

+    $voting .= " $3" if defined($3);

     push (@errors, 'WrongVoting') if ($config{votename} !~ /^\s*\Q$voting\E\s*$/);
   } else {
     push (@errors, 'NoVoting');
     push (@errors, 'WrongVoting') if ($config{votename} !~ /^\s*\Q$voting\E\s*$/);
   } else {
     push (@errors, 'NoVoting');