Set activity log on. (Tcl recipe) by Patrick Finnegan

ActiveState Code (http://code.activestate.com/recipes/442422/)

# 
# Set activity log on.
#
####################################################################
# Patrick Finnegan 03/10/2005.  V1. 
####################################################################
proc setActivityLogOn { serverName } {

   puts "\n setActivityLogOn \n "

   global AdminConfig 

   set serverId            [ $AdminConfig getid /Server:$serverName/ ]

   set logServiceId        [ $AdminConfig list RASLoggingService $serverId ]  

   set messageFilterLevel  [ list messageFilterLevel WARNING ]

   set enableCorrelationId [ list enableCorrelationId true  ]
  
   set attrs               [ list $messageFilterLevel $enableCorrelationId ] 

   if { [ catch { $AdminConfig modify $logServiceId $attrs } r ] == 0 } {

       set serviceLogId [ $AdminConfig showAttribute $logServiceId serviceLog ] 

       set name    [ list name    D:/IBM/WebSphere/AppServer/logs/$serverName/activity.log ] 
       set size    [ list size    10    ]
       set enabled [ list enabled true  ]

       set attrs   [ list $name $size $enabled ]

       if { [ catch { $AdminConfig modify $serviceLogId $attrs } r ] == 0 } {

           set continue true

       } else {

	   puts $r
           return -code error

       }

   } else { 

       puts $r
       return -code error

   }

}
####################################################################
# Main Control.
####################################################################

puts "\n argc = $argc \n"

if {$argc < 1} {
        return -code error "error - no arguments supplied.  Supply server name"
        puts "no arguments"
}

# Assume one cell, one deployment manager node and one application node. 

set cellId [ lindex [ $AdminConfig list Cell ] 0 ]
set nodes  [ $AdminConfig list Node ]

# delete the manager node from the list.

set manIndex   [ lsearch -glob $nodes *Manager* ]
set nodeId     [ lindex [ lreplace $nodes $manIndex $manIndex ] 0 ]

# get name attribute for cell and application node

set cellName [ $AdminConfig showAttribute $cellId name ]
set nodeName [ $AdminConfig showAttribute $nodeId name ]

set serverName     [ lindex $argv 0 ]

puts "\nserver name    = $serverName\n"

####################################################################
# setActivityLogOn  
####################################################################

if { [ catch { setActivityLogOn $serverName } r ] == 0 } {
    puts "************************************"
    puts "Activity log settings applied successfully" 
    puts "************************************\n"
    puts "\n###### Admin Config Save ######\n"
    $AdminConfig save
} else {
        puts "\nFailed to apply Activity log settings. \n"
        puts $r 
        puts "************************************\n"
}