* @license GNU Affero General Public License http://www.gnu.org/licenses/
*/
-define('INSTALLDIR', dirname(__FILE__));
-define('STATUSNET', true);
-define('LACONICA', true); // compatibility
+$_startTime = microtime(true);
+$_perfCounters = array();
-require_once INSTALLDIR . '/lib/common.php';
+// We provide all our dependencies through our own autoload.
+// This will probably be configurable for distributing with
+// system packages (like with Debian apt etc. where included
+// libraries are maintained through repositories)
+set_include_path('.'); // mainly fixes an issue where /usr/share/{pear,php*}/DB/DataObject.php is _old_ on various systems...
+
+define('INSTALLDIR', dirname(__FILE__));
+define('GNUSOCIAL', true);
+define('STATUSNET', true); // compatibility
$user = null;
$action = null;
function getPath($req)
{
+ $p = null;
+
if ((common_config('site', 'fancy') || !array_key_exists('PATH_INFO', $_SERVER))
&& array_key_exists('p', $req)
) {
- return $req['p'];
+ $p = $req['p'];
} else if (array_key_exists('PATH_INFO', $_SERVER)) {
$path = $_SERVER['PATH_INFO'];
$script = $_SERVER['SCRIPT_NAME'];
if (substr($path, 0, mb_strlen($script)) == $script) {
- return substr($path, mb_strlen($script));
+ $p = substr($path, mb_strlen($script) + 1);
} else {
- return $path;
+ $p = $path;
}
} else {
- return null;
+ $p = null;
}
+
+ // Trim all initial '/'
+
+ $p = ltrim($p, '/');
+
+ return $p;
}
/**
*/
function handleError($error)
{
- if ($error->getCode() == DB_DATAOBJECT_ERROR_NODATA) {
- return;
- }
+ try {
- $logmsg = "PEAR error: " . $error->getMessage();
- if (common_config('site', 'logdebug')) {
- $logmsg .= " : ". $error->getDebugInfo();
- }
- // DB queries often end up with a lot of newlines; merge to a single line
- // for easier grepability...
- $logmsg = str_replace("\n", " ", $logmsg);
- common_log(LOG_ERR, $logmsg);
-
- // @fixme backtrace output should be consistent with exception handling
- if (common_config('site', 'logdebug')) {
- $bt = $error->getBacktrace();
- foreach ($bt as $n => $line) {
- common_log(LOG_ERR, formatBacktraceLine($n, $line));
+ if ($error->getCode() == DB_DATAOBJECT_ERROR_NODATA) {
+ return;
}
- }
- if ($error instanceof DB_DataObject_Error
- || $error instanceof DB_Error
- ) {
- $msg = sprintf(
- _(
- 'The database for %s isn\'t responding correctly, '.
- 'so the site won\'t work properly. '.
- 'The site admins probably know about the problem, '.
- 'but you can contact them at %s to make sure. '.
- 'Otherwise, wait a few minutes and try again.'
- ),
- common_config('site', 'name'),
- common_config('site', 'email')
- );
- } else {
- $msg = _(
- 'An important error occured, probably related to email setup. '.
- 'Check logfiles for more info..'
- );
- }
- $dac = new DBErrorAction($msg, 500);
- $dac->showPage();
+ $logmsg = "Exception thrown: " . _ve($error->getMessage());
+ if ($error instanceof PEAR_Exception && common_config('site', 'logdebug')) {
+ $logmsg .= " PEAR: ". $error->toText();
+ }
+ // DB queries often end up with a lot of newlines; merge to a single line
+ // for easier grepability...
+ $logmsg = str_replace("\n", " ", $logmsg);
+ common_log(LOG_ERR, $logmsg);
+
+ // @fixme backtrace output should be consistent with exception handling
+ if (common_config('site', 'logdebug')) {
+ $bt = $error->getTrace();
+ foreach ($bt as $n => $line) {
+ common_log(LOG_ERR, formatBacktraceLine($n, $line));
+ }
+ }
+ if ($error instanceof DB_DataObject_Error
+ || $error instanceof DB_Error
+ || ($error instanceof PEAR_Exception && $error->getCode() == -24)
+ ) {
+ //If we run into a DB error, assume we can't connect to the DB at all
+ //so set the current user to null, so we don't try to access the DB
+ //while rendering the error page.
+ global $_cur;
+ $_cur = null;
+
+ $msg = sprintf(
+ // TRANS: Database error message.
+ _('The database for %1$s is not responding correctly, '.
+ 'so the site will not work properly. '.
+ 'The site admins probably know about the problem, '.
+ 'but you can contact them at %2$s to make sure. '.
+ 'Otherwise, wait a few minutes and try again.'
+ ),
+ common_config('site', 'name'),
+ common_config('site', 'email')
+ );
+
+ $erraction = new DBErrorAction($msg, 500);
+ } elseif ($error instanceof ClientException) {
+ $erraction = new ClientErrorAction($error->getMessage(), $error->getCode());
+ } elseif ($error instanceof ServerException) {
+ $erraction = new ServerErrorAction($error->getMessage(), $error->getCode(), $error);
+ } else {
+ // If it wasn't specified more closely which kind of exception it was
+ $erraction = new ServerErrorAction($error->getMessage(), 500, $error);
+ }
+ $erraction->showPage();
+
+ } catch (Exception $e) {
+ // TRANS: Error message.
+ echo _('An error occurred.');
+ exit(-1);
+ }
exit(-1);
}
+set_exception_handler('handleError');
+
+// quick check for fancy URL auto-detection support in installer.
+if (preg_replace("/\?.+$/", "", $_SERVER['REQUEST_URI']) === preg_replace("/^\/$/", "", (dirname($_SERVER['REQUEST_URI']))) . '/check-fancy') {
+ die("Fancy URL support detection succeeded. We suggest you enable this to get fancy (pretty) URLs.");
+}
+
+require_once INSTALLDIR . '/lib/common.php';
+
/**
* Format a backtrace line for debug output roughly like debug_print_backtrace() does.
* Exceptions already have this built in, but PEAR error objects just give us the array.
static $alwaysRW = array('session', 'remember_me');
- // We ensure that these tables always are used
- // on the master DB
+ $rwdb = $config['db']['database'];
- $config['db']['database_rw'] = $config['db']['database'];
- $config['db']['ini_rw'] = INSTALLDIR.'/classes/statusnet.ini';
+ if (Event::handle('StartReadWriteTables', array(&$alwaysRW, &$rwdb))) {
- foreach ($alwaysRW as $table) {
- $config['db']['table_'.$table] = 'rw';
- }
-}
+ // We ensure that these tables always are used
+ // on the master DB
-function checkMirror($action_obj, $args)
-{
- global $config;
+ $config['db']['database_rw'] = $rwdb;
+ $config['db']['ini_rw'] = INSTALLDIR.'/classes/statusnet.ini';
- if (common_config('db', 'mirror') && $action_obj->isReadOnly($args)) {
- if (is_array(common_config('db', 'mirror'))) {
- // "load balancing", ha ha
- $arr = common_config('db', 'mirror');
- $k = array_rand($arr);
- $mirror = $arr[$k];
- } else {
- $mirror = common_config('db', 'mirror');
+ foreach ($alwaysRW as $table) {
+ $config['db']['table_'.$table] = 'rw';
}
- // everyone else uses the mirror
-
- $config['db']['database'] = $mirror;
+ Event::handle('EndReadWriteTables', array($alwaysRW, $rwdb));
}
+
+ return;
}
function isLoginAction($action)
function main()
{
- // fake HTTP redirects using lighttpd's 404 redirects
- if (strpos($_SERVER['SERVER_SOFTWARE'], 'lighttpd') !== false) {
- $_lighty_url = $_SERVER['REQUEST_URI'];
- $_lighty_url = @parse_url($_lighty_url);
-
- if ($_lighty_url['path'] != '/index.php' && $_lighty_url['path'] != '/') {
- $_lighty_path = preg_replace('/^'.preg_quote(common_config('site', 'path')).'\//', '', substr($_lighty_url['path'], 1));
- $_SERVER['QUERY_STRING'] = 'p='.$_lighty_path;
- if (isset($_lighty_url['query']) && $_lighty_url['query'] != '') {
- $_SERVER['QUERY_STRING'] .= '&'.$_lighty_url['query'];
- parse_str($_lighty_url['query'], $_lighty_query);
- foreach ($_lighty_query as $key => $val) {
- $_GET[$key] = $_REQUEST[$key] = $val;
- }
- }
- $_GET['p'] = $_REQUEST['p'] = $_lighty_path;
- }
- }
- $_SERVER['REDIRECT_URL'] = preg_replace("/\?.+$/", "", $_SERVER['REQUEST_URI']);
-
- // quick check for fancy URL auto-detection support in installer.
- if (isset($_SERVER['REDIRECT_URL']) && (preg_replace("/^\/$/", "", (dirname($_SERVER['REQUEST_URI']))) . '/check-fancy') === $_SERVER['REDIRECT_URL']) {
- die("Fancy URL support detection succeeded. We suggest you enable this to get fancy (pretty) URLs.");
- }
global $user, $action;
- Snapshot::check();
-
if (!_have_config()) {
$msg = sprintf(
- _(
- "No configuration file found. Try running ".
- "the installation program first."
+ // TRANS: Error message displayed when there is no StatusNet configuration file.
+ _("No configuration file found. Try running ".
+ "the installation program first."
)
);
$sac = new ServerErrorAction($msg);
return;
}
- // For database errors
-
- PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, 'handleError');
-
// Make sure RW database is setup
setupRW();
$args = $r->map($path);
- if (!$args) {
- $cac = new ClientErrorAction(_('Unknown page'), 404);
- $cac->showPage();
- return;
+ // If the request is HTTP and it should be HTTPS...
+ if (GNUsocial::useHTTPS() && !GNUsocial::isHTTPS()) {
+ common_redirect(common_local_url($args['action'], $args));
}
$args = array_merge($args, $_REQUEST);
Event::handle('ArgsInitialize', array(&$args));
- $action = $args['action'];
+ $action = basename($args['action']);
if (!$action || !preg_match('/^[a-zA-Z0-9_-]*$/', $action)) {
common_redirect(common_local_url('public'));
- return;
}
// If the site is private, and they're not on one of the "public"
common_set_returnto(common_local_url($action, $rargs));
common_redirect(common_local_url('login'));
- return;
}
$action_class = ucfirst($action).'Action';
if (!class_exists($action_class)) {
- $cac = new ClientErrorAction(_('Unknown action'), 404);
- $cac->showPage();
- } else {
- $action_obj = new $action_class();
-
- checkMirror($action_obj, $args);
-
- try {
- if ($action_obj->prepare($args)) {
- $action_obj->handle($args);
- }
- } catch (ClientException $cex) {
- $cac = new ClientErrorAction($cex->getMessage(), $cex->getCode());
- $cac->showPage();
- } catch (ServerException $sex) { // snort snort guffaw
- $sac = new ServerErrorAction($sex->getMessage(), $sex->getCode(), $sex);
- $sac->showPage();
- } catch (Exception $ex) {
- $sac = new ServerErrorAction($ex->getMessage(), 500, $ex);
- $sac->showPage();
- }
+ // TRANS: Error message displayed when trying to perform an undefined action.
+ throw new ClientException(_('Unknown action'), 404);
}
+
+ call_user_func("$action_class::run", $args);
}
main();