|
Lines 278-283
if ($zebraqueue_days) {
Link Here
|
| 278 |
|
278 |
|
| 279 |
if ($mail) { |
279 |
if ($mail) { |
| 280 |
print "Mail queue purge triggered for $mail days.\n" if $verbose; |
280 |
print "Mail queue purge triggered for $mail days.\n" if $verbose; |
|
|
281 |
$count = 0; |
| 281 |
$sth = $dbh->prepare( |
282 |
$sth = $dbh->prepare( |
| 282 |
q{ |
283 |
q{ |
| 283 |
DELETE FROM message_queue |
284 |
DELETE FROM message_queue |
|
Lines 287-294
if ($mail) {
Link Here
|
| 287 |
if ( $confirm ) { |
288 |
if ( $confirm ) { |
| 288 |
$sth->execute($mail) or die $dbh->errstr; |
289 |
$sth->execute($mail) or die $dbh->errstr; |
| 289 |
$count = $sth->rows; |
290 |
$count = $sth->rows; |
|
|
291 |
print "$count messages were deleted from the mail queue.\nDone with message_queue purge.\n" if $verbose; |
| 292 |
} else { |
| 293 |
print "Messages were deleted from the mail queue.\nDone with message_queue purge.\n" if $verbose; |
| 290 |
} |
294 |
} |
| 291 |
print "$count messages were deleted from the mail queue.\nDone with message_queue purge.\n" if $verbose; |
|
|
| 292 |
} |
295 |
} |
| 293 |
|
296 |
|
| 294 |
if ($purge_merged) { |
297 |
if ($purge_merged) { |
| 295 |
- |
|
|