Lines 38-43
my $method = 'LOGIN';
Link Here
|
38 |
my $help = 0; |
38 |
my $help = 0; |
39 |
my $verbose = 0; |
39 |
my $verbose = 0; |
40 |
my $type = q{}; |
40 |
my $type = q{}; |
|
|
41 |
my $letter_code; |
41 |
|
42 |
|
42 |
GetOptions( |
43 |
GetOptions( |
43 |
'u|username:s' => \$username, |
44 |
'u|username:s' => \$username, |
Lines 47-52
GetOptions(
Link Here
|
47 |
'h|help|?' => \$help, |
48 |
'h|help|?' => \$help, |
48 |
'v|verbose' => \$verbose, |
49 |
'v|verbose' => \$verbose, |
49 |
't|type:s' => \$type, |
50 |
't|type:s' => \$type, |
|
|
51 |
'c|code:s' => \$letter_code, |
50 |
); |
52 |
); |
51 |
my $usage = << 'ENDUSAGE'; |
53 |
my $usage = << 'ENDUSAGE'; |
52 |
|
54 |
|
Lines 60-65
This script has the following parameters :
Link Here
|
60 |
-u --username: username of mail account |
62 |
-u --username: username of mail account |
61 |
-p --password: password of mail account |
63 |
-p --password: password of mail account |
62 |
-t --type: If supplied, only processes this type of message ( email, sms ) |
64 |
-t --type: If supplied, only processes this type of message ( email, sms ) |
|
|
65 |
-c --code: If supplied, only processes messages with this letter code |
63 |
-l --limit: The maximum number of messages to process for this run |
66 |
-l --limit: The maximum number of messages to process for this run |
64 |
-m --method: authentication method required by SMTP server (See perldoc Sendmail.pm for supported authentication types.) |
67 |
-m --method: authentication method required by SMTP server (See perldoc Sendmail.pm for supported authentication types.) |
65 |
-h --help: this message |
68 |
-h --help: this message |
Lines 89-100
if ( C4::Context->preference('UseKohaPlugins') && C4::Context->config("enable_pl
Link Here
|
89 |
|
92 |
|
90 |
C4::Letters::SendQueuedMessages( |
93 |
C4::Letters::SendQueuedMessages( |
91 |
{ |
94 |
{ |
92 |
verbose => $verbose, |
95 |
verbose => $verbose, |
93 |
username => $username, |
96 |
username => $username, |
94 |
password => $password, |
97 |
password => $password, |
95 |
method => $method, |
98 |
method => $method, |
96 |
limit => $limit, |
99 |
limit => $limit, |
97 |
type => $type, |
100 |
type => $type, |
|
|
101 |
letter_code => $letter_code, |
98 |
} |
102 |
} |
99 |
); |
103 |
); |
100 |
|
104 |
|
101 |
- |
|
|