X-Git-Url: https://git.mxchange.org/?a=blobdiff_plain;f=mod%2Fdfrn_request.php;h=60106661cb38afd37d07f3581a731c5446716617;hb=09117b1dc7a64a8a85a81fc8f6e38f7cadb274bf;hp=d2be6a449d8f4d8aeec988d0e6876d2609c15727;hpb=21ab8356b019449a30a46f2766325afe4d7df28a;p=friendica.git diff --git a/mod/dfrn_request.php b/mod/dfrn_request.php index d2be6a449d..60106661cb 100644 --- a/mod/dfrn_request.php +++ b/mod/dfrn_request.php @@ -3,11 +3,6 @@ if(! function_exists('dfrn_request_init')) { function dfrn_request_init(&$a) { - if($_SESSION['authenticated']) { - // choose which page to show (could be remote auth) - - } - if($a->argc > 1) $which = $a->argv[1]; @@ -30,124 +25,146 @@ function dfrn_request_post(&$a) { } - // callback to local site after remote request and local confirm + // We've introduced ourself to another cell, then have been returned to our own cell + // to confirm the request, and then we've clicked submit (perhaps after logging in). + // That brings us here: - if((x($_POST,'localconfirm')) && ($_POST['localconfirm'] == 1) - && local_user() && ($_SESSION['uid'] == $a->argv[1]) && (x($_POST,'dfrn_url'))) { + if((x($_POST,'localconfirm')) && ($_POST['localconfirm'] == 1)) { - // We are the requestor, and we've been sent back to our own site - // to confirm the request. We've done so and clicked submit, - // which brings us here. + // Ensure this is a valid request + + if(local_user() && ($a->user['nickname'] == $a->argv[1]) && (x($_POST,'dfrn_url'))) { - $dfrn_url = notags(trim($_POST['dfrn_url'])); - $aes_allow = (((x($_POST,'aes_allow')) && ($_POST['aes_allow'] == 1)) ? 1 : 0); - $confirm_key = ((x($_POST,'confirm_key')) ? $_POST['confirm_key'] : ""); - $contact_record = null; - - if(x($dfrn_url)) { + $dfrn_url = notags(trim($_POST['dfrn_url'])); + $aes_allow = (((x($_POST,'aes_allow')) && ($_POST['aes_allow'] == 1)) ? 1 : 0); + $confirm_key = ((x($_POST,'confirm_key')) ? $_POST['confirm_key'] : ""); - $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `url` = '%s' LIMIT 1", - intval($_SESSION['uid']), - dbesc($dfrn_url) - ); + $contact_record = null; - if(count($r)) { - if(strlen($r[0]['dfrn-id'])) { - notice("This introduction has already been accepted." . EOL ); - return; - } - else - $contact_record = $r[0]; - } + if(x($dfrn_url)) { - if(is_array($contact_record)) { - $r = q("UPDATE `contact` SET `ret-aes` = %d WHERE `id` = %d LIMIT 1", - intval($aes_allow), - intval($contact_record['id']) + $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `url` = '%s' AND `self` = 0 LIMIT 1", + intval(local_user()), + dbesc($dfrn_url) ); - } - else { - - require_once('Scrape.php'); - - - $parms = scrape_dfrn($dfrn_url); - - if(! count($parms)) { - notice( 'Profile location is not valid or does not contain profile information.' . EOL ); - return; + + if(count($r)) { + if(strlen($r[0]['dfrn-id'])) { + notice( t("This introduction has already been accepted.") . EOL ); + return; + } + else + $contact_record = $r[0]; + } + + if(is_array($contact_record)) { + $r = q("UPDATE `contact` SET `ret-aes` = %d WHERE `id` = %d LIMIT 1", + intval($aes_allow), + intval($contact_record['id']) + ); } else { - if(! x($parms,'fn')) - notice( 'Warning: profile location has no identifiable owner name.' . EOL ); - if(! x($parms,'photo')) - notice( 'Warning: profile location has no profile photo.' . EOL ); - $invalid = validate_dfrn($parms); - if($invalid) { - notice( $invalid . ' required parameter' - . (($invalid == 1) ? " was " : "s were " ) - . "not found at the given location." . EOL ) ; + + require_once('Scrape.php'); + + + $parms = scrape_dfrn($dfrn_url); + + if(! count($parms)) { + notice( t('Profile location is not valid or does not contain profile information.') . EOL ); return; } - } + else { + if(! x($parms,'fn')) + notice( t('Warning: profile location has no identifiable owner name.') . EOL ); + if(! x($parms,'photo')) + notice( t('Warning: profile location has no profile photo.') . EOL ); + $invalid = validate_dfrn($parms); + if($invalid) { + notice( $invalid . t(' required parameter') + . (($invalid == 1) ? t(" was ") : t("s were ") ) + . t("not found at the given location.") . EOL ) ; + return; + } + } - $dfrn_request = $parms['dfrn-request']; + $dfrn_request = $parms['dfrn-request']; - dbesc_array($parms); + dbesc_array($parms); - $r = q("INSERT INTO `contact` ( `uid`, `created`,`url`, `name`, `photo`, `site-pubkey`, - `request`, `confirm`, `notify`, `poll`, `aes_allow`) - VALUES ( %d, '%s', '%s', '%s' , '%s', '%s', '%s', '%s', '%s', '%s', %d)", - intval($_SESSION['uid']), - datetime_convert(), - dbesc($dfrn_url), - $parms['fn'], - $parms['photo'], - $parms['key'], - $parms['dfrn-request'], - $parms['dfrn-confirm'], - $parms['dfrn-notify'], - $parms['dfrn-poll'], - intval($aes_allow) - ); - } + $r = q("INSERT INTO `contact` ( `uid`, `created`,`url`, `name`, `nick`, `photo`, `site-pubkey`, + `request`, `confirm`, `notify`, `poll`, `aes_allow`) + VALUES ( %d, '%s', '%s', '%s' , '%s', '%s', '%s', '%s', '%s', '%s', '%s', %d)", + intval(local_user()), + datetime_convert(), + dbesc($dfrn_url), + $parms['fn'], + $parms['nick'], + $parms['photo'], + $parms['key'], + $parms['dfrn-request'], + $parms['dfrn-confirm'], + $parms['dfrn-notify'], + $parms['dfrn-poll'], + intval($aes_allow) + ); + } - if($r) { - notice( "Introduction complete." . EOL); - } + if($r) { + notice( t("Introduction complete.") . EOL); + } - // Allow the blocked remote notification to complete + // Allow the blocked remote notification to complete - if(is_array($contact_record)) - $dfrn_request = $contact_record['request']; + if(is_array($contact_record)) + $dfrn_request = $contact_record['request']; - if(strlen($dfrn_request) && strlen($confirm_key)) - $s = fetch_url($dfrn_request . '?confirm_key=' . $confirm_key); - // ignore reply - goaway($dfrn_url); - // NOTREACHED + if(strlen($dfrn_request) && strlen($confirm_key)) + $s = fetch_url($dfrn_request . '?confirm_key=' . $confirm_key); + // ignore reply + goaway($dfrn_url); + return; // NOTREACHED + + } } - // invalid DFRN-url - notice( "Unrecoverable protocol error." . EOL ); + + // invalid/bogus request + + notice( t('Unrecoverable protocol error.') . EOL ); goaway($a->get_baseurl()); + return; // NOTREACHED } + // Otherwise: + + // We are the requestee. A person from a remote cell has made an introduction + // on our profile web page and clicked submit. We will use their DFRN-URL to + // figure out how to contact their cell. - // we are operating as a remote site and an introduction was requested of us. // Scrape the originating DFRN-URL for everything we need. Create a contact record // and an introduction to show our user next time he/she logs in. - // Finally redirect back to the originator so that their site can record the request. - // If our user confirms the request, a record of it will need to exist on the - // originator's site in order for the confirmation process to complete.. + // Finally redirect back to the requestor so that their site can record the request. + // If our user (the requestee) later confirms this request, a record of it will need + // to exist on the requestor's cell in order for the confirmation process to complete.. + + // It's possible that neither the requestor or the requestee are logged in at the moment, + // and the requestor does not yet have any credentials to the requestee profile. + // Who is the requestee? We've already loaded their profile which means their nickname should be + // in $a->argv[1] and we should have their complete info in $a->profile. - $tailname = $a->profile['nickname']; + if(! (is_array($a->profile) && count($a->profile))) { + notice( t('Profile unavailable.') . EOL); + return; + } + $nickname = $a->profile['nickname']; + $notify_flags = $a->profile['notify-flags']; $uid = $a->profile['uid']; $contact_record = null; @@ -159,157 +176,194 @@ function dfrn_request_post(&$a) { $url = trim($_POST['dfrn_url']); if(! strlen($url)) { - notice( "Invalid URL" . EOL ); + notice( t("Invalid locator") . EOL ); return; } - if(strstr($url,'@')) { - $username = substr($url,0,strpos($url,'@')); - $hostname = substr($url,strpos($url,'@') + 1); - require_once('Scrape.php'); + // Canonicalise email-style profile locator - - $parms = scrape_meta('https://' . $url); - if((x($parms,'dfrn-template')) && strstr($parms['dfrn-template'],'%s')) { - $url = sprintf($parms['dfrn-template'],$username); - } - else { - $parms = scrape_meta('http://' . $url); - if((x($parms,'dfrn-template')) && strstr($parms['dfrn-template'],'%s')) { - $url = sprintf($parms['dfrn-template'],$username); - } - else { - $url = ''; - } - } + $url = webfinger_dfrn($url); + if(substr($url,0,5) === 'stat:') { + $network = 'stat'; + $url = substr($url,5); + } + else { + $network = 'dfrn'; } + logger('dfrn_request: url: ' . $url); + if(! strlen($url)) { - notice("Unable to resolve your name at the provided location." . EOL); + notice( t("Unable to resolve your name at the provided location.") . EOL); return; } - $ret = q("SELECT * FROM `contact` WHERE `uid` = %d AND `url` = '%s' LIMIT 1", - intval($uid), - dbesc($url) - ); - if(count($ret)) { - if(strlen($ret[0]['issued-id'])) { - notice( 'You have already introduced yourself here.' . EOL ); - return; - } - else { - $contact_record = $ret[0]; - $parms = array('dfrn-request' => $ret[0]['request']); - } - } - $issued_id = random_string(); - - if(is_array($contact_record)) { - // There is a contact record but no issued-id, so this - // is a reciprocal introduction from a known contact - $r = q("UPDATE `contact` SET `issued-id` = '%s' WHERE `id` = %d LIMIT 1", - dbesc($issued_id), - intval($contact_record['id']) + if($network === 'dfrn') { + $ret = q("SELECT * FROM `contact` WHERE `uid` = %d AND `url` = '%s' AND `self` = 0 LIMIT 1", + intval($uid), + dbesc($url) ); - } - else { - - require_once('Scrape.php'); - $parms = scrape_dfrn($url); + if(count($ret)) { + if(strlen($ret[0]['issued-id'])) { + notice( t('You have already introduced yourself here.') . EOL ); + return; + } + elseif($ret[0]['rel'] == REL_BUD) { + notice( t('Apparently you are already friends with .') . $a->profile['name'] . EOL); + return; + } + else { + $contact_record = $ret[0]; + $parms = array('dfrn-request' => $ret[0]['request']); + } + } + + $issued_id = random_string(); - if(! count($parms)) { - notice( 'Profile location is not valid or does not contain profile information.' . EOL ); - killme(); + if(is_array($contact_record)) { + // There is a contact record but no issued-id, so this + // is a reciprocal introduction from a known contact + $r = q("UPDATE `contact` SET `issued-id` = '%s' WHERE `id` = %d LIMIT 1", + dbesc($issued_id), + intval($contact_record['id']) + ); } else { - if(! x($parms,'fn')) - notice( 'Warning: profile location has no identifiable owner name.' . EOL ); - if(! x($parms,'photo')) - notice( 'Warning: profile location has no profile photo.' . EOL ); - $invalid = validate_dfrn($parms); - if($invalid) { - notice( $invalid . ' required parameter' - . (($invalid == 1) ? " was " : "s were " ) - . "not found at the given location." . EOL ) ; + if(! validate_url($url)) { + notice( t('Invalid profile URL.') . EOL); + goaway($a->get_baseurl() . '/' . $a->cmd); + return; // NOTREACHED + } - return; + if(! allowed_url($url)) { + notice( t('Disallowed profile URL.') . EOL); + goaway($a->get_baseurl() . '/' . $a->cmd); + return; // NOTREACHED } - } + + require_once('Scrape.php'); + + $parms = scrape_dfrn($url); + + if(! count($parms)) { + notice( t('Profile location is not valid or does not contain profile information.') . EOL ); + goaway($a->get_baseurl() . '/' . $a->cmd); + } + else { + if(! x($parms,'fn')) + notice( t('Warning: profile location has no identifiable owner name.') . EOL ); + if(! x($parms,'photo')) + notice( t('Warning: profile location has no profile photo.') . EOL ); + $invalid = validate_dfrn($parms); + if($invalid) { + notice( $invalid . t(' required parameter') + . (($invalid == 1) ? t(" was ") : t("s were ") ) + . t("not found at the given location.") . EOL ) ; + + return; + } + } - $parms['url'] = $url; - $parms['issued-id'] = $issued_id; + $parms['url'] = $url; + $parms['issued-id'] = $issued_id; - dbesc_array($parms); - $r = q("INSERT INTO `contact` ( `uid`, `created`, `url`, `name`, `issued-id`, `photo`, `site-pubkey`, - `request`, `confirm`, `notify`, `poll` ) - VALUES ( %d, '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s' )", - intval($uid), - datetime_convert(), - $parms['url'], - $parms['fn'], - $parms['issued-id'], - $parms['photo'], - $parms['key'], - $parms['dfrn-request'], - $parms['dfrn-confirm'], - $parms['dfrn-notify'], - $parms['dfrn-poll'] - ); - // find the contact record we just created - if($r) { - $r = q("SELECT `id` FROM `contact` - WHERE `uid` = '%s' AND `url` = '%s' AND `issued-id` = '%s' LIMIT 1", + dbesc_array($parms); + $r = q("INSERT INTO `contact` ( `uid`, `created`, `url`, `name`, `nick`, `issued-id`, `photo`, `site-pubkey`, + `request`, `confirm`, `notify`, `poll` ) + VALUES ( %d, '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s', '%s' )", intval($uid), + datetime_convert(), $parms['url'], - $parms['issued-id'] + $parms['fn'], + $parms['nick'], + $parms['issued-id'], + $parms['photo'], + $parms['key'], + $parms['dfrn-request'], + $parms['dfrn-confirm'], + $parms['dfrn-notify'], + $parms['dfrn-poll'] + ); + + // find the contact record we just created + if($r) { + $r = q("SELECT `id` FROM `contact` + WHERE `uid` = %d AND `url` = '%s' AND `issued-id` = '%s' LIMIT 1", + intval($uid), + $parms['url'], + $parms['issued-id'] + ); + if(count($r)) + $contact_record = $r[0]; + } + + } + if($r === false) { + notice( t('Failed to update contact record.') . EOL ); + return; + } + + $hash = random_string() . (string) time(); // Generate a confirm_key + + if(is_array($contact_record)) { + $ret = q("INSERT INTO `intro` ( `uid`, `contact-id`, `blocked`, `knowyou`, `note`, `hash`, `datetime`) + VALUES ( %d, %d, 1, %d, '%s', '%s', '%s' )", + intval($uid), + intval($contact_record['id']), + ((x($_POST,'knowyou') && ($_POST['knowyou'] == 1)) ? 1 : 0), + dbesc(notags(trim($_POST['dfrn-request-message']))), + dbesc($hash), + dbesc(datetime_convert()) ); - if(count($r)) - $contact_record = $r[0]; } - } - if($r === false) { - notice( 'Failed to update contact record.' . EOL ); - return; - } + // This notice will only be seen by the requestor if the requestor and requestee are on the same server. - $hash = random_string() . (string) time(); // Generate a confirm_key + if(! $failed) + notice( t('Your introduction has been sent.') . EOL ); - if(is_array($contact_record)) { - $ret = q("INSERT INTO `intro` ( `uid`, `contact-id`, `blocked`, `knowyou`, `note`, `hash`, `datetime`) - VALUES ( %d, %d, 1, %d, '%s', '%s', '%s' )", - intval($uid), - intval($contact_record['id']), - ((x($_POST,'knowyou') && ($_POST['knowyou'] == 1)) ? 1 : 0), - dbesc(trim($_POST['dfrn-request-message'])), - dbesc($hash), - dbesc(datetime_convert()) + // "Homecoming" - send the requestor back to their site to record the introduction. + + $dfrn_url = bin2hex($a->get_baseurl() . '/profile/' . $nickname); + $aes_allow = ((function_exists('openssl_encrypt')) ? 1 : 0); + + goaway($parms['dfrn-request'] . "?dfrn_url=$dfrn_url" + . '&dfrn_version=' . DFRN_PROTOCOL_VERSION + . '&confirm_key=' . $hash + . (($aes_allow) ? "&aes_allow=1" : "") ); + // NOTREACHED + // END $network === 'dfrn' + } + elseif($network === 'stat') { + + /** + * + * OStatus network + * Check contact existence + * Try and scrape together enough information to create a contact record, with us as REL_VIP + * Substitute our user's feed URL into $url template + * Send the subscriber home to subscribe + * + **/ + + $url = str_replace('{uri}', $a->get_baseurl() . '/dfrn_poll/' . $nickname, $url); + goaway($url); + // NOTREACHED + // END $network === 'stat' } - - // TODO: send an email notification if our user wants one - - if(! $failed) - notice( "Your introduction has been sent." . EOL ); - // "Homecoming" - send the requestor back to their site to record the introduction. + } return; +}} - $dfrn_url = bin2hex($a->get_baseurl() . "/profile/$tailname"); - $aes_allow = ((function_exists('openssl_encrypt')) ? 1 : 0); - goaway($parms['dfrn-request'] . "?dfrn_url=$dfrn_url" . '&confirm_key=' . $hash . (($aes_allow) ? "&aes_allow=1" : "")); - // NOTREACHED - } - return; -}} if(! function_exists('dfrn_request_content')) { function dfrn_request_content(&$a) { @@ -327,48 +381,112 @@ function dfrn_request_content(&$a) { if(x($_GET,'dfrn_url')) { if(! local_user()) { - notice( "Please login to confirm introduction." . EOL ); + notice( t("Please login to confirm introduction.") . EOL ); return login(); } // Edge case, but can easily happen in the wild. This person is authenticated, // but not as the person who needs to deal with this request. - if (($_SESSION['uid'] != $a->argv[1]) && ($a->user['nickname'] != $a->argv[1])) { - notice( "Incorrect identity currently logged in. Please login to this profile." . EOL); + if ($a->user['nickname'] != $a->argv[1]) { + notice( t("Incorrect identity currently logged in. Please login to this profile.") . EOL); return login(); } - $dfrn_url = notags(trim(pack("H*" , $_GET['dfrn_url']))); + $dfrn_url = notags(trim(hex2bin($_GET['dfrn_url']))); $aes_allow = (((x($_GET,'aes_allow')) && ($_GET['aes_allow'] == 1)) ? 1 : 0); $confirm_key = (x($_GET,'confirm_key') ? $_GET['confirm_key'] : ""); - $o .= file_get_contents("view/dfrn_req_confirm.tpl"); + $o .= load_view_file("view/dfrn_req_confirm.tpl"); $o = replace_macros($o,array( '$dfrn_url' => $dfrn_url, '$aes_allow' => (($aes_allow) ? '' : "" ), '$confirm_key' => $confirm_key, '$username' => $a->user['username'], '$uid' => $_SESSION['uid'], + '$nickname' => $a->user['nickname'], 'dfrn_rawurl' => $_GET['dfrn_url'] )); return $o; } - else { - // we are the requestee and it is now safe to send our user their introduction - if((x($_GET,'confirm_key')) && strlen($_GET['confirm_key'])) { - $r = q("UPDATE `intro` SET `blocked` = 0 WHERE `hash` = '%s' LIMIT 1", - dbesc($_GET['confirm_key']) + elseif((x($_GET,'confirm_key')) && strlen($_GET['confirm_key'])) { + + // we are the requestee and it is now safe to send our user their introduction, + // We could just unblock it, but first we have to jump through a few hoops to + // send an email, or even to find out if we need to send an email. + + $intro = q("SELECT * FROM `intro` WHERE `hash` = '%s' LIMIT 1", + dbesc($_GET['confirm_key']) + ); + + if(count($intro)) { + + $r = q("SELECT `contact`.*, `user`.* FROM `contact` LEFT JOIN `user` ON `contact`.`uid` = `user`.`uid` + WHERE `contact`.`id` = %d LIMIT 1", + intval($intro[0]['contact-id']) ); - killme(); - } + $auto_confirm = false; + + if(count($r)) { + if($r[0]['page-flags'] != PAGE_NORMAL) + $auto_confirm = true; + if(($r[0]['notify-flags'] & NOTIFY_INTRO) && (! $auto_confirm)) { + $email_tpl = load_view_file('view/request_notify_eml.tpl'); + $email = replace_macros($email_tpl, array( + '$requestor' => ((strlen(stripslashes($r[0]['name']))) ? stripslashes($r[0]['name']) : t('[Name Withheld]')), + '$url' => stripslashes($r[0]['url']), + '$myname' => $r[0]['username'], + '$siteurl' => $a->get_baseurl(), + '$sitename' => $a->config['sitename'] + )); + $res = mail($r[0]['email'], + t("Introduction received at ") . $a->config['sitename'], + $email, + 'From: ' . t('Administrator') . '@' . $_SERVER['SERVER_NAME'] ); + // This is a redundant notification - no point throwing errors if it fails. + } + if($auto_confirm) { + require_once('mod/dfrn_confirm.php'); + $handsfree = array( + 'uid' => $r[0]['uid'], + 'node' => $r[0]['nickname'], + 'dfrn_id' => $r[0]['issued-id'], + 'intro_id' => $intro[0]['id'], + 'duplex' => (($r[0]['page-flags'] == PAGE_FREELOVE) ? 1 : 0) + ); + dfrn_confirm_post($a,$handsfree); + } + + } - // Outside request. Display our user's introduction form. + if(! $auto_confirm) { + // If we are auto_confirming, this record will have already been nuked + // in dfrn_confirm_post() - $o = file_get_contents("view/dfrn_request.tpl"); - $o = replace_macros($o,array('$uid' => $a->argv[2])); - return $o; + $r = q("UPDATE `intro` SET `blocked` = 0 WHERE `hash` = '%s' LIMIT 1", + dbesc($_GET['confirm_key']) + ); + } + } + killme(); + return; // NOTREACHED } + else { + $myaddr = ((x($_GET,'address')) ? urldecode($_GET['address']) : ''); + // Normal web request. Display our user's introduction form. + if($a->profile['page-flags'] == PAGE_NORMAL) + $tpl = load_view_file('view/dfrn_request.tpl'); + else + $tpl = load_view_file('view/auto_request.tpl'); + $o .= replace_macros($tpl,array( + '$nickname' => $a->argv[1], + '$name' => $a->profile['name'], + '$myaddr' => $myaddr + )); + return $o; + } + + return; // Somebody is fishing. }} \ No newline at end of file