home *** CD-ROM | disk | FTP | other *** search
/ Freelog 9 / Freelog009.iso / BAS / Systeme / ShellUnix / Bookmarks.sh < prev    next >
Encoding:
Linux/UNIX/POSIX Shell Script  |  1998-08-18  |  13.0 KB  |  482 lines
  1. #!/bin/sh
  2. #---------------------------------------------------------------------- 
  3. # NOM                                        
  4. #    Bookmarks = Construit des pages HTML a partir d'un Bookmarks.
  5. # 
  6. # SYNTAXE                                    
  7. #    Bookmarks -h|H          (aide)   
  8. #    Bookmarks [-b rgb] [-B image] [-s suffixe] [-T titre] 
  9. #                 bookmarks_netscape
  10. # 
  11. #---------------------------------------------------------------------- 
  12. # VERSION
  13. #    1.0
  14. # 
  15. # DESCRIPTION
  16. #    Contruit a partir un d'un fichier de bookmarks (html) issues de
  17. #   Netscape des pages HTML avec utilisation de FRAME verticale.
  18. #   La premiere concerne la table des Bookmarks (table des matieres). La
  19. #   seconde la liste des references HTTP.
  20. # 
  21. #    La table des Bookmarks utilise les Folder principaux comme "tete de
  22. #   chapitre". Les separateurs et l'arborescence sont conserves.
  23. # 
  24. # 
  25. # OPTIONS
  26. #    -h|H        aide courte ou longue.        
  27. #                                            
  28. #    -b rgb      Pour fixer une couleur RGB en fond des Frames.
  29. #                                            
  30. #    -B image    Pour fixer une image en fond des Frames.
  31. #                                            
  32. #    -s suffixe  Donne un suffixe particulier au fichier, par defaut
  33. #                le suffixe .htm est utilise.
  34. #                                            
  35. #    -T titre    Precise un titre inscrit sur la page des bookmarks,
  36. #                par defaut le titre du fichier passe en argument est
  37. #                utilise.
  38. #                                            
  39. # 
  40. # EXEMPLE(S)
  41. #    * Lancement de l'application avec affichage de l'aide longue:
  42. #        $ Bookmarks -H
  43. # 
  44. #    * Construit de nouvelles pages suffixees par html. Un fond blanc
  45. #    est applique au FRAME avec un titre :
  46. #        $ Bookmarks -T "Mes Marks" -s html -b "#FFFFFF" book.html
  47. # 
  48. # 
  49. # REMARQUE(S)
  50. #    * Procedure distribuee en Freeware/Gratuiciel.
  51. #                                            
  52. # AUTEUR
  53. #   Copyright (c) 1998 Bertrand LE QUELLEC, All Rigths Reserved.
  54. #                                            
  55. # CONTACT
  56. #   eMail : blq@mygale.org ou blq@wanadoo.fr
  57. #   Url   : http://www.mygale.org/09/blq/ ou http://perso.wanadoo.fr/blq/
  58. #
  59. # Cree : 01/07/98
  60. #---------------------------------------------------------------------- 
  61. # Permission to use, copy, modify, distribute, and sell this software
  62. # and its documentation for any purpose is hereby granted without fee,
  63. # provided that the above copyright notice appear in all copies and
  64. # that both that copyright notice and this permission notice appear in
  65. # supporting documentation, and that the name of Bertrand LE QUELLEC    
  66. # not be used in advertising or publicity pertaining to distribution 
  67. # of the software without specific, written prior permission. 
  68. # Bertrand LE QUELLEC makes no representations about the suitability
  69. # of this software for any purpose. It is provided "as is" without
  70. # express or implied warranty.
  71. # 
  72. # THIS SOFTWARE IS PROVIDED BY Bertrand LE QUELLEC `AS IS' AND ANY
  73. # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  74. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  75. # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Bertrand LE QUELLEC BE
  76. # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  77. # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  78. # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
  79. # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  80. # WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
  81. # OR OTHERWISE)     ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  82. # EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  83. #---------------------------------------------------------------------- 
  84.  
  85. # ------------------------------------------ 
  86. # ZONE DE DEFINITION DES VARIABLES GLOBALES:
  87. # ------------------------------------------
  88. NOM_PROCEDURE=`basename $0`
  89. LA_PROCEDURE=$0
  90. CD=`pwd`
  91. AWK=`[ -f /usr/bin/nawk ] && echo "nawk" || echo "awk" `
  92.  
  93.  
  94. ##
  95. ## Variables particulieres:
  96. ##
  97. DATE=`date "+%d/%m/%y"`
  98. MODE_COULEUR=0
  99. VISU_HTML=netscape
  100.  
  101. USE_PIPE=0
  102. PIPE=/tmp/pipe$$
  103.  
  104.  
  105. ##
  106. ## Les variables concernant l'utilisateur:
  107. ##
  108. DEFAUT_AUTEUR=`whoami`
  109. DEFAUT_EDITEUR=${EDITOR}:-vi
  110. DEFAUT_SHELL=${SHELL}:-/bin/sh
  111.  
  112.  
  113. #---------------------------------------------------------------------- 
  114. # ----------------------------------------- 
  115. # ZONE DE DEFINITION DES FONCTIONS LOCALES:
  116. # -----------------------------------------
  117. # La fonction doit etre precedee d'un commentaire avec en debut de ligne
  118. # le caractere # (diese) repete deux fois.
  119.  
  120. ##
  121. ## Affiche un message en rouge si l'on se trouve dans une fenetre hpterm
  122. ## et se met en attente de 2 secondes.
  123. ## Il est possible de recuperer le code retour de la fonction.
  124. ##
  125. Erreur()
  126. {
  127.     [ $# -eq 0 ] && return -1
  128.  
  129.     echo "\n\t${ROUGE}$*${NORMAL}"
  130.     echo "\n Appuyez sur la touche Entree (Enter) pour continuer \c"
  131.     read choix
  132.  
  133.     return 0
  134. }
  135.  
  136.  
  137. ##
  138. ## En cas d'une interruption la fonction suivante est executee.
  139. ## Les interruptions sont des signaux envoyes au processus du script,
  140. ## par la commande Unix: kill(1). La "capture" de ces signaux est
  141. ## identifiee par la commande Shell: trap definie apres la zone des
  142. ## options.
  143. ##
  144. TrapInterrup()
  145. {
  146.     # Vous pouvez executer des instructions avant une sortie 
  147.     # par signal (ou brutale!).
  148.     exit 1
  149. }
  150.  
  151.  
  152. ##
  153. ## Renvoie le PATH et nom d'un ou plusieurs executables.
  154. ## Si le ou les executables sont introuvables la fonction ne renvoie rien.
  155. ## Dans le cas d'un alias la fonction ne renvoie rien, car le PATH n'est
  156. ## pas recuperable.
  157. ##
  158. Type()
  159. {
  160.     [ $# -ne 0 ] && type $* | ${AWK} '$2=="is" && $4!="alias" {print $NF}'
  161. }
  162.  
  163.  
  164. ##
  165. ## Affiche l'aide indiquee en en-tete du script shell.
  166. ## Ne pas supprimer car cette fonction est utilisee a l'appel de la
  167. ## procedure avec les options -H ou -H
  168. ##
  169. AideProc()
  170. {
  171.     fichier=$1
  172.     niveau=$2
  173.  
  174.     [ -z "$fichier" ] && {
  175.         Erreur "AideProc(): nombre d'argument incorect."
  176.         return 0
  177.     }
  178.  
  179.     [ ! -f "$fichier" ] && {
  180.         [ -f "`basename $fichier`" ] && fichier=`basename $fichier` || {
  181.             Erreur "AideProc(): impossible d'atteindre le fichier $fichier."
  182.             return 0
  183.         }
  184.     }
  185.  
  186.     [ ${niveau:=2} = 2 ] && {
  187.         ${AWK} 'BEGIN {i=2}
  188.             /^#[-]+/{
  189.                 if(--i<=0)exit
  190.                 next
  191.             }
  192.             /^#[     ]*[A-Z]*[     ]*$/{
  193.                 next
  194.             }
  195.             /^#[^!]/{
  196.                 print substr($0,1,80)
  197.             }
  198.             /^#[ \t]*$/{
  199.                 print ""
  200.             }
  201.         ' $fichier | sed -e 's/^#[     ]*//'
  202.     } || {
  203.         ${AWK} '\
  204.             /^#[-]+/{
  205.                 if(--i<=0) exit
  206.                 next
  207.             }
  208.             /^#[^!]/{
  209.                 print substr($0,2,80)
  210.             }
  211.             /^#[ \t]*$/{
  212.                 print ""
  213.             }
  214.         ' i=$niveau $fichier | pg -e
  215.     }
  216. }
  217.  
  218.  
  219. ##
  220. ## Renvoie le type de la machine ou l'on se trouve et surtout le
  221. ## systeme d'exploitation en cours. La fonction renvoie un des numero
  222. ## suivant en reponse:
  223. ##
  224. ##    inconue            0
  225. ##
  226. ##    SunOs              1
  227. ##    Sun Solaris        2
  228. ##    HP s700            3
  229. ##    HP s800            4
  230. ##    HP s300            5
  231. ##    Silicon Graphic    6
  232. ##    IBM AIX            7
  233. ##
  234. ## Pour recuperer le code retour de la fonction, utilisez la variable $?
  235. ##
  236. Machine()
  237. {
  238.     os=`uname`
  239.  
  240.     [ "$os" = "Solaris" ] && return 2
  241.  
  242.     [ "$os" = "SunOS" ] && {
  243.         [ -f /vmunix ] && return 1 || return 2
  244.     }
  245.     
  246.     [ "$os" = "HP-UX" ] && {
  247.         if uname -a | grep "PA-RISC" 1> /dev/null
  248.         then
  249.             return 3
  250.         elif uname -a | grep "HP-PA" 1> /dev/null
  251.             return 4
  252.         then
  253.             return 5
  254.         fi
  255.     }
  256.  
  257.     [ "$os" = "IRIX" ] && return 6
  258.  
  259.     [ "$os" = "AIX" ] && return 7
  260.  
  261.     return 0
  262. }
  263.  
  264.  
  265. ##
  266. ## Permet de visualiser un fichier HTML avec le bon executable:
  267. ##    netscape ou mosaic
  268. ##
  269. VoirHTML ()
  270. {
  271.     fichier="$*"
  272.  
  273.     [ -z "$VISU_HTML" ] && VISU_HTML=mosaic
  274.  
  275.     chemin=`Type $VISU_HTML`
  276.     [ -z "$chemin" ] && VISU_HTML=netscape
  277.  
  278.     chemin=`Type $VISU_HTML`
  279.     [ -z "$chemin" ] && {
  280.         Erreur "Executable du visualiseur HTML non accessible !"
  281.         return 0
  282.     }
  283.  
  284.     $VISU_HTML $fichier &
  285.     return 1
  286. }
  287.  
  288.  
  289. #---------------------------------------------------------------------- 
  290. # ---------------------------------------------- 
  291. # DEFENITION DES VARIABLES LOCALES AU PROGRAMME:
  292. # ----------------------------------------------
  293.  
  294.  
  295. #---------------------------------------------------------------------- 
  296. # ---------------------------------------------- 
  297. # DEFENITION DES FONCTIONS LOCALES AU PROGRAMME:
  298. # ----------------------------------------------
  299.  
  300. LISTE_FICHIERS=""
  301.  
  302. BackCOLOR=""
  303. BackIMAGE=""
  304. Titre=""
  305.  
  306. Suffixe="htm"
  307.  
  308.  
  309. #---------------------------------------------------------------------- 
  310. # ------------------------- 
  311. # RECUPERATION DES OPTIONS:
  312. # -------------------------
  313. set -- `getopt hHxb:B:T:s: $*`                
  314. for opt in $*                                            
  315. do                                                             
  316.     case $opt in                                           
  317.         -h) AideProc $LA_PROCEDURE    ; exit 0 ;;
  318.         -H) AideProc $LA_PROCEDURE 3  ; exit 0 ;;
  319.  
  320.         -x) set -x ; shift ;;
  321.  
  322.         -b) BackCOLOR=" bgcolor=\"$2\"" ; shift ; shift ;;
  323.         -B) BackIMAGE=" background=\"$2\"" ; shift ; shift ;;
  324.         -T) Titre="\"$2\"" ; shift ; shift ;;
  325.  
  326.         -s) Suffixe="$2" ; shift ; shift ;;
  327.  
  328.         -)  cat - > $PIPE
  329.             USE_PIPE=1
  330.             exec <&- ; shift ;;
  331.  
  332.         --) shift ; break ;;
  333.     esac                                                        
  334. done                                                          
  335.  
  336. LISTE_FICHIERS="$*"
  337.  
  338. HTML_TABLE="BookTable.${Suffixe}"
  339. HTML_DISPLAY="BookDisplay.${Suffixe}"
  340. HTML_INDEX="bookmarks.${Suffixe}"
  341.  
  342.  
  343. #----------------------------------------------------------------------
  344. # AUTRES DEFINITIONS:
  345. # -------------------
  346. trap TrapInterrup 3 2 15    # Recuperation des interruptions 3, 2 et 15
  347.  
  348. #----------------------------------------------------------------------
  349. # DEBUT ZONE DU PROGRAMME:
  350. # ------------------------
  351.  
  352. [ -z "$LISTE_FICHIERS" ] && exit 0
  353.  
  354.  
  355. # ------------------------------------------
  356. # --- INDEX.HTM
  357. echo "\n Creation en cours $HTML_INDEX ..."
  358.  
  359. echo "<HTML>
  360. <HEAD><TITLE>` [ -z \"$Titre\" ] && echo \"Liste de Bookmarks\" || echo $Titre`</TITLE></HEAD>
  361. <FRAMESET COLS=\"30%,75%\" NAME=\"bookmarks\" BORDER=1 FRAMEBORDER=\"YES\" FRAMESPACING=0 SCOLLING=\"auto\">
  362. <FRAME SRC=$HTML_TABLE NAME=\"table\">
  363. <FRAME SRC=$HTML_DISPLAY NAME=\"display\">
  364. </FRAMESET>
  365. </HTML> " > $HTML_INDEX
  366.  
  367.  
  368. # ------------------------------------------
  369. # --- TABLE.HTM
  370. echo " Creation en cours $HTML_TABLE ..."
  371.  
  372. echo "<HTML>
  373. <HEAD><TITLE>Table des Bookmarks</TITLE></HEAD>
  374. <BODY${BackCOLOR}${BackIMAGE}>
  375. <CENTER><H3>Table des Bookmarks</H3></CENTER>
  376. " > $HTML_TABLE
  377.  
  378. for file in $LISTE_FICHIERS
  379. do
  380.     echo "\tTraitement ${AWK} $file ..."
  381.     $AWK -F ">" ' BEGIN { flag=0 }
  382.         /<DL><p>/ {
  383.             if ( flag == 1 )
  384.                 print "<UL>"
  385.  
  386.             flag=flag+1
  387.             next
  388.         }
  389.         /<\/DL><p>/ {
  390.             flag=flag-1
  391.  
  392.             if ( flag == 1 )
  393.                 print "</UL>"
  394.  
  395.             next
  396.         }
  397.         /<HR/ {
  398.             print "<HR SIZE=6><BR>"
  399.             next
  400.         }
  401.         /<DT><H3 FOLDED ADD_DATE/ {
  402.             gsub(/Θ/, "\é", $0)
  403.             pos1=index($3, "<")
  404.  
  405.             if ( pos1 )
  406.                 if ( flag == 1 )
  407.                     printf("<A HREF=\"%s#%s\" TARGET=\"display\"><B>%s</B></A><BR>\n", disp_html, substr($3, 1, pos1-1), substr($3, 1, pos1-1))
  408.                 else
  409.                     printf("<LI>%s<BR>\n", substr($3, 1, pos1-1))
  410.             else
  411.                 printf("%s\n", $3)
  412.         }' disp_html=$HTML_DISPLAY $file >> $HTML_TABLE
  413. done
  414.  
  415. echo "</BODY></HTML>" >> $HTML_TABLE
  416.  
  417.  
  418. # ------------------------------------------
  419. # --- DISPLAY.HTM
  420. echo " Creation en cours $HTML_DISPLAY ..."
  421.  
  422. echo "<HTML>
  423. <HEAD><TITLE>Affichage des Bookmarks</TITLE></HEAD>
  424. <BODY $BackCOLOR>
  425. " > $HTML_DISPLAY
  426.  
  427. for file in $LISTE_FICHIERS
  428. do
  429.     echo "\tTraitement $file ..."
  430.     sed -e 's%^\(.*\) ADD_DATE\(.*\)">\(.*\)$%\1>\3%' $file | $AWK -F ">" '
  431.         BEGIN { dtFlag=0 ; flag=0 }
  432.         /<H1>/ {
  433.             gsub(/Θ/, "\é", $0)
  434.             if (length(leT))
  435.                 print "<CENTER><H1>", leT, "</H1></CENTER>"
  436.             else
  437.                 print "<CENTER>", $0, "</CENTER>"
  438.  
  439.             next
  440.         }
  441.         /<DL><p>/ {
  442.             if ( dtFlag == 1 )
  443.                 print "<UL>"
  444.  
  445.             dtFlag=dtFlag+1
  446.             next
  447.         }
  448.         /<\/DL><p>/ {
  449.             dtFlag=dtFlag-1
  450.  
  451.             if ( dtFlag == 1 )
  452.                 print "</UL>"
  453.  
  454.             next
  455.         }
  456.         /<DT><H3 FOLDED/ {
  457.             flag=1
  458.             gsub(/Θ/, "\é", $0)
  459.             pos1=index($3, "<")
  460.  
  461.             printf("<A NAME=\"%s\">\n", substr($3, 1, pos1-1))
  462.             gsub(/ FOLDED/, "", $0)
  463.  
  464.             if ( dtFlag == 1 )
  465.                 print "<P>", $0
  466.             else
  467.                 print "sub_h3", $0
  468.  
  469.             next
  470.         }
  471.         // {
  472.             if (flag == 1 )
  473.             {
  474.                 gsub(/Θ/, "\é", $0)
  475.                 print $0
  476.             }
  477.         }' leT=$Titre | sed -e 's%sub_h3\(.*\)<H3>\(.*\)</H3>%<DT><H4><I>\2</I></H4>%' >> $HTML_DISPLAY
  478. done
  479.  
  480. echo "</BODY></HTML>" >> $HTML_DISPLAY
  481.  
  482.