Code source du fichier voirfich.php

<?php
    // constantes numériques
    require ("constantes.php");

    // fonctions d'affichage de portions de pages HTML
    require ("acces_page.php");

    // Constantes
    require ("fichref.php");

    // génération du menu en colonne de gauche
    require ("genmenucsv.php");



    // Début du programme principal

    // récupérer le chemin d'accès au fichier dont on doit afficher le contenu
    if (isset ($_GET ['fich']))
        $fichier = $_GET ['fich'];

    // récupérer le numéro du menu à afficher
    if (isset ($_GET ['menu']))
        $menu = $_GET ['menu'];

    // modèle de page html
    $ficpage = DIR_PAGEDOC."/voirfich.html";

    // ouvrir le fichier html
    $descfic = fopen ($ficpage, "r");

    // si l'ouverture s'est bien passée
    if ($descfic)
    {
        // recopier le début de l'entête html en mettant à jour le titre
        copmaj ($descfic, "XXXFICHIER", $fichier);

        // recopier la suite de l'entête html en remplaçant noindex par index
        copmaj ($descfic, "noindex,", "index,");

        // recopier la suite du fichier html en mettant à jour le titre de page
        copmaj ($descfic, "XXXFICHIER", $fichier);

        // chemin d'accès au fichier à visualiser
        $chemfich = DIR_CSV."/".$fichier;

        // si fichier trouvé
        if (file_exists ($chemfich))
        {
            // copie la suite du fichier html jusqu'à l'endroit destiné au fichier
            copie_jusque_chaine ($descfic, "XXXFICHIER");

            // afficher le fichier
            readfile ($chemfich);
        }
        // sinon
        else
        {
            // copie la suite du fichier html jusqu'à l'endroit destiné au fichier
            copie_jusque_chaine ($descfic, "<font");

            // sauter les balises de péformatage
            sauter_jusque_chaine ($descfic, "</font>");

            // afficher le message d'erreur
            echo "      Fichier ".$chemfich." manquant<br>\n";
        }

        // copie la suite du fichier html jusqu'à la section du menu
        copie_jusque_chaine ($descfic, "XXXMENU");

        // générer le menu
        genmenucsv ("menu-csvloc", $fichier);

        // copier la fin de la page html
        copie_jusque_fin ($descfic);

        // terminé avec le fichier html
        fclose ($descfic);
    }
    // sinon message d'erreur
    else
        echo "Page ".basename ($ficpage)." manquante";
?>