home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Systeme / ShellUnix / TIPS.SH < prev    next >
Linux/UNIX/POSIX Shell Script  |  1998-07-09  |  36KB  |  1,296 lines
  1. #!/bin/sh
  2. #---------------------------------------------------------------------- 
  3. # NOM                                        
  4. #    tips = Gestionnaire d'astuces et d'informations a se souvenir.
  5. # 
  6. # SYNTAXE                                    
  7. #    tips -h|H          (aide)   
  8. #    tips [-c|X]
  9. # 
  10. #---------------------------------------------------------------------- 
  11. # VERSION
  12. #    1.1
  13. # 
  14. # DESCRIPTION
  15. #   Permet de gerer des Tips (astuces, infos, trucs, etc.) pour conserver
  16. #    les infos quotidiennes d'un adminstrateur Unix/Reseaux.
  17. # 
  18. #    Le plus pratique est de designer un repertoire ou seront enregistres
  19. #    les Tips, ainsi il est possible de changer de base de Tips en donnant
  20. #    uniquement le nom du fichier. La procedure se charge d'ajouter le Path.
  21. # 
  22. #     La page "Preferences" de la procedure permet de positionner certaines
  23. #    variables generales comme : l'auteur, l'adresse Mail ou l'editeur de
  24. #    saisie des Tips. Au sujet de l'editeur ASCII, par defaut la procedure
  25. #    propose vi. Dans le cas ou vous souhaitez utiliser un autre editeur,
  26. #    vous devez vous assurer que la commande qui l'execute ne rend pas la
  27. #    "main" a la procedure (pas d'execution en background !). La procedure
  28. #    effectue des traitements tout de suite apres la fin d'execution de
  29. #    l'editeur, si l'editeur est lance en "background" les donnees que vous
  30. #    aurez saisie ne seront pas prise en compte.
  31. # 
  32. #     Les importations de Tips concernent l'utilisation de fichier ASCII
  33. #    issu d'un Mail. La procedure se charge d'extraire les informations en
  34. #    supprimant les entetes et les fichiers attaches qui n'ont pas une
  35. #    origine ASCII (binaire, archive compressee, etc.)
  36. # 
  37. #     L'utilisation de l'option -X offre la possibilite d'executer la
  38. #    procedure dans une fenetre. Dans le cas ou les fenetres hpterm (HP)
  39. #    et dtterm (CDE) sont accessibles, les menus sont affiches avec des
  40. #    couleurs.
  41. # 
  42. # 
  43. # OPTIONS
  44. #    -h|H        aide courte ou longue.        
  45. #                                            
  46. #    -c          active le mode couleur, utilisable uniquement dans des
  47. #                fenetres hpterm. Pour les autres fenetres, la procedure
  48. #                 utilise les codes tput connus.
  49. # 
  50. #    -X          lance la procedure dans une fenetre dtterm, hpterm ou
  51. #                 xterm. La procedure effectue le choix automatiquement.
  52. #                                            
  53. #                                            
  54. # EXEMPLE(S)
  55. #    * Lancement de l'application avec affichage de l'aide longue:
  56. #        $ tips -H
  57. # 
  58. # FICHIER(S)
  59. #    $HOME/.Tips_rc        Contient la sauvegarde des options.
  60. #                                            
  61. # REMARQUE(S)
  62. #    Procedure distribuee en Freeware/Gratuiciel.
  63. #                                            
  64. # AUTEUR
  65. #     Copyright (c) 1998 Bertrand LE QUELLEC, All Rigths Reserved.
  66. # 
  67. # CONTACT
  68. #   eMail : blq@mygale.org ou blq@wanadoo.fr
  69. #   Url   : http://www.mygale.org/09/blq/ ou http://perso.wanadoo.fr/blq/
  70. #
  71. # Cree : 04/02/98
  72. #---------------------------------------------------------------------- 
  73. # Permission to use, copy, modify, distribute, and sell this software
  74. # and its documentation for any purpose is hereby granted without fee,
  75. # provided that the above copyright notice appear in all copies and
  76. # that both that copyright notice and this permission notice appear in
  77. # supporting documentation, and that the name of Bertrand LE QUELLEC    
  78. # not be used in advertising or publicity pertaining to distribution 
  79. # of the software without specific, written prior permission. Bertrand 
  80. # LE QUELLEC makes no representations about the suitability of
  81. # this software for any purpose. It is provided "as is" without
  82. # express or implied warranty.
  83. #
  84. # THIS SOFTWARE IS PROVIDED BY Bertrand LE QUELLEC `AS IS' AND ANY
  85. # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  86. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  87. # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Bertrand LE QUELLEC BE
  88. # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  89. # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  90. # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  91. # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  92. # WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  93. # OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  94. # EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  95. #---------------------------------------------------------------------- 
  96.  
  97. # ------------------------------------------ 
  98. # ZONE DE DEFINITION DES VARIABLES GLOBALES:
  99. # ------------------------------------------
  100. NOM_PROCEDURE=`basename $0`
  101. LA_PROCEDURE=$0
  102. CD=`pwd`
  103. AWK=`[ -f /usr/bin/nawk ] && echo "nawk" || echo "awk" `
  104.  
  105.  
  106. ##
  107. ## Variables particulieres:
  108. ##
  109. DATE=`date "+%d/%m/%y"`
  110. MODE_COULEUR=0
  111. VISU_HTML=netscape
  112.  
  113.  
  114. ##
  115. ## Les variables concernant l'utilisateur:
  116. ##
  117. DEFAUT_AUTEUR=`whoami`
  118. DEFAUT_EDITEUR=${EDITOR}
  119. DEFAUT_SHELL=${SHELL}
  120.  
  121.  
  122. #---------------------------------------------------------------------- 
  123. # ----------------------------------------- 
  124. # ZONE DE DEFINITION DES FONCTIONS LOCALES:
  125. # -----------------------------------------
  126. # La fonction doit etre precedee d'un commentaire avec en debut de ligne
  127. # le caractere # (diese) repete deux fois.
  128.  
  129. ##
  130. ## En cas d'une interruption la fonction suivante est executee.
  131. ## Les interruptions sont des signaux envoyes au processus du script,
  132. ## par la commande Unix: kill(1). La "capture" de ces signaux est
  133. ## identifiee par la commande Shell: trap definie apres la zone des
  134. ## options.
  135. ##
  136. TrapInterrup()
  137. {
  138.     SauveRC
  139.  
  140.     # Vous pouvez executer des instructions avant une sortie 
  141.     # par signal (ou brutale!).
  142.     exit 1
  143. }
  144.  
  145.  
  146. ##
  147. ## Renvoie le PATH et nom d'un ou plusieurs executables.
  148. ## Si le ou les executables sont introuvables la fonction ne renvoie rien.
  149. ## Dans le cas d'un alias la fonction ne renvoie rien, car le PATH n'est
  150. ## pas recuperable.
  151. ##
  152. Type()
  153. {
  154.     [ $# -ne 0 ] && type $* | ${AWK} '$2=="is" && $4!="alias" {print $NF}'
  155. }
  156.  
  157.  
  158. ##
  159. ## Affiche l'aide indiquee en en-tete du script shell.
  160. ## Ne pas supprimer car cette fonction est utilisee a l'appel de la
  161. ## procedure avec les options -H ou -H
  162. ##
  163. AideProc()
  164. {
  165.     fichier=$1
  166.     niveau=$2
  167.  
  168.     echo "${NORMAL}"
  169.  
  170.     [ -z "$fichier" ] && {
  171.         Erreur "AideProc(): nombre d'argument incorect."
  172.         return 0
  173.     }
  174.  
  175.     [ ! -f "$fichier" ] && {
  176.         [ -f "`basename $fichier`" ] && fichier=`basename $fichier` || {
  177.             Erreur "AideProc(): impossible d'atteindre le fichier $fichier."
  178.             return 0
  179.         }
  180.     }
  181.  
  182.     [ ${niveau:=2} = 2 ] && {
  183.         ${AWK} 'BEGIN {i=2}
  184.             /^#[-]+/{
  185.                 if(--i<=0)exit
  186.                 next
  187.             }
  188.             /^#[     ]*[A-Z]*[     ]*$/{
  189.                 next
  190.             }
  191.             /^#[^!]/{
  192.                 print substr($0,1,80)
  193.             }
  194.             /^#[ \t]*$/{
  195.                 print ""
  196.             }
  197.         ' $fichier | sed -e 's/^#[     ]*//'
  198.     } || {
  199.         ${AWK} '\
  200.             /^#[-]+/{
  201.                 if(--i<=0) exit
  202.                 next
  203.             }
  204.             /^#[^!]/{
  205.                 print substr($0,2,80)
  206.             }
  207.             /^#[ \t]*$/{
  208.                 print ""
  209.             }
  210.         ' i=$niveau $fichier | pg -e
  211.     }
  212.  
  213.     sleep 3
  214. }
  215.  
  216. ##
  217. ## Renvoie le type de la machine ou l'on se trouve et surtout le
  218. ## systeme d'exploitation en cours. La fonction renvoie un des numero
  219. ## suivant en reponse:
  220. ##
  221. ##    inconue            0
  222. ##
  223. ##    SunOs                 1
  224. ##    Sun Solaris        2
  225. ##    HP s700            3
  226. ##    HP s800            4
  227. ##    HP s300            5
  228. ##    Silicon Graphic    6
  229. ##    IBM AIX            7
  230. ##
  231. ## Pour recuperer le code retour de la fonction, utilisez la variable $?
  232. ##
  233. Machine()
  234. {
  235.     os=`uname`
  236.  
  237.     [ "$os" = "Solaris" ] && return 2
  238.  
  239.     [ "$os" = "SunOS" ] && {
  240.         [ -f /vmunix ] && return 1 || return 2
  241.     }
  242.     
  243.     [ "$os" = "HP-UX" ] && {
  244.         if uname -a | grep "PA-RISC" 1> /dev/null
  245.         then
  246.             return 3
  247.         elif uname -a | grep "HP-PA" 1> /dev/null
  248.             return 4
  249.         then
  250.             return 5
  251.         fi
  252.     }
  253.  
  254.     [ "$os" = "IRIX" ] && return 6
  255.  
  256.     [ "$os" = "AIX" ] && return 7
  257.  
  258.     return 0
  259. }
  260.  
  261.  
  262. ##
  263. ## Affiche un message en rouge si l'on se trouve dans une fenetre hpterm
  264. ## et se met en attente de 2 secondes.
  265. ## Il est possible de recuperer le code retour de la fonction.
  266. ##
  267. Erreur()
  268. {
  269.     [ $# -eq 0 ] && return -1
  270.  
  271.     echo "${NORMAL}\n\t${ROUGE}$*"
  272.     sleep 2
  273.  
  274.     return 0
  275. }
  276.  
  277.  
  278. ##
  279. ## Permet de visualiser un fichier HTML avec le bon executable:
  280. ##    netscape ou mosaic
  281. ##
  282. VoirHTML ()
  283. {
  284.     fichier="$*"
  285.  
  286.     [ -z "$VISU_HTML" ] && VISU_HTML=mosaic
  287.  
  288.     chemin=`Type $VISU_HTML`
  289.     [ -z "$chemin" ] && VISU_HTML=netscape
  290.  
  291.     chemin=`Type $VISU_HTML`
  292.     [ -z "$chemin" ] && {
  293.         Erreur "Executable du visualiseur HTML non accessible !"
  294.         return 0
  295.     }
  296.  
  297.     $VISU_HTML $fichier &
  298.     return 1
  299. }
  300.  
  301.  
  302. #---------------------------------------------------------------------- 
  303. # ---------------------------------------------- 
  304. # DEFENITION DES VARIABLES LOCALES AU PROGRAMME:
  305. # ----------------------------------------------
  306.  
  307. OPEN_TIPS=" @>@>"
  308. CLOSE_TIPS="<@<@"
  309.  
  310. #---------------------------------------------------------------------- 
  311. # ---------------------------------------------- 
  312. # DEFENITION DES FONCTIONS LOCALES AU PROGRAMME:
  313. # ----------------------------------------------
  314.  
  315. ##
  316. ## Renvoie le numero de Tips le plus grand
  317. ##
  318. MaxNumTips ()
  319. {
  320.     fichier=$1
  321.     [ -z "$fichier" ] && return 0
  322.     [ ! -f "$fichier" ] && return 0
  323.  
  324.     max=`$AWK -F"No" ' BEGIN { max=0 }
  325.         /^Tips No [0-9]*/{
  326.             sub(sep_o, "", $0)
  327.             if (max < $2) max=$2
  328.         } END { printf("%d", max) }' sep_o="${OPEN_TIPS}" $fichier`
  329.  
  330.     return $max
  331. }
  332.  
  333. ##
  334. ## Renvoie le nombre de Tips
  335. ##
  336. NbTips ()
  337. {
  338.     fichier=$1
  339.     [ -z "$fichier" ] && return 0
  340.     [ ! -f "$fichier" ] && return 0
  341.  
  342.     nb=`$AWK ' BEGIN { nb=0 }
  343.         /^Tips No [0-9]* /{
  344.             nb=nb+1
  345.         } END { printf("%d", nb) }' $fichier`
  346.  
  347.     return $nb
  348. }
  349.  
  350. ##
  351. ## Met a jour les variables NB et MAX des Tips
  352. ##
  353. NbMaxTips()
  354. {
  355.     NbTips ${SOURCE_TIPS}
  356.     NB_TIPS=$?
  357.     [ -z "$NB_TIPS" ] && NB_TIPS=0
  358.  
  359.     MaxNumTips ${SOURCE_TIPS}
  360.     MAX_TIPS=$?
  361.     [ -z "$MAX_TIPS" ] && MAX_TIPS=$NB_TIPS
  362. }
  363.  
  364. ##
  365. ## Envoie d'un Tips par Mail
  366. ##
  367. MailTips()
  368. {
  369.     titre_tips=$1
  370.     fichier_tips=$2
  371.     [ -z "$fichier_tips" ] && return 0
  372.  
  373.     echo "${NORMAL}
  374.     Souhaitez-vous ditribuer le Tips par mail (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  375.     read reponse ; echo ${NORMAL}
  376.  
  377.     [ "${reponse:=n}" = "o" ] && {
  378.         defaut=" [${VERT}${DISTRIB_TIPS}${NORMAL}] "
  379.  
  380.         echo "${NORMAL}
  381.     Entrez l'adresse mail${defaut}: ${JAUNE}\c"
  382.         read reponse ; echo ${NORMAL}
  383.         [ "${reponse:=Q}" = Q -o "${reponse:=q}" = q ] && continue
  384.         DISTRIB_TIPS="$reponse"
  385.  
  386.         SauveRC
  387.  
  388.         mail ${DISTRIB_TIPS} << ETIQ 
  389. Subject:${titre_tips}
  390. From:${DEFAUT_AUTEUR} <${DEFAUT_MAIL}>
  391. 'cat $fichier_tips'
  392. ETIQ
  393.     }
  394.  
  395.     return 1
  396. }
  397.  
  398. ##
  399. ## Ecrit un Tips dans un fichier
  400. ##
  401. WriteTips()
  402. {
  403.     num_tips=$1
  404.     fichier_tips=$2
  405.     [ -z "$fichier_tips" ] && return 0
  406.  
  407.     echo "
  408. Tips No ${num_tips}${OPEN_TIPS}
  409. LA_DATE=${LA_DATE}
  410. L_AUTEUR=\"${L_AUTEUR}\"
  411. LE_MAIL=\"${LE_MAIL}\"
  412. LE_TITRE=\"${LE_TITRE}\"
  413. L_OS=\"${L_OS}\"
  414. LA_MACHINE=\"${LA_MACHINE}\"
  415. LES_MOTS_CLEFS=\"${LES_MOTS_CLEFS}\"
  416. L_INFO=\"${L_INFO}\"
  417. ${CLOSE_TIPS}" > $fichier_tips
  418.  
  419.     return 1
  420. }
  421.  
  422. ##
  423. ## Visualise un Tips apres demande du numeo
  424. ##
  425. VisuUnTips()
  426. {
  427.     clear
  428.     echo "${NORMAL}
  429.     Entrez le numero du tips a visualiser : ${JAUNE}\c"
  430.     read nb ; echo ${NORMAL}
  431.     [ "${nb}" = Q -o "${nb}" = q ] && continue
  432.  
  433.     $AWK ' BEGIN {flag=0}
  434.         {
  435.             if ($0 == sep_c)
  436.             {
  437.                 if (flag == 1) flag=0
  438.             }
  439.  
  440.             if (flag == 1) print $0
  441.         }
  442.         /Tips/{
  443.             if ($3 == num) flag=1
  444.     }' num="$nb" sep_c="${CLOSE_TIPS}" ${SOURCE_TIPS} > /tmp/visu_tips$$
  445.  
  446.     chmod 777 /tmp/visu_tips$$
  447.     . /tmp/visu_tips$$
  448.     rm -f /tmp/visu_tips$$ > /dev/null
  449.  
  450.     echo "${NORMAL}
  451. ${INVERSE}${JAUNE}Titre            : ${NORMAL} ${JAUNE}$LE_TITRE${NORMAL}
  452.  
  453. Mots clefs       :  ${CYAN}$LES_MOT_CLEFS${NORMAL}
  454. Date de creation :  ${CYAN}$LA_DATE${NORMAL}
  455. Auteur           :  ${CYAN}$L_AUTEUR${NORMAL}
  456. Mail auteur      :  ${CYAN}$LE_MAIL${NORMAL}
  457.  
  458. OS/Version       :  ${VERT}$L_OS${NORMAL}
  459. Modele/Machine   :  ${VERT}$LA_MACHINE${NORMAL}
  460.  
  461. ${INVERSE}${JAUNE}Descriptif du Tips : ${NORMAL}
  462.  
  463. $L_INFO
  464.  
  465. " | pg
  466.  
  467.     return 1
  468. }
  469.  
  470. ##
  471. ## Sauvegarde le contenu des variables globales 
  472. ## dans le fichier de ressources de l'utilisateur.
  473. ##
  474. SauveRC()
  475. {
  476.     [ -f ${TIPS_RC} ] && cp -f ${TIPS_RC} ${TIPS_RC}.sav
  477.  
  478.     echo "
  479. #---------------------------------------------------------------------- 
  480. # VARIABLES GENERALES:
  481. # --------------------
  482. MAX_TIPS=\"${MAX_TIPS}\"
  483. NB_TIPS=\"${NB_TIPS}\"
  484. DISTRIB_TIPS=\"${DISTRIB_TIPS}\"
  485.  
  486. #---------------------------------------------------------------------- 
  487. # REPERTOIRE DES FICHIERS TIPS:
  488. # ------------------------------
  489. REP_TIPS=\"${REP_TIPS}\"
  490. SOURCE_TIPS=\"${SOURCE_TIPS}\"
  491.  
  492. #---------------------------------------------------------------------- 
  493. # LISTE DES VARIABLES GLOBALES CONCERNANT L'UTILISATEUR:
  494. # ------------------------------------------------------
  495. DEFAUT_AUTEUR=\"${DEFAUT_AUTEUR}\"
  496. DEFAUT_MAIL=\"${DEFAUT_MAIL}\"
  497. DEFAUT_EDITEUR=\"${DEFAUT_EDITEUR}\"
  498.     " > ${TIPS_RC}
  499.  
  500.     chmod 777 ${TIPS_RC} 2> /dev/null
  501. }
  502.  
  503. #---------------------------------------------------------------------- 
  504.  
  505. #---------------------------------------------------------------------- 
  506. # ------------------------- 
  507. # RECUPERATION DES OPTIONS:
  508. # -------------------------
  509. set -- `getopt hHxMcX $*`                
  510. for opt in $*                                            
  511. do                                                             
  512.     case $opt in                                           
  513.         -h) AideProc $LA_PROCEDURE    ; exit 0 ;;
  514.         -H) AideProc $LA_PROCEDURE 3  ; exit 0 ;;
  515.  
  516.         -x) set -x ; shift ;;
  517.  
  518.         -c) shift ; MODE_COULEUR=1;;
  519.  
  520.         -X) [ -x /usr/dt/bin/dtterm ] && LE_TERM="/usr/dt/bin/dtterm" || {
  521.                 [ -x /usr/bin/X11/hpterm ] && LE_TERM="/usr/bin/X11/hpterm" || LE_TERM=xterm
  522.             }
  523.  
  524.             $LE_TERM -geometry 80x35 -ms red -cr red -fg white -bg black \
  525.                 -name $NOM_PROCEDURE \
  526.                 -title "$HOSTNAME - $NOM_PROCEDURE - $DEFAUT_USER" \
  527.                 -n $NOM_PROCEDURE -e $NOM_PROCEDURE -c & 
  528.             exit 0 ;;
  529.  
  530.         --) shift ; break ;;
  531.     esac                                                        
  532. done                                                          
  533.  
  534.  
  535. #----------------------------------------------------------------------
  536. # AUTRES DEFINITIONS:
  537. # -------------------
  538. trap TrapInterrup 3 2 15    # Recuperation des interruptions 3, 2 et 15
  539.  
  540. ##
  541. ## Caracteres speciaux valable uniquement sur HP:
  542. ## Permet d'obtenir de la couleur sur des fenetres hp-term.
  543. ##
  544. [ $MODE_COULEUR -eq 1 ] && {
  545.     [ $TERM = "hpterm" ] && {
  546.         BLANC="\033&v0S"; ROUGE="\033&v1S"; VERT="\033&v2S"; JAUNE="\033&v3S"
  547.         BLEU="\033&v4S"; MAGENTA="\033&v5S"; CYAN="\033&v6S"; NOIR="\033&v7S"
  548.         SOULIGNE="\033&dD"; INVERSE="\033&dB"; INVSOUS="\033&dF"; NORM="\033&d@"
  549.         NORMAL=${NORM}${BLANC}
  550.     } || {
  551.         NOIR=`tput setaf 0 2> /dev/null`; ROUGE=`tput setaf 1 2> /dev/null`
  552.         VERT=`tput setaf 2 2> /dev/null`; JAUNE=`tput setaf 3 2> /dev/null`
  553.         BLEU=`tput setaf 4 2> /dev/null`; MAGENTA=`tput setaf 5 2> /dev/null`
  554.         CYAN=`tput setaf 6 2> /dev/null`; BLANC=`tput setaf 7 2> /dev/null`
  555.         SOULIGNE=`tput smul 2> /dev/null`; INVERSE=`tput smso 2> /dev/null`
  556.         INVSOUS=${SOULIGNE}${INVERSE}; NORM=`tput sgr0 2> /dev/null`
  557.         NORMAL=${NORM}${BLANC}
  558.     }
  559. } || {
  560.     NOIR=""; ROUGE=""
  561.     VERT=""; JAUNE=""
  562.     BLEU=""; MAGENTA=""
  563.     CYAN=""; BLANC=""
  564.     SOULIGNE=""; INVERSE=""; INVSOUS=""; NORM=""; NORMAL=""
  565. }
  566.  
  567.  
  568. #----------------------------------------------------------------------
  569. # DEBUT ZONE DU PROGRAMME:
  570. # ------------------------
  571. NB_TIPS=0
  572. MAX_TIPS=0
  573. TIPS_RC=$HOME/.Tips_rc
  574. SOURCE_TIPS=$HOME/MesTips
  575.  
  576. [ -f "${TIPS_RC}" ] && . $TIPS_RC || SauveRC
  577. [ -z "$NB_TIPS" ] && NB_TIPS=0
  578. [ -z "$MAX_TIPS" ] && MAX_TIPS=0
  579.  
  580. [ ! -f "$SOURCE_TIPS" ] && {
  581.     MAX_TIPS=0
  582.     NB_TIPS=0
  583. }
  584.  
  585. [ "$MAX_TIPS" -gt 0 -a "$NB_TIPS" -eq 0 ] && {
  586.     MAX_TIPS=0
  587.     NbTips
  588.     NB_TIPS=$?
  589. }
  590.  
  591. [ "$NB_TIPS" -gt 0 -a "$MAX_TIPS" -eq 0 ] && {
  592.     MaxNumTips
  593.     MAX_TIPS=$?
  594. }
  595.  
  596.  
  597. ## ---------------------------------------------------------------------
  598. ##
  599. ## BOUCLE DU PREMIER MENU (PAGE 1):
  600. ##
  601. ## ---------------------------------------------------------------------
  602. while true
  603. do
  604.     clear
  605.     echo "${NORMAL}
  606.         ${INVERSE}${CYAN} GESTIONNAIRE DE TIPS ${NORMAL} ${INVERSE}${JAUNE} ${NB_TIPS} ${NORMAL}${INVERSE}${VERT} ${MAX_TIPS} ${NORMAL}
  607.  
  608.  ${INVERSE}${VERT} Variables par defaut                                                         ${NORMAL}
  609.     Repertoire Tips : ${VERT}${REP_TIPS}${NORMAL}
  610.     Fichier Tips    : ${VERT}${SOURCE_TIPS}${NORMAL}
  611.     Editeur         : ${VERT}${DEFAUT_EDITEUR}${NORMAL}
  612.     Auteur          : ${VERT}${DEFAUT_AUTEUR}${NORMAL}
  613.  
  614.  
  615.  ${INVERSE}${JAUNE} Menu principal                                                               ${NORMAL}
  616.     h|H|help${JAUNE} .......... ${NORMAL}L'${JAUNE}aide${NORMAL} de la procedure.
  617.     p|pref${JAUNE} ............ ${NORMAL}Affiche du menu ${JAUNE}Preferences${NORMAL}.
  618.     o|open${JAUNE} ............ ${NORMAL}${ROUGE}Editer directement${NORMAL} le fichier des Tips.
  619.  
  620.     l|lst${JAUNE} ............. ${NORMAL}${JAUNE}Lister${NORMAL} les Tips.
  621.     r|rech${JAUNE} ............ ${NORMAL}${JAUNE}Rechercher${NORMAL} un Tips.
  622.  
  623.     n|new${JAUNE} ............. ${NORMAL}${JAUNE}Nouveau${NORMAL} Tips.
  624.     e|edit${JAUNE} ............ ${NORMAL}${JAUNE}Editer${NORMAL} un Tips.
  625.     v|visu${JAUNE} ............ ${NORMAL}${JAUNE}Visualiser${NORMAL} un Tips.
  626.  
  627.     m|mail${JAUNE} ............ ${NORMAL}${JAUNE}Mail${NORMAL} un Tips.
  628.     i|import${JAUNE} .......... ${NORMAL}${JAUNE}Importer${NORMAL} des Tips.
  629.  
  630.     q|quit${ROUGE} ............ Quitte${NORMAL} le programme.
  631.  
  632.  
  633.  Votre choix : ${JAUNE}\c"
  634.  
  635.     read choix ; echo ${NORMAL}
  636.     [ -z "$choix" ] && continue
  637.  
  638.     nom=""
  639.     nb=`echo $choix | ${AWK} '{ print NF }'`
  640.  
  641.     [ $nb -gt 1 ] && {
  642.         nom=`echo $choix | cut -f2 -d" "`
  643.         choix=`echo $choix | cut -f1 -d" "`
  644.     }
  645.  
  646.     clear
  647.  
  648.     case $choix in
  649.         ## ------------------------------------------------------------
  650.         [lL]|list)
  651.             clear
  652.  
  653.             [ ${NB_TIPS} -le 0 ] && {
  654.                 Erreur "Aucun Tips dans la base"
  655.                 continue
  656.             }
  657.  
  658.             echo "\n ${INVERSE}${JAUNE} LISTE DES TIPS ${NORMAL}\n\n"
  659.  
  660.             $AWK -F= '
  661.                 /^Tips No/{
  662.                     sub(sep_o, "", $1)
  663.                     nb=$1
  664.                 }
  665.                 /^LE_TITRE/{
  666.                     gsub(/\"/, "", $2)
  667.                     printf("%s : %s %s %s\n", nb, jaune, $2, normal)
  668.             }' sep_o="${OPEN_TIPS}" normal=${NORMAL} inverse=${INVERSE} jaune=${JAUNE} ${SOURCE_TIPS} | pg
  669.  
  670.  
  671.             echo "${NORMAL}
  672.     Souhaitez-vous visualiser un Tips (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  673.             read reponse ; echo ${NORMAL}
  674.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  675.             [ "${reponse:=n}" = "o" ] && VisuUnTips
  676.             ;;
  677.  
  678.         ## ------------------------------------------------------------
  679.         [rR]|rech)
  680. ## ------------------------------------------------------------{
  681. ##  MENU RECHERCHE (PAGE 3)
  682. ## ------------------------------------------------------------
  683. while true
  684. do
  685.             clear
  686.             echo "
  687.     ${INVERSE}${CYAN}  RECHERCHE DANS LES TIPS  ${NORMAL}
  688.  
  689.         ${JAUNE}1${NORMAL}) Titre
  690.         ${JAUNE}2${NORMAL}) Auteur
  691.         ${JAUNE}3${NORMAL}) OS/Version
  692.         ${JAUNE}4${NORMAL}) Modele/Machine
  693.         ${JAUNE}5${NORMAL}) Mots clefs
  694.         ${JAUNE}6${NORMAL}) Description
  695.  
  696.         q|Q${ROUGE} ...... ${NORMAL}Retour au menu principal.
  697.  
  698.     Votre choix : ${JAUNE}\c"
  699.     read choix ; echo ${NORMAL}
  700.  
  701.     case $choix in
  702.         ## ------------------------------------
  703.         1|2|3|4|5|6)
  704.             echo "${NORMAL}
  705.     Entrez l'information a rechercher : ${JAUNE}\c"
  706.             read reponse ; echo ${NORMAL}
  707.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  708.     
  709.             clear
  710.  
  711.             $AWK -F= ' BEGIN {
  712.                     flagInfo=0
  713.                     flag=0
  714.                     leTitre=""
  715.                     leTips= ""
  716.                     printf("\n\n%s%s Liste des Tips repondant aux criteres de recherche %s\n\n", inv, jaune, normal)
  717.                 }
  718.                 /^Tips No/{
  719.                     if (flag == 1) printf("%s%s : %s %s %s \n", normal, leTips, jaune, leTitre, normal)
  720.  
  721.                     sub(sep_o, "", $0)
  722.                     leTips=$0
  723.                     leTitre=""
  724.                     flag=0
  725.                     flagInfo=0
  726.                 }
  727.                 /^LA_DATE/{
  728.                 }
  729.                 /^L_AUTEUR/{
  730.                     if (recherche == 2 ) {
  731.                         if (index($2, info)) flag=1 
  732.                     }
  733.                 }
  734.                 /^LE_MAIL/{
  735.                 }
  736.                 /^L_OS/{
  737.                     if (recherche == 3 ) {
  738.                         if (index($2, info)) flag=1 
  739.                     }
  740.                 }
  741.                 /^LA_MACHINE/{
  742.                     if (recherche == 4 ) {
  743.                         if (index($2, info)) flag=1 
  744.                     }
  745.                 }
  746.                 /^LES_MOTS_CLEFS/{
  747.                     if (recherche == 5 ) {
  748.                         if (index($2, info)) flag=1 
  749.                     }
  750.                 }
  751.                 /^LE_TITRE/{
  752.                     gsub(/"/, "", $0)
  753.                     leTitre=$2
  754.  
  755.                     if (recherche == 1 ) {
  756.                         if (index($2, info)) flag=1 
  757.                     }
  758.                 }
  759.                 /^L_INFO/{
  760.                     if (recherche == 6 )
  761.                         flagInfo=1
  762.                     else
  763.                         flagInfo=0
  764.                 }
  765.                 {
  766.                     if (flagInfo == 1)
  767.                     {
  768.                         if (index($0, info)) flag=1 
  769.                     }
  770.                 }
  771.                 END { if (flag == 1) printf("%s%s : %s %s %s \n", normal, leTips, jaune, leTitre, normal) }' sep_o="${OPEN_TIPS}" recherche="${choix}" info="${reponse}" normal="${NORMAL}" jaune="${JAUNE}" inv="${INVERSE}" ${SOURCE_TIPS} | pg
  772.  
  773.                 echo "${NORMAL}
  774.     Souhaitez-vous visualiser un Tips (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  775.                 read reponse ; echo ${NORMAL}
  776.                 [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  777.                 [ "${reponse:=n}" = "o" ] && VisuUnTips
  778.                 ;;
  779.  
  780.         ## ------------------------------------
  781.         [qQ]*) break ;;
  782.  
  783.         ## ------------------------------------
  784.         *) Erreur "Commande <$choix> inconnue !?" ;;
  785.     esac
  786. done ;;
  787.  
  788.         ## ------------------------------------------------------------
  789.         [nN]*)
  790.             clear
  791.             echo "${NORMAL}
  792.  ${INVERSE}${CYAN} Creation d'un nouveau Tips : ${NORMAL} [qQ] pour annuler
  793.  
  794.     Entrez le titre du Tips (${ROUGE}obligatoire${NORMAL}) : ${JAUNE}\c"
  795.             read titre ; echo ${NORMAL}
  796.             [ "${titre:=Q}" = Q -o "${titre:=q}" = q ] && continue
  797.  
  798.             echo "${NORMAL}
  799.     Entrez l'OS concerne et sa version : ${JAUNE}\c"
  800.             read os ; echo ${NORMAL}
  801.             [ "${os}" = Q -o "${os}" = q ] && continue
  802.  
  803.             echo "${NORMAL}
  804.     Entrez le constructeur 
  805.     et le modele de la machine : ${JAUNE}\c"
  806.             read modele ; echo ${NORMAL}
  807.             [ "${modele}" = Q -o "${modele}" = q ] && continue
  808.  
  809.             echo "${NORMAL}
  810.     Entrez quelques mots clefs : ${JAUNE}\c"
  811.             read mots ; echo ${NORMAL}
  812.             [ "${mots}" = Q -o "${mots}" = q ] && continue
  813.  
  814.             $DEFAUT_EDITEUR /tmp/new_tips$$
  815.             
  816.             sleep 2
  817.             MAX_TIPS=`expr $MAX_TIPS + 1`
  818.             NB_TIPS=`expr $NB_TIPS + 1`
  819.  
  820.             LA_DATE=${DATE}
  821.             L_AUTEUR=\"${DEFAUT_AUTEUR}\"
  822.             LE_MAIL=\"${DEFAUT_MAIL}\"
  823.             LE_TITRE=\"${titre}\"
  824.             L_OS=\"${os}\"
  825.             LA_MACHINE=\"${modele}\"
  826.             LES_MOTS_CLEFS=\"${mots}\"
  827.             L_INFO=\"`cat /tmp/new_tips$$`\"
  828.  
  829.             WriteTips ${MAX_TIPS} /tmp/new_tips$$
  830.  
  831.             cat /tmp/new_tips$$ >> $SOURCE_TIPS
  832.  
  833.             MailTips "${titre}" /tmp/new_tips$$
  834.             rm -f /tmp/new_tips$$ > /dev/null
  835.             ;;
  836.  
  837.  
  838.         ## ------------------------------------------------------------
  839.         [eE]|edit)
  840.             clear
  841.             echo "${NORMAL}
  842.     Entrez le numero du tips a editer : ${JAUNE}\c"
  843.             read nb ; echo ${NORMAL}
  844.             [ "${nb}" = Q -o "${nb}" = q ] && continue
  845.  
  846.             $AWK ' BEGIN {flag=0}
  847.                 {
  848.                     if ($0 == sep_c) flag=0
  849.                     if (flag == 1) print $0
  850.                 }
  851.                 /Tips/{
  852.                     if ($3 == num) flag=1
  853.             }' sep_c="${CLOSE_TIPS}" num="$nb" ${SOURCE_TIPS} > /tmp/modif_tips$$
  854.  
  855.             chmod 777 /tmp/modif_tips$$
  856.             . /tmp/modif_tips$$
  857.             rm -f /tmp/modif_tips$$ > /dev/null
  858.  
  859.             clear
  860.             echo "${NORMAL}
  861.  ${INVERSE}${CYAN} Modification du Tips No ${JAUNE} $nb ${NORMAL}
  862.  
  863.     Titre : ${JAUNE}$LE_TITRE${NORMAL}
  864.     Souhaitez-vous le modifier (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  865.             read reponse ; echo ${NORMAL}
  866.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  867.             [ "${reponse:=n}" = "o" ] && {
  868.                 echo $LE_TITRE > /tmp/modif_tips$$
  869.                 $DEFAUT_EDITEUR /tmp/modif_tips$$
  870.                 LE_TITRE=`cat /tmp/modif_tips$$`
  871.                 rm -f /tmp/modif_tips$$ > /dev/null
  872.  
  873.                 clear
  874.                 echo "${NORMAL}
  875.  ${INVERSE}${CYAN} Modification du Tips No ${JAUNE} $nb ${NORMAL}"
  876.             }
  877.  
  878.             echo "${NORMAL}
  879.     OS/Version : ${JAUNE}$L_OS
  880.     Souhaitez-vous le modifier (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  881.             read reponse ; echo ${NORMAL}
  882.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  883.             [ "${reponse:=n}" = "o" ] && {
  884.                 echo $L_OS > /tmp/modif_tips$$
  885.                 $DEFAUT_EDITEUR /tmp/modif_tips$$
  886.                 L_OS=`cat /tmp/modif_tips$$`
  887.                 rm -f /tmp/modif_tips$$ > /dev/null
  888.  
  889.                 clear
  890.                 echo "${NORMAL}
  891.  ${INVERSE}${CYAN} Modification du Tips No ${JAUNE} $nb ${NORMAL}"
  892.             }
  893.  
  894.             echo "${NORMAL}
  895.     Modele/Machine : ${JAUNE}$LA_MACHINE
  896.     Souhaitez-vous le modifier (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  897.             read reponse ; echo ${NORMAL}
  898.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  899.             [ "${reponse:=n}" = "o" ] && {
  900.                 echo $LA_MACHINE > /tmp/modif_tips$$
  901.                 $DEFAUT_EDITEUR /tmp/modif_tips$$
  902.                 LA_MACHINE=`cat /tmp/modif_tips$$`
  903.                 rm -f /tmp/modif_tips$$ > /dev/null
  904.  
  905.                 clear
  906.                 echo "${NORMAL}
  907.  ${INVERSE}${CYAN} Modification du Tips No ${JAUNE} $nb ${NORMAL}"
  908.             }
  909.  
  910.             echo "${NORMAL}
  911.     Mots clefs : ${JAUNE}$LES_MOTS_CLES
  912.     Souhaitez-vous les modifier (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  913.             read reponse ; echo ${NORMAL}
  914.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  915.             [ "${reponse:=n}" = "o" ] && {
  916.                 echo $LES_MOTS_CLEFS > /tmp/modif_tips$$
  917.                 $DEFAUT_EDITEUR /tmp/modif_tips$$
  918.                 LES_MOTS_CLEFS=`cat /tmp/modif_tips$$`
  919.                 rm -f /tmp/modif_tips$$ > /dev/null
  920.  
  921.                 clear
  922.                 echo "${NORMAL}
  923.  ${INVERSE}${CYAN} Modification du Tips No ${JAUNE} $nb ${NORMAL}"
  924.             }
  925.  
  926.             echo "${NORMAL}
  927.     Souhaitez-vous modifier le descriptif (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}n${NORMAL}] : ${VERT}\c"
  928.             read reponse ; echo ${NORMAL}
  929.             [ "${reponse}" = Q -o "${reponse}" = q ] && continue
  930.             [ "${reponse:=n}" = "o" ] && {
  931.                 echo $L_INFO > /tmp/modif_tips$$
  932.                 $DEFAUT_EDITEUR /tmp/modif_tips$$
  933.                 L_INFO=`cat /tmp/modif_tips$$`
  934.                 rm -f /tmp/modif_tips$$ > /dev/null
  935.  
  936.                 clear
  937.                 echo "${NORMAL}
  938.  ${INVERSE}${CYAN} Modification du Tips No ${JAUNE} $nb ${NORMAL}"
  939.             }
  940.  
  941.             WriteTips $nb /tmp/edit_tips$$
  942.  
  943.             cp ${SOURCE_TIPS} ${SOURCE_TIPS}_sav
  944.  
  945.             $AWK ' BEGIN {flag=0}
  946.                 /Tips/{ if ($3 == num) exit 0 }
  947.                 { if (flag == 0) print $0
  948.             }' num="$nb" ${SOURCE_TIPS} > ${SOURCE_TIPS}_1
  949.  
  950.             $AWK ' BEGIN {flag=0}
  951.                 /Tips/{
  952.                     if ($3 == num) flag=1 
  953.                 }
  954.                 {
  955.                     if (flag == 2) print $0
  956.  
  957.                     if {$0 == sep_c)
  958.                     {
  959.                         if (flag == 1) flag=2
  960.                     }
  961.             }' sep_c="${CLOSE_TIPS}" num="$nb" ${SOURCE_TIPS} > ${SOURCE_TIPS}_2
  962.  
  963.             cat ${SOURCE_TIPS}_1 /tmp/edit_tips$$ ${SOURCE_TIPS}_2 > ${SOURCE_TIPS}_old
  964.             cp ${SOURCE_TIPS}_old ${SOURCE_TIPS}
  965.  
  966.             MailTips "${LE_TITRE}" /tmp/edit_tips$$
  967.             rm -f /tmp/edit_tips$$
  968.             ;;
  969.  
  970.  
  971.         ## ------------------------------------------------------------
  972.         [vV]|visu) VisuUnTips ;;
  973.  
  974.         ## ------------------------------------------------------------
  975.         [mM]|mail)
  976.             clear
  977.             echo "${NORMAL}
  978.     Entrez le numero du tips a envoyer en Mail : ${JAUNE}\c"
  979.             read nb ; echo ${NORMAL}
  980.             [ "${nb}:=q" = Q -o "${nb}" = q ] && continue
  981.  
  982.             $AWK ' BEGIN {flag=0}
  983.                 {
  984.                     if ($0 == sep_c) flag=0
  985.                     if (flag == 1) print $0
  986.                 }
  987.                 /Tips/{
  988.                     if ($3 == num) flag=1
  989.             }' sep_c="${CLOSE_TIPS}" num="$nb" ${SOURCE_TIPS} > /tmp/visu_tips$$
  990.  
  991.             MailTips "${LE_TITRE}" /tmp/visu_tips$$
  992.             rm -f /tmp/visu_tips$$
  993.             ;;
  994.         
  995.  
  996.         ## ------------------------------------------------------------
  997.         [iI]*)
  998.             clear
  999.             echo "${NORMAL}
  1000.   Entrez le chemin et le fichier Mail
  1001.   contenant le(s) tips a importer : ${JAUNE}\c"
  1002.  
  1003.             [ "${fichier}:=Q" = Q -o "${fichier}" = q ] && continue
  1004.             [ ! -f "${fichier}" ] && continue
  1005.  
  1006.             echo "${NORMAL}
  1007.     importation en cours ...\c"
  1008.  
  1009.             $AWK -F: ' BEGIN {first=0; flag=0
  1010.                     tag_from=""
  1011.                     tag_date=""
  1012.                     tag_subject=""
  1013.                 }
  1014.                 /^From /{
  1015.                     if (flag >= 2) printf("\"\n%s\n\n", sep_c)
  1016.  
  1017.                     flag=1
  1018.                     tag_from=""
  1019.                     tag_date=""
  1020.                     tag_subject=""
  1021.                     num=num+1
  1022.                 }
  1023.                 /^From:/{
  1024.                     if (flag==1) {
  1025.                         sub(/ /, "", $2)
  1026.                         tag_from=$2
  1027.                     }
  1028.                 }
  1029.                 /^Date:/{
  1030.                     if (flag==1) {
  1031.                         sub(/ /, "", $2)
  1032.                         tag_date=$2
  1033.                     }
  1034.                 }
  1035.                 /^Subject:/{
  1036.                     if (flag==1) {
  1037.                         if(index($0, "Fwd:") || index($0, "Re")) {
  1038.                             sub(/\]$/, "", $0)
  1039.                             sub(/\[Fwd: /, "", $0)
  1040.                             sub(/Re: /, "", $0)
  1041.                             sub(/Subject:/, "", $0)
  1042.                             sub(/ /, "", $2)
  1043.                             tag_subject=$0
  1044.                         }
  1045.                         else {
  1046.                             sub(/ /, "", $2)
  1047.                             tag_subject=$2
  1048.                         }
  1049.                     }
  1050.                 }
  1051.                 /^Content-Transfer-Encoding:/{
  1052.                     if (flag==1) {
  1053.                         if (index($2, "7bit")) flag=2
  1054.                     }
  1055.                     else if (flag==2) {
  1056.                         if (index($2, "7bit")) flag=3
  1057.                     }
  1058.                     else if (flag==3) {
  1059.                         if (index($2, "base64")) flag=2
  1060.                     }
  1061.                 }
  1062.                 {
  1063.                     if (flag == 3) {
  1064.                         gsub(/\=20/, "", $0)
  1065.                         gsub(/\=$/, "", $0)
  1066.  
  1067.                         gsub(/\=E0/, "a", $0)
  1068.                         gsub(/\=E9/, "e", $0)
  1069.                         gsub(/\=EA/, "e", $0)
  1070.  
  1071.                         info=$0
  1072.  
  1073.                         if (index($0, "=3D")) info=div    
  1074.                         if (index($0, "Content-")) info=div    
  1075.                         if (index($0, "X-Sun-")) info=div    
  1076.                         if (index($0, "X-Mozilla-")) info=div    
  1077.                         if (index($0, "X-dt")) info=div    
  1078.                         if (index($0, "--1ecd")) info=div    
  1079.                         if (index($0, "--4e86")) info=div    
  1080.                         if (index($0, "--5d31")) info=div    
  1081.                         if (index($0, "-=_NextPart")) info=div    
  1082.  
  1083.                         if (index($0, "Path: ")) info=div    
  1084.                         if (index($0, "Subject: ")) info=div    
  1085.                         if (index($0, "Message-ID: ")) info=div    
  1086.                         if (index($0, "References: ")) info=div    
  1087.                         if (index($0, "NNTP-")) info=div    
  1088.                         if (index($0, "X-Newsreader: ")) info=div    
  1089.                         if (index($0, "Xref: ")) info=div    
  1090.                         if (index($0, "Organization: ")) info=div    
  1091.  
  1092.                         if (info != div) {
  1093.                             gsub(/"/, "\\\"", info)
  1094.  
  1095.                             if (first == 1) {
  1096.                                 first=0
  1097.  
  1098.                                 printf("Tips No %d%s\n", num, sep_o)
  1099.                                 printf("LA_DATE=\"%s\"\n", tag_date)
  1100.                                 printf("L_AUTEUR=\"%s\"\n", tag_from)
  1101.                                 printf("LE_TITRE=\"%s\"\n", tag_subject)
  1102.                                 printf("L_INFO=\"%s", info)
  1103.                             } else {
  1104.                                 printf("\n%s", info)
  1105.                             }
  1106.                         }
  1107.                     }
  1108.                 }
  1109.                 /^Status:/{ first=1; flag=3 }
  1110.             END {
  1111.                 if(flag==3) printf("\"\n%s\n\n", sep_c)
  1112.             }' div="###@@@" sep_o="${OPEN_TIPS}" sep_c="${CLOSE_TIPS}" num="${MAX_TIPS}" ${fichier} > /tmp/import_tips$$
  1113.  
  1114.             echo ".\c"
  1115.             [ -f "${SOURCE_TIPS}" ] && {
  1116.                 echo ".\c"
  1117.                 cp ${SOURCE_TIPS} ${SOURCE_TIPS}.old
  1118.                 
  1119.                 echo ".\c"
  1120.                 cat ${SOURCE_TIPS}.old /tmp/import_tips$$ > ${SOURCE_TIPS}
  1121.             } || {
  1122.                 echo ".\c"
  1123.                 cp /tmp/import_tips$$ ${SOURCE_TIPS}
  1124.             }
  1125.  
  1126.             echo ".\c"
  1127.             SauveRC
  1128.  
  1129.             echo ".\c"
  1130.             NbMaxTips
  1131.  
  1132.             echo ".\c"
  1133.             #[ "$MAX_TIPS" -eq 0  && "$NUM_TIPS" -eq 0 ] && > ${SOURCE_TIPS}
  1134.  
  1135.             echo ".\c"
  1136.             rm -f /tmp/import_tips$$
  1137.             ;;
  1138.  
  1139.  
  1140.         ## ------------------------------------------------------------
  1141.         h*) clear; AideProc $LA_PROCEDURE   ;;
  1142.         H*) clear; AideProc $LA_PROCEDURE 3 ;;
  1143.  
  1144.         ## ------------------------------------------------------------
  1145.         [pP]*) 
  1146.  
  1147. ## ------------------------------------------------------------{
  1148. ##  MENU OPTION (PAGE 2)
  1149. ## ------------------------------------------------------------
  1150. while true
  1151. do
  1152.     clear
  1153.     echo "${NORMAL}
  1154.  ${INVERSE}${CYAN} Menu Preferences : modification des valeurs par defaut ${NORMAL}
  1155.  
  1156.   Nombre de Tips                           : ${INVERSE}${JAUNE} ${NB_TIPS} ${NORMAL}
  1157.   Numero de Tips le plus grand             : ${INVERSE}${VERT} ${MAX_TIPS} ${NORMAL}
  1158.  
  1159.  
  1160.   m|mail${CYAN} ...... ${NORMAL}E-MAIL     : ${CYAN}$DEFAUT_MAIL${NORMAL}
  1161.   a|auteur${CYAN} .... ${NORMAL}AUTEUR     : ${CYAN}$DEFAUT_AUTEUR${NORMAL}
  1162.   e|editeur${CYAN} ... ${NORMAL}EDITEUR    : ${CYAN}$DEFAUT_EDITEUR${NORMAL}
  1163.   f|fich${CYAN} ...... ${NORMAL}FICHIER    : ${CYAN}$SOURCE_TIPS${NORMAL}
  1164.   r|rep${CYAN} ....... ${NORMAL}REPERTOIRE : ${CYAN}$REP_TIPS${NORMAL}
  1165.  
  1166.  
  1167.   o|open${CYAN} ...... ${NORMAL}${CYAN}Ouverture directe${NORMAL} du fichier des preferences.
  1168.   l|lst${CYAN} ....... ${NORMAL}${CYAN}Liste${NORMAL} des fichiers Tips du repertoire source.
  1169.  
  1170.   q|quit${ROUGE} ...... ${NORMAL}Retour au menu principal.
  1171.  
  1172.     
  1173.     Votre choix : ${CYAN}\c"
  1174.     read choix ; echo ${NORMAL}
  1175.  
  1176.     clear
  1177.     echo "${NORMAL}"
  1178.  
  1179.     case $choix in
  1180.         ## ------------------------------------
  1181.         mail|[mM]|1)
  1182.             echo "${NORMAL}\nNouvelle adresse : ${CYAN}\c"
  1183.             read choix ; echo ${NORMAL}
  1184.             [ "$choix:=q" = "q" -o "$choix" = "Q" ] && continue
  1185.     
  1186.             DEFAUT_MAIL="$choix"
  1187.             ;;
  1188.  
  1189.         ## ------------------------------------
  1190.         auteur|a|A|2)
  1191.             echo "${NORMAL}\n Nouvel auteur : ${CYAN}\c"
  1192.             read choix ; echo ${NORMAL}
  1193.             [ "$choix:=q" = "q" -o "$choix" = "Q" ] && continue
  1194.  
  1195.             DEFAUT_AUTEUR="$choix"
  1196.             ;;
  1197.  
  1198.         ## ------------------------------------
  1199.         [eE]*|3)
  1200.             echo "${NORMAL}\n Nouvel editeur : ${CYAN}\c"
  1201.             read choix ; echo ${NORMAL}
  1202.             [ "$choix:=q" = "q" -o "$choix" = "Q" ] && continue
  1203.  
  1204.             DEFAUT_EDITEUR="$choix"
  1205.             ;;
  1206.  
  1207.         ## ------------------------------------
  1208.         [fF]*|4)
  1209.             echo ""
  1210.             defaut=" [${VERT}${SOURCE_TIPS}${NORMAL}] "
  1211.  
  1212.             [ ! -z "$REP_TIPS" ] && {
  1213.                 ls -C $REP_TIPS
  1214.  
  1215.                 [ -d "$REP_TIPS" -a "$REP_TIPS/`basename $SOURCE_TIPS`" = "$SOURCE_TIPS" ] && {
  1216.                     defaut=" [${VERT}`basename ${SOURCE_TIPS}`${NORMAL}] "
  1217.                 }
  1218.             }
  1219.  
  1220.             echo "${NORMAL}
  1221.     Entrez le fichier Tips a utiliser${defaut}: ${CYAN}\c"
  1222.             read choix ; echo ${NORMAL}
  1223.             [ -z "$choix" ] && {
  1224.                 [ ! -z "$defaut" ] && choix="${SOURCE_TIPS}" || continue
  1225.             }
  1226.  
  1227.             [ "$choix" = "q" ] && continue
  1228.             [ "$choix" = "Q" ] && continue
  1229.  
  1230.             [ ! -z "$REP_TIPS" ] && {
  1231.                 [ -d "$REP_TIPS" -a `echo ${choix} | grep -c "$REP_TIPS"` -eq 0 ] && choix="${REP_TIPS}/${choix}"
  1232.             }
  1233.  
  1234.             echo "
  1235.     Initialisation des variables...\c"
  1236.             SOURCE_TIPS="$choix"
  1237.             NbMaxTips
  1238.             ;;
  1239.  
  1240.         ## ------------------------------------
  1241.         [rR]*|5)
  1242.             defaut=" [${VERT}${REP_TIPS}${NORMAL}] "
  1243.             echo "${NORMAL}\n Repertoire des fichiers Tips${defaut}: ${CYAN}\c"
  1244.             read choix ; echo ${NORMAL}
  1245.             [ -z "$choix" ] && {
  1246.                 [ ! -z "$defaut" ] && choix="${REP_TIPS}" || continue
  1247.             }
  1248.  
  1249.             [ "$choix" = "q" -o "$choix" = "Q" ] && continue
  1250.  
  1251.             [ ! -d "$choix" ] && {
  1252.                 echo "${NORMAL}
  1253.     Le repertoire ${JAUNE}$choix${NORMAL} est inexistant.
  1254.     Souhaitez-vous le creer (${JAUNE}o${NORMAL}/${JAUNE}n${NORMAL}) ? [${VERT}o${NORMAL}] : ${VERT}\c"
  1255.                 read reponse ; echo ${NORMAL}
  1256.                 [ "${reponse:=o}" = "o" ] && mkdir $choix
  1257.             }
  1258.  
  1259.             [ -d "$choix" ] && REP_TIPS="$choix"
  1260.             ;;
  1261.  
  1262.         ## ------------------------------------
  1263.         [oO]|open|6) $DEFAUT_EDITEUR $TIPS_RC ; . $TIPS_RC ;;
  1264.  
  1265.         ## ------------------------------------
  1266.         [lL]*|7)
  1267.             [ -z "$REP_TIPS" ] && {
  1268.                 Erreur "Le repertoire des Tips n'est pas designe."
  1269.             } || ls -C $REP_TIPS | pg
  1270.             ;;
  1271.  
  1272.         ## ------------------------------------
  1273.         [qQ]*) SauveRC ; break ;;
  1274.  
  1275.         ## ------------------------------------
  1276.         *) Erreur "Commande <$choix> inconnue !?" ;;
  1277.     esac
  1278. done ;;
  1279. ## --------------------------------------------------------------------}
  1280.  
  1281.         ## ------------------------------------------------------------
  1282.         [oO]|open)
  1283.             $DEFAUT_EDITEUR $SOURCE_TIPS
  1284.             NbMaxTips
  1285.             SauveRC
  1286.             ;;
  1287.  
  1288.         ## ------------------------------------------------------------
  1289.         [qQ]|quit*) flag=0 ; echo "${NORMAL} Fermeture de l'application en cours..."
  1290.             exit 0 ;;
  1291.  
  1292.         ## ------------------------------------------------------------
  1293.         *) Erreur "Commande <${NORMAL}$choix${ROUGE}> inconnue !?" ;;
  1294.     esac
  1295. done
  1296.