php Access_Error类(方法)实例源码

function autodoc($fichier, $paragraphe)
{
    $fcontents = @file($fichier);
    if ($fcontents == '') {
        Access_Error();
    }
    $pasfin = false;
    $meta = '';
    dochead();
    echo '
   <table class="table table-striped">
       <caption>Documentation</caption>
       <thead>
       <tr>
         <th>Fonction</th>
         <th>Documentation</th>
       </tr>
       </thead>
       <tbody>';
    while (list($line_num, $line) = each($fcontents)) {
        if ($paragraphe != "") {
            if (strstr($line, "#autodoc:<{$paragraphe}>")) {
                $line = '';
                $pasfin = true;
            }
            if (strstr($line, "#autodoc:</{$paragraphe}>")) {
                $line = '';
                $pasfin = false;
            }
        } else {
            $pasfin = true;
        }
        $line = trim($line);
        if (strstr($line, "#autodoc") and $pasfin) {
            $posX = strpos($line, ':');
            $morceau1 = trim(substr($line, strpos($line, "#autodoc") + 8, $posX - 8));
            $morceau2 = rtrim(substr($line, $posX + 1));
            //         if ($morceau1=='' AND $morceau2=='') {$rowcolor="style=\"background-color: #FFFFFF;\"";} else {$rowcolor="style=\"background-color: #F0F0F0;\"";}
            $meta .= '
         <tr>
            <td><code>' . $morceau1 . '<code></td>
            <td>' . $morceau2 . '</span></td>
         </tr>';
        } else {
            if (strstr($line, "# autodoc") and $pasfin) {
                $posX = strpos($line, ':');
                $morceau1 = ltrim(substr($line, strpos($line, "# autodoc") + 9, $posX - 9));
                $morceau2 = rtrim(substr($line, $posX + 1));
                //         if ($morceau1=='' AND $morceau2=='') {$rowcolor="style=\"background-color: #FFFFFF;\"";} else {$rowcolor="style=\"background-color: #F0F0F0;\"";}
                $meta .= "\n         <tr {$rowcolor}>\n         <td nowrap=\"nowrap\" align=\"left\"><code>{$morceau1}<code></td>\n         <td><span style=\"font-size: 10px; font-family: Tahoma, Arial;\">{$morceau2}</span>&nbsp;</td>\n         </tr>";
            }
        }
    }
    echo $meta;
    echo '</tbody</table>
   <p align="right" style="font-size: 10px; font-family: Tahoma, Arial;">AutoDoc pour <a href="http://www.npds.org">NPDS</a></p>';
}

function autodoc($fichier, $paragraphe)
{
    $fcontents = @file($fichier);
    if ($fcontents == "") {
        Access_Error();
    }
    $pasfin = false;
    $meta = "";
    echo "<table cellspacing=\"2\" cellpadding=\"2\" border=\"0\" width=\"100%\">";
    while (list($line_num, $line) = each($fcontents)) {
        if ($paragraphe != "") {
            if (strstr($line, "#autodoc:<{$paragraphe}>")) {
                $line = "";
                $pasfin = true;
            }
            if (strstr($line, "#autodoc:</{$paragraphe}>")) {
                $line = "";
                $pasfin = false;
            }
        } else {
            $pasfin = true;
        }
        $line = trim($line);
        if (strstr($line, "#autodoc") and $pasfin) {
            $posX = strpos($line, ":");
            $morceau1 = trim(substr($line, strpos($line, "#autodoc") + 8, $posX - 8));
            $morceau2 = rtrim(substr($line, $posX + 1));
            if ($morceau1 == "" and $morceau2 == "") {
                $rowcolor = "style=\"background-color: #FFFFFF;\"";
            } else {
                $rowcolor = "style=\"background-color: #F0F0F0;\"";
            }
            if (cur_charset == "utf-8") {
                $morceau2 = utf8_encode($morceau2);
            }
            $meta .= "<tr {$rowcolor}><td nowrap=\"nowrap\" align=\"left\"><span style=\"font-size: 10px; font-family: Tahoma, Arial;\"><b>{$morceau1}</b></span>&nbsp;</td><td><span style=\"font-size: 10px; font-family: Tahoma, Arial;\">{$morceau2}</span>&nbsp;</td></tr>";
        } else {
            if (strstr($line, "# autodoc") and $pasfin) {
                $posX = strpos($line, ":");
                $morceau1 = ltrim(substr($line, strpos($line, "# autodoc") + 9, $posX - 9));
                $morceau2 = rtrim(substr($line, $posX + 1));
                if ($morceau1 == "" and $morceau2 == "") {
                    $rowcolor = "style=\"background-color: #FFFFFF;\"";
                } else {
                    $rowcolor = "style=\"background-color: #F0F0F0;\"";
                }
                if (cur_charset == "utf-8") {
                    $morceau2 = utf8_encode($morceau2);
                }
                $meta .= "<tr {$rowcolor}><td nowrap=\"nowrap\" align=\"left\"><span style=\"font-size: 10px; font-family: Tahoma, Arial;\"><b>{$morceau1}</b></span>&nbsp;</td><td><span style=\"font-size: 10px; font-family: Tahoma, Arial;\">{$morceau2}</span>&nbsp;</td></tr>";
            }
        }
    }
    echo $meta;
    echo "</table><p align=\"right\" style=\"font-size: 10px; font-family: Tahoma, Arial;\">AutoDoc pour <a href=\"http://www.npds.org\">NPDS</a></p>";
}

