apm_shell_wrap (public, deprecated)

 apm_shell_wrap cmd

Defined in packages/acs-admin/tcl/apm-admin-procs.tcl

Deprecated. Invoking this procedure generates a warning.

The value provided by this proc is unclear, quite hardcoded, and it is used nowhere in usptream code.

Parameters:
cmd
Returns:
a command string, wrapped it shell-style (with backslashes) in case lines get too long.

See Also:
  • many possible plain tcl idioms

Partial Call Graph (max 5 caller/called nodes):
%3 ad_get_tcl_call_stack ad_get_tcl_call_stack (public) apm_shell_wrap apm_shell_wrap apm_shell_wrap->ad_get_tcl_call_stack

Testcases:
No testcase defined.
Source code:
ns_log Notice "Deprecated proc apm_shell_wrap used:\n[ad_get_tcl_call_stack]"

    set out ""
    set line_length 0
    foreach element $cmd {
        if { $line_length + [string length $element] > 72 } {
            append out "\\\n    "
            set line_length 4
        }
        append out "$element "
        incr line_length [expr { [string length $element] + 1 }]
    }
    append out "\n"
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-admin/tcl/apm-admin-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: