[Obliquid-cvs] obliquid/common/pages/core fckdel.php,NONE,1.1

[<sl...@sc...>]

Update of /cvsroot/obliquid/obliquid/common/pages/core
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv20149/pages/core

Added Files:
	fckdel.php 
Log Message:
Page to delete files or folders with fckeditor


--- NEW FILE: fckdel.php ---
<?php

/** Deletes a fck editor file or directory */
function core_fckdel_()
{
    global $_obweb;
    $dbf =& new db_form();
    $shortname = $_GET["fdel"];
    //echo "del ".$shortname." ";
    $shortname = preg_replace("/^.*\/obfiles(.*)/", "\\1", $shortname);
    //if (substr($shortname, -1, 1)=="/") $fullname = realpath("obfiles/Image".$shortname); else 
    $fullname = realpath("obfiles".$shortname);
    if (!$fullname) {
        echo "not found "."obfiles".$shortname;
        return; //file or dir doesnt exists
    }
    //security check: force users within obfiles realm
    if (strpos($fullname, getcwd()."/obfiles/")!==0) {
        echo "not in path";
        return;
    }
    if ($_POST) {
        if ($_POST["yes"]) {
            if (is_file($fullname)) {
                unlink($fullname);
                $file_pos = strrpos($fullname, "/")+1;
                unlink( substr($fullname, 0, $file_pos)."sm_".substr($fullname, $file_pos).".jpg" );
            } else {
                rmdir($fullname);
            }
        }
        $_obweb->smslot->assign("redirect", "true");
        return;
    }
    $frm = array();
    $frm["yes"] = $dbf->getSubmit("yes", _l("Yes"));
    $frm["no"]  = $dbf->getSubmit("no", _l("No"));
    if (is_dir($fullname)) {
        if (is_folder_empty($fullname)) {
            $frm["msg"] = "Vuoi veramente cancellare la directory ".$shortname."?";
        } else {
            $frm["msg"] = "La directory ".$shortname
              ." contiene files e non pu&ograve; essere cancellata";
              $frm["yes"] = "";
              $frm["no"] = $dbf->getSubmit("no", _l("OK"));
        }
    } else {
        $frm["msg"] = "Vuoi veramente cancellare il file ".$shortname."?";
    }
    $_obweb->smslot->assign("frm", $frm);
}

function is_folder_empty($dir) 
{
    $dl=opendir($dir);
    if (!$dl) return false; //not found.. return false anyway
    while ($name = readdir($dl)) {
        if ($name=="." || $name=="..") continue;
        return false;
    }
    closedir($dl);
    return true;
}