#
# Extract DataSource Properties
#
####################################################################
# List installed DataSources.
####################################################################
proc showList { a } {
foreach e $a {
regexp {(.*)(\(cells.*)} $e 1 2 3
puts [ format "%-5s %-50s\n" " " $2 ]
puts [ format "%-10s %-50s\n" " " $3 ]
lappend returnList $2
}
return $returnList
}
####################################################################
# List JAAS authentication entries.
####################################################################
proc listJAAS { a } {
global AdminConfig
foreach e $a {
set subList [ $AdminConfig show $e ]
foreach e $subList {
puts [ format "%-5s %-30s %-20s" " " [ lindex $e 0 ] [ lindex $e 1 ] ]
}
puts "\n"
}
}
####################################################################
# Show properties of Installed DataSources.
####################################################################
proc showProperties {dataSourceId} {
set dataSource [ string range $dataSourceId 0 [ expr [string first "(cells" $dataSourceId] -1 ] ]
puts "\n *** - showProperties - dataSource is $dataSource - *** \n"
global AdminConfig
puts [ format "\n%-5s %-30s" " " "Display General Properties\n"]
lappend propList authDataAlias
lappend propList authMechanismPreference
lappend propList description
lappend propList name
lappend propList jndiName
lappend propList provider
lappend propList relationalResourceAdapter
lappend propList statementCacheSize
lappend propList datasourceHelperClassname
foreach e $propList {
set attrValue [ $AdminConfig showAttribute $dataSourceId $e ]
if { $e == "provider" || $e == "relationalResourceAdapter" } {
regexp {(.*)(\(cells.*)} $attrValue 1 2 3
set attrValue $2
}
puts [ format "%-5s %-30s %-20s" " " $e $attrValue ]
}
# Extract mapping properties from mapping list
# may not exist for all datasource types.
# wsadmin returns variables even when they do not exist so cannot use info exist.
puts [ format "\n%-5s %-30s" " " "Display mapping properties\n"]
set mappingId [$AdminConfig show $dataSourceId mapping]
if {[string length $mappingId] != 0 } {
set mappingId [lindex [split [$AdminConfig show $dataSourceId mapping]] 1]
regsub -all "\}" $mappingId "" mappingId
foreach e [$AdminConfig showall $mappingId] {
puts [ format "%-5s %-30s %-20s" " " [lindex $e 0] [lindex $e 1] ]
}
}
# Extract propertySet properties from propertySet list
set propertySetId [lindex [split [$AdminConfig show $dataSourceId propertySet]] 1]
puts [ format "\n%-5s %-30s" " " "Display Custom Properties\n"]
regsub -all "\}" $propertySetId "" propertySetId
set propertySetList [ $AdminConfig showall $propertySetId ]
set i 0
while { $i <= 7 } {
set sublist [ lindex [ lindex [ lindex $propertySetList 0 ] 1 ] $i ]
foreach e $sublist {
if {[lindex $e 0] == "description"} {
set continue true
} else {
puts [ format "%-5s %-30s %-20s" " " [ lindex $e 0] [ lindex $e 1 ] ]
}
}
incr i
puts \n
}
# Extract connectionPool properties from connectionPool list
puts [ format "\n%-5s %-30s" " " "Display Connection Pool properties\n"]
set connectionPoolId [lindex [split [$AdminConfig show $dataSourceId connectionPool]] 1]
regsub -all "\}" $connectionPoolId "" connectionPoolId
foreach e [$AdminConfig showall $connectionPoolId] {
puts [ format "%-5s %-30s %-20s" " " [lindex $e 0] [lindex $e 1] ]
}
}
####################################################################
# Main Control.
####################################################################
####################################################################
# List Installed DataSources.
####################################################################
set datasources [ $AdminConfig list DataSource ]
puts "\nList installed DataSources\n"
catch { showList $datasources } r
####################################################################
# List JAASAuthData authentication entries.
####################################################################
set JAASentries [ $AdminConfig list JAASAuthData ]
puts "\nList installed JAASAuthData authentication entries\n"
listJAAS $JAASentries
####################################################################
# Show properties for each datasource.
####################################################################
foreach e $datasources {
showProperties $e
}
####################################################################
# The end.
####################################################################
puts [ format "\n %-30s %-30s" " " "*** THE END ***\n" ]
