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