|
Lines 107-112
Usage: $0 [-h|--help] [--confirm] [--sessions] [--sessdays DAYS] [-v|--verbose]
Link Here
|
| 107 |
--pseudo-transactions DAYS Purge the pseudonymized transactions that have been originally created more than DAYS days ago |
107 |
--pseudo-transactions DAYS Purge the pseudonymized transactions that have been originally created more than DAYS days ago |
| 108 |
DAYS is optional and can be replaced by: |
108 |
DAYS is optional and can be replaced by: |
| 109 |
--pseudo-transactions-from YYYY-MM-DD and/or --pseudo-transactions-to YYYY-MM-DD |
109 |
--pseudo-transactions-from YYYY-MM-DD and/or --pseudo-transactions-to YYYY-MM-DD |
|
|
110 |
--labels DAYS Purge item label batches last added to more than DAYS days ago. |
| 111 |
--cards DAY Purge card creator batches last added to more than DAYS days ago. |
| 112 |
|
| 110 |
USAGE |
113 |
USAGE |
| 111 |
exit $_[0]; |
114 |
exit $_[0]; |
| 112 |
} |
115 |
} |
|
Lines 598-603
if (defined $pPseudoTransactions or $pPseudoTransactionsFrom or $pPseudoTransact
Link Here
|
| 598 |
? sprintf "Done with purging %d pseudonymized transactions.", $count |
601 |
? sprintf "Done with purging %d pseudonymized transactions.", $count |
| 599 |
: sprintf "%d pseudonymized transactions would have been purged.", $count; |
602 |
: sprintf "%d pseudonymized transactions would have been purged.", $count; |
| 600 |
} |
603 |
} |
|
|
604 |
$sth = $dbh->prepare( |
| 605 |
q{ |
| 606 |
DELETE FROM branchtransfers |
| 607 |
WHERE datearrived < DATE_SUB(CURDATE(), INTERVAL ? DAY) |
| 608 |
} |
| 609 |
); |
| 610 |
$sth->execute($pTransfers); |
| 611 |
print "Done with purging transfers.\n" if $verbose; |
| 612 |
} |
| 613 |
|
| 614 |
if ($labels) { |
| 615 |
print "Purging item label batches last added to more than $labels days ago.\n" if $verbose; |
| 616 |
$sth = $dbh->prepare( |
| 617 |
q{ |
| 618 |
DELETE from creator_batches |
| 619 |
WHERE batch_id in |
| 620 |
(SELECT batch_id |
| 621 |
FROM (SELECT batch_id |
| 622 |
FROM creator_batches |
| 623 |
WHERE creator='labels' |
| 624 |
GROUP BY batch_id |
| 625 |
HAVING max(timestamp) < date_sub(curdate(),interval ? day)) a) |
| 626 |
} |
| 627 |
); |
| 628 |
$sth->execute($labels) or die $dbh->errstr; |
| 629 |
print "Done with purging item label batches last added to more than $labels days ago.\n" if $verbose; |
| 630 |
} |
| 631 |
|
| 632 |
if ($cards) { |
| 633 |
print "Purging card creator batches last added to more than $cards days ago.\n" if $verbose; |
| 634 |
$sth = $dbh->prepare( |
| 635 |
q{ |
| 636 |
DELETE from creator_batches |
| 637 |
WHERE batch_id in |
| 638 |
(SELECT batch_id |
| 639 |
FROM (SELECT batch_id |
| 640 |
FROM creator_batches |
| 641 |
WHERE creator='patroncards' |
| 642 |
GROUP BY batch_id |
| 643 |
HAVING max(timestamp) < date_sub(curdate(),interval ? day)) a); |
| 644 |
} |
| 645 |
); |
| 646 |
$sth->execute($cards) or die $dbh->errstr; |
| 647 |
print "Done with purging card creator batches last added to more than $cards days ago.\n" if $verbose; |
| 601 |
} |
648 |
} |
| 602 |
|
649 |
|
| 603 |
exit(0); |
650 |
exit(0); |
| 604 |
- |
|
|