projects
/
usenet
/
usevote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Usevote 4.0.13
[usenet/usevote.git]
/
uvvote.pl
diff --git
a/uvvote.pl
b/uvvote.pl
old mode 100644
(file)
new mode 100755
(executable)
index
a82874a
..
181aca2
--- a/
uvvote.pl
+++ b/
uvvote.pl
@@
-1,8
+1,8
@@
#!/usr/bin/perl -w
###############################################################################
#!/usr/bin/perl -w
###############################################################################
-# UseVoteGer 4.1
2
Wahldurchfuehrung
-# (c) 2001-20
14
Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.1
3
Wahldurchfuehrung
+# (c) 2001-20
22
Marc Langer <uv@marclanger.de>
#
# This script package is free software; you can redistribute it and/or
# modify it under the terms of the GNU Public License as published by the
#
# This script package is free software; you can redistribute it and/or
# modify it under the terms of the GNU Public License as published by the
@@
-231,9
+231,9
@@
sub process_vote {
}
# correct voting?
}
# correct voting?
- if ($$body =~ /\Q$config{ballotintro}\E\s+(.+?)
[^\S\n]
*\n([>:|]*?[\t ]+(\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
);
+ $voting .= " $3" if
(defined($3) and $3 !~ /\Q$config{nametext}\E/
);
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');
This page took
0.010756 seconds
and
4
git commands to generate.