#################################################################### 
# Install App.
####################################################################
# Patrick Finnegan 15/02/2005.  V1. 
####################################################################

######################################
# Proc - check number of arguments
######################################
proc check_args {argc} {
    
    if { $argc < 0 } {

	    error "\nArgument Count is Zero.  No arguments supplied.\n"

	   } else {

            puts "\nargument count = $argc\n"

    }

}
######################################
# Proc - check if dir path exists.  If not create the directory.
######################################
proc check_file { file_name } {
    
    if { [ file exists $file_name ] == 1} {

       puts "File location confirmed for:  $file_name"

       } else {

	   set errMsg "$file_name does not exist.  Create $file_name before running this scipt"
	   return -code error \n$errMsg\n

    }
}
########################################################
# Proc - get user roles from input file and process into list
#      - note that there can be several users to a role so "list user"
########################################################
proc get_userroles {userrolesFileid node cell } {

   puts "executing get_userroles"

   global list_userroleslist

   puts "User roles are ...................."
   puts ""

   while { [ gets $userrolesFileid line ] >=0 } {

       puts "role mapping is: $line"

       lappend roleslist $line 
   }

   set list_userroleslist [list $roleslist]

}
########################################################
# Proc - get group roles from input file and process into list
#      - note that there can be several groups to a role so we map multiple groups
#        to the same role.  This requires an embedded loop.  
########################################################
proc get_grouproles {grouprolesFileid} {

   puts "executing get_grouproles"

   puts "Group roles are ....................\n"

   gets $grouprolesFileid line 

   while { ![ eof $grouprolesFileid ] } {

       set x        [ lindex $line 0 ]
       set appRole  $x 

       while { $appRole == $x && \
               ![ eof $grouprolesFileid ] 
	     } {

	     set ldapRole [ lindex $line 1 ]

	     puts [ format "%-5s %-20s" " " "###########################" ]

	     puts [ format "%-5s %-20s %-20s " " " "Application Role" $appRole  ]
	     puts [ format "%-5s %-20s %-20s " " " "Ldap Role"        $ldapRole ]

	     append groups $ldapRole|

             gets $grouprolesFileid line 

             set x [ lindex $line 0 ]

       }

       lappend groupRoleList [ list $appRole no no ""  $groups] 
       unset groups 

   }

   close  $grouprolesFileid

   return $groupRoleList

}
########################################################
# Proc - get virtual host mappings
#      - note vhosts can be spread across nodes
########################################################
proc get_vhosts {vhostsFileid} {

   puts "\nexecuting get_vhosts\n"

   while { [ gets $vhostsFileid line ] != -1 } {

	   set name   [ lindex $line 0 ]
	   set module [ lindex $line 1 ]
	   set vhost  [ lindex $line 2 ]

	   puts [ format "%-5s %-20s" " " "###########################" ]

	   puts [ format "%-5s %-20s %-20s " " " "Module Name"  $name   ]
	   puts [ format "%-5s %-20s %-20s " " " "Module"       $module ]
	   puts [ format "%-5s %-20s %-20s " " " "Virtual Host" $vhost  ]

	   lappend vhostList [ list $name $module $vhost ] 

       }

   close $vhostsFileid     

   return $vhostList  

} 

   
########################################################
# Proc - get appserver mappings
#      - note webmodules can be spread across appservers
########################################################
proc get_servers {serverFileid cellName nodeName } {

   puts "\nexecuting get_servers\n"

   while { [ gets $serverFileid line ] != -1 } {

	   set name   [ lindex $line 0 ]
	   set module [ lindex $line 1 ]
	   set server [ lindex $line 2 ]

           set serverName WebSphere:cell=$cellName,node=$nodeName,server=$server

	   puts [ format "%-5s %-20s %-20s " " " "Module Name" $name   ]
	   puts [ format "%-5s %-20s %-20s " " " "Module"      $module ]
	   puts [ format "%-5s %-20s %-20s " " " "Server"      $server ]

	   puts [ format "%-5s %-20s" " " "###########################" ]

	   lappend serverList [ list $name $module $serverName ] 

       }

   close $serverFileid     

   return $serverList  

}
########################################################
# Proc - get ejb jndi names
########################################################
proc get_ejbs {ejbFileid} {

   puts "\nexecuting get_ejbs\n"

   while { [ gets $ejbFileid line ] != -1 } {

	   set name   [ lindex $line 0 ]
	   set module [ lindex $line 1 ]
	   set ejb    [ lindex $line 2 ]

	   puts [ format "%-5s %-20s %-20s %-20s" " " $name $module $ejb ]

	   lappend ejbList [ list $name $module $ejb ] 

       }

   close $ejbFileid     

   return $ejbList  
    
}
######################################################
# Proc - install enterprise app.
######################################################
proc installEnterpriseApp { nodeName earFile appName serverName vhostList groupRoleList serverList } {

   global AdminApp

   puts "\ninstallEnterpriseApp\n"

   puts "########################################"
   puts "Creating $appName Enterprise Application"
   puts "########################################"

   set optionList [ list -appname             $appName    \
                         -node                $nodeName   \
		         -server              $serverName \
		         -MapWebModToVH       $vhostList  \
		         -MapRolesToUsers     $groupRoleList \
                         -MapModulesToServers $serverList ]

   if { [ catch { $AdminApp install $earFile $optionList } result_var] == 0 } {

        			       puts $result_var

        			       puts "\n$appName deployed sucessfully\n"

      } else {

              puts \n$result_var\n
              puts "########################################"
              puts "$appName failed to deploy"
              puts "########################################"

	      return -code error $result_var

   }

}

