admin-init.tcl

Does not contain a contract.

Location:
/packages/acs-tcl/tcl/admin-init.tcl
File Contents

ad_library {

    Security filters for the admin pages.

    @creation-date 18 Nov 1998
    @author Allen Pulsifer (pulsifer@mediaone.net)
    @cvs-id $Id: admin-init.tcl,v 1.11 2024/09/11 06:15:48 gustafn Exp $

}

#
# This can be very time consuming on a large site and may be disabled
# by setting RegisterRestrictToSSLFilters in the kernel params.
#
if { [security::https_available_p]
     && [parameter::get -package_id [ad_acs_kernel_id] -parameter RegisterRestrictToSSLFilters -default 1]} {
    set admin_ssl_filters_installed_p 1

    db_foreach path_select {} {
        ns_log Notice "admin-init.tcl: Processing RestrictToSSL for $url"
        foreach pattern [parameter::get -package_id $package_id -parameter RestrictToSSL] {
            ad_register_filter preauth GET "$url$pattern" ad_restrict_to_https
            ns_log Notice "admin-init.tcl: URLs matching \"$url$pattern\" are restricted to SSL"
        }
    }

    db_release_unused_handles
}

#
# If the kernel param is on, then these filters will be registered.
# after that, a subsite param controls whether that subsite is
# restricted or not.
#

if { [parameter::get -package_id [ad_acs_kernel_id] -parameter RegisterRestrictEntireServerToRegisteredUsersFilters -default 0]} {
  db_foreach path_select {} {
    ns_log Notice "admin-init.tcl:  Registering ad_restrict_entire_server_to_registered_users for ${url}*"
    ad_register_filter preauth GET "${url}*" ad_restrict_entire_server_to_registered_users
    ad_register_filter preauth POST "${url}*" ad_restrict_entire_server_to_registered_users
    ad_register_filter preauth HEAD "${url}*" ad_restrict_entire_server_to_registered_users
  }
}

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

Related Files

File Contents
