1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
<?php
/**
* $Horde: horde/scripts/http_login_refer.php,v 1.3.12.1 2005/01/03 12:25:44 jan Exp $
*
* Copyright 1999-2005 Charles J. Hagenbuch <chuck@horde.org>
* Copyright 1999-2005 Jon Parise <jon@horde.org>
*
* See the enclosed file COPYING for license information (LGPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
*/
require_once '../lib/base.php';
$auth = &Auth::singleton($conf['auth']['driver']);
// Check for HTTP auth.
if (empty($_SERVER['PHP_AUTH_USER']) ||
empty($_SERVER['PHP_AUTH_PW']) ||
!$auth->authenticate($_SERVER['PHP_AUTH_USER'],
array('password' => $_SERVER['PHP_AUTH_PW']))) {
header('WWW-Authenticate: Basic realm="' . $auth->getParam('realm') . '"');
header('HTTP/1.0 401 Unauthorized');
exit('Forbidden');
}
if ($url = Util::getFormData('url')) {
header('Location: ' . $url);
} else {
header('Location: ' . Horde::applicationUrl('login.php'));
}
|