######################################################
# Proc - modify enterprise app.
######################################################
proc modifyEnterpriseApp { appName sessionTimeout } {

   global AdminConfig

   puts "\nmodifyEnterpriseApp"
   puts "_____________________\n"

   puts "########################################"
   puts "Modify $appName Enterprise Application"
   puts "########################################"

   set appId [ $AdminConfig getid /Deployment:$appName ] 

   # get deployed object characteristics.

   set depObject [ $AdminConfig showAttribute $appId deployedObject ] 

   # get current policies.

   set warClassLoader [ $AdminConfig showAttribute $depObject warClassLoaderPolicy ]
   set reloadEnabled  [ $AdminConfig showAttribute $depObject reloadEnabled ]
   set reloadInterval [ $AdminConfig showAttribute $depObject reloadInterval ]

   puts "\n#######################################################"
   puts "Current WAR Class Loader Policy is    $warClassLoader"
   puts "Current WAR Reload Enabled Policy is  $reloadEnabled"
   puts "Current WAR Reload Interval Policy is $reloadInterval"
   puts "#########################################################\n"

   set newWarClassLoaderPolicy  [ list warClassLoaderPolicy SINGLE ] 
   set reloadEnabled            [ list reloadEnabled        true   ]
   set reloadInterval           [ list reloadInterval       3      ]

   set attributes               [ list $newWarClassLoaderPolicy \
                                       $reloadEnabled           \
                                       $reloadInterval          \
                                ]
                                 
   if { [ catch { $AdminConfig modify $depObject $attributes } result_var] == 0 } {

       set warClassLoader [ $AdminConfig showAttribute $depObject warClassLoaderPolicy ]
       set reloadEnabled  [ $AdminConfig showAttribute $depObject reloadEnabled ]
       set reloadInterval [ $AdminConfig showAttribute $depObject reloadInterval ]

       puts "#######################################################"
       puts "New WAR Class Loader Policy is  $warClassLoader"
       puts "New WAR Reload Enabled Policy is  $reloadEnabled"
       puts "New WAR Reload Interval Policy is $reloadInterval"
       puts "#########################################################\n"

   } else {

	      puts \n$result_var\n
	      puts "########################################"
	      puts "$appName - Modification failed"
	      puts "########################################"
              
	      return -code error 

   }

   # set session manager parameters

   set newAllowSerializedSessionAccess [ list allowSerializedSessionAccess false] 
   set newAccessSessionOnTimeOut       [ list accessSessionOnTimeout       true ] 
   set newMaxWaitTime                  [ list maxWaitTime                  90   ] 
   
   # set Tuning Parms 

   set allowOverflow                 [ list allowOverflow           false ]
   set invalidationTimeout           [ list invalidationTimeout     $sessionTimeout ] 
   set maxInMemorySessionCount       [ list maxInMemorySessionCount 1000  ]

   set tuningParamsList [ list $allowOverflow           \
                               $invalidationTimeout     \
                               $maxInMemorySessionCount \
                        ]

   set tuningParams     [ list tuningParams $tuningParamsList ]

   set sessionManagerAttr [ list $newAllowSerializedSessionAccess \
			         $newAccessSessionOnTimeOut       \
				 $newMaxWaitTime                  \
				 $tuningParams                    \
                          ]

   set newSessionManagement  [ list [ list sessionManagement $sessionManagerAttr ] ]

   if { [ catch { $AdminConfig create ApplicationConfig $depObject $newSessionManagement } result_var] == 0 } {

       puts "\nNew Session Manager Attributes for $appName are:\n"
       
       foreach i $sessionManagerAttr {

	   foreach { a b } $i {

	       puts "$a $b"

           }

       }
       
       puts "\n$appName modified sucessfully\n"

       $AdminConfig save

      } else {

	      puts \n$result_var\n
	      puts "########################################"
	      puts "$appName - Modification failed"
	      puts "########################################"
              
	      return -code error 

      }

}
######################################################
# Proc - display attributes.
######################################################
proc displayAttributes { appName } {

   global AdminApp

   puts "displayAttributes"
   puts "_____________________"

   set taskList [ $AdminApp view $appName {-tasknames} ]
  
   foreach x $taskList {

      puts [ format "%-15s %-s " " " "################################" ]
      puts [ format "%-15s %-s " " " "Attributes - $x" ]
      puts [ format "%-15s %-s " " " "################################" ]

      puts [ $AdminApp view $appName -$x ]

   }

}
######################################################
# Proc - nodeSync.
######################################################
proc nodeSync { nodeName } {

   global AdminControl

   puts "\nnodeSync"
   puts "________\n" 

   puts "########################################"
   puts "Sync server application details with node."
   puts "########################################"

   set nodeSync [ $AdminControl queryNames type=NodeSync,node=$nodeName,* ]

   # if the node sync object is null then this is a WAS 5 base instalation.

   if { $nodeSync != {} } {

      puts "\n set enabled flag"
      
      set enabledFlag [ $AdminControl getAttribute $nodeSync serverStartupSyncEnabled ]

      if { [ string compare $enabledFlag false ] == 0 } {

	  puts "\n Syncing node with DM"
	  puts "______________________\n" 

	  if { [ catch { $AdminControl invoke $nodeSync sync } r ] == 0 } {

	      puts "########################################"
	      puts "$nodeName synced sucessfully"
	      puts "########################################"

          }  else { 

	      puts \n$r\n
	      puts "########################################"
	      puts "$nodeName failed to sync"
	      puts "########################################"

          }

      }

   }

}
######################################
# Control block"
######################################

