Fix UVreadmail.pm
Use filename from function call. Picked from upstream. Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
parent
e91a2b7fa5
commit
7450382ef3
3
CHANGES
3
CHANGES
|
@ -5,6 +5,9 @@ TODO:
|
|||
- 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
|
||||
|
|
4
README
4
README
|
@ -691,6 +691,10 @@ uvbounce.pl
|
|||
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").
|
||||
|
||||
|
|
|
@ -124,18 +124,30 @@ sub process {
|
|||
# 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) {
|
||||
|
|
Loading…
Reference in a new issue