3 # Copyright 2008 LibLime
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
23 # find Koha's Perl modules
24 # test carefully before changing this
26 eval { require "$FindBin::Bin/../kohalib.pl" };
39 'u|username:s' => \
$username,
40 'p|password:s' => \
$password,
41 'm|method:s' => \
$method,
43 'v|verbose' => \
$verbose,
45 my $usage = << 'ENDUSAGE';
47 This script processes the message queue
in the message_queue database
48 table
. It sends out the messages
in that queue
and marks them
49 appropriately to indicate success
or failure
. It is recommended that
50 you run this regularly from cron
, especially
if you are using the
51 advance_notices
.pl script
.
53 This script has the following parameters
:
54 -u
--username
: username of mail account
55 -p
--password
: password of mail account
56 -m
--method
: authentication method required by SMTP server
(See perldoc Sendmail
.pm
for supported authentication types
.)
57 -h
--help
: this message
58 -v
--verbose
: provides verbose output to STDOUT
66 C4
::Letters
::SendQueuedMessages
( { verbose
=> $verbose, username
=> $username, password
=> $password, method
=> $method } );