function filtre_module($strtmp)
{
    if (strstr($strtmp, "..") || stristr($strtmp, "script") || stristr($strtmp, "cookie") || stristr($strtmp, "iframe") || stristr($strtmp, "applet") || stristr($strtmp, "object")) {
        Access_Error();
    } else {
        if ($strtmp != "") {
            return true;
        } else {
            return false;
        }
    }
}

function admindroits($aid, $f_meta_nom)
{
    global $NPDS_Prefix, $radminsuper;
    $res = sql_query("SELECT fnom, radminsuper FROM " . $NPDS_Prefix . "authors a LEFT JOIN " . $NPDS_Prefix . "droits d ON a.aid = d.d_aut_aid LEFT JOIN " . $NPDS_Prefix . "fonctions f ON d.d_fon_fid = f.fid WHERE a.aid='{$aid}'");
    $foncts = array();
    $supers = array();
    while ($data = sql_fetch_row($res)) {
        $foncts[] = $data[0];
        $supers[] = $data[1];
    }
    if (!in_array('1', $supers) and !in_array($f_meta_nom, $foncts)) {
        Access_Error();
    }
    $radminsuper = $supers[0];
}

function File_Navigator($parm, $sort_filed = "N", $dir = "ASC", $DirSize = false)
 {
     if (!isset($parm)) {
         $parm = ".";
     }
     if (is_dir($parm)) {
         $this->CurDir = $parm;
     } else {
         Access_Error();
     }
     $this->GetDirSz = $DirSize;
     if (@chdir($this->CurDir)) {
         $this->Handle = opendir(".");
         $this->LoadList();
         closedir($this->Handle);
         $this->SortListF($sort_filed, $dir);
         $this->SortListD($sort_filed, $dir);
         $this->PointerPosF = 0;
         $this->PointerPosD = 0;
         return true;
     } else {
         return false;
     }
 }

/************************************************************************/
/************************************************************************/
/* Module-Install Version 1.1 - Mai 2005                                */
/* --------------------------                                           */
/* Copyright (c) 2005 Boris L'Ordi-Dépanneur & Hotfirenet               */
/*                                                                      */
/* Version 1.2 - 22 Avril 2009                                          */
/* --------------------------                                           */
/*                                                                      */
/* Modifié par jpb et phr pour le rendre compatible avec Evolution      */
/*                                                                      */
/* --------------------------                                           */
/* Version 2.0 - 30/08/2015 by jpb                                      */
/************************************************************************/
if (!stristr($_SERVER['PHP_SELF'], "admin.php")) {
    Access_Error();
}
$f_meta_nom = 'modules';
$f_titre = adm_translate("Gestion, Installation Modules");
//==> controle droit
admindroits($aid, $f_meta_nom);
//<== controle droit
// *****************************
// * Fonctions de l'installeur *
// *****************************
function nmig_copyright()
{
    $clspin = ' text-success';
    if ($ModInstall == "" && $ModDesinstall != "") {
        $clspin = ' text-danger';
    }