framework.php 7.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220
  1. <?php
  2. // This file is part of GNU social - https://www.gnu.org/software/social
  3. //
  4. // GNU social is free software: you can redistribute it and/or modify
  5. // it under the terms of the GNU Affero General Public License as published by
  6. // the Free Software Foundation, either version 3 of the License, or
  7. // (at your option) any later version.
  8. //
  9. // GNU social is distributed in the hope that it will be useful,
  10. // but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. // GNU Affero General Public License for more details.
  13. //
  14. // You should have received a copy of the GNU Affero General Public License
  15. // along with GNU social. If not, see <http://www.gnu.org/licenses/>.
  16. /**
  17. * Bootstrapping code to initialize the application.
  18. *
  19. * @package GNUsocial
  20. * @author Evan Prodromou
  21. * @author Shashi Gowda <connect2shashi@gmail.com>
  22. * @author Neil E. Hodges <47hasbegun@gmail.com>
  23. * @author Brion Vibber <brion@pobox.com>
  24. * @author Mikael Nordfeldth <mmn@hethane.se>
  25. * @author Diogo Cordeiro <diogo@fc.up.pt>
  26. * @copyright 2010-2020 Free Software Foundation, Inc http://www.fsf.org
  27. * @license https://www.gnu.org/licenses/agpl.html GNU AGPL v3 or later
  28. */
  29. defined('GNUSOCIAL') || die();
  30. define('GNUSOCIAL_ENGINE', 'GNU social');
  31. define('GNUSOCIAL_ENGINE_URL', 'https://gnusocial.rocks/');
  32. define('GNUSOCIAL_ENGINE_REPO_URL', 'https://notabug.org/diogo/gnu-social/'); // Change to https://git.gnu.io/gnu/gnu-social
  33. define('GNUSOCIAL_BASE_VERSION', '2.0.1');
  34. define('GNUSOCIAL_LIFECYCLE', 'beta0'); // 'dev', 'alpha[0-9]+', 'beta[0-9]+', 'rc[0-9]+', 'release'
  35. define('GNUSOCIAL_VERSION', GNUSOCIAL_BASE_VERSION . '-' . GNUSOCIAL_LIFECYCLE);
  36. define('GNUSOCIAL_CODENAME', 'THIS. IS. GNU social!!!!');
  37. define('AVATAR_PROFILE_SIZE', 96);
  38. define('AVATAR_STREAM_SIZE', 48);
  39. define('AVATAR_MINI_SIZE', 24);
  40. define('NOTICES_PER_PAGE', 20);
  41. define('PROFILES_PER_PAGE', 20);
  42. define('MESSAGES_PER_PAGE', 20);
  43. define('GROUPS_PER_PAGE', 20);
  44. define('APPS_PER_PAGE', 20);
  45. define('PEOPLETAGS_PER_PAGE', 20);
  46. define('GROUPS_PER_MINILIST', 8);
  47. define('PROFILES_PER_MINILIST', 8);
  48. define('FOREIGN_NOTICE_SEND', 1);
  49. define('FOREIGN_NOTICE_RECV', 2);
  50. define('FOREIGN_NOTICE_SEND_REPLY', 4);
  51. define('FOREIGN_NOTICE_SEND_REPEAT', 8);
  52. define('FOREIGN_FRIEND_SEND', 1);
  53. define('FOREIGN_FRIEND_RECV', 2);
  54. define('NOTICE_INBOX_SOURCE_SUB', 1);
  55. define('NOTICE_INBOX_SOURCE_GROUP', 2);
  56. define('NOTICE_INBOX_SOURCE_REPLY', 3);
  57. define('NOTICE_INBOX_SOURCE_FORWARD', 4);
  58. define('NOTICE_INBOX_SOURCE_PROFILE_TAG', 5);
  59. define('NOTICE_INBOX_SOURCE_GATEWAY', -1);
  60. /**
  61. * StatusNet had this string as valid path characters: '\pN\pL\,\!\(\)\.\:\-\_\+\/\=\&\;\%\~\*\$\'\@'
  62. * Some of those characters can be troublesome when auto-linking plain text. Such as "http://some.com/)"
  63. * URL encoding should be used whenever a weird character is used, the following strings are not definitive.
  64. */
  65. define('URL_REGEX_VALID_PATH_CHARS', '\pN\pL\,\!\.\:\-\_\+\/\@\=\;\%\~\*\(\)');
  66. define('URL_REGEX_VALID_QSTRING_CHARS', URL_REGEX_VALID_PATH_CHARS . '\&');
  67. define('URL_REGEX_VALID_FRAGMENT_CHARS', URL_REGEX_VALID_QSTRING_CHARS . '\?\#');
  68. define('URL_REGEX_EXCLUDED_END_CHARS', '\?\.\,\!\#\:\''); // don't include these if they are directly after a URL
  69. define('URL_REGEX_DOMAIN_NAME', '(?:(?!-)[A-Za-z0-9\-]{1,63}(?<!-)\.)+[A-Za-z]{2,10}');
  70. // Autoload composer dependencies
  71. require_once INSTALLDIR . '/vendor/autoload.php';
  72. // append our extlib dir as the last-resort place to find libs
  73. set_include_path(get_include_path() . PATH_SEPARATOR . INSTALLDIR . '/extlib/');
  74. // global configuration object
  75. // This is awful but system's PEAR always gives us issues, we've patched it
  76. require_once INSTALLDIR . '/extlib/' . 'PEAR.php';
  77. require_once INSTALLDIR . '/extlib/' . 'PEAR/Exception.php';
  78. global $_PEAR;
  79. $_PEAR = new PEAR;
  80. $_PEAR->setErrorHandling(PEAR_ERROR_CALLBACK, 'PEAR_ErrorToPEAR_Exception');
  81. require_once INSTALLDIR . '/extlib/' . 'MDB2.php';
  82. require_once INSTALLDIR . '/extlib/' . 'DB/DataObject.php';
  83. require_once INSTALLDIR . '/extlib/' . 'DB/DataObject/Cast.php'; // for dates
  84. require_once INSTALLDIR . '/lib/util/language.php';
  85. // This gets included before the config file, so that admin code and plugins
  86. // can use it
  87. require_once INSTALLDIR . '/lib/util/event.php';
  88. require_once INSTALLDIR . '/lib/modules/Module.php';
  89. require_once INSTALLDIR . '/lib/modules/Plugin.php';
  90. function addPlugin($name, array $attrs = [])
  91. {
  92. return GNUsocial::addPlugin($name, $attrs);
  93. }
  94. function _have_config()
  95. {
  96. return GNUsocial::haveConfig();
  97. }
  98. function GNUsocial_class_autoload($cls)
  99. {
  100. if (mb_substr($cls, -6) == 'Action' &&
  101. file_exists(($file = INSTALLDIR . '/actions/' . strtolower(mb_substr($cls, 0, -6)) . '.php'))) {
  102. require_once $file;
  103. }
  104. $lib_path = INSTALLDIR . '/lib/';
  105. $lib_dirs = array_map(function ($dir) {
  106. return '/lib/' . $dir . '/';
  107. }, array_filter(
  108. scandir($lib_path),
  109. function ($dir) use ($lib_path) {
  110. // Filter out files and both hidden and implicit directories.
  111. return $dir[0] !== '.' && is_dir($lib_path . $dir);
  112. }
  113. ));
  114. $found = false;
  115. foreach (array_merge(['/classes/'], $lib_dirs) as $dir) {
  116. $file = (in_array($dir, ['/classes/', '/lib/modules/'])) ? $cls : strtolower($cls);
  117. $inc = INSTALLDIR . $dir . $file . '.php';
  118. if (file_exists($inc)) {
  119. $found = (require_once $inc);
  120. break;
  121. }
  122. }
  123. if (!$found) {
  124. Event::handle('Autoload', [&$cls]);
  125. }
  126. }
  127. // Autoload function queue, starting with our own discovery method
  128. spl_autoload_register('GNUsocial_class_autoload');
  129. /**
  130. * Extlibs with namespaces (or directly in extlib/)
  131. * This covers libraries such as: Validate and \Michelf\Markdown
  132. *
  133. * The namespaced based structure is called "PSR-0 autoloading standard":
  134. * \<Vendor Name>\(<Namespace>\)*<Class Name>
  135. * and is available here: http://www.php-fig.org/psr/psr-0/
  136. */
  137. spl_autoload_register(function ($class) {
  138. if ($class === 'OAuthRequest' || $class === 'OAuthException') {
  139. $class_base = 'OAuth';
  140. } else {
  141. $class_base = preg_replace('{\\\\|_(?!.*\\\\)}', DIRECTORY_SEPARATOR, ltrim($class, '\\'));
  142. }
  143. $file = INSTALLDIR . "/extlib/{$class_base}.php";
  144. if (file_exists($file)) {
  145. require_once $file;
  146. return;
  147. }
  148. # Try if the system has this external library
  149. $file = "/usr/share/php/{$class_base}.php";
  150. if (file_exists($file)) {
  151. require_once $file;
  152. return;
  153. }
  154. });
  155. require_once INSTALLDIR . '/lib/util/util.php';
  156. require_once INSTALLDIR . '/lib/action/action.php';
  157. require_once INSTALLDIR . '/lib/util/mail.php';
  158. //set PEAR error handling to use regular PHP exceptions
  159. function PEAR_ErrorToPEAR_Exception(PEAR_Error $err)
  160. {
  161. //DB_DataObject throws error when an empty set would be returned
  162. //That behavior is weird, and not how the rest of StatusNet works.
  163. //So just ignore those errors.
  164. if ($err->getCode() == DB_DATAOBJECT_ERROR_NODATA) {
  165. return;
  166. }
  167. $msg = $err->getMessage();
  168. $userInfo = $err->getUserInfo();
  169. // Log this; push the message up as an exception
  170. common_log(LOG_ERR, "PEAR Error: $msg ($userInfo)");
  171. // HACK: queue handlers get kicked by the long-query killer, and
  172. // keep the same broken connection. We die here to get a new
  173. // process started.
  174. if (php_sapi_name() == 'cli' && preg_match('/nativecode=2006/', $userInfo)) {
  175. common_log(LOG_ERR, "Lost DB connection; dying.");
  176. exit(100);
  177. }
  178. if ($err->getCode()) {
  179. throw new PEAR_Exception($err->getMessage(), $err->getCode());
  180. }
  181. throw new PEAR_Exception($err->getMessage());
  182. }