auth::sync::purge_jobs (public)

 auth::sync::purge_jobs [ -num_days num_days ]

Defined in packages/acs-authentication/tcl/sync-procs.tcl

Purge jobs that are older than KeepBatchLogDays days.

Switches:

-num_days (optional)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

sync_start_end

Source code:

    if { $num_days eq "" } {
        set num_days [parameter::get_from_package_key  -parameter KeepBatchLogDays  -package_key "acs-authentication"  -default 0]
    }

    if {![string is integer -strict $num_days]} {
        error "num_days ($num_days) has to be an integer"
    }

    if { $num_days > 0 } {
        db_dml purge_jobs {}
    }

Generic XQL file:

<fullquery name="auth::sync::purge_jobs.purge_jobs">
    <querytext>
            delete from auth_batch_jobs
            where  job_end_time < current_date - cast(:num_days as integer)
        </querytext>
</fullquery>

packages/acs-authentication/tcl/sync-procs.xql

PostgreSQL XQL file:

packages/acs-authentication/tcl/sync-procs-postgresql.xql

Oracle XQL file:

packages/acs-authentication/tcl/sync-procs-oracle.xql