TABLE OF CONTENTS

::pwtk::rmkdir

SYNOPSIS

proc ::pwtk::rmkdir {host dir} {

PURPOSE

Create a directory on the remote host (rmdir = remote mkdir)

ARGUMENTS

SOURCE

    set result [rtclsh $host "if { \[catch {file mkdir $dir} info] } { puts \"ERROR: \$info\" }"]

    if { [string match ERROR* $result] } {
        ::pwtk::error "cannot create the '$dir' directory on the remote host '$host'\n\n$result" 1
    }
}