Lines 44-50
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
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 |
46 |
are logged into Koha, they will have to reconnect. |
46 |
are logged into Koha, they will have to reconnect. |
47 |
--sessdays DAYS purge only sessions older than DAYS days (use together with sessions parameter). |
47 |
--sessdays DAYS purge only sessions older than DAYS days. |
48 |
-v --verbose will cause the script to give you a bit more information |
48 |
-v --verbose will cause the script to give you a bit more information |
49 |
about the run. |
49 |
about the run. |
50 |
--zebraqueue DAYS purge completed entries from the zebraqueue from |
50 |
--zebraqueue DAYS purge completed entries from the zebraqueue from |
Lines 64-69
GetOptions(
Link Here
|
64 |
'm|mail' => \$mail, |
64 |
'm|mail' => \$mail, |
65 |
'zebraqueue:i' => \$zebraqueue_days, |
65 |
'zebraqueue:i' => \$zebraqueue_days, |
66 |
) || usage(1); |
66 |
) || usage(1); |
|
|
67 |
$sessions=1 if $sess_days && $sess_days>0; |
67 |
|
68 |
|
68 |
if ($help) { |
69 |
if ($help) { |
69 |
usage(0); |
70 |
usage(0); |
Lines 148-156
sub RemoveOldSessions {
Link Here
|
148 |
|
149 |
|
149 |
while ( $sth->fetch ) { |
150 |
while ( $sth->fetch ) { |
150 |
$lasttime = 0; |
151 |
$lasttime = 0; |
151 |
if ( $a_session =~ /lasttime:\s+(\d+)/ ) { |
152 |
if ( $a_session =~ /lasttime:\s+'?(\d+)/ ) { |
152 |
$lasttime = $1; |
153 |
$lasttime = $1; |
153 |
} elsif ( $a_session =~ /(ATIME|CTIME):\s+(\d+)/ ) { |
154 |
} elsif ( $a_session =~ /(ATIME|CTIME):\s+'?(\d+)/ ) { |
154 |
$lasttime = $2; |
155 |
$lasttime = $2; |
155 |
} |
156 |
} |
156 |
if ( $lasttime && $lasttime < $limit ) { |
157 |
if ( $lasttime && $lasttime < $limit ) { |
157 |
- |
|
|