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 (required)

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):

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc apm_shell_wrap
    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