Listing du fichier pagsd_inc.php
00001 <?php
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier. |
Retour à la page principale de
(gH)
Listing du fichier pagsd_inc.php
00001 <?php
00002 error_reporting(E_ALL | E_NOTICE | E_STRICT) ;
00003
00004 # (gH) -_- scripts_inc.php ; TimeStamp (unix) : 17 Novembre 2012 vers 15:22
00005
00006 include_once("../statuno.php") ;
00007
00008 ## sous-programmes et variables pour Pagsd
00009
00010 $dot = s_span("DOT","grouge") ;
00011 $svg = s_span("SVG","grouge") ;
00012 $word = s_span("Microsoft Word","grouge") ;
00013 $rtf = s_span("RTF","grouge") ;
00014 $excel = s_span("Microsoft Excel","grouge") ;
00015 $web = s_span("Web","grouge") ;
00016 $csv = s_span("CSV","grouge") ;
00017 $json = s_span("JSON","grouge") ;
00018
00019 $gawk = s_span("GAWK","gvertf") ;
00020 $perl = s_span("PERL","gvertf") ;
00021 $php = s_span("PHP","gvertf") ;
00022 $png = s_span("PNG","gvertf") ;
00023 $html = s_span("HTML","gvertf") ;
00024 $xhtml = s_span("XHTML","gvertf") ;
00025 $css = s_span("CSS","gvertf") ;
00026
00027 $ajax = s_span("AJAX","gbleuf") ;
00028 $xml = s_span("XML","gbleuf") ;
00029 $dtd = s_span("DTD","gbleuf") ;
00030 $xsd = s_span("XSD","gbleuf") ;
00031 $xsl = s_span("XSL","gbleuf") ;
00032 $js = s_span("Javascript","gbleuf") ;
00033 $r = s_span("R","gbleuf") ;
00034
00035 $R = $r ;
00036 $LATEX = s_span("LaTeX","gbleuf") ;
00037 $latex = s_span("LaTeX","gbleuf") ;
00038 $Sweave = s_span("Sweave","gbleuf") ;
00039 $Knitr = s_span("Knitr","gbleuf") ;
00040 $sweave = s_span("Sweave","gbleuf") ;
00041 $pdf = s_span("PDF","gbleuf") ;
00042 $gnuplot = s_span("gnuplot","gbleuf") ;
00043 $python = s_span("Python","gbleuf") ;
00044
00045 #######################################################################################################
00046
00047 function redirectionEventuelle() {
00048
00049 #######################################################################################################
00050
00051 $host = getenv("HTTP_HOST") ;
00052 #echo " HOST : $host " ;
00053 if ($host=="www.info.univ-angers.fr") {
00054 $titre = "Leadb" ;
00055 $temps = 0 ;
00056 $newUrl = "https://leria-info.univ-angers.fr/~gilles.hunault/Pagsd/" ;
00057 echo "<?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?>\n" ;
00058 echo "<!DOCTYPE html \n" ;
00059 echo " PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \n" ;
00060 echo " \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\"> \n" ;
00061 echo "<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"fr\" xml:lang=\"fr\"> \n" ;
00062 echo "<head> \n" ;
00063 echo "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\" /> \n" ;
00064 echo "<meta http-equiv=\"Refresh\" content=\"$temps; URL=$newUrl\" />\n" ;
00065 echo "<link rel=\"stylesheet\" type=\"text/css\" href=\"http://www.info.univ-angers.fr/pub/gh/std.css\" title=\"standard (gH)\" /> \n" ;
00066 echo "<title> \n" ;
00067 echo "$titre \n" ;
00068 echo "</title> \n" ;
00069 echo "</head> \n" ;
00070 echo "<body background=\"beige.jpg\"> \n" ;
00071 echo "<blockquote>\n" ;
00072 echo "<p> </p> \n" ;
00073 echo "<p align=\"right\"> \n" ;
00074 echo "<a href=\"http://validator.w3.org/check/referer\"> \n" ;
00075 echo "<img src=\"valid.png\" height=\"31\" width=\"88\" alt=\"Valid XHTML 1.0!\" /> \n" ;
00076 echo "</a>\n" ;
00077 echo "</p>\n" ;
00078 echo "<p>\n" ;
00079 echo " " ;
00080 echo " You will be redirected to <b>$newUrl</b> " ;
00081 echo "</p>\n" ;
00082 echo "<!-- fin de page minimale (gH) -->\n" ;
00083 echo "<p> </p>\n" ;
00084 echo "</blockquote>\n" ;
00085 echo "</body> \n" ;
00086 echo "</html> \n" ;
00087 } ; # fin si
00088
00089 } # fin de fonction redirectionEventuelle
00090
00091 #######################################################################################################
00092
00093 function consulter($fichier,$cadre="cadrejaune",$cmt="",$show="oui") {
00094
00095 #######################################################################################################
00096
00097 p("texte") ;
00098 echo "Consulter le fichier ".href($fichier) ;
00099 if ($cmt=="") {
00100 echo " :" ;
00101 } else {
00102 echo ". " ;
00103 echo $cmt ;
00104 } # finsi
00105 finp() ;
00106
00107 if ($show=="oui") {
00108 pre_fichier($fichier,$cadre) ;
00109 } # finsi
00110
00111 } # fin de fonction consulter
00112
00113 #######################################################################################################
00114
00115 function vert($chaine) {
00116
00117 #######################################################################################################
00118
00119 return( s_span($chaine,"gvert") ) ;
00120
00121 } # fin de fonction vert
00122
00123 #######################################################################################################
00124
00125 function bleu($chaine) {
00126
00127 #######################################################################################################
00128
00129 return( s_span($chaine,"gbleuf") ) ;
00130
00131 } # fin de fonction bleu
00132
00133 #######################################################################################################
00134
00135 function rouge($chaine) {
00136
00137 #######################################################################################################
00138
00139 return( s_span($chaine,"grouge") ) ;
00140
00141 } # fin de fonction rouge
00142
00143 #######################################################################################################
00144
00145 function finPageExercices($num) {
00146
00147 #######################################################################################################
00148
00149 sdl(3) ;
00150 #h2(href("webrd_data.zip","Archive")." des données, programmes et scripts.") ;
00151 pvide() ;
00152
00153 p() ;
00154 echo href("montresource.php?nomfic=s1p$num.php","Code-source php de cette page ; ","orange_stim nou") ;
00155 echo href("montresource.php?nomfic=scripts1.js"," code javascript utilisé. ","bleu_stim nou") ;
00156 echo href("index.php"," Retour à la page principale du cours.","noir nou") ;
00157 finp() ;
00158
00159 finSection() ;
00160
00161 ## -------------------------------------------------------------------------------------------
00162
00163 finPage() ;
00164
00165 } # fin de fonction finPageExercices
00166
00167 #######################################################################################################
00168
00169 function solution($numExo,$numSerie=1) {
00170
00171 #######################################################################################################
00172
00173 sdl(3) ;
00174 $txt = "Solution : " ;
00175 if ((isset($_GET["solutions"])) and ($_GET["solutions"]==1)) {
00176 $txt2 = href("pagsd".$numSerie.".php"," masquer la solution ","bouton_fin orange_pastel nou nobold","bsol$numExo","onclick='masqueSolution($numExo) ; return false'") ;
00177 } else {
00178 $txt2 = href("pagsd".$numSerie.".php"," afficher la solution ","bouton_fin vert_pastel nou nobold","bsol$numExo","onclick='montreSolution($numExo) ; return false'") ;
00179 } ; # fin si_
00180
00181 h3($txt.s_span($txt2,"invisible","boutSol$numExo")) ;
00182
00183 js("window.document.getElementById('boutSol$numExo').setAttribute('class','visible')") ;
00184
00185 if ((isset($_GET["solutions"])) and ($_GET["solutions"]==0)) {
00186 noscript() ;
00187 blockquote() ;
00188 h4("Pour afficher/masquer une solution particulière, Javascript doit être actif, ce qui n'est pas le cas actuellement.","gbleuf") ;
00189 p() ;
00190 echo "Pour afficher toutes les solutions d'un coup, cliquez ".href("s".$numSerie."p".$numExo.".php?solutions=1","ici","gvert nou")."." ;
00191 finp() ;
00192 finblockquote() ;
00193 finnoscript() ;
00194 } ; # fin si
00195
00196 blockquote() ;
00197
00198 if ((isset($_GET["solutions"])) and ($_GET["solutions"]==1)) {
00199 div("visible","solution$numExo") ;
00200 } else {
00201 div("invisible","solution$numExo") ;
00202 } ; # fin si_
00203
00204 } # fin de fonction solution
00205
00206 #######################################################################################################
00207
00208 function finsolution() {
00209
00210 #######################################################################################################
00211
00212 findiv() ;
00213 pvide() ;
00214 finblockquote() ;
00215 sdl(3) ;
00216
00217 #######################################################################################################
00218
00219 } # fin de fonction finsolution
00220
00221 #######################################################################################################
00222
00223 function montre($numDebut,$numFin,$baseFichiers,$nomVisu,$extension="xml",$nbLignes=25,$nbColonnes=80) {
00224
00225 #######################################################################################################
00226
00227 # montre(1,4,"agences","visu4") est équivalent à
00228 #
00229 # p() ;
00230 # for ($ndp=1;$ndp<=4;$ndp++) {
00231 # nbsp(7) ; echo href("agences0$ndp.xml","agences0$ndp.xml","bouton_fin orange_pastel nou","","onmouseover='montre(\"agences0$ndp.xml\",\"visu4\")'") ;
00232 # } ; # fin pour
00233 # finp() ;
00234 #
00235 # div() ;
00236 # textarea("visu4","tajaunec",25,80,"visu4") ; fintextarea() ;
00237 # findiv() ;
00238 #
00239
00240 p() ;
00241 for ($idf=$numDebut;$idf<=$numFin;$idf++) {
00242 $fichier = $baseFichiers."0".$idf.".".$extension ;
00243 echo href($fichier,"","bouton_fin bleu_pastel nou","","onmouseover='montreFichier(\"$fichier\",\"$nomVisu\")'") ;
00244 nbsp(7) ;
00245 } ; # fin pour
00246 finp() ;
00247 #
00248 div() ;
00249 textarea($nomVisu,"tajaunec",$nbLignes,$nbColonnes,$nomVisu) ; fintextarea() ;
00250 findiv() ;
00251
00252 } # fin de fonction montre
00253
00254 #######################################################################################################
00255
00256 function montreListe($listeFichiers,$nomVisu,$nbLignes=25,$nbColonnes=80) {
00257
00258 #######################################################################################################
00259
00260 # si un nom de fichier est <p> on change de paragraphe
00261
00262 $tabFichiers = preg_split("/\s+/",$listeFichiers) ;
00263
00264 p() ;
00265 foreach ($tabFichiers as $fichier) {
00266 if ($fichier=="<p>") {
00267 finp() ;
00268 p() ;
00269 } else {
00270 echo href($fichier,"","bouton_fin bleu_pastel nou","","onmouseover='montreFichier(\"$fichier\",\"$nomVisu\")'") ;
00271 nbsp(7) ;
00272 } ;
00273 } ; # fin pourchaque
00274 finp() ;
00275 #
00276 div() ;
00277 textarea($nomVisu,"tajaunec",$nbLignes,$nbColonnes,$nomVisu) ; fintextarea() ;
00278 findiv() ;
00279
00280 } # fin de fonction montreListe
00281
00282 #######################################################################################################
00283
00284 function ncbi($acc="") { # renvoie l'addresse de la protéine au Ncbi
00285
00286 #######################################################################################################
00287
00288 return("http://www.ncbi.nlm.nih.gov/protein/$acc") ;
00289
00290 } # fin de fonction ncbi
00291
00292 #######################################################################################################
00293
00294 function listeFichiers($baseFichier,$numDebut,$numFin,$extension="xml") { # construit une liste de fichiers bati sur le meme modèle
00295
00296 #######################################################################################################
00297
00298 $laListe = "" ;
00299 for ($idf=$numDebut;$idf<=$numFin;$idf++) {
00300 $laListe .= $baseFichier.$idf.".".$extension." " ;
00301 } ; # fin pour
00302
00303 return(trim($laListe)) ;
00304
00305 } # fin de fonction listeFichiers
00306
00307 #######################################################################################################
00308
00309 function vnc() {
00310
00311 #######################################################################################################
00312
00313
00314 p("texte") ;
00315 echo "Solution volontairement non communiquée." ;
00316 finp() ;
00317
00318 } # fin de fonction vnc
00319
00320 #######################################################################################################
00321
00322 function vncdet() {
00323
00324 #######################################################################################################
00325
00326
00327 p("texte") ;
00328 echo "Solution détaillée volontairement non communiquée." ;
00329 finp() ;
00330
00331 } # fin de fonction vncdet
00332
00333 #######################################################################################################
00334
00335 function noir($chaine) {
00336
00337 #######################################################################################################
00338
00339 return(s_span($chaine,"gnoir")) ;
00340
00341 } # fin de fonction noir
00342
00343 ?>
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.