View | Details | Raw Unified | Return to bug 15529
Collapse All | Expand All

(-)a/misc/cronjobs/process_message_queue.pl (-20 / +28 lines)
Lines 55-60 GetOptions( Link Here
55
    'v|verbose'         => \$verbose,
55
    'v|verbose'         => \$verbose,
56
    't|type'            => \$type,
56
    't|type'            => \$type,
57
);
57
);
58
59
sub usage {
60
    pod2usage( -verbose => 2 );
61
    exit;
62
}
63
58
my $usage = << 'ENDUSAGE';
64
my $usage = << 'ENDUSAGE';
59
65
60
This script processes the message queue in the message_queue database
66
This script processes the message queue in the message_queue database
Lines 70-76 This script has the following parameters : Link Here
70
    -l --limit: The maximum number of messages to process for this run
76
    -l --limit: The maximum number of messages to process for this run
71
    -m --method: authentication method required by SMTP server (See perldoc Sendmail.pm for supported authentication types.)
77
    -m --method: authentication method required by SMTP server (See perldoc Sendmail.pm for supported authentication types.)
72
    -h --help: this message
78
    -h --help: this message
73
    -v --verbose: provides verbose output to STDOUT
79
    -v --verbose: provides verbose output to STDOUT, if verbose is set then emails will be sent upon duplicate execution of this cronjob
74
ENDUSAGE
80
ENDUSAGE
75
81
76
die $usage if $help;
82
die $usage if $help;
Lines 87-110 open(FOO, ">> $instancemessagequeuefile") or die "Cannot write to $instancemessa Link Here
87
print "Getting the lock\n";
93
print "Getting the lock\n";
88
unless (flock ( FOO, LOCK_EX|LOCK_NB )) {
94
unless (flock ( FOO, LOCK_EX|LOCK_NB )) {
89
95
90
print "$0 is already running. Exiting.\n";
96
    print "$0 is already running. Exiting.\n";
91
#Send email to inform administrator another process_message_queue.pl cron was attempted to run whilst previous execution of the file is taking place.
97
    #If verbose is set send email to inform administrator another process_message_queue.pl cron was attempted to run whilst previous execution of the file is taking place.
92
# Configure accordingly
98
    # Configure accordingly
93
MIME::Lite->send( 'smtp', '');
99
94
my $email = MIME::Lite->new(
100
    if ($verbose) {
95
To => ' ',
101
        MIME::Lite->send( 'smtp', '');
96
From => ' ',
102
        my $email = MIME::Lite->new(
97
Type => 'TEXT',
103
            To => ' ',
98
Subject => 'process_message_queue.pl cron is already running',
104
            From => ' ',
99
Data => 'process_message_queue.pl cron is already running',
105
            Type => 'TEXT',
100
);
106
            Subject => 'process_message_queue.pl cron is already running',
101
107
            Data => 'process_message_queue.pl cron is already running',
102
$email->attach(
108
        );
103
Type => 'Text',
109
104
 Data => 'process_message_queue.pl cron is already running',
110
        $email->attach(
105
);
111
            Type => 'Text',
106
$email->send();
112
            Data => 'process_message_queue.pl cron is already running',
107
exit(1);
113
        );
114
        $email->send();
115
        exit(1);
116
    }
108
}
117
}
109
118
110
C4::Letters::SendQueuedMessages( { verbose => $verbose, username => $username, password => $password, method => $method } );
119
C4::Letters::SendQueuedMessages( { verbose => $verbose, username => $username, password => $password, method => $method } );
111
- 

Return to bug 15529