TABLE OF CONTENTS

::pwtk::rtclsh

SYNOPSIS

proc ::pwtk::rtclsh {host scriptCode} {

PURPOSE

Execute a tclsh script on the remote host.

ARGUMENTS

SOURCE

    try {
        ::ssh::connect $host
        ::ssh::rexec $host $scriptCode result
        ::ssh::disconnect $host
    } on error err {
        ::pwtk::error "cannot execute a script on the remote host $host\n\n$err\n$result" 1
    }
    return $result
}