Code-source


00001     <?php     

00002     #    (gH)   -_-  analysedtd.php  ;  TimeStamp (unix) : 15 Août 2012 vers 14:34     

00003          

00004     error_reporting(E_ALL) ;     

00005     include("../std.php") ;     

00006     include("analysedtd_inc.php") ;     

00007          

00008     #############################################################################     

00009          

00010     $host   = getenv("HTTP_HOST") ;     

00011     $newUrl = "http://forge.info.univ-angers.fr/~gh/internet/Webrd/analysedtd.php" ;     

00012          

00013     if ($host=="www.info.univ-angers.fr") {     

00014       debutPageRedir("redirection",0,$newUrl) ;     

00015       finPage() ;     

00016       exit(-1) ;     

00017     } # fin si     

00018          

00019     #######################################################################     

00020          

00021          

00022     debutPage("Eléments et attributs","strict") ;     

00023     debutSection() ;     

00024          

00025     #############################################################################     

00026          

00027     if ( (!isset($_GET["url"])) or (strlen(trim($_GET["url"]))==0) ) {     

00028          

00029       h1("Aucune URL fournie, rien à faire !") ;     

00030          

00031     } else {     

00032          

00033          $url = $_GET["url"] ;     

00034          h1("Analyse des éléments et attributs de la grammaire ") ;     

00035          blockquote() ;     

00036          h1(href($url)) ;     

00037          finblockquote() ;     

00038          

00039          $tabres = analyseGrammaireDTD($url) ;     

00040          

00041          $idr = -1 ;     

00042          $idr++ ; $codret = $tabres[$idr] ;     

00043          $idr++ ; $nbelt  = $tabres[$idr] ;     

00044          $idr++ ; $nbatt  = $tabres[$idr] ;     

00045          $idr++ ; $nbcmt  = $tabres[$idr] ;     

00046          $idr++ ; $nbfds  = $tabres[$idr] ;     

00047          $idr++ ; $nbfjs  = $tabres[$idr] ;     

00048          $idr++ ; $nbent  = $tabres[$idr] ;     

00049          $idr++ ; $tabdet = $tabres[$idr] ;     

00050          $idr++ ; $tabatr = $tabres[$idr] ;     

00051          $idr++ ; $tabent = $tabres[$idr] ;     

00052          

00053          if ($codret==0) {     

00054          

00055               h2("En bref") ;     

00056          

00057               blockquote() ;     

00058               p() ;     

00059               echo " $nbelt élément(s), $nbatt attribut(s), $nbcmt commentaire(s) et $nbent entité(s)." ;     

00060               finp() ;     

00061               finblockquote() ;     

00062          

00063               h2("En détail") ;     

00064          

00065               blockquote() ;     

00066          

00067               table(0,15) ; tr() ;     

00068          

00069               td("C") ; p("bleu_pastel") ; nbsp() ; br() ; echo b("Tableau des éléments et attributs") ; br() ; nbsp() ; finp() ; fintd() ;     

00070               td("C") ;     

00071                  if ($nbent>0) {     

00072                     p("bleu_pastel") ; nbsp() ; br() ; echo b("Tableau des entités")               ; br() ; nbsp() ; finp() ;     

00073                  } ; # fin si     

00074               fintd() ;     

00075          

00076               fintr() ; tr() ;     

00077          

00078               # --------------------     

00079          

00080               td("C","valigntop") ; table(1,15,"collapse") ;     

00081               tr() ;     

00082                 th("C","jaune_pastel") ;     

00083                   echo " Numéro " ;     

00084                 finth() ;     

00085                 th("C","jaune_pastel") ;     

00086                   echo " Elément " ;     

00087                 finth() ;     

00088                 th("C","jaune_pastel") ;     

00089                   echo " Nb attributs" ;     

00090                 finth() ;     

00091                 th("L","jaune_pastel") ;     

00092                   nbsp(3) ;     

00093                   echo "Attributs éventuels" ;     

00094                 finth() ;     

00095               fintr() ;     

00096          

00097               $numElt = 0 ;     

00098               foreach ($tabdet as $cle=>$valeur) {     

00099               $numElt++ ;     

00100               tr() ;     

00101                 td("R") ;     

00102                   echo s_span("&nbsp;&nbsp;".$numElt."&nbsp;&nbsp;","gvert") ;     

00103                 fintd() ;     

00104                 td() ;     

00105                   $clef = preg_replace("/</","&lt;",$cle) ;     

00106                   $clef = preg_replace("/>/","&gt;",$clef) ;     

00107                   echo s_span($clef,"gbleu") ;     

00108                 fintd() ;     

00109                 td("R") ;     

00110                   echo $valeur ;     

00111                   nbsp(3) ;     

00112                 fintd() ;     

00113                 td() ;     

00114                   $vat = $tabatr[$cle] ;     

00115                   $vat = preg_replace("/</","&lt;",$vat) ;     

00116                   $vat = preg_replace("/>/","&gt;",$vat) ;     

00117                   echo $vat ;     

00118                 fintd() ;     

00119               fintr() ;     

00120               } ; # fin pour     

00121          

00122               fintable() ; fintd() ;     

00123          

00124               # --------------------     

00125          

00126          

00127               td("C","valigntop") ;     

00128          

00129               if ($nbent>0) {     

00130                  table(1,15,"collapse") ;     

00131                  tr() ;     

00132                    th("C","jaune_pastel") ;     

00133                      echo " Numéro " ;     

00134                    finth() ;     

00135                    th("C","jaune_pastel") ;     

00136                      echo " Entité " ;     

00137                    finth() ;     

00138                    th("C","jaune_pastel") ;     

00139                      echo " Nb composants" ;     

00140                    finth() ;     

00141                    th("L","jaune_pastel") ;     

00142                      nbsp(3) ;     

00143                      echo "Contenu (partiel)" ;     

00144                    finth() ;     

00145                  fintr() ;     

00146          

00147                  $numEnt = 0 ;     

00148                  foreach ($tabent as $cle=>$valeur) {     

00149                  $numEnt++ ;     

00150                  tr() ;     

00151                    td("R") ;     

00152                      echo s_span("&nbsp;&nbsp;".$numEnt."&nbsp;&nbsp;","gvert") ;     

00153                    fintd() ;     

00154                    td() ;     

00155                      $clef = preg_replace("/</","&lt;",$cle) ;     

00156                      $clef = preg_replace("/>/","&gt;",$clef) ;     

00157                      echo s_span($clef,"gbleu") ;     

00158                    fintd() ;     

00159                    td("R") ;     

00160                      $tvaleurs = preg_split("/\|/",$valeur) ;     

00161                      if (strpos($valeur,"%")>-1) { echo "% " ; } ;     

00162                      if (strpos($valeur,"*")>-1) { echo "* " ; } ;     

00163                      echo count($tvaleurs) ;     

00164                      nbsp(3) ;     

00165                    fintd() ;     

00166                    td() ;     

00167                      $vat = $valeur ;     

00168                      $vat = preg_replace("/</","&lt;",$vat) ;     

00169                      $vat = preg_replace("/>/","&gt;",$vat) ;     

00170                      echo $vat ;     

00171                    fintd() ;     

00172                  fintr() ;     

00173                  } ; # fin pour     

00174          

00175                  fintable() ;     

00176          

00177               } ; # fin si     

00178          

00179               fintd() ;     

00180          

00181               # --------------------     

00182          

00183               fintr() ; fintable() ;     

00184          

00185               finblockquote() ;     

00186          

00187               h2("Texte analysé") ;     

00188          

00189               codeHtml($url) ;     

00190          

00191          } ; # fin si sur coderet     

00192          

00193     } ; # fin si sur url     

00194     #############################################################################     

00195          

00196     p() ;     

00197     echo href("montresource.php?nomfic=analysedtd.php","Code-source de cette page","orange_stim nou")."." ;     

00198     finp() ;     

00199          

00200          

00201     finSection() ;     

00202     finPage() ;     

00203     ?>
Listing du fichier analysedtd.php
