Files
selima-perl/lib/php/monica/mkdtemp.inc.php
2026-03-10 21:31:43 +08:00

29 lines
834 B
PHP

<?php
// File name: mkdtemp.inc.php
// Description: PHP subroutine to create a temporarily working directory
// Date: 2002-04-16
// Author: imacat <imacat@pristine.com.tw>
// Copyright: Copyright (C) 2002-2007 Pristine Communications
// mkdtemp: create a temporarily working directory
function mkdtemp()
{
// Find out our context
$trace = debug_backtrace();
$func = (count($trace) > 1? $trace[1]["function"]: "_GLOBAL");
$file = preg_replace("/\..*$/", "", basename($trace[0]["file"]));
$pkg = (defined("PACKAGE")? PACKAGE: "unknown");
$prefix = sprintf("monica-%s-%s-%s-", $pkg, $file, $func);
$dir = session_save_path();
if ($dir == "") {
$dir = "/tmp";
}
$result = tempnam($dir, $prefix);
unlink($result);
mkdir($result);
chmod($result, 0700);
return $result;
}
?>