if { [ catch { check_args $argc } r ] != 0 } {

    return -code error $r 

}

set earFile        [ lindex $argv 0 ]
set appName        [ lindex $argv 1 ]
set serverName     [ lindex $argv 2 ]
set userrolesFile  [ lindex $argv 3 ]
set vhostsFile     [ lindex $argv 4 ]
set serverFile     [ lindex $argv 5 ]
set grouprolesFile [ lindex $argv 6 ]
set ejbFile        [ lindex $argv 7 ]
set sessionTimeout [ lindex $argv 8 ]

# 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 formatSpec "%-20s %-1s %-1s %s"

puts [ format $formatSpec  "Cell Name"           " " "=" $cellId        ]
puts [ format $formatSpec  "Node Name"           " " "=" $nodeId        ]
puts [ format $formatSpec  "Server Name"         " " "=" $serverName    ]
puts [ format $formatSpec  "Application"         " " "=" $appName       ]
puts [ format $formatSpec  "User Mapping File"   " " "=" $userrolesFile ]
puts [ format $formatSpec  "Ear Mapping File"    " " "=" $earFile ]
puts [ format $formatSpec  "Vhosts Mapping File" " " "=" $vhostsFile ]
puts [ format $formatSpec  "Server Mapping File" " " "=" $serverFile ]
puts [ format $formatSpec  "Group Mapping File"  " " "=" $grouprolesFile ]
puts [ format $formatSpec  "Ejb Mapping File"    " " "=" $ejbFile ]
puts [ format $formatSpec  "Session Timeout"     " " "=" $sessionTimeout ]

puts ""

check_file $earFile        
check_file $userrolesFile  
check_file $grouprolesFile 
check_file $vhostsFile     
check_file $serverFile     
check_file $ejbFile        

puts ""

set userrolesFile_id  [open $userrolesFile   r ]
set grouprolesFile_id [open $grouprolesFile  r ]
set vhostsFileid      [open $vhostsFile      r ]
set serverFileid      [open $serverFile      r ]
set ejbFileid         [open $ejbFile         r ]

if { [ catch { get_vhosts  $vhostsFileid } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

} else {

        set vhostList $r 
	
}

if { [ catch { get_servers $serverFileid $cellName $nodeName } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

} else {

        set serverList $r 
	
}

if { [ catch { get_grouproles $grouprolesFile_id } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

} else {

        set groupRoleList $r 

}

######################################
# Install Application.
######################################

if { [ catch { installEnterpriseApp $nodeName      \
				    $earFile       \
				    $appName       \
				    $serverName    \
				    $vhostList     \
				    $groupRoleList \
				    $serverList } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

} else {

        $AdminConfig save
	
}

######################################
# Modify Application Attributes.
######################################

if { [ catch { modifyEnterpriseApp  $appName $sessionTimeout } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

} else {

        $AdminConfig save
	
}
######################################
# Display Application Attributes.
######################################

if { [ catch { displayAttributes $appName } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

}
######################################
# Sync Node if ND installation.
######################################

if { [ catch { nodeSync $nodeName } r ] != 0 } {

    return -code error \n$r\n 
    exit 1

} 

######################################
# END
######################################