TABLE OF CONTENTS


::pwtk::queue::pwtk_profileDefault

SYNOPSIS

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

PURPOSE

Set a given PWTK profile as a default profile.

ARGUMENTS

SOURCE

    variable pwtk_profile

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