docpdf.php

Go to the documentation of this file.

<?php
/*
 * @author Anakeen
 * @license http://creativecommons.org/licenses/by-nc-sa/2.0/fr/ Anakeen - licence CC
 * @package FDL
*/
/**
 * View PDF document manuals
 *
 * @author Anakeen 2004
 * @version $Id: docpdf.php,v 1.3 2005/12/12 09:23:42 eric Exp $
 * @license http://creativecommons.org/licenses/by-nc-sa/2.0/fr/ Anakeen - licence CC
 * @package FDL
 * @subpackage CORE
 */
/**
 */
// -----------------------------------
function docpdf(&$action)
{
    // -----------------------------------
    $pubdir = $action->GetParam("CORE_PUBDIR");
    $pubdir.= "/Docs/";
    
    if ($handle = opendir($pubdir)) {
        /* Ceci est la façon correcte de traverser un dossier. */
        $tpdfdoc = array();
        while (false !== ($file = readdir($handle))) {
            if (($file != "") && ($file[0] != ".")) {
                // HERE HERE HERE
                $info = shell_exec(sprintf('strings %s | grep -A 10 "/Title"', escapeshellarg("$pubdir/$file")));
                
                $title = $file;
                $subject = "";
                $cdate = "";
                if (preg_match("|<< /Title <([^>]*)>|", $info, $reg)) {
                    $title = String2utf8($reg[1]);
                }
                if (preg_match("|/Subject <([^>]*)>|", $info, $reg)) {
                    $subject = String2utf8($reg[1]);
                }
                
                if (preg_match("|/CreationDate \(([^\)]*)\)|", $info, $reg)) {
                    // like D:20040824122100
                    $cdate = strftime("%d/%m/%Y", mktime(0, 0, 0, substr($reg[1], 6, 2) , substr($reg[1], 8, 2) , substr($reg[1], 2, 4)));
                }
                $tpdfdoc[] = array(
                    "url" => "Docs/$file",
                    "filename" => $file,
                    "subject" => $subject,
                    "cdate" => $cdate,
                    "title" => $title
                );
            }
        }
        
        closedir($handle);
    }
    $action->lay->setBlockData("PDFDOC", $tpdfdoc);
}

function String2utf8($s)
{
    $r = "";
    for ($i = 4; $i < strlen($s); $i+= 2) {
        
        if ($s[$i] . $s[$i + 1] != "00") $r.= chr(hexdec($s[$i] . $s[$i + 1]));
    }
    return ($r);
    return utf8_decode($r);
}