KjwFs.php

<?php // vim:ts=4:sw=4:noet
/*====================================================================== 
Copyright (C) 2006-2009, Walter Doekes
This file is part of KjwLib-php45.
 
KjwLib-php45 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 3 of the License, or 
(at your option) any later version. 

KjwLib-php45 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 KjwLib-php45.  If not, see <http://www.gnu.org/licenses/>. 
======================================================================*/

require_once(dirname(__FILE__) . '/KjwLib.php');

function kjwfs_mkdir($path) {
        if (is_dir($path))
                return true;
        if (@mkdir($path, 02775))
                return true;
        // Try to create parent(s)
        $n = strrpos($path, '/'); // DIRECTORY_SEPARATOR
        if ((int)$n === 0 || !kjwfs_mkdir(substr($path, 0, $n)))
                return false;
        // Try again
        if (@mkdir($path, 02775))
                return true;
        return false;
}

function kjwfs_rmdir($path, $filicide = false) {
        $path = realpath($path);
        if (!is_dir($path))
                return false;
        $dp = opendir($path);
        $failed = false;
        while (($file = readdir($dp))) {
                if ($file != '.' && $file != '..') {
                        $absfile = $path . '/' . $file;
                        if (is_dir($absfile))
                                $status = kjwfs_rmdir($absfile, $filicide);
                        elseif ($filicide)
                                $status = @unlink($absfile);
                        else
                                $status = false;
                        if (!$status)
                                $failed = true;
                }
        }
        closedir($dp);
        if ($failed)
                return false;
        return rmdir($path);
}

function kjwfs_file_put_contents($path, $data) {
        if (!kjwfs_mkdir(dirname($path)))
                return false;
        return file_put_contents($path, $data);
}
                
?>

---