security::get_insecure_location (private)

 security::get_insecure_location

Defined in packages/acs-tcl/tcl/security-procs.tcl

Return the current location in insecure mode (http).

Author:

Peter Marklund

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

Testcases:

get_insecure_location

Source code:

    set current_location [util_current_location]
    set http_prefix {http://}

    if { [string match "$http_prefix*" $current_location] } {
        #
        # Current location is already insecure - do nothing
        #
        set insecure_location $current_location
    } elseif {[util::split_location $current_location proto hostname port]} {
        #
        # Do not return a location with a port number, when
        # SuppressHttpPort is set.
        #
        set suppress_http_port [parameter::get -parameter SuppressHttpPort  -boolean  -package_id [apm_package_id_from_key acs-tcl]  -default 0]
        set insecure_location [util::join_location  -proto http  -hostname $hostname  -port [expr {$suppress_http_port ? "" : [security::get_http_port]}]]
    } else {
        error "invalid location $current_location"
    }

    return $insecure_location

Generic XQL file:

packages/acs-tcl/tcl/security-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/security-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/security-procs-oracle.xql