my $help = 0;
my $verbose = 0;
my $type = q{};
+my $letter_code;
GetOptions(
'u|username:s' => \$username,
'h|help|?' => \$help,
'v|verbose' => \$verbose,
't|type:s' => \$type,
+ 'c|code:s' => \$letter_code,
);
my $usage = << 'ENDUSAGE';
-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
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,
}
);