|
Lines 222-228
GetOptions(
Link Here
|
| 222 |
'pseudo-transactions-from:s' => \$pPseudoTransactionsFrom, |
222 |
'pseudo-transactions-from:s' => \$pPseudoTransactionsFrom, |
| 223 |
'pseudo-transactions-to:s' => \$pPseudoTransactionsTo, |
223 |
'pseudo-transactions-to:s' => \$pPseudoTransactionsTo, |
| 224 |
'labels:i' => \$labels, |
224 |
'labels:i' => \$labels, |
| 225 |
'cards' => \$cards, |
225 |
'cards:i' => \$cards, |
| 226 |
'return-claims' => \$return_claims, |
226 |
'return-claims' => \$return_claims, |
| 227 |
'jobs-type:s' => \@jobs_types, |
227 |
'jobs-type:s' => \@jobs_types, |
| 228 |
'jobs-days:i' => \$jobs_days, |
228 |
'jobs-days:i' => \$jobs_days, |
|
Lines 771-781
if ($labels) {
Link Here
|
| 771 |
|
771 |
|
| 772 |
if ($cards) { |
772 |
if ($cards) { |
| 773 |
print "Purging card creator batches last added to more than $cards days ago.\n" if $verbose; |
773 |
print "Purging card creator batches last added to more than $cards days ago.\n" if $verbose; |
| 774 |
my $count = PurgeCreatorBatches( $labels, 'patroncards', $confirm ); |
774 |
my $count = PurgeCreatorBatches( $cards, 'patroncards', $confirm ); |
| 775 |
if ($verbose) { |
775 |
if ($verbose) { |
| 776 |
say $confirm |
776 |
say $confirm |
| 777 |
? sprintf "Done with purging %d card creator batches last added to more than %d days ago.\n", $count, |
777 |
? sprintf "Done with purging %d card creator batches last added to more than %d days ago.\n", $count, |
| 778 |
$labels |
778 |
$cards |
| 779 |
: sprintf "%d card creator batches would have been purged.", $count; |
779 |
: sprintf "%d card creator batches would have been purged.", $count; |
| 780 |
} |
780 |
} |
| 781 |
} |
781 |
} |
| 782 |
- |
|
|