2010-07-05 05:45:56 +02:00
< ? php
2017-04-21 17:09:06 +02:00
2017-04-30 06:07:00 +02:00
use Friendica\App ;
2017-08-26 08:04:21 +02:00
use Friendica\Core\System ;
2017-04-30 06:01:26 +02:00
use Friendica\Core\Config ;
2017-11-08 04:57:46 +01:00
use Friendica\Database\DBM ;
2017-04-21 17:09:06 +02:00
2017-11-26 20:18:45 +01:00
require_once 'include/security.php' ;
require_once 'include/datetime.php' ;
2012-01-13 00:46:39 +01:00
2016-04-25 00:02:43 +02:00
// When the "Friendica" cookie is set, take the value to authenticate and renew the cookie.
2016-04-25 22:10:45 +02:00
if ( isset ( $_COOKIE [ " Friendica " ])) {
2016-04-25 00:02:43 +02:00
$data = json_decode ( $_COOKIE [ " Friendica " ]);
if ( isset ( $data -> uid )) {
$r = q ( " SELECT `user`.*, `user`.`pubkey` as `upubkey`, `user`.`prvkey` as `uprvkey`
2016-04-25 22:10:45 +02:00
FROM `user` WHERE `uid` = % d AND NOT `blocked` AND NOT `account_expired` AND NOT `account_removed` AND `verified` LIMIT 1 " ,
2016-04-25 00:02:43 +02:00
intval ( $data -> uid )
);
if ( $r ) {
2016-04-25 11:19:42 +02:00
if ( $data -> hash != cookie_hash ( $r [ 0 ])) {
2017-11-26 20:18:45 +01:00
logger ( " Hash for user " . $data -> uid . " doesn't fit. " );
2016-04-25 11:19:42 +02:00
nuke_session ();
2017-08-26 09:32:10 +02:00
goaway ( System :: baseUrl ());
2016-04-25 11:19:42 +02:00
}
2016-04-25 00:02:43 +02:00
// Renew the cookie
2017-04-21 16:15:39 +02:00
// Expires after 7 days by default,
// can be set via system.auth_cookie_lifetime
2017-04-21 17:36:45 +02:00
$authcookiedays = Config :: get ( 'system' , 'auth_cookie_lifetime' , 7 );
2017-11-26 20:18:45 +01:00
new_cookie ( $authcookiedays * 24 * 60 * 60 , $r [ 0 ]);
2016-04-25 00:02:43 +02:00
// Do the authentification if not done by now
2017-06-08 04:00:59 +02:00
if ( ! isset ( $_SESSION ) || ! isset ( $_SESSION [ 'authenticated' ])) {
2016-04-25 07:10:40 +02:00
authenticate_success ( $r [ 0 ]);
2016-04-25 00:02:43 +02:00
2017-11-26 20:18:45 +01:00
if ( Config :: get ( 'system' , 'paranoia' )) {
2016-04-25 07:10:40 +02:00
$_SESSION [ 'addr' ] = $data -> ip ;
2017-11-26 20:18:45 +01:00
}
2016-04-25 00:02:43 +02:00
}
}
}
}
2010-11-30 08:16:14 +01:00
2016-04-25 07:10:40 +02:00
2015-12-22 11:25:37 +01:00
// login/logout
2010-07-05 05:45:56 +02:00
2017-11-26 20:18:45 +01:00
if ( isset ( $_SESSION ) && x ( $_SESSION , 'authenticated' ) && ( ! x ( $_POST , 'auth-params' ) || ( $_POST [ 'auth-params' ] !== 'login' ))) {
if (( x ( $_POST , 'auth-params' ) && ( $_POST [ 'auth-params' ] === 'logout' )) || ( $a -> module === 'logout' )) {
2010-10-11 01:16:29 +02:00
// process logout request
2012-03-12 15:58:59 +01:00
call_hooks ( " logging_out " );
2010-11-30 08:16:14 +01:00
nuke_session ();
2017-11-26 20:18:45 +01:00
info ( t ( 'Logged out.' ) . EOL );
2017-08-26 09:32:10 +02:00
goaway ( System :: baseUrl ());
2010-07-05 05:45:56 +02:00
}
2010-10-11 01:16:29 +02:00
2017-11-26 20:18:45 +01:00
if ( x ( $_SESSION , 'visitor_id' ) && ! x ( $_SESSION , 'uid' )) {
2011-05-10 07:15:19 +02:00
$r = q ( " SELECT * FROM `contact` WHERE `id` = %d LIMIT 1 " ,
intval ( $_SESSION [ 'visitor_id' ])
);
2017-11-08 04:57:46 +01:00
if ( DBM :: is_result ( $r )) {
2011-05-10 07:15:19 +02:00
$a -> contact = $r [ 0 ];
}
}
2017-11-26 20:18:45 +01:00
if ( x ( $_SESSION , 'uid' )) {
2010-10-11 01:16:29 +02:00
// already logged in user returning
2017-11-26 20:18:45 +01:00
$check = Config :: get ( 'system' , 'paranoia' );
2010-11-30 08:16:14 +01:00
// extra paranoia - if the IP changed, log them out
2016-04-25 22:10:45 +02:00
if ( $check && ( $_SESSION [ 'addr' ] != $_SERVER [ 'REMOTE_ADDR' ])) {
2017-11-26 20:18:45 +01:00
logger ( 'Session address changed. Paranoid setting in effect, blocking session. ' .
$_SESSION [ 'addr' ] . ' != ' . $_SERVER [ 'REMOTE_ADDR' ]);
2010-11-30 08:16:14 +01:00
nuke_session ();
2017-08-26 09:32:10 +02:00
goaway ( System :: baseUrl ());
2010-11-30 08:16:14 +01:00
}
2015-12-22 22:11:08 +01:00
$r = q ( " SELECT `user`.*, `user`.`pubkey` as `upubkey`, `user`.`prvkey` as `uprvkey`
2016-04-25 22:10:45 +02:00
FROM `user` WHERE `uid` = % d AND NOT `blocked` AND NOT `account_expired` AND NOT `account_removed` AND `verified` LIMIT 1 " ,
2010-10-11 01:16:29 +02:00
intval ( $_SESSION [ 'uid' ])
);
2017-11-08 04:57:46 +01:00
if ( ! DBM :: is_result ( $r )) {
2010-11-30 08:16:14 +01:00
nuke_session ();
2017-08-26 09:32:10 +02:00
goaway ( System :: baseUrl ());
2010-07-05 05:45:56 +02:00
}
2010-10-11 01:16:29 +02:00
2012-11-09 01:00:37 +01:00
// Make sure to refresh the last login time for the user if the user
// stays logged in for a long time, e.g. with "Remember Me"
$login_refresh = false ;
2016-04-25 22:10:45 +02:00
if ( ! x ( $_SESSION [ 'last_login_date' ])) {
2017-11-26 20:18:45 +01:00
$_SESSION [ 'last_login_date' ] = datetime_convert ( 'UTC' , 'UTC' );
2012-11-09 01:00:37 +01:00
}
2017-11-26 20:18:45 +01:00
if ( strcmp ( datetime_convert ( 'UTC' , 'UTC' , 'now - 12 hours' ), $_SESSION [ 'last_login_date' ]) > 0 ) {
$_SESSION [ 'last_login_date' ] = datetime_convert ( 'UTC' , 'UTC' );
2012-11-09 01:00:37 +01:00
$login_refresh = true ;
}
authenticate_success ( $r [ 0 ], false , false , $login_refresh );
2010-07-05 05:45:56 +02:00
}
2016-04-05 23:28:33 +02:00
} else {
2016-04-25 07:10:40 +02:00
session_unset ();
2017-11-26 20:18:45 +01:00
if ( x ( $_POST , 'password' ) && strlen ( $_POST [ 'password' ])) {
$encrypted = hash ( 'whirlpool' , trim ( $_POST [ 'password' ]));
} else {
if (( x ( $_POST , 'openid_url' )) && strlen ( $_POST [ 'openid_url' ]) ||
( x ( $_POST , 'username' )) && strlen ( $_POST [ 'username' ])) {
2010-09-19 06:11:18 +02:00
2017-11-26 20:18:45 +01:00
$noid = Config :: get ( 'system' , 'no_openid' );
2010-11-29 05:58:23 +01:00
2017-11-26 20:18:45 +01:00
$openid_url = trim (( strlen ( $_POST [ 'openid_url' ]) ? $_POST [ 'openid_url' ] : $_POST [ 'username' ]));
2010-11-19 00:06:33 +01:00
// validate_url alters the calling parameter
$temp_string = $openid_url ;
// if it's an email address or doesn't resolve to a URL, fail.
2017-11-26 20:18:45 +01:00
if ( $noid || strpos ( $temp_string , '@' ) || ! validate_url ( $temp_string )) {
2010-11-19 00:06:33 +01:00
$a = get_app ();
2017-11-26 20:18:45 +01:00
notice ( t ( 'Login failed.' ) . EOL );
2017-08-26 09:32:10 +02:00
goaway ( System :: baseUrl ());
2010-11-19 00:06:33 +01:00
// NOTREACHED
}
// Otherwise it's probably an openid.
2016-04-25 07:10:40 +02:00
try {
require_once ( 'library/openid.php' );
$openid = new LightOpenID ;
$openid -> identity = $openid_url ;
$_SESSION [ 'openid' ] = $openid_url ;
2017-03-12 01:11:35 +01:00
$_SESSION [ 'remember' ] = $_POST [ 'remember' ];
2017-11-26 20:18:45 +01:00
$openid -> returnUrl = System :: baseUrl ( true ) . '/openid' ;
2016-04-25 07:10:40 +02:00
goaway ( $openid -> authUrl ());
} catch ( Exception $e ) {
2017-11-26 20:18:45 +01:00
notice ( t ( 'We encountered a problem while logging in with the OpenID you provided. Please check the correct spelling of the ID.' ) . '<br /><br >' . t ( 'The error message was:' ) . ' ' . $e -> getMessage ());
2016-04-25 07:10:40 +02:00
}
2012-03-19 23:03:09 +01:00
// NOTREACHED
2010-11-17 08:26:14 +01:00
}
}
2012-03-20 05:58:21 +01:00
2017-11-26 20:18:45 +01:00
if ( x ( $_POST , 'auth-params' ) && $_POST [ 'auth-params' ] === 'login' ) {
2010-12-27 23:59:26 +01:00
$record = null ;
2010-12-25 00:59:12 +01:00
$addon_auth = array (
2016-04-25 00:02:43 +02:00
'username' => trim ( $_POST [ 'username' ]),
2010-12-25 00:59:12 +01:00
'password' => trim ( $_POST [ 'password' ]),
2010-12-27 23:59:26 +01:00
'authenticated' => 0 ,
'user_record' => null
2010-12-25 00:59:12 +01:00
);
/**
*
2010-12-27 23:59:26 +01:00
* A plugin indicates successful login by setting 'authenticated' to non - zero value and returning a user record
2010-12-25 00:59:12 +01:00
* Plugins should never set 'authenticated' except to indicate success - as hooks may be chained
* and later plugins should not interfere with an earlier one that succeeded .
*
*/
call_hooks ( 'authenticate' , $addon_auth );
2017-11-26 20:18:45 +01:00
if ( $addon_auth [ 'authenticated' ] && count ( $addon_auth [ 'user_record' ])) {
2010-12-27 23:59:26 +01:00
$record = $addon_auth [ 'user_record' ];
2017-11-26 20:18:45 +01:00
} else {
2010-12-27 23:59:26 +01:00
// process normal login request
2010-12-25 00:59:12 +01:00
2015-12-22 22:11:08 +01:00
$r = q ( " SELECT `user`.*, `user`.`pubkey` as `upubkey`, `user`.`prvkey` as `uprvkey`
2016-04-25 07:10:40 +02:00
FROM `user` WHERE ( `email` = '%s' OR `nickname` = '%s' )
2016-04-25 22:10:45 +02:00
AND `password` = '%s' AND NOT `blocked` AND NOT `account_expired` AND NOT `account_removed` AND `verified` LIMIT 1 " ,
2011-10-17 16:53:59 +02:00
dbesc ( trim ( $_POST [ 'username' ])),
dbesc ( trim ( $_POST [ 'username' ])),
2010-12-25 00:59:12 +01:00
dbesc ( $encrypted )
);
2017-11-26 20:18:45 +01:00
if ( DBM :: is_result ( $r )) {
2010-12-27 23:59:26 +01:00
$record = $r [ 0 ];
2017-11-26 20:18:45 +01:00
}
2010-12-25 00:59:12 +01:00
}
2016-04-25 00:02:43 +02:00
if ( ! $record || ! count ( $record )) {
2017-11-26 20:18:45 +01:00
logger ( 'authenticate: failed login attempt: ' . notags ( trim ( $_POST [ 'username' ])) . ' from IP ' . $_SERVER [ 'REMOTE_ADDR' ]);
notice ( t ( 'Login failed.' ) . EOL );
2017-08-26 09:32:10 +02:00
goaway ( System :: baseUrl ());
2016-04-25 07:10:40 +02:00
}
2010-12-27 23:59:26 +01:00
2017-11-26 20:18:45 +01:00
if ( ! $_POST [ 'remember' ]) {
2017-03-13 11:57:10 +01:00
new_cookie ( 0 ); // 0 means delete on browser exit
}
2012-01-13 00:46:39 +01:00
// if we haven't failed up this point, log them in.
2017-03-12 01:11:35 +01:00
$_SESSION [ 'remember' ] = $_POST [ 'remember' ];
2017-11-26 20:18:45 +01:00
$_SESSION [ 'last_login_date' ] = datetime_convert ( 'UTC' , 'UTC' );
2012-01-13 00:46:39 +01:00
authenticate_success ( $record , true , true );
2010-07-05 05:45:56 +02:00
}
}
2016-04-25 22:10:45 +02:00
/**
* @ brief Kills the " Friendica " cookie and all session data
*/
2017-11-26 20:18:45 +01:00
function nuke_session ()
{
2016-04-25 22:10:45 +02:00
new_cookie ( - 3600 ); // make sure cookie is deleted on browser close, as a security measure
session_unset ();
session_destroy ();
}