function rrmdir($dir) {
  if (is_dir($dir)) {
    $dirscan = scandir($dir);
    foreach ($dirscan as $object) {
      if ($object != "." && $object != "..") {
        if (is_link($dir."/".$object)) {  # object is symlink
          if (!unlink($dir."/".$object)) return FALSE;
        } elseif (is_dir($dir."/".$object)) {  # object is folder
          if (!$this->rrmdir($dir."/".$object)) return FALSE;
        } else {  # object is file
          if (!unlink($dir."/".$object)) return FALSE;
        }
      }
    }
    reset($dirscan);
    if (!rmdir($dir)) return FALSE;
    return TRUE;
  } else return FALSE;
}