2 /*------------------------------------------------------------
3 * CarbonPHP framework (C) Tom Bell
4 * http://tombell.org.uk
5 *------------------------------------------------------------*/
7 if (!defined('CARBON_PATH'))
9 exit('Direct script access is not allowed.');
12 function read_file($file_name)
14 if (!file_exists($file_name))
19 if (function_exists('file_get_contents'))
21 return file_get_contents($file_name);
24 $file = @fopen
($file_name, 'rb');
31 flock($file, LOCK_SH
);
35 if (filesize($file) > 0)
37 $data =& fread($file, filesize($file));
40 flock($file, LOCK_UN
);
46 function write_file($path, $data, $mode = 'wb')
48 $file = fopen($path, $mode);
55 flock($file, LOCK_EX
);
57 flock($file, LOCK_UN
);
63 function delete_files($path, $del_dir = false, $level = 0)
65 $path = preg_replace("|^(.+?)/*$|", "\\1", $path);
67 $current_dir = @opendir
($path);
69 if ($current_dir == false)
74 while (($filename = @readdir
($current_dir)) !== false)
76 if ($filename != "." && $filename != "..")
78 if (is_dir($path . '/' . $filename))
81 delete_files($path . '/' . $filename, $del_dir, $level);
85 unlink($path . '/' . $filename);
90 @closedir
($current_dir);
92 if ($del_dir == true && $level > 0)
98 function get_filenames($source_dir, $include_path = false)
100 static $filedata = array();
102 $file = @opendir
($source_dir);
106 while (($filename = readdir($file)) !== false)
108 if (@is_dir
($source_dir . $filename) && substr($filename, 0, 1) != '.')
110 get_filenames($source_dir . $filename . '/', $include_path);
112 elseif (substr($filename, 0, 1) != ".")
114 $filedata[] = ($include_path == true) ?
$source_dir . $filename : $filename;