twt::server_url (public, deprecated)

 twt::server_url

Defined in packages/acs-automated-testing/tcl/tclwebtest-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Get the URL of the server (like ad_url) using the IP number of the server. Is more bulletproof than using the domain name.

Author:

Peter Marklund DEPRECATED: a more reliable api is now available that also allows to override it via parameter.

See Also:

• acs::test::url

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

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc twt::server_url
    set ip_address [ns_config ns/server/[ns_info server]/module/nssock Address]

    # If the IP is not configured in the config.tcl we will use the ip of localhost
    if {$ip_address eq ""} {
     set ip_address 127.0.0.1
    }

    regexp {(:[0-9]*)?$} [util_current_location] match port

    if { [info exists port] && $port ne "" } {
        return "http://${ip_address}${port}"
    } else {
        return "http://$ip_address"
    }

XQL Not present:

Generic, PostgreSQL, Oracle