Use filename from function call.
Picked from upstream.
Signed-off-by: Thomas Hochstein <thh@inter.net>
- aussortieren von Bounces aus Stimmenliste
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"
- im Fehlermenue bei der Wahlscheinverarbeitung ist es nun moeglich,
mit der Option "0" einen Dateivergleich (diff) zwischen dem gemailten
eingeschaltet und die Option -f (siehe unten) nicht benutzt wurde,
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-
Unterverzeichnis konfigurierbar (Datei "bouncelist").
# Mailbox / Maildir
} 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 $folder;
eval{
- $folder = $mgr->open( folder => $config{votefile},
+ $folder = $mgr->open( folder => $readfilename,
create => 0,
access => 'rw',
type => $config{mailboxtype},
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.
foreach (@$folder) {