function Places_after_Streams_interest_add($params)
{
$location = Places_Location::userStream();
if ($params['subscribe'] and $location and $location->getAttribute('latitude') and $location->getAttribute('longitude') and $location->getAttribute('miles')) {
Places_Nearby::subscribe($location->getAttribute('latitude'), $location->getAttribute('longitude'), $location->getAttribute('miles'), $params['publisherId'], array('transform' => array('Places_Interest', '_transform'), 'create' => array('Places_Interest', '_create'), 'title' => $params['title'], 'skipAccess' => true));
}
}
function Places_after_Streams_interest_remove($params)
{
$location = Places_Location::userStream();
if ($location) {
$latitude = $location->getAttribute('latitude');
$longitude = $location->getAttribute('longitude');
$miles = $location->getAttribute('miles');
if ($latitude and $longitude and $miles) {
Places_Nearby::unsubscribe($latitude, $longitude, $miles, $params['publisherId'], array('transform' => array('Places_Interest', '_transform'), 'title' => $params['title'], 'skipAccess' => true));
}
}
}
/**
* Call this function to relate a stream to category streams for things happening
* around the given location, about a certain interest.
* @method relateTo
* @static
* @param {string} $publisherId The publisherId of the category streams
* @param {double} $latitude The latitude of the coordinates near which to relate
* @param {double} $longitude The longitude of the coordinates near which to relate
* @param {double} $title The title of the interest, which will be normalized
* @param {array} $options The options to pass to the Streams::relate and Streams::create functions. Also can contain the following options:
* @param {array} [$options.miles] Override the default set of distances found in the config under Places/nearby/miles
* @param {callable} [$options.create] If set, this callback will be used to create streams when they don't already exist. It receives the $options array and should return a Streams_Stream object. If this option is set to null, new streams won't be created.
* @param {callable} [$options.transform="array_keys"] Can be used to override the function which takes the output of Places_Nearby::forPublishers, and this $options array, and returns the array of ($originalStreamName => $newStreamName) pairs.
* @param {array} [$streamNames=null] Optional reference to fill with the stream names
* @return {array|boolean} Returns the array of category streams
*/
static function streams($publisherId, $latitude, $longitude, $title, $options = array(), &$streamNames = array())
{
$options = array_merge(array('transform' => array('Places_Interest', '_transform'), 'create' => array('Places_Interest', '_create'), 'title' => $title), $options);
return Places_Nearby::streams($publisherId, $latitude, $longitude, $options, $streamNames);
}
static function _create($params, $options)
{
$info = $params['info'];
return Places_Nearby::stream($info['latitude'], $info['longitude'], $info['miles'], Q::ifset($info, 'publisherId', null), Q::ifset($info, 'name', null));
}
/**
* Used to set the user's location from geolocation data.
* @param $_REQUEST
* @param [$_REQUEST.latitude] The new latitude. If set, must also specify longitude.
* @param [$_REQUEST.longitude] The new longitude. If set, must also specify latitude.
* @param [$_REQUEST.zipcode] The new zip code. Can be set instead of latitude, longitude.
* @param [$_REQUEST.miles] The distance around their location around that the user is interested in
* @param [$_REQUEST.subscribe] Whether to subscribe to all the local interests at the new location.
* @param [$_REQUEST.unsubscribe] Whether to unsubscribe from all the local interests at the old location.
* @param [$_REQUEST.accuracy]
* @param [$_REQUEST.altitude]
* @param [$_REQUEST.altitudeAccuracy]
* @param [$_REQUEST.heading]
* @param [$_REQUEST.speed]
* @param [$_REQUEST.timezone]
* @param [$_REQUEST.placeName] optional
* @param [$_REQUEST.state] optional
* @param [$_REQUEST.country] optional
*/
function Places_geolocation_post()
{
$user = Users::loggedInUser(true);
$stream = Places_Location::userStream();
$oldLatitude = $stream->getAttribute('latitude');
$oldLongitude = $stream->getAttribute('longitude');
$oldMiles = $stream->getAttribute('miles');
$fields = array('accuracy', 'altitude', 'altitudeAccuracy', 'heading', 'latitude', 'longitude', 'speed', 'miles', 'zipcode', 'timezone', 'placeName', 'state', 'country');
$attributes = Q::take($_REQUEST, $fields);
if (isset($attributes['latitude']) xor isset($attributes['longitude'])) {
throw new Q_Exception("When specifying latitude,longitude you must specify both", array('latitude', 'longitude'));
}
if (!empty($attributes['zipcode']) and !isset($attributes['latitude'])) {
$z = new Places_Zipcode();
$z->countryCode = 'US';
$z->zipcode = $attributes['zipcode'];
if ($z->retrieve()) {
$attributes['latitude'] = $z->latitude;
$attributes['longitude'] = $z->longitude;
$attributes['country'] = $z->countryCode;
} else {
throw new Q_Exception_MissingRow(array('table' => 'zipcode', 'criteria' => $attributes['zipcode']), 'zipcode');
}
}
$attributes['miles'] = Q::ifset($attributes, 'miles', $stream->getAttribute('miles', Q_Config::expect('Places', 'nearby', 'defaultMiles')));
if (empty($attributes['zipcode']) and isset($attributes['latitude'])) {
$zipcodes = Places_Zipcode::nearby($attributes['latitude'], $attributes['longitude'], $attributes['miles'], 1);
if ($zipcode = $zipcodes ? reset($zipcodes) : null) {
$attributes['zipcode'] = $zipcode->zipcode;
$attributes['placeName'] = $zipcode->placeName;
$attributes['state'] = $zipcode->state;
$attributes['country'] = $zipcode->countryCode;
}
}
$stream->setAttribute($attributes);
$stream->save();
$stream->post($user->id, array('type' => 'Places/location/updated', 'content' => '', 'instructions' => $stream->getAllAttributes()), true);
$shouldUnsubscribe = !empty($_REQUEST['unsubscribe']) && isset($oldMiles);
$shouldSubscribe = !empty($_REQUEST['subscribe']);
$noChange = false;
$latitude = $stream->getAttribute('latitude');
$longitude = $stream->getAttribute('longitude');
$miles = $stream->getAttribute('miles');
if ($shouldUnsubscribe and $shouldSubscribe and abs($latitude - $oldLatitude) < 0.0001 and abs($longitude - $oldLongitude) < 0.0001 and abs($miles - $oldMiles) < 0.001) {
$noChange = true;
}
if (!$noChange) {
if ($shouldUnsubscribe or $shouldSubscribe) {
$myInterests = Streams_Category::getRelatedTo($user->id, 'Streams/user/interests', 'Streams/interest');
if (!isset($myInterests)) {
$myInterests = array();
}
}
if ($shouldUnsubscribe) {
// TODO: implement mass unsubscribe
foreach ($myInterests as $weight => $info) {
Places_Nearby::unsubscribe($oldLatitude, $oldLongitude, $oldMiles, $info[0], array('transform' => array('Places_Interest', '_transform'), 'title' => $info[2], 'skipAccess' => true));
}
$attributes['unsubscribed'] = Places_Nearby::unsubscribe($oldLatitude, $oldLongitude, $oldMiles);
}
if ($shouldSubscribe) {
// TODO: implement mass subscribe
foreach ($myInterests as $weight => $info) {
Places_Nearby::subscribe($latitude, $longitude, $miles, $info[0], array('transform' => array('Places_Interest', '_transform'), 'create' => array('Places_Interest', '_create'), 'title' => $info[2], 'skipAccess' => true));
}
$attributes['subscribed'] = Places_Nearby::subscribe($latitude, $longitude, $miles);
}
}
$attributes['stream'] = $stream;
Q_Response::setSlot('attributes', $attributes);
Q::event("Places/geolocation", $attributes, 'after');
}
/**
* Used to set the user's location from geolocation data.
* @class HTTP Places geolocation
* @method post
* @param $_REQUEST
* @param [$_REQUEST.latitude] The new latitude. If set, must also specify longitude.
* @param [$_REQUEST.longitude] The new longitude. If set, must also specify latitude.
* @param [$_REQUEST.zipcode] The new zip code. Can be set instead of latitude, longitude.
* @param [$_REQUEST.miles] The distance around their location around that the user is interested in
* @param [$_REQUEST.subscribe] Whether to subscribe to all the local interests at the new location.
* @param [$_REQUEST.unsubscribe] Whether to unsubscribe from all the local interests at the old location.
* @param [$_REQUEST.accuracy]
* @param [$_REQUEST.altitude]
* @param [$_REQUEST.altitudeAccuracy]
* @param [$_REQUEST.heading]
* @param [$_REQUEST.speed]
* @param [$_REQUEST.timezone]
* @param [$_REQUEST.placeName] optional
* @param [$_REQUEST.state] optional
* @param [$_REQUEST.country] optional
*/
function Places_geolocation_post()
{
$user = Users::loggedInUser(true);
$stream = Places_Location::userStream();
$oldLatitude = $stream->getAttribute('latitude');
$oldLongitude = $stream->getAttribute('longitude');
$oldMiles = $stream->getAttribute('miles');
$fields = array('accuracy', 'altitude', 'altitudeAccuracy', 'heading', 'latitude', 'longitude', 'speed', 'miles', 'zipcode', 'timezone', 'placeName', 'state', 'country');
$attributes = Q::take($_REQUEST, $fields);
if (isset($attributes['latitude']) xor isset($attributes['longitude'])) {
throw new Q_Exception("When specifying latitude,longitude you must specify both", array('latitude', 'longitude'));
}
if (!empty($attributes['zipcode']) and !isset($attributes['latitude'])) {
$z = new Places_Zipcode();
$z->countryCode = 'US';
$z->zipcode = $attributes['zipcode'];
if ($z->retrieve()) {
$attributes['latitude'] = $z->latitude;
$attributes['longitude'] = $z->longitude;
$attributes['country'] = $z->countryCode;
} else {
throw new Q_Exception_MissingRow(array('table' => 'zipcode', 'criteria' => $attributes['zipcode']), 'zipcode');
}
}
$attributes['miles'] = Q::ifset($attributes, 'miles', $stream->getAttribute('miles', Q_Config::expect('Places', 'nearby', 'defaultMiles')));
if (empty($attributes['zipcode']) and isset($attributes['latitude'])) {
$zipcodes = Places_Zipcode::nearby($attributes['latitude'], $attributes['longitude'], $attributes['miles'], 1);
if ($zipcode = $zipcodes ? reset($zipcodes) : null) {
$attributes['zipcode'] = $zipcode->zipcode;
$attributes['placeName'] = $zipcode->placeName;
$attributes['state'] = $zipcode->state;
$attributes['country'] = $zipcode->countryCode;
}
}
$stream->setAttribute($attributes);
$stream->save();
$stream->post($user->id, array('type' => 'Places/location/updated', 'content' => '', 'instructions' => $stream->getAllAttributes()), true);
$shouldUnsubscribe = !empty($_REQUEST['unsubscribe']) && isset($oldMiles);
$shouldSubscribe = !empty($_REQUEST['subscribe']);
$noChange = false;
$latitude = $stream->getAttribute('latitude');
$longitude = $stream->getAttribute('longitude');
$miles = $stream->getAttribute('miles');
if ($shouldUnsubscribe and $shouldSubscribe and abs($latitude - $oldLatitude) < 0.0001 and abs($longitude - $oldLongitude) < 0.0001 and abs($miles - $oldMiles) < 0.001) {
$noChange = true;
}
$attributes['stream'] = $stream;
Q_Response::setSlot('attributes', $attributes);
if (!$noChange) {
// Send the response and keep going.
// WARN: this potentially ties up the PHP thread for a long time
$timeLimit = Q_Config::get('Places', 'geolocation', 'timeLimit', 100000);
ignore_user_abort(true);
set_time_limit($timeLimit);
Q_Dispatcher::response(true);
session_write_close();
if ($shouldUnsubscribe or $shouldSubscribe) {
$myInterests = Streams_Category::getRelatedTo($user->id, 'Streams/user/interests', 'Streams/interests');
if (!isset($myInterests)) {
$myInterests = array();
}
}
if ($shouldUnsubscribe and $oldLatitude and $oldLongitude and $oldMiles) {
$results = array();
foreach ($myInterests as $weight => $info) {
$publisherId = $info[0];
if (!isset($results[$publisherId])) {
$results[$publisherId] = array();
}
$results[$publisherId] = array_merge($results[$publisherId], Places_Interest::streams($publisherId, $oldLatitude, $oldLongitude, $info[2], array('miles' => $oldMiles, 'skipAccess' => true, 'forSubscribers' => true)));
}
foreach ($results as $publisherId => $streams) {
Streams::unsubscribe($user->id, $publisherId, $streams, array('skipAccess' => true));
}
$attributes['unsubscribed'] = Places_Nearby::unsubscribe($oldLatitude, $oldLongitude, $oldMiles);
}
if ($shouldSubscribe) {
$results = array();
foreach ($myInterests as $weight => $info) {
$publisherId = $info[0];
if (!isset($results[$publisherId])) {
$results[$publisherId] = array();
}
$results[$publisherId] = array_merge($results[$publisherId], Places_Interest::streams($publisherId, $latitude, $longitude, $info[2], array('miles' => $miles, 'skipAccess' => true, 'forSubscribers' => true)));
}
foreach ($results as $publisherId => $streams) {
Streams::subscribe($user->id, $publisherId, $streams, array('skipAccess' => true));
}
$attributes['subscribed'] = Places_Nearby::subscribe($latitude, $longitude, $miles);
}
}
Q::event("Places/geolocation", $attributes, 'after');
}
/**
* Call this function to relate a stream to category streams for things happening
* around the given location, about a certain interest.
* @method relateTo
* @static
* @param {string} $publisherId The publisherId of the category streams
* @param {double} $latitude The latitude of the coordinates near which to relate
* @param {double} $longitude The longitude of the coordinates near which to relate
* @param {double} $title The title of the interest, which will be normalized
* @param {string} $fromPublisherId The publisherId of the stream to relate
* @param {string} $fromStreamName The name of the stream to relate
* @param {string} $relationType The type of the relation to add
* @param {array} $options The options to pass to the Streams::relate and Streams::create functions. Also can contain the following options:
* @param {array} [$options.miles] Override the default set of distances found in the config under Places/nearby/miles
* @return {array|boolean} Returns the array of category streams
*/
static function relateTo($publisherId, $latitude, $longitude, $title, $fromPublisherId, $fromStreamName, $options = array())
{
$options = array_merge(array('transform' => array('Places_Interest', '_transform'), 'create' => array('Places_Interest', '_create'), 'title' => $title), $options);
Places_Nearby::relateTo($publisherId, $latitude, $longitude, $fromPublisherId, $fromStreamName, Q::ifset($options, 'relationType', 'Places/interest'), $options);
}
