View | Details | Raw Unified | Return to bug 7042
Collapse All | Expand All

(-)a/misc/cronjobs/cleanup_database.pl (-4 / +4 lines)
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
- 

Return to bug 7042