Shell Programming and Scripting

#!/bin/bash
########################################################
#                                                      #
# Fix fstab - ticket xxxxx.###.###                     #
#                                                      #
########################################################
# set -x

ticket_num="xxxxx.###.###"
log_file=$ticket_num".log"
machine_list="/home/me/machine.txt"

echo "$HOSTNAME: *************************************************************" `date` >> $log_file
echo "$HOSTNAME: ***      Starting new run for fixing $ticket_num          ***" `date` >> $log_file
echo "$HOSTNAME: *************************************************************" `date` >> $log_file
for i in `cat $machine_list`
   do
      echo "$HOSTNAME: *** Starting new run on host: $i for fixing $ticket_num ***" `date` >> $log_file
      sleep 0.25s ;

      ( ssh -T root@$i << EOF >> $log_file 2>&1 & )
########################################################
#                                                      #
# Commands for the remote machine to execute ...       #
#                                                      #
# Backslash (\) all $variables that are to be          #
# evaluated on the remote machine. Any remaining       #
# variables will be evaluated by this script prior     #
# to execution on the remote machine.                  #
#                                                      #
########################################################

   echo "\$HOSTNAME: Fixing $ticket_num " ;
   cp -p /etc/fstab /etc/fstab`date +".bak.%Y-%b-%d.%H:%M:%S"`

   echo "\$HOSTNAME: Un-mounting alpha3 directories "
   umount /alpha3/db_a/
   umount /alpha3/db_b/view

   echo "\$HOSTNAME: Fixing fstab entry for: xxxxx.###.### "
   sed -i 's/some sed commands here' /etc/fstab ;
   sed -i 's/some sed commands here' /etc/fstab ;

   echo "\$HOSTNAME: Mounting alpha3 directories "
   mount /alpha3/db_a/
   mount /alpha3/db_b/view

EOF

############ End of Remote Execution ###################

done

#!/usr/bin/perl -w

use Net::Telnet; 

@nodeip = ("x.x.x.x","x.x.x.x") ;
%node = ("x.x.x.x","node1","x.x.x.x","node2") ;
foreach $nodeip (@nodeip) {
                          $telnet = new Net::Telnet ( Timeout=>10,Prompt=> '/.*@.*/',Errmode=>'die'); 
                          
                          $telnet->open($nodeip); 
                          $telnet->waitfor('/ogin: $/i'); 
                          $telnet->print('user); 
                          $telnet->waitfor('/assword: $/i'); 
                          $telnet->print('passwd'); 
                          print "========================================================\n";
                          print "            PERFORMING HEALTH CHECK ON $node{$nodeip}    \n";
                          print "========================================================\n";
                          
                          $telnet->waitfor('/# $/i');  
                                    
                         print "==================================\n";
                         print "Checking Basic system status::\n";
                         print "==================================\n";
                         @sysinfo1 = $telnet->cmd('uname -a');
                         @sysinfo2 = $telnet->cmd('uptime');
                         @sysinfo3 = $telnet->cmd('who -r');
                         
                         print "@sysinfo1  @sysinfo2  @sysinfo3","\n";
                         }

========================================================
            PERFORMING HEALTH CHECK ON NODE1    
========================================================
==================================
Checking Basic system status::
==================================
SunOS eqm01s13p2 5.9 Generic_122300-34 sun4u sparc SUNW,Netra-CP2300
   11:17am  up 236 day(s),  6:44,  1 user,  load average: 1.51, 1.18, 1.16
     .       run-level 3  Mar 18 04:34     3      0  S

========================================================
            PERFORMING HEALTH CHECK ON NODE2    
========================================================
==================================
Checking Basic system status::
==================================
SunOS eqm01s14p2 5.9 Generic_122300-34 sun4u sparc SUNW,Netra-CP2300
   11:17am  up 217 day(s),  3:19,  3 users,  load average: 0.90, 0.91, 0.99
     .       run-level 3  Apr  6 08:00     3      0  S