home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Systeme / ShellUnix / FCHOWN.SH < prev    next >
Linux/UNIX/POSIX Shell Script  |  1998-07-09  |  12KB  |  380 lines
  1. #!/bin/sh
  2. #---------------------------------------------------------------------- 
  3. # NOM                                        
  4. #    fchown = Changement recursif des droits de fichiers particuliers.
  5. # 
  6. # SYNTAXE                                    
  7. #    fchown -h|H          (aide)   
  8. #    fchown [-v] [-o old_user] [-u new_user] [fichiers]
  9. # 
  10. #---------------------------------------------------------------------- 
  11. # VERSION
  12. #    1.0
  13. # 
  14. # DESCRIPTION
  15. #    * Changement recursif des droits (propietes) pour un utilisateur
  16. #    particulier. A la difference de la commande Chown -R, cette
  17. #    procedure peut effectuer le changement de proprietes a partir de la
  18. #    designation d'un nom precis d'utilisateur. Dans le cas ou pour une
  19. #    meme arborescence, il existe des fichiers d'utilisateurs differents,
  20. #    la procedure modifie uniquement les fichiers designes par
  21. #    l'option -u
  22. # 
  23. #    * Cette procedure est pratique via une utilisation en tant que
  24. #    super utilisateur (root).
  25. # 
  26. # OPTIONS
  27. #    -h|H        aide courte ou longue.        
  28. #                                            
  29. #    -v          Mode verbose, par defaut la procedure n'affiche pas les
  30. #                informations d'execution sur la sortie standard.
  31. #                Cette option permet de valider cet affichage.
  32. #                                            
  33. #    -o user     Effectue les modifications pour un utilisateur bien
  34. #                precis. Seul les fichiers appartenant a cet utilisateur
  35. #                sont concernes par la modification. Option tres
  36. #                importante puisqu'elle justifie l'existance de la
  37. #                procedure vis a vis de : chown -R
  38. #                Sauf si desormais cette possibilite est integree
  39. #                a la commande chown(1M), mais peu importe la
  40. #                procedure fait bien son travail !
  41. # 
  42. #    -u user     Le nom du nouveau utilisateur a affecte aux fichiers
  43. #                et aux repertoires.
  44. # 
  45. #    fichiers    Les noms des repertoires et/ou fichiers de depart des
  46. #                modifications. Par defaut, lLa procedure utilise le 
  47. #                repertoire courant (.).
  48. # 
  49. # 
  50. # EXEMPLE(S)
  51. #    * Lancement de l'application avec affichage de l'aide longue:
  52. #        $ fchown -H
  53. # 
  54. #    * Liste l'ensemble des fichiers appartenant a l'utilisateur
  55. #      courant, sans l'option -u aucune modification n'est effectuee,
  56. #      la procedure se transforme alors en commande ls(1M) un peu
  57. #      particuliere :
  58. #        $ fchown /home 
  59. # 
  60. #    * Modifie tous les fichiers du repertoire courant de l'utilisateur
  61. #      other vers l'utilisateur root :
  62. #        $ fchown -u root -o other
  63. # 
  64. # 
  65. # DEPENDANCE(S)
  66. #    find(1M), ls(1M), chown(1M), awk(1M) ou nawk(1M).
  67. #                                            
  68. # VOIR AUSSI
  69. #    chown(1M).
  70. #                                            
  71. # AUTEUR
  72. #    Copyright (c) 1998 Bertrand LE QUELLEC, All Rigths Reserved.
  73. # 
  74. # CONTACT
  75. #   eMail : blq@mygale.org ou blq@wanadoo.fr
  76. #   Url   : http://www.mygale.org/09/blq/ ou http://perso.wanadoo.fr/blq/
  77. #
  78. # Cree : 24/03/98
  79. #---------------------------------------------------------------------- 
  80. # Permission to use, copy, modify, distribute, and sell this software
  81. # and its documentation for any purpose is hereby granted without fee,
  82. # provided that the above copyright notice appear in all copies and
  83. # that both that copyright notice and this permission notice appear in
  84. # supporting documentation, and that the name of Bertrand LE QUELLEC    
  85. # not be used in advertising or publicity pertaining to distribution 
  86. # of the software without specific, written prior permission. Bertrand 
  87. # LE QUELLEC makes no representations about the suitability of
  88. # this software for any purpose. It is provided "as is" without
  89. # express or implied warranty.
  90. #
  91. # THIS SOFTWARE IS PROVIDED BY Bertrand LE QUELLEC `AS IS' AND ANY
  92. # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  93. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  94. # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Bertrand LE QUELLEC BE
  95. # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  96. # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  97. # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  98. # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  99. # WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  100. # OR OTHERWISE)     ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  101. # EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  102. #---------------------------------------------------------------------- 
  103.  
  104. # ------------------------------------------ 
  105. # ZONE DE DEFINITION DES VARIABLES GLOBALES:
  106. # ------------------------------------------
  107. NOM_PROCEDURE=`basename $0`
  108. LA_PROCEDURE=$0
  109. CD=`pwd`
  110. AWK=`[ -f /usr/bin/nawk ] && echo "nawk" || echo "awk" `
  111.  
  112.  
  113. ##
  114. ## Variables particulieres:
  115. ##
  116. DATE=`date "+%d/%m/%y"`
  117. MODE_COULEUR=0
  118. VISU_HTML=netscape
  119.  
  120.  
  121. ##
  122. ## Les variables concernant l'utilisateur:
  123. ##
  124. DEFAUT_AUTEUR=`whoami`
  125. DEFAUT_EDITEUR=${EDITOR}
  126. DEFAUT_SHELL=${SHELL}
  127.  
  128.  
  129. #---------------------------------------------------------------------- 
  130. # ----------------------------------------- 
  131. # ZONE DE DEFINITION DES FONCTIONS LOCALES:
  132. # -----------------------------------------
  133. # La fonction doit etre precedee d'un commentaire avec en debut de ligne
  134. # le caractere # (diese) repete deux fois.
  135.  
  136. ##
  137. ## En cas d'une interruption la fonction suivante est executee.
  138. ## Les interruptions sont des signaux envoyes au processus du script,
  139. ## par la commande Unix: kill(1). La "capture" de ces signaux est
  140. ## identifiee par la commande Shell: trap definie apres la zone des
  141. ## options.
  142. ##
  143. TrapInterrup()
  144. {
  145.     # Vous pouvez executer des instructions avant une sortie 
  146.     # par signal (ou brutale!).
  147.     exit 1
  148. }
  149.  
  150.  
  151. ##
  152. ## Renvoie le PATH et nom d'un ou plusieurs executables.
  153. ## Si le ou les executables sont introuvables la fonction ne renvoie rien.
  154. ## Dans le cas d'un alias la fonction ne renvoie rien, car le PATH n'est
  155. ## pas recuperable.
  156. ##
  157. Type()
  158. {
  159.     [ $# -ne 0 ] && type $* | ${AWK} '$2=="is" && $4!="alias" {print $NF}'
  160. }
  161.  
  162.  
  163. ##
  164. ## Affiche l'aide indiquee en en-tete du script shell.
  165. ## Ne pas supprimer car cette fonction est utilisee a l'appel de la
  166. ## procedure avec les options -H ou -H
  167. ##
  168. AideProc()
  169. {
  170.     fichier=$1
  171.     niveau=$2
  172.  
  173.     [ -z "$fichier" ] && {
  174.         Erreur "AideProc(): nombre d'argument incorect."
  175.         return 0
  176.     }
  177.  
  178.     [ ! -f "$fichier" ] && {
  179.         [ -f "`basename $fichier`" ] && fichier=`basename $fichier` || {
  180.             Erreur "AideProc(): impossible d'atteindre le fichier $fichier."
  181.             return 0
  182.         }
  183.     }
  184.  
  185.     [ ${niveau:=2} = 2 ] && {
  186.         ${AWK} 'BEGIN {i=2}
  187.             /^#[-]+/{
  188.                 if(--i<=0)exit
  189.                 next
  190.             }
  191.             /^#[     ]*[A-Z]*[     ]*$/{
  192.                 next
  193.             }
  194.             /^#[^!]/{
  195.                 print substr($0,1,80)
  196.             }
  197.             /^#[ \t]*$/{
  198.                 print ""
  199.             }
  200.         ' $fichier | sed -e 's/^#[     ]*//'
  201.     } || {
  202.         ${AWK} '\
  203.             /^#[-]+/{
  204.                 if(--i<=0) exit
  205.                 next
  206.             }
  207.             /^#[^!]/{
  208.                 print substr($0,2,80)
  209.             }
  210.             /^#[ \t]*$/{
  211.                 print ""
  212.             }
  213.         ' i=$niveau $fichier | pg -e
  214.     }
  215. }
  216.  
  217. ##
  218. ## Renvoie le type de la machine ou l'on se trouve et surtout le
  219. ## systeme d'exploitation en cours. La fonction renvoie un des numero
  220. ## suivant en reponse:
  221. ##
  222. ##    inconue            0
  223. ##
  224. ##    SunOs            1
  225. ##    Sun Solaris        2
  226. ##    HP s700            3
  227. ##    HP s800            4
  228. ##    HP s300            5
  229. ##    Silicon Graphic     6
  230. ##    IBM AIX            7
  231. ##
  232. ## Pour recuperer le code retour de la fonction, utilisez la variable $?
  233. ##
  234. Machine()
  235. {
  236.     os=`uname`
  237.  
  238.     [ "$os" = "Solaris" ] && return 2
  239.  
  240.     [ "$os" = "SunOS" ] && {
  241.         [ -f /vmunix ] && return 1 || return 2
  242.     }
  243.     
  244.     [ "$os" = "HP-UX" ] && {
  245.         if uname -a | grep "PA-RISC" 1> /dev/null
  246.         then
  247.             return 3
  248.         elif uname -a | grep "HP-PA" 1> /dev/null
  249.             return 4
  250.         then
  251.             return 5
  252.         fi
  253.     }
  254.  
  255.     [ "$os" = "IRIX" ] && return 6
  256.  
  257.     [ "$os" = "AIX" ] && return 7
  258.  
  259.     return 0
  260. }
  261.  
  262.  
  263. ##
  264. ## Affiche un message en rouge si l'on se trouve dans une fenetre hpterm
  265. ## et se met en attente de 2 secondes.
  266. ## Il est possible de recuperer le code retour de la fonction.
  267. ##
  268. Erreur()
  269. {
  270.     [ $# -eq 0 ] && return -1
  271.  
  272.     echo "\n\t${ROUGE}$*${NORMAL}"
  273.     sleep 2
  274.  
  275.     return 0
  276. }
  277.  
  278.  
  279. ##
  280. ## Permet de visualiser un fichier HTML avec le bon executable:
  281. ##    netscape ou mosaic
  282. ##
  283. VoirHTML ()
  284. {
  285.     fichier="$*"
  286.  
  287.     [ -z "$VISU_HTML" ] && VISU_HTML=mosaic
  288.  
  289.     chemin=`Type $VISU_HTML`
  290.     [ -z "$chemin" ] && VISU_HTML=netscape
  291.  
  292.     chemin=`Type $VISU_HTML`
  293.     [ -z "$chemin" ] && {
  294.         Erreur "Executable du visualiseur HTML non accessible !"
  295.         return 0
  296.     }
  297.  
  298.     $VISU_HTML $fichier &
  299.     return 1
  300. }
  301.  
  302.  
  303. #---------------------------------------------------------------------- 
  304. # ---------------------------------------------- 
  305. # DEFENITION DES VARIABLES LOCALES AU PROGRAMME:
  306. # ----------------------------------------------
  307.  
  308. LE_USER=${DEFAUT_AUTEUR}
  309. OLD_USER=
  310. LE_GROUP=
  311. LE_DIR="."
  312. VERBOSE=0
  313.  
  314.  
  315. #---------------------------------------------------------------------- 
  316. # ---------------------------------------------- 
  317. # DEFENITION DES FONCTIONS LOCALES AU PROGRAMME:
  318. # ----------------------------------------------
  319.  
  320.  
  321.  
  322. #---------------------------------------------------------------------- 
  323. # ------------------------- 
  324. # RECUPERATION DES OPTIONS:
  325. # -------------------------
  326. set -- `getopt hHxvu:o: $*`                
  327. for opt in $*                                            
  328. do                                                             
  329.     case $opt in                                           
  330.         -h) AideProc $LA_PROCEDURE    ; exit 0 ;;
  331.         -H) AideProc $LA_PROCEDURE 3  ; exit 0 ;;
  332.  
  333.         -x) set -x ; shift ;;
  334.  
  335.         -u)    LE_USER="$2" ; shift ; shift ;;
  336.         -o)    OLD_USER="-user $2" ; shift ; shift ;;
  337.         -v)    VERBOSE=1 ; shift ;;
  338.  
  339.         --) shift ; LE_DIR="$*" ; break ;;
  340.     esac                                                        
  341. done                                                          
  342.  
  343.  
  344. #----------------------------------------------------------------------
  345. # AUTRES DEFINITIONS:
  346. # -------------------
  347. trap TrapInterrup 3 2 15    # Recuperation des interruptions 3, 2 et 15
  348.  
  349.  
  350. #----------------------------------------------------------------------
  351. # DEBUT ZONE DU PROGRAMME:
  352. # ------------------------
  353. for un_dir in `echo $LE_DIR`
  354. do
  355.     [ $un_dir != "--" ] && {
  356.         # Traitement recursif sur un repertoire/fichier.
  357.         # Le awk permet de traiter les noms de fichiers avec des espaces, ils sont
  358.         # quelques fois utilises et autorises par certaines applications.
  359.         find $un_dir $OLD_USER -print | awk '{ 
  360.             gsub(/ /, "\\\\ ", $0)
  361.             print $0
  362.         }' | while read file        # L'utilisation du While et non du For est ici importante !
  363.         do
  364.             [ $VERBOSE -eq 1 ] && {
  365.                 echo ""
  366.                 echo ">> `ls -ld "$file" | ${AWK} '{ printf(\"%s %s %s\", $1, $3, $4) }'`\t$file"
  367.             }
  368.  
  369.             [ ! -z "$LE_USER" ] && {
  370.                 chown $LE_USER "$file"
  371.  
  372.                 [ $VERBOSE -eq 1 ] && {
  373.                     echo "<< `ls -ld "$file" | ${AWK} '{ printf(\"%s %s %s\", $1, $3, $4) }'`\t$file"
  374.                 }
  375.             }
  376.         done
  377.     }
  378. done
  379.  
  380.