|
Lines 38-45
use Getopt::Long;
Link Here
|
| 38 |
|
38 |
|
| 39 |
sub usage { |
39 |
sub usage { |
| 40 |
print STDERR <<USAGE; |
40 |
print STDERR <<USAGE; |
| 41 |
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] |
41 |
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueue DAYS] [-m|--mail] [--merged] |
| 42 |
[-m|--mail] |
42 |
|
| 43 |
-h --help prints this help message, and exits, ignoring all |
43 |
-h --help prints this help message, and exits, ignoring all |
| 44 |
other options |
44 |
other options |
| 45 |
--sessions purge the sessions table. If you use this while users |
45 |
--sessions purge the sessions table. If you use this while users |
|
Lines 50-60
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
| 50 |
--zebraqueue DAYS purge completed entries from the zebraqueue from |
50 |
--zebraqueue DAYS purge completed entries from the zebraqueue from |
| 51 |
more than DAYS days ago. |
51 |
more than DAYS days ago. |
| 52 |
-m --mail purge the mail queue. |
52 |
-m --mail purge the mail queue. |
|
|
53 |
--merged purged completed entries from need_merge_authorities. |
| 53 |
USAGE |
54 |
USAGE |
| 54 |
exit $_[0]; |
55 |
exit $_[0]; |
| 55 |
} |
56 |
} |
| 56 |
|
57 |
|
| 57 |
my ( $help, $sessions, $sess_days, $verbose, $zebraqueue_days, $mail ); |
58 |
my ( $help, $sessions, $sess_days, $verbose, $zebraqueue_days, $mail, $purge_merged); |
| 58 |
|
59 |
|
| 59 |
GetOptions( |
60 |
GetOptions( |
| 60 |
'h|help' => \$help, |
61 |
'h|help' => \$help, |
|
Lines 63-75
GetOptions(
Link Here
|
| 63 |
'v|verbose' => \$verbose, |
64 |
'v|verbose' => \$verbose, |
| 64 |
'm|mail' => \$mail, |
65 |
'm|mail' => \$mail, |
| 65 |
'zebraqueue:i' => \$zebraqueue_days, |
66 |
'zebraqueue:i' => \$zebraqueue_days, |
|
|
67 |
'merged' => \$purge_merged, |
| 66 |
) || usage(1); |
68 |
) || usage(1); |
| 67 |
|
69 |
|
| 68 |
if ($help) { |
70 |
if ($help) { |
| 69 |
usage(0); |
71 |
usage(0); |
| 70 |
} |
72 |
} |
| 71 |
|
73 |
|
| 72 |
if ( !( $sessions || $zebraqueue_days || $mail ) ) { |
74 |
if ( !( $sessions || $zebraqueue_days || $mail || $purge_merged) ) { |
| 73 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
75 |
print "You did not specify any cleanup work for the script to do.\n\n"; |
| 74 |
usage(1); |
76 |
usage(1); |
| 75 |
} |
77 |
} |
|
Lines 134-139
if ($mail) {
Link Here
|
| 134 |
$sth->execute() or $dbh->errstr; |
136 |
$sth->execute() or $dbh->errstr; |
| 135 |
print "Done with purging the mail queue.\n" if ($verbose); |
137 |
print "Done with purging the mail queue.\n" if ($verbose); |
| 136 |
} |
138 |
} |
|
|
139 |
|
| 140 |
if($purge_merged) { |
| 141 |
print "Purging completed entries from need_merge_authorities.\n" if $verbose; |
| 142 |
$sth = $dbh->prepare("DELETE FROM need_merge_authorities WHERE done=1"); |
| 143 |
$sth->execute() or die $dbh->errstr; |
| 144 |
print "Done with purging need_merge_authorities.\n" if $verbose; |
| 145 |
} |
| 146 |
|
| 137 |
exit(0); |
147 |
exit(0); |
| 138 |
|
148 |
|
| 139 |
sub RemoveOldSessions { |
149 |
sub RemoveOldSessions { |
| 140 |
- |
|
|