freedom_view_tar.php

Go to the documentation of this file.

<?php
/*
 * @author Anakeen
 * @package FDL
*/
/**
 * View imported tar
 *
 * @author Anakeen
 * @version $Id: freedom_view_tar.php,v 1.3 2006/06/14 16:24:31 eric Exp $
 * @package FDL
 * @subpackage GED
 */
/**
 */

include_once ("FREEDOM/freedom_import_tar.php");

function freedom_view_tar(Action & $action)
{
    
    global $_FILES;
    
    $analyze = GetHttpVars("analyze", "Y"); // just analyze
    $filename = GetHttpVars("filename"); // the select filename
    $dirid = GetHttpVars("dirid"); // directory to place imported doc
    $ldir = getTarUploadDir($action);
    $selfile = '';
    $ttar = array();
    $nbdoc = 0;
    if ($handle = opendir($ldir)) {
        while (false !== ($file = readdir($handle))) {
            if ($file[0] != ".") {
                $ttar[] = array(
                    "filename" => $file,
                    "selected" => ($file == $filename) ? "selected" : ""
                );
                if ($file == $filename) {
                    $selfile = $file;
                }
            }
        }
    }
    if ($selfile == "") {
        // try the first
        $ttar[0]["selected"] = "selected";
        $selfile = $ttar[0]["filename"];
    }
    if ($selfile != "") {
        foreach ($ttar as $k => $v) {
            // need suppress slashes
            $ttar[$k]["filename"] = $v["filename"];
        }
        $action->lay->setBlockData("SELECTFILE", $ttar);
        
        $untardir = getTarExtractDir($action, $selfile);
        
        if (!is_dir($untardir)) {
            // need extract first
            $uploaddir = getTarUploadDir($action);
            $tar = $uploaddir . $selfile;
            $err = extractTar($tar, $untardir);
            if ($err !== '') {
                $action->AddWarningMsg(sprintf(_("cannot extract archive file %s: %s") , $selfile, $err));
            }
        }
        
        $nbdoc = see_directory($action, $untardir, $tfile);
    }
    if ($nbdoc > 0) $action->lay->SetBlockData("ANALYZE", array(
        array(
            "zou"
        )
    ));
    
    $action->lay->Set("selfile", urlencode($selfile));
    
    $action->lay->set("huge", ($action->Read("navigator", "") == "EXPLORER") ? "" : "huge");
    
    $action->lay->eSet("dirid", $dirid);
    $action->lay->Set("nbdoc", "$nbdoc");
}

function see_directory(&$action, $ldir, &$tfile, $level = 0)
{
    
    if ($level == 0) $tfile = array();
    if (is_dir($ldir)) {
        $handle = opendir($ldir);
        while (false !== ($file = readdir($handle))) {
            
            if ($file[0] != ".") {
                $afile = "$ldir/$file";
                $sfile = $file;
                
                if (!isUTF8($sfile)) $sfile = utf8_encode($sfile);
                if (is_file($afile)) {
                    $tfile[] = array(
                        "name" => $sfile,
                        "level" => $level * 20,
                        "type" => "file"
                    );
                } else if (is_dir($afile)) {
                    $tfile[] = array(
                        "name" => $sfile,
                        "level" => $level * 20,
                        "type" => "dir"
                    );
                    see_directory($action, $afile, $tfile, $level + 1);
                }
            }
        }
        
        closedir($handle);
    }
    if ($level == 0) {
        $action->lay->setBlockData("DIR", $tfile);
        return count($tfile);
    }
    return 0;
}
?>