class.ilUpdateUtilsMailMigration.php

Go to the documentation of this file.

<?php
/*
+-----------------------------------------------------------------------------+
| ILIAS open source                                                           |
+-----------------------------------------------------------------------------+
| Copyright (c) 1998-2009 ILIAS open source, University of Cologne            |
|                                                                             |
| This program is free software; you can redistribute it and/or               |
| modify it under the terms of the GNU General Public License                 |
| as published by the Free Software Foundation; either version 2              |
| of the License, or (at your option) any later version.                      |
|                                                                             |
| This program is distributed in the hope that it will be useful,             |
| but WITHOUT ANY WARRANTY; without even the implied warranty of              |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               |
| GNU General Public License for more details.                                |
|                                                                             |
| You should have received a copy of the GNU General Public License           |
| along with this program; if not, write to the Free Software                 |
| Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. |
+-----------------------------------------------------------------------------+
*/

class ilUpdateUtilsMailMigration
{
    public static function removeTrailingPathSeparators($path)
    {
        $path = preg_replace("/[\/\\\]+$/", "", $path);
        return $path;
    }

    public static function getWebspaceDir($mode = "filesystem")
    {
        global $ilias;

        if ($mode == "filesystem") {
            return "./" . ILIAS_WEB_DIR . "/" . $ilias->client_id;
        } else {
            if (defined("ILIAS_MODULE")) {
                return "../" . ILIAS_WEB_DIR . "/" . $ilias->client_id;
            } else {
                return "./" . ILIAS_WEB_DIR . "/" . $ilias->client_id;
            }
        }

        //return $ilias->ini->readVariable("server","webspace_dir");
    }

    public static function getDataDir()
    {
        return CLIENT_DATA_DIR;
    }

    public static function makeDir($a_dir)
    {
        $a_dir = trim($a_dir);

        // remove trailing slash (bugfix for php 4.2.x)
        if (substr($a_dir, -1) == "/") {
            $a_dir = substr($a_dir, 0, -1);
        }

        // check if a_dir comes with a path
        if (!($path = substr($a_dir, 0, strrpos($a_dir, "/") - strlen($a_dir)))) {
            $path = ".";
        }

        // create directory with file permissions of parent directory
        umask(0000);
        return @mkdir($a_dir, fileperms($path));
    }

    public static function makeDirParents($a_dir)
    {
        $dirs = array($a_dir);
        $a_dir = dirname($a_dir);
        $last_dirname = '';
        while ($last_dirname != $a_dir) {
            array_unshift($dirs, $a_dir);
            $last_dirname = $a_dir;
            $a_dir = dirname($a_dir);
        }

        // find the first existing dir
        $reverse_paths = array_reverse($dirs, true);
        $found_index = -1;
        foreach ($reverse_paths as $key => $value) {
            if ($found_index == -1) {
                if (is_dir($value)) {
                    $found_index = $key;
                }
            }
        }

        umask(0000);
        foreach ($dirs as $dirindex => $dir) {
            // starting with the longest existing path
            if ($dirindex >= $found_index) {
                if (!file_exists($dir)) {
                    if (strcmp(substr($dir, strlen($dir)-1, 1), "/") == 0) {
                        // on some systems there is an error when there is a slash
                        // at the end of a directory in mkdir, see Mantis #2554
                        $dir = substr($dir, 0, strlen($dir)-1);
                    }
                    if (!mkdir($dir, $umask)) {
                        error_log("Can't make directory: $dir");
                        return false;
                    }
                } elseif (!is_dir($dir)) {
                    error_log("$dir is not a directory");
                    return false;
                } else {
                    // get umask of the last existing parent directory
                    $umask = fileperms($dir);
                }
            }
        }
        return true;
    }

    public static function delDir($a_dir)
    {
        if (!is_dir($a_dir) || is_int(strpos($a_dir, ".."))) {
            return;
        }

        $current_dir = opendir($a_dir);

        $files = array();

        // this extra loop has been necessary because of a strange bug
        // at least on MacOS X. A looped readdir() didn't work
        // correctly with larger directories
        // when an unlink happened inside the loop. Getting all files
        // into the memory first solved the problem.
        while ($entryname = readdir($current_dir)) {
            $files[] = $entryname;
        }

        foreach ($files as $file) {
            if (is_dir($a_dir . "/" . $file) and ($file != "." and $file!="..")) {
                self::delDir(${a_dir} . "/" . ${file});
            } elseif ($file != "." and $file != "..") {
                unlink(${a_dir} . "/" . ${file});
            }
        }

        closedir($current_dir);
        @rmdir(${a_dir});
    }

    public static function getDir($a_dir)
    {
        $current_dir = opendir($a_dir);

        $dirs = array();
        $files = array();
        while ($entry = readdir($current_dir)) {
            if (is_dir($a_dir . "/" . $entry)) {
                $dirs[$entry] = array("type" => "dir", "entry" => $entry);
            } else {
                if ($entry != "." && $entry != "..") {
                    $size = filesize($a_dir . "/" . $entry);
                    $files[$entry] = array("type" => "file", "entry" => $entry,
                    "size" => $size);
                }
            }
        }
        ksort($dirs);
        ksort($files);

        return array_merge($dirs, $files);
    }
    
    public static function ilTempnam()
    {
        $temp_path = self::getDataDir() . "/temp";
        if (!is_dir($temp_path)) {
            self::makeDir($temp_path);
        }
        $temp_name = tempnam($temp_path, "tmp");
        // --->
        // added the following line because tempnam creates a backslash on some
        // Windows systems which leads to problems, because the "...\tmp..." can be
        // interpreted as "...{TAB-CHARACTER}...". The normal slash works fine
        // even under windows (Helmut Schottmüller, 2005-08-31)
        $temp_name = str_replace("\\", "/", $temp_name);
        // --->
        unlink($temp_name);
        return $temp_name;
    }
    
    public static function rename($source, $target)
    {
        return @rename($source, $target);
    }
}