TABLE OF CONTENTS


::pwtk::queue::profile

SYNOPSIS

proc ::pwtk::queue::profile {queueSystem profileName {queueProfileSpecs {}} {pwtkProfileSpecs {}}} {

PURPOSE

Set or query a profile $profileName for a given $queueSystem queuing system.

ARGUMENTS

RETURN VALUE

The value of the queueSystem's profileName profile or an empty string if the profile does not exist

SOURCE

    variable profile

    if { $queueProfileSpecs ne "" } {
        set profile($queueSystem,$profileName) $queueProfileSpecs
    }
    if { $pwtkProfileSpecs ne "" } {
        pwtk_profile $queueSystem $profileName $pwtkProfileSpecs
    }
    return [::pwtk::varvalue profile($queueSystem,$profileName)]
}