@@ -, +, @@ specific sending notices --- misc/cronjobs/process_message_queue.pl | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) --- a/misc/cronjobs/process_message_queue.pl +++ a/misc/cronjobs/process_message_queue.pl @@ -38,6 +38,7 @@ my $method = 'LOGIN'; my $help = 0; my $verbose = 0; my $type = q{}; +my $letter_code; GetOptions( 'u|username:s' => \$username, @@ -47,6 +48,7 @@ GetOptions( 'h|help|?' => \$help, 'v|verbose' => \$verbose, 't|type:s' => \$type, + 'c|code:s' => \$letter_code, ); my $usage = << 'ENDUSAGE'; @@ -60,6 +62,7 @@ This script has the following parameters : -u --username: username of mail account -p --password: password of mail account -t --type: If supplied, only processes this type of message ( email, sms ) + -c --code: If supplied, only processes messages with this letter code -l --limit: The maximum number of messages to process for this run -m --method: authentication method required by SMTP server (See perldoc Sendmail.pm for supported authentication types.) -h --help: this message @@ -89,12 +92,13 @@ if ( C4::Context->preference('UseKohaPlugins') && C4::Context->config("enable_pl C4::Letters::SendQueuedMessages( { - verbose => $verbose, - username => $username, - password => $password, - method => $method, - limit => $limit, - type => $type, + verbose => $verbose, + username => $username, + password => $password, + method => $method, + limit => $limit, + type => $type, + letter_code => $letter_code, } ); --