3 * @copyright Copyright (C) 2010-2022, the Friendica project
5 * @license GNU AGPL version 3 or any later version
7 * This program is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU Affero General Public License as
9 * published by the Free Software Foundation, either version 3 of the
10 * License, or (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU Affero General Public License for more details.
17 * You should have received a copy of the GNU Affero General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
22 namespace Friendica\Core;
24 use Friendica\Core\Config\Capability\IManageConfigValues;
26 use Friendica\Module\Response;
27 use Friendica\Network\HTTPException\FoundException;
28 use Friendica\Network\HTTPException\MovedPermanentlyException;
29 use Friendica\Network\HTTPException\TemporaryRedirectException;
30 use Friendica\Util\BasePath;
31 use Friendica\Util\XML;
32 use Psr\Log\LoggerInterface;
35 * Contains the class with system relevant stuff
40 * @var LoggerInterface
45 * @var IManageConfigValues
54 public function __construct(LoggerInterface $logger, IManageConfigValues $config, string $basepath)
56 $this->logger = $logger;
57 $this->config = $config;
58 $this->basePath = $basepath;
62 * Checks if the maximum number of database processes is reached
64 * @return bool Is the limit reached?
66 public function isMaxProcessesReached(): bool
68 // Deactivated, needs more investigating if this check really makes sense
72 * Commented out to suppress static analyzer issues
74 if ($this->mode->isBackend()) {
76 $max_processes = $this->config->get('system', 'max_processes_backend');
77 if (intval($max_processes) == 0) {
81 $process = 'frontend';
82 $max_processes = $this->config->get('system', 'max_processes_frontend');
83 if (intval($max_processes) == 0) {
88 $processlist = DBA::processlist();
89 if ($processlist['list'] != '') {
90 $this->logger->debug('Processcheck: Processes: ' . $processlist['amount'] . ' - Processlist: ' . $processlist['list']);
92 if ($processlist['amount'] > $max_processes) {
93 $this->logger->debug('Processcheck: Maximum number of processes for ' . $process . ' tasks (' . $max_processes . ') reached.');
102 * Checks if the minimal memory is reached
104 * @return bool Is the memory limit reached?
106 public function isMinMemoryReached(): bool
108 // Deactivated, needs more investigating if this check really makes sense
112 * Commented out to suppress static analyzer issues
114 $min_memory = $this->config->get('system', 'min_memory', 0);
115 if ($min_memory == 0) {
119 if (!is_readable('/proc/meminfo')) {
123 $memdata = explode("\n", file_get_contents('/proc/meminfo'));
126 foreach ($memdata as $line) {
127 $data = explode(':', $line);
128 if (count($data) != 2) {
131 [$key, $val] = $data;
132 $meminfo[$key] = (int)trim(str_replace('kB', '', $val));
133 $meminfo[$key] = (int)($meminfo[$key] / 1024);
136 if (!isset($meminfo['MemFree'])) {
140 $free = $meminfo['MemFree'];
142 $reached = ($free < $min_memory);
145 $this->logger->warning('Minimal memory reached.', ['free' => $free, 'memtotal' => $meminfo['MemTotal'], 'limit' => $min_memory]);
153 * Checks if the maximum load is reached
155 * @return bool Is the load reached?
157 public function isMaxLoadReached(): bool
159 $maxsysload = intval($this->config->get('system', 'maxloadavg'));
160 if ($maxsysload < 1) {
164 $load = System::currentLoad();
166 if (intval($load) > $maxsysload) {
167 $this->logger->warning('system load for process too high.', ['load' => $load, 'process' => 'backend', 'maxsysload' => $maxsysload]);
175 * Executes a child process with 'proc_open'
177 * @param string $command The command to execute
178 * @param array $args Arguments to pass to the command ( [ 'key' => value, 'key2' => value2, ... ]
180 public function run(string $command, array $args)
182 if (!function_exists('proc_open')) {
183 $this->logger->warning('"proc_open" not available - quitting');
187 $cmdline = $this->config->get('config', 'php_path', 'php') . ' ' . escapeshellarg($command);
189 foreach ($args as $key => $value) {
190 if (!is_null($value) && is_bool($value) && !$value) {
194 $cmdline .= ' --' . $key;
195 if (!is_null($value) && !is_bool($value)) {
196 $cmdline .= ' ' . $value;
200 if ($this->isMinMemoryReached()) {
201 $this->logger->warning('Memory limit reached - quitting');
205 if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
206 $resource = proc_open('cmd /c start /b ' . $cmdline, [], $foo, $this->basePath);
208 $resource = proc_open($cmdline . ' &', [], $foo, $this->basePath);
211 if (!is_resource($resource)) {
212 $this->logger->warning('We got no resource for command.', ['command' => $cmdline]);
216 proc_close($resource);
218 $this->logger->info('Executed "proc_open"', ['command' => $cmdline, 'callstack' => System::callstack(10)]);
222 * Returns a string with a callstack. Can be used for logging.
224 * @param integer $depth How many calls to include in the stacks after filtering
225 * @param int $offset How many calls to shave off the top of the stack, for example if
226 * this is called from a centralized method that isn't relevant to the callstack
229 public static function callstack(int $depth = 4, int $offset = 0): string
231 $trace = debug_backtrace(DEBUG_BACKTRACE_IGNORE_ARGS);
233 // We remove at least the first two items from the list since they contain data that we don't need.
234 $trace = array_slice($trace, 2 + $offset);
237 $previous = ['class' => '', 'function' => '', 'database' => false];
239 // The ignore list contains all functions that are only wrapper functions
240 $ignore = ['call_user_func_array'];
242 while ($func = array_pop($trace)) {
243 if (!empty($func['class'])) {
244 if (in_array($previous['function'], ['insert', 'fetch', 'toArray', 'exists', 'count', 'selectFirst', 'selectToArray',
245 'select', 'update', 'delete', 'selectFirstForUser', 'selectForUser'])
246 && (substr($previous['class'], 0, 15) === 'Friendica\Model')) {
250 // Don't show multiple calls from the Database classes to show the essential parts of the callstack
251 $func['database'] = in_array($func['class'], ['Friendica\Database\DBA', 'Friendica\Database\Database']);
252 if (!$previous['database'] || !$func['database']) {
253 $classparts = explode("\\", $func['class']);
254 $callstack[] = array_pop($classparts).'::'.$func['function'];
257 } elseif (!in_array($func['function'], $ignore)) {
258 $func['database'] = ($func['function'] == 'q');
259 $callstack[] = $func['function'];
266 while ((count($callstack2) < $depth) && (count($callstack) > 0)) {
267 $callstack2[] = array_pop($callstack);
270 return implode(', ', $callstack2);
275 * Outputs a basic dfrn XML status structure to STDOUT, with a <status> variable
276 * of $st and an optional text <message> of $message and terminates the current process.
279 * @param string $message
282 public static function xmlExit($st, $message = '')
284 $result = ['status' => $st];
286 if ($message != '') {
287 $result['message'] = $message;
291 Logger::notice('xml_status returning non_zero: ' . $st . " message=" . $message);
294 DI::apiResponse()->setType(Response::TYPE_XML);
295 DI::apiResponse()->addContent(XML::fromArray(["result" => $result], $xml));
296 DI::page()->exit(DI::apiResponse()->generate());
302 * Send HTTP status header and exit.
304 * @param integer $val HTTP status result value
305 * @param string $message Error message. Optional.
306 * @param string $content Response body. Optional.
309 public static function httpExit($val, $message = '', $content = '')
312 Logger::debug('Exit with error', ['code' => $val, 'message' => $message, 'callstack' => System::callstack(20), 'method' => DI::args()->getMethod(), 'agent' => $_SERVER['HTTP_USER_AGENT'] ?? '']);
314 DI::apiResponse()->setStatus($val, $message);
315 DI::apiResponse()->addContent($content);
316 DI::page()->exit(DI::apiResponse()->generate());
321 public static function jsonError($httpCode, $data, $content_type = 'application/json')
323 if ($httpCode >= 400) {
324 Logger::debug('Exit with error', ['code' => $httpCode, 'content_type' => $content_type, 'callstack' => System::callstack(20), 'method' => DI::args()->getMethod(), 'agent' => $_SERVER['HTTP_USER_AGENT'] ?? '']);
326 DI::apiResponse()->setStatus($httpCode);
327 self::jsonExit($data, $content_type);
331 * Encodes content to json.
333 * This function encodes an array to json format
334 * and adds an application/json HTTP header to the output.
335 * After finishing the process is getting killed.
337 * @param mixed $x The input content
338 * @param string $content_type Type of the input (Default: 'application/json')
339 * @param integer $options JSON options
340 * @throws \Friendica\Network\HTTPException\InternalServerErrorException
342 public static function jsonExit($x, $content_type = 'application/json', int $options = 0) {
343 DI::apiResponse()->setType(Response::TYPE_JSON, $content_type);
344 DI::apiResponse()->addContent(json_encode($x, $options));
345 DI::page()->exit(DI::apiResponse()->generate());
350 * Generates a random string in the UUID format
352 * @param bool|string $prefix A given prefix (default is empty)
353 * @return string a generated UUID
356 public static function createUUID($prefix = '')
358 $guid = System::createGUID(32, $prefix);
359 return substr($guid, 0, 8) . '-' . substr($guid, 8, 4) . '-' . substr($guid, 12, 4) . '-' . substr($guid, 16, 4) . '-' . substr($guid, 20, 12);
363 * Generates a GUID with the given parameters
365 * @param int $size The size of the GUID (default is 16)
366 * @param bool|string $prefix A given prefix (default is empty)
367 * @return string a generated GUID
370 public static function createGUID($size = 16, $prefix = '')
372 if (is_bool($prefix) && !$prefix) {
374 } elseif (empty($prefix)) {
375 $prefix = hash('crc32', DI::baseUrl()->getHostname());
378 while (strlen($prefix) < ($size - 13)) {
379 $prefix .= mt_rand();
383 $prefix = substr($prefix, 0, $size - 22);
384 return str_replace('.', '', uniqid($prefix, true));
386 $prefix = substr($prefix, 0, max($size - 13, 0));
387 return uniqid($prefix);
392 * Returns the current Load of the System
396 public static function currentLoad()
398 if (!function_exists('sys_getloadavg')) {
402 $load_arr = sys_getloadavg();
404 if (!is_array($load_arr)) {
408 return max($load_arr[0], $load_arr[1]);
412 * Redirects to an external URL (fully qualified URL)
413 * If you want to route relative to the current Friendica base, use App->internalRedirect()
415 * @param string $url The new Location to redirect
416 * @param int $code The redirection code, which is used (Default is 302)
418 public static function externalRedirect($url, $code = 302)
420 if (empty(parse_url($url, PHP_URL_SCHEME))) {
421 Logger::warning('No fully qualified URL provided', ['url' => $url, 'callstack' => self::callstack(20)]);
422 DI::baseUrl()->redirect($url);
425 header("Location: $url");
429 throw new FoundException();
431 throw new MovedPermanentlyException();
433 throw new TemporaryRedirectException();
440 * Returns the system user that is executing the script
442 * This mostly returns something like "www-data".
444 * @return string system username
446 public static function getUser()
448 if (!function_exists('posix_getpwuid') || !function_exists('posix_geteuid')) {
452 $processUser = posix_getpwuid(posix_geteuid());
453 return $processUser['name'];
457 * Checks if a given directory is usable for the system
460 * @param bool $check_writable
462 * @return boolean the directory is usable
464 public static function isDirectoryUsable($directory, $check_writable = true)
466 if ($directory == '') {
467 Logger::info('Directory is empty. This shouldn\'t happen.');
471 if (!file_exists($directory)) {
472 Logger::info('Path "' . $directory . '" does not exist for user ' . static::getUser());
476 if (is_file($directory)) {
477 Logger::info('Path "' . $directory . '" is a file for user ' . static::getUser());
481 if (!is_dir($directory)) {
482 Logger::info('Path "' . $directory . '" is not a directory for user ' . static::getUser());
486 if ($check_writable && !is_writable($directory)) {
487 Logger::info('Path "' . $directory . '" is not writable for user ' . static::getUser());
495 * Exit method used by asynchronous update modules
499 public static function htmlUpdateExit($o)
501 DI::apiResponse()->setType(Response::TYPE_HTML);
502 echo "<!DOCTYPE html><html><body>\r\n";
503 // We can remove this hack once Internet Explorer recognises HTML5 natively
505 // reportedly some versions of MSIE don't handle tabs in XMLHttpRequest documents very well
506 echo str_replace("\t", " ", $o);
508 echo "</body></html>\r\n";
513 * Fetch the temp path of the system
515 * @return string Path for temp files
517 public static function getTempPath()
519 $temppath = DI::config()->get("system", "temppath");
521 if (($temppath != "") && System::isDirectoryUsable($temppath)) {
522 // We have a temp path and it is usable
523 return BasePath::getRealPath($temppath);
526 // We don't have a working preconfigured temp path, so we take the system path.
527 $temppath = sys_get_temp_dir();
529 // Check if it is usable
530 if (($temppath != "") && System::isDirectoryUsable($temppath)) {
531 // Always store the real path, not the path through symlinks
532 $temppath = BasePath::getRealPath($temppath);
534 // To avoid any interferences with other systems we create our own directory
535 $new_temppath = $temppath . "/" . DI::baseUrl()->getHostname();
536 if (!is_dir($new_temppath)) {
537 /// @TODO There is a mkdir()+chmod() upwards, maybe generalize this (+ configurable) into a function/method?
538 mkdir($new_temppath);
541 if (System::isDirectoryUsable($new_temppath)) {
542 // The new path is usable, we are happy
543 DI::config()->set("system", "temppath", $new_temppath);
544 return $new_temppath;
546 // We can't create a subdirectory, strange.
547 // But the directory seems to work, so we use it but don't store it.
552 // Reaching this point means that the operating system is configured badly.
557 * Returns the path where spool files are stored
559 * @return string Spool path
561 public static function getSpoolPath()
563 $spoolpath = DI::config()->get('system', 'spoolpath');
564 if (($spoolpath != "") && System::isDirectoryUsable($spoolpath)) {
565 // We have a spool path and it is usable
569 // We don't have a working preconfigured spool path, so we take the temp path.
570 $temppath = self::getTempPath();
572 if ($temppath != "") {
573 // To avoid any interferences with other systems we create our own directory
574 $spoolpath = $temppath . "/spool";
575 if (!is_dir($spoolpath)) {
579 if (System::isDirectoryUsable($spoolpath)) {
580 // The new path is usable, we are happy
581 DI::config()->set("system", "spoolpath", $spoolpath);
584 // We can't create a subdirectory, strange.
585 // But the directory seems to work, so we use it but don't store it.
590 // Reaching this point means that the operating system is configured badly.