TABLE OF CONTENTS

::pwtk::remote_pidexists

SYNOPSIS

proc ::pwtk::remote_pidexists {user_at_host PID} {

PURPOSE

Returns 1 if the remote PID process exists, otherwise 0.

ARGUMENT

SOURCE

    if { [catch {::pwtk::rexec -i $user_at_host [list ps -p $PID -o pid=]} res] } {
        return 0
    } elseif { $PID in $res } {
        return 1
    } else {
        return 0
    }
}