-/**
- * Prepend used functions
- **/
-
-function jirafeau_quoted($str)
-{
- return QUOTE . str_replace(QUOTE, "\'", $str) . QUOTE;
-}
-
-function jirafeau_export_cfg($cfg)
-{
- $content = '<?php' . NL;
- $content .= '/* ' . t('This file was generated by the install process. ' .
- 'You can edit it. Please see config.original.php to understand the ' .
- 'configuration items.') . ' */' . NL;
- $content .= '$cfg = ' . var_export($cfg, true) . ';';
-
- $fileWrite = file_put_contents(JIRAFEAU_CFG, $content);
-
- if (false === $fileWrite) {
- jirafeau_fatal_error(t('Can not write local configuration file'));
- }
-}
-
-function jirafeau_mkdir($path)
-{
- return !(!file_exists($path) && !@mkdir($path, 0755));
-}
-
-/**
- * Returns true whether the path is writable or we manage to make it
- * so, which essentially is the same thing.
- * @param $path is the file or directory to be tested.
- * @return true if $path is writable.
- */
-function jirafeau_is_writable($path)
-{
- /* "@" gets rid of error messages. */
- return is_writable($path) || @chmod($path, 0777);
-}
-
-function jirafeau_check_var_dir($path)
-{
- $mkdir_str1 = t('CANNOT_CREATE_DIR') . ':';
- $mkdir_str2 = t('MANUAL_CREATE');
- $write_str1 = t('DIR_NOT_W') . ':';
- $write_str2 = t('You should give the write permission to the web server on ' .
- 'this directory.');
- $solution_str = t('HERE_SOLUTION') . ':';
-
- if (!jirafeau_mkdir($path) || !jirafeau_is_writable($path)) {
- return array('has_error' => true,
- 'why' => $mkdir_str1 . '<br /><code>' .
- $path . '</code><br />' . $solution_str .
- '<br />' . $mkdir_str2);
- }
-
- foreach (array('files', 'links', 'async') as $subdir) {
- $subpath = $path.$subdir;
-
- if (!jirafeau_mkdir($subpath) || !jirafeau_is_writable($subpath)) {
- return array('has_error' => true,
- 'why' => $mkdir_str1 . '<br /><code>' .
- $subpath . '</code><br />' . $solution_str .
- '<br />' . $mkdir_str2);
- }
- }
-
- return array('has_error' => false, 'why' => '');
-}
-
-function jirafeau_add_ending_slash($path)
-{
- return $path . ((substr($path, -1) == '/') ? '' : '/');
-}
-
git.p6c8.net / jirafeau.git / blobdiff