TABLE OF CONTENTS


::pwtk::queue::profileDefault

SYNOPSIS

proc ::pwtk::queue::profileDefault {queueSystem profileName} {

PURPOSE

Set a given profile as a default-profile.

ARGUMENTS

SOURCE

    variable profile

    if { ! [info exists profile($queueSystem,$profileName)] } {
        ::pwtk::error "${queueSystem}'s profile $profileName does not exists, cannot set it as default profile"
    }
    set profile($queueSystem,default) $profile($queueSystem,$profileName)
}