5 * @subpackage plugins
\r
9 * create full directory structure
\r
11 * @param string $dir
\r
16 function smarty_core_create_dir_structure($params, &$smarty)
\r
18 if (!file_exists($params['dir'])) {
\r
19 $_open_basedir_ini = ini_get('open_basedir');
\r
21 if (DIRECTORY_SEPARATOR=='/') {
\r
22 /* unix-style paths */
\r
23 $_dir = $params['dir'];
\r
24 $_dir_parts = preg_split('!/+!', $_dir, -1, PREG_SPLIT_NO_EMPTY);
\r
25 $_new_dir = ($_dir{0}=='/') ? '/' : getcwd().'/';
\r
26 if($_use_open_basedir = !empty($_open_basedir_ini)) {
\r
27 $_open_basedirs = explode(':', $_open_basedir_ini);
\r
31 /* other-style paths */
\r
32 $_dir = str_replace('\\','/', $params['dir']);
\r
33 $_dir_parts = preg_split('!/+!', $_dir, -1, PREG_SPLIT_NO_EMPTY);
\r
34 if (preg_match('!^((//)|([a-zA-Z]:/))!', $_dir, $_root_dir)) {
\r
35 /* leading "//" for network volume, or "[letter]:/" for full path */
\r
36 $_new_dir = $_root_dir[1];
\r
37 /* remove drive-letter from _dir_parts */
\r
38 if (isset($_root_dir[3])) array_shift($_dir_parts);
\r
41 $_new_dir = str_replace('\\', '/', getcwd()).'/';
\r
45 if($_use_open_basedir = !empty($_open_basedir_ini)) {
\r
46 $_open_basedirs = explode(';', str_replace('\\', '/', $_open_basedir_ini));
\r
51 /* all paths use "/" only from here */
\r
52 foreach ($_dir_parts as $_dir_part) {
\r
53 $_new_dir .= $_dir_part;
\r
55 if ($_use_open_basedir) {
\r
56 // do not attempt to test or make directories outside of open_basedir
\r
57 $_make_new_dir = false;
\r
58 foreach ($_open_basedirs as $_open_basedir) {
\r
59 if (substr($_new_dir, 0, strlen($_open_basedir)) == $_open_basedir) {
\r
60 $_make_new_dir = true;
\r
65 $_make_new_dir = true;
\r
68 if ($_make_new_dir && !file_exists($_new_dir) && !@mkdir($_new_dir, $smarty->_dir_perms) && !is_dir($_new_dir)) {
\r
69 $smarty->trigger_error("problem creating directory '" . $_new_dir . "'");
\r
77 /* vim: set expandtab: */
\r