Code source du fichier voirurl.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']))
        $ficref = $_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", $ficref);

        // 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", $ficref);

        // copie la suite du fichier html jusqu'à l'endroit destiné au code source
        copie_jusque_chaine ($descfic, "XXXFICHIER");

        // décoder le mnémonique du type de fichier
        switch ($ficref)
        {
            case "vacsi_tot_a_fra" : $fin_url = vacsi_tot_a_fra;
                                     break;

            case "vacsi_tot_dep"   : $fin_url = vacsi_tot_dep;
                                     break;

            case "vacsi_tot_reg"   : $fin_url = vacsi_tot_reg;
                                     break;

            case "vacsi_a_fra"     : $fin_url = vacsi_a_fra;
                                     break;

            case "vacsi_v_fra"     : $fin_url = vacsi_v_fra;
                                     break;

            case "vacsi_reg"       : $fin_url = vacsi_reg;
                                     break;
        }

        // afficher le contenu du fichier à visualiser
        readfile (SITE_REF.$fin_url);

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

        // générer le menu
        genmenucsv ("menu-refcsv", $ficref);

        // 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";
?>