thh/usevote
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

Fix UVreadmail.pm

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

16
UVreadmail.pm
View file

@ -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) {