Fix UVreadmail.pm

Use filename from function call.

Picked from upstream.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2014-02-16 13:35:34 +01:00
parent 7a0133efe6
commit 98343f2272
3 changed files with 21 additions and 2 deletions

View file

@ -5,6 +5,9 @@ TODO:
- aussortieren von Bounces aus Stimmenliste - aussortieren von Bounces aus Stimmenliste
Version 4.12 (19.01.2014): Version 4.12 (19.01.2014):
- uvbounce.pl und uvballot.pl benutzen jetzt wieder den uebergebenen
Dateinamen statt irrtuemlich das Mailboxfile aus usevote.cfg
(Bugfix in UVreadmail.pm)
- neue Config-Optionen "diff" und "sampleballotfile" - neue Config-Optionen "diff" und "sampleballotfile"
- im Fehlermenue bei der Wahlscheinverarbeitung ist es nun moeglich, - im Fehlermenue bei der Wahlscheinverarbeitung ist es nun moeglich,
mit der Option "0" einen Dateivergleich (diff) zwischen dem gemailten mit der Option "0" einen Dateivergleich (diff) zwischen dem gemailten

4
README
View file

@ -691,6 +691,10 @@ uvbounce.pl
eingeschaltet und die Option -f (siehe unten) nicht benutzt wurde, eingeschaltet und die Option -f (siehe unten) nicht benutzt wurde,
werden die uebergebenen Dateinamen ignoriert. werden die uebergebenen Dateinamen ignoriert.
Die Mails werden aus den uebergebenen Mailboxdateien geloescht
und statt dessen in einer neuen Datei mit der Erweiterung ".processed"
gespeichert.
Die Vorlage fuer die ausgegebene Liste ist im templates- Die Vorlage fuer die ausgegebene Liste ist im templates-
Unterverzeichnis konfigurierbar (Datei "bouncelist"). Unterverzeichnis konfigurierbar (Datei "bouncelist").

View file

@ -124,18 +124,30 @@ sub process {
# Mailbox / Maildir # Mailbox / Maildir
} else { } else {
my $readfilename;
if ($caller==0) {
# called from uvvote.pl: use configured mailbox file
$readfilename = $config{votefile};
} else {
# else use filename provided in function call
$readfilename = $filename;
# and create backup archive filename
$filename .= '.processed';
}
my $mgr = Mail::Box::Manager->new; my $mgr = Mail::Box::Manager->new;
my $folder; my $folder;
eval{ eval{
$folder = $mgr->open( folder => $config{votefile}, $folder = $mgr->open( folder => $readfilename,
create => 0, create => 0,
access => 'rw', access => 'rw',
type => $config{mailboxtype}, type => $config{mailboxtype},
expand => 'LAZY', expand => 'LAZY',
); );
}; };
die UVmessage::get("READMAIL_NOMAILFILE", (FILE => $config{votefile})) . "\n\n" if $@; die UVmessage::get("READMAIL_NOMAILFILE", (FILE => $readfilename)) . "\n\n" if $@;
# Iterate over the messages. # Iterate over the messages.
foreach (@$folder) { foreach (@$folder) {