projects
/
usenet
/
usevote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Enforce strict response for data protection clause.
[usenet/usevote.git]
/
uvvote.pl
diff --git
a/uvvote.pl
b/uvvote.pl
old mode 100644
(file)
new mode 100755
(executable)
index
a86ef43
..
0c12a06
--- a/
uvvote.pl
+++ b/
uvvote.pl
@@
-122,9
+122,9
@@
if ($clean) {
# normally unixtime is sufficient, if it is not unique append our PID
my $ext = time;
# normally unixtime is sufficient, if it is not unique append our PID
my $ext = time;
- opendir (
TMP
, $config{tmpdir});
+ opendir (
DIR
, $config{tmpdir});
my @tmpfiles = readdir (DIR);
my @tmpfiles = readdir (DIR);
- closedir (
TMP
);
+ closedir (
DIR
);
opendir (FERTIG, $config{archivedir});
my @fertigfiles = readdir (FERTIG);
closedir (FERTIG);
opendir (FERTIG, $config{archivedir});
my @fertigfiles = readdir (FERTIG);
closedir (FERTIG);
@@
-158,7
+158,7
@@
if ($clean) {
# no mails: exit here
unless ($count) {
# no mails: exit here
unless ($count) {
- print UVmessage::get("VOTE_NO_VOTES") . "\n\n";
+ print UVmessage::get("VOTE_NO_VOTE
MAIL
S") . "\n\n";
exit 0;
}
exit 0;
}
@@
-319,7
+319,7
@@
sub process_vote {
# Should read like this: #a [ STIMME ] Text
# (Text is configurable in usevote.cfg)
unless ($$body =~ /$bdsg_regexp/s &&
# Should read like this: #a [ STIMME ] Text
# (Text is configurable in usevote.cfg)
unless ($$body =~ /$bdsg_regexp/s &&
- $$body =~ /#a\W*?\[\W*?$config{
ja_stimme
}\W*?\]\W*?$bdsg2_regexp/is) {
+ $$body =~ /#a\W*?\[\W*?$config{
bdsg_confirm
}\W*?\]\W*?$bdsg2_regexp/is) {
push (@errors, 'InvalidBDSG');
}
push (@errors, 'InvalidBDSG');
}
This page took
0.011087 seconds
and
4
git commands to generate.