home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Systeme / ShellUnix / HLOOP.SH < prev    next >
Linux/UNIX/POSIX Shell Script  |  1998-07-09  |  10KB  |  367 lines
  1. #!/bin/sh 
  2. #---------------------------------------------------------------------- 
  3. # NOM 
  4. #    hloop = Execute une meme commande sur une liste de stations.
  5. #  
  6. # SYNTAXE 
  7. #    hloop -h|H            (aide) 
  8. #    hloop commande        (execute la commande)
  9. #    hloop [-q] [-s station] [-u user] [-f fichier] commande
  10. #  
  11. #---------------------------------------------------------------------- 
  12. # VERSION
  13. #    1.1
  14. # 
  15. # DESCRIPTION 
  16. #    * Cette commande permet d'executer une liste de stations une meme
  17. #    commande passee en argument.
  18. #    Si aucune liste n'est passe en argument la procedure prend le 
  19. #    fichier /etc/hosts ou si l'on se trouve dans un domaine NIS
  20. #    la procedure utilise la commande ypcat.
  21. #  
  22. #    * Le fichier de stations doit contenir une station par ligne.
  23. #  
  24. #  
  25. # OPTION(S) 
  26. #    -h|H        Aide courte ou longue. 
  27. #  
  28. #    -f fichier  Prend la liste des station inscrites dans 
  29. #                fichier.
  30. # 
  31. #    -u user     Execute les remote commande a travers une entree
  32. #                utilisateur.
  33. #  
  34. #    -s station  Execute une commande uniquement sur une station.
  35. #                Il est plus rapide faire directement un remsh
  36. #                sur la station souhaite, mais une telle option
  37. #                peut etre utile.
  38. #  
  39. #    -q          Mode silence, se contente juste d'executer la
  40. #                commande.
  41. # 
  42. #  
  43. # EXEMPLE(S) 
  44. #    * Lance la commande "users" sur la liste de station inscrites dans 
  45. #    le fichier liste :
  46. # 
  47. #        prompt_unix> hloop -f liste users
  48. #  
  49. #    * Lance la commande "bdf" sur la liste de station inscrites dans 
  50. #    le fichier file.txt avec comme entree l'utilisateur toto :
  51. # 
  52. #        prompt_unix> hloop -q -u toto -f file.txt bdf
  53. #  
  54. # DEPENDANCE(S) 
  55. #    * remsh|rsf, domainname, awk, ping, sed, grep, ypcat.
  56. #  
  57. # AUTEUR
  58. #     Copyright (c) 1998 Bertrand LE QUELLEC, All Rigths Reserved.
  59. # 
  60. # CONTACT
  61. #   eMail : blq@mygale.org ou blq@wanadoo.fr
  62. #   Url   : http://www.mygale.org/09/blq/ ou http://perso.wanadoo.fr/blq/
  63. #
  64. # Cree : 18/11/93
  65. #---------------------------------------------------------------------- 
  66. # Permission to use, copy, modify, distribute, and sell this software
  67. # and its documentation for any purpose is hereby granted without fee,
  68. # provided that the above copyright notice appear in all copies and
  69. # that both that copyright notice and this permission notice appear in
  70. # supporting documentation, and that the name of Bertrand LE QUELLEC    
  71. # not be used in advertising or publicity pertaining to distribution 
  72. # of the software without specific, written prior permission. Bertrand 
  73. # LE QUELLEC makes no representations about the suitability of
  74. # this software for any purpose. It is provided "as is" without
  75. # express or implied warranty.
  76. #
  77. # THIS SOFTWARE IS PROVIDED BY Bertrand LE QUELLEC `AS IS' AND ANY
  78. # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  79. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  80. # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Bertrand LE QUELLEC BE
  81. # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  82. # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  83. # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  84. # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  85. # WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  86. # OR OTHERWISE)     ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  87. # EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  88. #---------------------------------------------------------------------- 
  89.  
  90. # ------------------------------------------ 
  91. # ZONE DE DEFINITION DES VARIABLES GLOBALES:
  92. # ------------------------------------------
  93. NOM_PROCEDURE=`basename $0`
  94. LA_PROCEDURE=$0
  95. CD=`pwd`
  96. AWK=`[ -f /usr/bin/nawk ] && echo "nawk" || echo "awk" `
  97.  
  98. HOSTNAME=`hostname`
  99. UNAME=`uname`
  100. RSH=`[ "$UNAME" = "HP-UX" -o "$UNAME" = "AIX" ] && echo "remsh" || echo "rsh"`
  101. TEST_PING=`[ "$UNAME" = "HP-UX" -o "$UNAME" = "AIX" ] && echo "0% packet loss" || echo "alive"`
  102.  
  103. ##
  104. ## Variables particulieres:
  105. ##
  106. DATE=`date "+%d/%m/%y"`
  107. MODE_COULEUR=0
  108.  
  109.  
  110. ##
  111. ## Les variables concernant l'utilisateur:
  112. ##
  113. DEFAUT_AUTEUR=`whoami`
  114. DEFAUT_EDITEUR=${EDITOR}
  115. DEFAUT_SHELL=${SHELL}
  116.  
  117.  
  118. #---------------------------------------------------------------------- 
  119. # ----------------------------------------- 
  120. # ZONE DE DEFINITION DES FONCTIONS LOCALES:
  121. # -----------------------------------------
  122. # La fonction doit etre precedee d'un commentaire avec en debut de ligne
  123. # le caractere # (diese) repete deux fois.
  124.  
  125. ##
  126. ## En cas d'une interruption la fonction suivante est executee.
  127. ## Les interruptions sont des signaux envoyes au processus du script,
  128. ## par la commande Unix: kill(1). La "capture" de ces signaux est
  129. ## identifiee par la commande Shell: trap definie apres la zone des
  130. ## options.
  131. ##
  132. TrapInterrup()
  133. {
  134.     # Vous pouvez executer des instructions avant une sortie 
  135.     # par signal (ou brutale!).
  136.     exit 1
  137. }
  138.  
  139.  
  140. ##
  141. ## Renvoie le PATH et nom d'un ou plusieurs executables.
  142. ## Si le ou les executables sont introuvables la fonction ne renvoie rien.
  143. ## Dans le cas d'un alias la fonction ne renvoie rien, car le PATH n'est
  144. ## pas recuperable.
  145. ##
  146. Type()
  147. {
  148.     [ $# -ne 0 ] && type $* | ${AWK} '$2=="is" && $4!="alias" {print $NF}'
  149. }
  150.  
  151.  
  152. ##
  153. ## Affiche l'aide indiquee en en-tete du script shell.
  154. ## Ne pas supprimer car cette fonction est utilisee a l'appel de la
  155. ## procedure avec les options -H ou -H
  156. ##
  157. AideProc()
  158. {
  159.     fichier=$1
  160.     niveau=$2
  161.  
  162.     [ -z "$fichier" ] && {
  163.         Erreur "AideProc(): nombre d'argument incorect."
  164.         return 0
  165.         }
  166.  
  167.     [ ! -f "$fichier" ] && {
  168.         Erreur "AideProc(): impossible d'atteindre le fichier $fichier."
  169.         return 0
  170.     }
  171.  
  172.     [ ${niveau:=2} = 2 ] && {
  173.         ${AWK} 'BEGIN {i=2}
  174.             /^#(#+|-+|÷+|\*+|\\+|\++|=+|\.+|\/+)+ *$/{
  175.                 if(--i<=0)exit
  176.                 next
  177.             }
  178.             /^#[     ]*[A-Z]*[     ]*$/{
  179.                 next
  180.             }
  181.             /^#[^!]/{
  182.                 print substr($0,1,80)
  183.             }
  184.             /^#[ \t]*$/{
  185.                 print ""
  186.             }
  187.         ' $fichier | sed -e 's/^#[     ]*//'
  188.     } || {
  189.         ${AWK} '\
  190.             /^#(#+|-+|÷+|\*+|\\+|\++|=+|\.+|\/+)+ *$/{
  191.                 if(--i<=0) exit
  192.                 next
  193.             }
  194.             /^#[^!]/{
  195.                 print substr($0,2,80)
  196.             }
  197.             /^#[ \t]*$/{
  198.                 print ""
  199.             }
  200.         ' i=$niveau $fichier | pg -e
  201.     }
  202. }
  203.  
  204. ##
  205. ## Renvoie le type de la machine ou l'on se trouve et surtout le
  206. ## systeme d'exploitation en cours. La fonction renvoie un des numero
  207. ## suivant en reponse:
  208. ##
  209. ##    inconue            0
  210. ##
  211. ##    SunOs            1
  212. ##    Sun Solaris        2
  213. ##    HP s700            3
  214. ##    HP s800            4
  215. ##    HP s300            5
  216. ##    Silicon Graphic     6
  217. ##    IBM AIX            7
  218. ##
  219. ## Pour recuperer le code retour de la fonction, utilisez la variable $?
  220. ##
  221. Machine()
  222. {
  223.     os=`uname`
  224.  
  225.     [ "$os" = "SunOS" ] && return 1
  226.     
  227.     [ "$os" = "HP-UX" ] && {
  228.         if uname -a | grep "PA-RISC" 1> /dev/null
  229.         then
  230.             return 3
  231.         elif uname -a | grep "HP-PA" 1> /dev/null
  232.             return 4
  233.         then
  234.             return 5
  235.         fi
  236.     }
  237.  
  238.     [ "$os" = "IRIX" ] && return 6
  239.  
  240.     [ "$os" = "AIX" ] && return 7
  241.  
  242.     return 0
  243. }
  244.  
  245.  
  246. ##
  247. ## Affiche un message en rouge si l'on se trouve dans une fenetre hpterm
  248. ## et se met en attente de 2 secondes.
  249. ## Il est possible de recuperer le code retour de la fonction.
  250. ##
  251. Erreur()
  252. {
  253.     [ $# -eq 0 ] && return -1
  254.  
  255.     echo "\n\t${ROUGE}$*"
  256.     sleep 2
  257.  
  258.     return 0
  259. }
  260.  
  261.  
  262. #---------------------------------------------------------------------- 
  263. # ---------------------------------------------- 
  264. # DEFENITION DES VARIABLES LOCALES AU PROGRAMME:
  265. # ----------------------------------------------
  266.  
  267. LISTE=
  268. USER=
  269. QUIET=0
  270.  
  271.  
  272. #---------------------------------------------------------------------- 
  273. # ---------------------------------------------- 
  274. # DEFENITION DES FONCTIONS LOCALES AU PROGRAMME:
  275. # ----------------------------------------------
  276.  
  277. ## --------------------------------------------------
  278. ## verification que la station est Up ou Down.
  279. ##
  280. ## 0 Down
  281. ## 1 Up
  282. ##
  283. UpDown ()
  284. {
  285.     Machine
  286.     [ $? -eq 7 ] && {
  287.         perc=`ping $1 -c 1 | grep -c "${TEST_PING}"'`
  288.     } || {
  289.         perc=`ping $1 64 -n 1 | grep -c "${TEST_PING}"'`
  290.     }
  291.  
  292.     [ `echo $perc | grep -c unknown` -gt 0 ] && return 0
  293.     [ "$perc" -eq 0 -o "$perc" = "1" ] && return 1 || return 0
  294. }
  295.  
  296. ## --------------------------------------------------
  297. ## execution de la commande sur la station distante.
  298. ##
  299. hexec()
  300. {
  301.     [ $QUIET -eq 1 ] || echo "Execution sur $host ..."
  302.  
  303.     if UpDown $host
  304.     then
  305.         [ `$RSH $host $USER echo 2>&1 | grep -c incorrect` -gt 0 ] && ( [ $QUIET -eq 1 ] || echo "\t>> Pas d'entree sur $host" ) || eval $RSH $host $USER $*
  306.     else
  307.         [ $QUIET -eq 1 ] || echo "\t>> $host est down"
  308.     fi
  309.  
  310.     [ $QUIET -eq 1 ] || echo ""
  311. }
  312.  
  313.  
  314. #---------------------------------------------------------------------- 
  315. # ------------------------- 
  316. # RECUPERATION DES OPTIONS:
  317. # -------------------------
  318. set -- `getopt hHxf:u:s:q $*` 
  319. for opt in $*                                            
  320. do                                                             
  321.     case $opt in                                           
  322.         -h) AideProc $LA_PROCEDURE    ; exit 0 ;;
  323.         -H) AideProc $LA_PROCEDURE 3  ; exit 0 ;;
  324.  
  325.         -x) set -x ; shift ;;
  326.  
  327.         -f)    LISTE=$2     ; shift ; shift ;;
  328.         -u)    USER="-l $2" ; shift ; shift ;;
  329.         -s)    echo "$2" > /tmp/liste$$ ; LISTE=/tmp/liste$$
  330.             shift ; shift ;;
  331.         -q)    QUIET=1 ; shift ;;
  332.  
  333.         --)    shift            ; break ;;
  334.     esac                                                        
  335. done                                                          
  336.  
  337.  
  338. #----------------------------------------------------------------------
  339. # AUTRES DEFINITIONS:
  340. # -------------------
  341. trap TrapInterrup 3 2 15    # Recuperation des interruptions 3, 2 et 15
  342.  
  343. #----------------------------------------------------------------------
  344. # DEBUT ZONE DU PROGRAMME:
  345. # ------------------------
  346.  
  347. [ -z "$LISTE" ] && (
  348.     if domainname > /dev/null
  349.     then
  350.         for host in `${AWK} '$1 !~ "#" {car=substr($1,1,1);if(car!="#")print $2}' /etc/hosts`
  351.         do
  352.             hexec $*
  353.         done
  354.     else
  355.         for host in `ypcat hosts | ${AWK} '{print $2}'`
  356.         do
  357.             hexec $*
  358.         done
  359.     fi ) || (
  360.     for host in `${AWK} '{print $1}' $LISTE`
  361.     do
  362.         hexec $*
  363.     done 
  364.     
  365.     [ "$LISTE" = /tmp/liste$$ ] && rm -f /tmp/liste$$ )
  366.  
  367.