utilities-init.tcl

Does not contain a contract.

Location:

/packages/acs-tcl/tcl/utilities-init.tcl

Related Files

• packages/acs-tcl/tcl/utilities-init.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_library {

    Initializes datastructures for utility procs.

    @creation-date 02 October 2000
    @author Bryan Quinn
    @cvs-id $Id: utilities-init.tcl,v 1.12 2024/09/11 06:15:48 gustafn Exp $
}

# initialize the random number generator
util::random_init [ns_time]

# Create mutex for util_background_exec
#nsv_set util_background_exec_mutex . [ns_mutex create oacs:bg_exec]

# if logmaxbackup in config is missing or zero, don't run auto-logrolling
set logmaxbackup [ns_config -int "ns/parameters" logmaxbackup 0]

if { $logmaxbackup } {
    ad_schedule_proc -all_servers t -schedule_proc ns_schedule_daily \
        [list 00 00] util::roll_server_log
}

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