function DEL($d){
    IF(!is_dir($p)):
      IF(is_file($p) || is_link($p)):
        unlink($p);
      ELSE:
        return -1;
      ENDIF;
    ENDIF;
    $d = @opendir($p);
    IF(!$d) return -2;
    WHILE(($e = @readdir($d)) !== false):
      IF($e == '.' || $e == '..') continue;
      IF(is_dir ($p.'/'.$e)):
        $r = del($p.'/'.$e);
        IF($r == -1):
          @closedir($d);
          return -2;
        ELSEIF($r == -2):
          @closedir ($d);
          return -2;
        ELSEIF($r == -3):
          @closedir($d);
          return -3;
        ELSEIF($r != 0):
          @closedir ($d);
          return -2;
        ENDIF;
      ELSEIF(is_file($p.'/'.$e) || is_link($p.'/'.$e)):
        $r = @unlink($p.'/'.$e);
        IF(!$r):
          @closedir($d);
          return -2;
        ENDIF;
      ELSE:
        @closedir($d);
        return -3;
      ENDIF;
    ENDWHILE;
    @closedir($d);
    $r = @rmdir($p);
    IF(!$r) return -2;
    return 0;
  }