". gallery_error(sprintf(gTranslate('common', "Gallery was not able to open dir: %s.
Please check permissions and existence"), $path));
}
return false;
}
}
function fs_rename($oldname, $newname) {
$oldname = fs_import_filename($oldname, 0);
$newname = fs_import_filename($newname, 0);
/*
* It appears that win32 doesn't like it when you rename
* a file to end with ".dat.bak". Why? This is very
* annoying.
*/
$newname = str_replace(".dat.bak", ".bak", $newname);
debug("Rename $oldname -> $newname");
clearstatcache();
if (file_exists("$newname.bak")) {
unlink("$newname.bak");
}
if (file_exists("$newname")) {
return rename($newname, "$newname.bak") &&
rename($oldname, $newname);
}
else {
return rename($oldname, $newname);
}
}
function fs_stat($filename) {
$filename = fs_import_filename($filename, 0);
return stat($filename);
}
/**
* This function deletes a file.
* The errormessage is surpressed !
*/
function fs_unlink($filename) {
$filename = fs_import_filename($filename, 0);
return @unlink($filename);
}
function fs_executable($filename) {
$filename = fs_import_filename($filename, 0);
if (!strstr($filename, ".exe")) {
$filename .= ".exe";
}
return $filename;
}
/**
* Creates a directory
* @param string $dirname
* @param string $perms Optional perms, given in octal format
* @return boolean $result true on success, otherwise false
*/
function fs_mkdir($dirname, $perms = 0700) {
$result = @mkdir(fs_import_filename($dirname, 0), $perms);
return $result;
}
function fs_import_filename($filename, $for_exec=1) {
debug("Import before: $filename");
# Change / and : to \ and ;
#
$filename = str_replace("/", "\\", $filename);
$filename = str_replace(":", ";", $filename);
# Change D;\apps to D:\apps (the : got mangled by the above
# transform).
#
if ($filename{1} == ';') {
$filename{1} = ':';
}
# Convert "D\whoami" to "D:\whoami"
#
$filename = ereg_replace("^([A-Z])\\\\(.*)", "\\1:\\\\2", $filename);
# Convert "\Perl\bin\;D/whoami" to "D:\Perl\bin\whoami"
#
$filename = ereg_replace("(.*);([A-Z])\\\\(.*)", "\\2:\\1\\3", $filename);
if ($for_exec) {
if (strstr($filename, " ")) {
$filename = "\"$filename\"";
}
}
debug("Import after: $filename");
return $filename;
}
function fs_export_filename($filename) {
# Convert "d:\winnt\temp" to "d:/winnt/temp"
#
while (strstr($filename, "\\\\")) {
$filename = str_replace("\\\\", "\\", $filename);
}
$filename = str_replace("\\", "/", $filename);
return $filename;
}
function fs_exec($cmd, &$results, &$status) {
// We can't redirect stderr with Windows. Hope that we won't need to.
return exec($cmd, $results, $status);
}
function fs_tempdir() {
global $gallery;
return export_filename($gallery->app->tmpDir);
}
function fs_is_executable($filename) {
return eregi("\.(exe|com|vbs|vb|bat|cmd)$", $filename);
}
function debug($msg) {
if (0) {
print "
$msg
";
}
}
/**
* Files in windows cant start with a .
* @param string $filename
* @return boolean
* @author Jens Tkotz
*/
function fs_fileIsHidden($filename) {
return false;
}
/**
* Deletes a directory
*
* @param String $dir
* @return boolean
*/
function fs_rmdir($dir) {
return rmdir(fs_export_filename($dir));
}
?>