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" };
41 'u|username:s' => \
$username,
42 'p|password:s' => \
$password,
43 'l|limit:s' => \
$limit,
44 'm|method:s' => \
$method,
46 'v|verbose' => \
$verbose,
49 my $usage = << 'ENDUSAGE';
51 This script processes the message queue
in the message_queue database
52 table
. It sends out the messages
in that queue
and marks them
53 appropriately to indicate success
or failure
. It is recommended that
54 you run this regularly from cron
, especially
if you are using the
55 advance_notices
.pl script
.
57 This script has the following parameters
:
58 -u
--username
: username of mail account
59 -p
--password
: password of mail account
60 -t
--type
: If supplied
, only processes this type of message
( email
, sms
)
61 -l
--limit
: The maximum number of messages to process
for this run
62 -m
--method
: authentication method required by SMTP server
(See perldoc Sendmail
.pm
for supported authentication types
.)
63 -h
--help
: this message
64 -v
--verbose
: provides verbose output to STDOUT
71 C4
::Letters
::SendQueuedMessages
(
74 username
=> $username,
75 password
=> $password,