###
### installMQQCF.tcl
###
### Installs Websphere MQ Queue Connection Factory at the Node level - name WebSphereQCF
###
proc set_MQ_QCF {MQJMSProviderID nname qcfname mqhname mqchannel mqport mqqmgr} {
###
### set up globals
###
global AdminConfig
global AdminControl
global AdminApp
###
### create Websphere MQ Queue Connection Factory
###
set XAEnabled [ list XAEnabled true ]
set channel [ list channel $mqchannel ]
set agedTimeout [ list agedTimeout 0 ]
set connectionTimeout [ list connectionTimeout 180 ]
set maxConnections [ list maxConnections 50 ]
set minConnections [ list minConnections 1 ]
set purgePolicy [ list purgePolicy FailingConnectionOnly ]
set reapTime [ list reapTime 180 ]
set unusedTimeout [ list unusedTimeout 1800 ]
set connectionPool [ list connectionPool [list $agedTimeout $connectionTimeout $maxConnections $minConnections $purgePolicy $reapTime $unusedTimeout ] ]
set description [ list description "$qcfname" ]
set host [ list host $mqhname ]
set jndiName [ list jndiName mq/$qcfname ]
set authDataAlias [ list authDataAlias none ]
set mappingConfigAlias [ list mappingConfigAlias DefaultPrincipalMapping ]
set mapping [ list mapping [list $authDataAlias $mappingConfigAlias ] ]
set msgRetention [ list msgRetention true ]
set name [ list name "$qcfname" ]
set port [ list port $mqport ]
set queueManager [ list queueManager $mqqmgr ]
set agedTimeout1 [ list agedTimeout 0 ]
set connectionTimeout1 [ list connectionTimeout 180 ]
set maxConnections1 [ list maxConnections 10 ]
set minConnections1 [ list minConnections 1 ]
set purgePolicy1 [ list purgePolicy FailingConnectionOnly ]
set reapTime1 [ list reapTime 180 ]
set unusedTimeout1 [ list unusedTimeout 1800 ]
set sessionPool [ list sessionPool [ list $agedTimeout1 $connectionTimeout1 $maxConnections1 $minConnections1 $purgePolicy1 $reapTime1 $unusedTimeout1 ] ]
set CCSID [ list CCSID 819 ]
set transportType [ list transportType CLIENT ]
set attrs [ list $XAEnabled \
$channel \
$connectionPool \
$description \
$host \
$jndiName \
$mapping \
$msgRetention \
$name \
$port \
$queueManager \
$sessionPool \
$CCSID \
$transportType
]
puts " ATTRS = $attrs"
if { [ catch { $AdminConfig create MQQueueConnectionFactory $MQJMSProviderID $attrs } r ] == 0 } {
$AdminConfig save
} else {
puts "\nproblem creating MQQueueConnectionFactory $MQJMSProviderID. \n"
puts $r
puts "************************************\n"
return -code error $r
}
### Synchronize nodes
puts "Synchronizing nodes..."
set Sync1 [$AdminControl completeObjectName type=NodeSync,node=$nname,*]
set xstatus [$AdminControl invoke $Sync1 sync]
if {$xstatus == "false"} {
puts "Unable to synchronize nodes..."
}
}
###
### Main
###
if { !($argc == 7) } {
puts ""
puts "Insufficient arguments supplied on command line: "
puts " "
} else {
set MQJMSProviderID [lindex $argv 0]
set nname [lindex $argv 1]
set qcfname [lindex $argv 2]
set mqhname [lindex $argv 3]
set mqchannel [lindex $argv 4]
set mqport [lindex $argv 5]
set mqqmgr [lindex $argv 6]
set_MQ_QCF $MQJMSProviderID $nname $qcfname $mqhname $mqchannel $mqport $mqqmgr
}
