sync-init.tcl

Does not contain a contract.

Location:

/packages/acs-authentication/tcl/sync-init.tcl

Related Files

• packages/acs-authentication/tcl/sync-init.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_library {

    Set up scheduled procs for running nightly batch sync, and for purging old logs.

    @cvs-id $Id: sync-init.tcl,v 1.2 2017/08/07 23:47:46 gustafn Exp $
    @author Lars Pind (lars@collaboraid.biz)
    @creation-date 2003-09-09

}

# Schedule old job log purge
ad_schedule_proc \
    -thread t \
    -schedule_proc ns_schedule_daily \
    [list 0 30] \
    auth::sync::purge_jobs

# Schedule batch sync sweeper
ad_schedule_proc \
    -thread t \
    -schedule_proc ns_schedule_daily \
    [list 1 0] \
    auth::sync::sweeper

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: