258 lines
9.1 KiB
PHP
258 lines
9.1 KiB
PHP
<?php
|
|
/**
|
|
* Name: Current Weather
|
|
* Description: Shows current weather conditions for user's location on their network page.
|
|
* Version: 1.1
|
|
* Author: Tony Baldwin <http://friendica.tonybaldwin.info/u/t0ny>
|
|
* Author: Fabio Comuni <http://kirkgroup.com/u/fabrixxm>
|
|
* Author: Tobias Diekershoff <https://f.diekershoff.de/u/tobias>
|
|
*
|
|
*/
|
|
|
|
use Friendica\App;
|
|
use Friendica\Core\Cache;
|
|
use Friendica\Core\Config;
|
|
use Friendica\Core\Hook;
|
|
use Friendica\Core\L10n;
|
|
use Friendica\Core\PConfig;
|
|
use Friendica\Core\Renderer;
|
|
use Friendica\Util\Network;
|
|
use Friendica\Util\Proxy as ProxyUtils;
|
|
|
|
function curweather_install()
|
|
{
|
|
Hook::register('network_mod_init' , 'addon/curweather/curweather.php', 'curweather_network_mod_init');
|
|
Hook::register('addon_settings' , 'addon/curweather/curweather.php', 'curweather_addon_settings');
|
|
Hook::register('addon_settings_post', 'addon/curweather/curweather.php', 'curweather_addon_settings_post');
|
|
}
|
|
|
|
function curweather_uninstall()
|
|
{
|
|
Hook::unregister('network_mod_init' , 'addon/curweather/curweather.php', 'curweather_network_mod_init');
|
|
Hook::unregister('addon_settings' , 'addon/curweather/curweather.php', 'curweather_addon_settings');
|
|
Hook::unregister('addon_settings_post', 'addon/curweather/curweather.php', 'curweather_addon_settings_post');
|
|
}
|
|
|
|
// get the weather data from OpenWeatherMap
|
|
function getWeather($loc, $units = 'metric', $lang = 'en', $appid = '', $cachetime = 0)
|
|
{
|
|
$url = "http://api.openweathermap.org/data/2.5/weather?q=" . $loc . "&appid=" . $appid . "&lang=" . $lang . "&units=" . $units . "&mode=xml";
|
|
$cached = Cache::get('curweather'.md5($url));
|
|
$now = new DateTime();
|
|
|
|
if (!is_null($cached)) {
|
|
$cdate = PConfig::get(local_user(), 'curweather', 'last');
|
|
$cached = unserialize($cached);
|
|
|
|
if ($cdate + $cachetime > $now->getTimestamp()) {
|
|
return $cached;
|
|
}
|
|
}
|
|
|
|
try {
|
|
$res = new SimpleXMLElement(Network::fetchUrl($url));
|
|
} catch (Exception $e) {
|
|
if (empty($_SESSION['curweather_notice_shown'])) {
|
|
info(L10n::t('Error fetching weather data. Error was: '.$e->getMessage()));
|
|
$_SESSION['curweather_notice_shown'] = true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
unset($_SESSION['curweather_notice_shown']);
|
|
|
|
if ((string) $res->temperature['unit'] === 'metric') {
|
|
$tunit = '°C';
|
|
$wunit = 'm/s';
|
|
} else {
|
|
$tunit = '°F';
|
|
$wunit = 'mph';
|
|
}
|
|
|
|
if (trim((string) $res->weather['value']) == trim((string) $res->clouds['name'])) {
|
|
$desc = (string) $res->clouds['name'];
|
|
} else {
|
|
$desc = (string) $res->weather['value'] . ', ' . (string) $res->clouds['name'];
|
|
}
|
|
|
|
$r = [
|
|
'city' => (string) $res->city['name'][0],
|
|
'country' => (string) $res->city->country[0],
|
|
'lat' => (string) $res->city->coord['lat'],
|
|
'lon' => (string) $res->city->coord['lon'],
|
|
'temperature' => (string) $res->temperature['value'][0].$tunit,
|
|
'pressure' => (string) $res->pressure['value'] . (string) $res->pressure['unit'],
|
|
'humidity' => (string) $res->humidity['value'] . (string) $res->humidity['unit'],
|
|
'descripion' => $desc,
|
|
'wind' => (string) $res->wind->speed['name'] . ' (' . (string) $res->wind->speed['value'] . $wunit . ')',
|
|
'update' => (string) $res->lastupdate['value'],
|
|
'icon' => (string) $res->weather['icon'],
|
|
];
|
|
|
|
PConfig::set(local_user(), 'curweather', 'last', $now->getTimestamp());
|
|
Cache::set('curweather'.md5($url), serialize($r), Cache::HOUR);
|
|
|
|
return $r;
|
|
}
|
|
|
|
function curweather_network_mod_init(App $a, &$b)
|
|
{
|
|
if (!intval(PConfig::get(local_user(), 'curweather', 'curweather_enable'))) {
|
|
return;
|
|
}
|
|
|
|
$a->page['htmlhead'] .= '<link rel="stylesheet" type="text/css" href="' . $a->getBaseURL() . '/addon/curweather/curweather.css' . '" media="all" />' . "\r\n";
|
|
|
|
// $rpt value is needed for location
|
|
// $lang will be taken from the browser session to honour user settings
|
|
// TODO $lang does not work if the default settings are used
|
|
// and not all response strings are translated
|
|
// $units can be set in the settings by the user
|
|
// $appid is configured by the admin in the admin panel
|
|
// those parameters will be used to get: cloud status, temperature, preassure
|
|
// and relative humidity for display, also the relevent area of the map is
|
|
// linked from lat/log of the reply of OWMp
|
|
$rpt = PConfig::get(local_user(), 'curweather', 'curweather_loc');
|
|
|
|
// Set the language to the browsers language or default and use metric units
|
|
$lang = defaults($_SESSION, 'language', Config::get('system', 'language'));
|
|
$units = PConfig::get( local_user(), 'curweather', 'curweather_units');
|
|
$appid = Config::get('curweather', 'appid');
|
|
$cachetime = intval(Config::get('curweather', 'cachetime'));
|
|
|
|
if ($units === "") {
|
|
$units = 'metric';
|
|
}
|
|
|
|
$ok = true;
|
|
|
|
$res = getWeather($rpt, $units, $lang, $appid, $cachetime);
|
|
|
|
if ($res === false) {
|
|
$ok = false;
|
|
}
|
|
|
|
if ($ok) {
|
|
$t = Renderer::getMarkupTemplate("widget.tpl", "addon/curweather/" );
|
|
$curweather = Renderer::replaceMacros($t, [
|
|
'$title' => L10n::t("Current Weather"),
|
|
'$icon' => ProxyUtils::proxifyUrl('http://openweathermap.org/img/w/'.$res['icon'].'.png'),
|
|
'$city' => $res['city'],
|
|
'$lon' => $res['lon'],
|
|
'$lat' => $res['lat'],
|
|
'$description' => $res['descripion'],
|
|
'$temp' => $res['temperature'],
|
|
'$relhumidity' => ['caption'=>L10n::t('Relative Humidity'), 'val'=>$res['humidity']],
|
|
'$pressure' => ['caption'=>L10n::t('Pressure'), 'val'=>$res['pressure']],
|
|
'$wind' => ['caption'=>L10n::t('Wind'), 'val'=> $res['wind']],
|
|
'$lastupdate' => L10n::t('Last Updated').': '.$res['update'].'UTC',
|
|
'$databy' => L10n::t('Data by'),
|
|
'$showonmap' => L10n::t('Show on map')
|
|
]);
|
|
} else {
|
|
$t = Renderer::getMarkupTemplate('widget-error.tpl', 'addon/curweather/');
|
|
$curweather = Renderer::replaceMacros( $t, [
|
|
'$problem' => L10n::t('There was a problem accessing the weather data. But have a look'),
|
|
'$rpt' => $rpt,
|
|
'$atOWM' => L10n::t('at OpenWeatherMap')
|
|
]);
|
|
}
|
|
|
|
$a->page['aside'] = $curweather . $a->page['aside'];
|
|
}
|
|
|
|
function curweather_addon_settings_post(App $a, $post)
|
|
{
|
|
if (!local_user() || empty($_POST['curweather-settings-submit'])) {
|
|
return;
|
|
}
|
|
|
|
PConfig::set(local_user(), 'curweather', 'curweather_loc' , trim($_POST['curweather_loc']));
|
|
PConfig::set(local_user(), 'curweather', 'curweather_enable', intval($_POST['curweather_enable']));
|
|
PConfig::set(local_user(), 'curweather', 'curweather_units' , trim($_POST['curweather_units']));
|
|
|
|
info(L10n::t('Current Weather settings updated.') . EOL);
|
|
}
|
|
|
|
function curweather_addon_settings(App $a, &$s)
|
|
{
|
|
if (!local_user()) {
|
|
return;
|
|
}
|
|
|
|
/* Get the current state of our config variable */
|
|
$curweather_loc = PConfig::get(local_user(), 'curweather', 'curweather_loc');
|
|
$curweather_units = PConfig::get(local_user(), 'curweather', 'curweather_units');
|
|
$appid = Config::get('curweather', 'appid');
|
|
|
|
if ($appid == "") {
|
|
$noappidtext = L10n::t('No APPID found, please contact your admin to obtain one.');
|
|
} else {
|
|
$noappidtext = '';
|
|
}
|
|
|
|
$enable = intval(PConfig::get(local_user(), 'curweather', 'curweather_enable'));
|
|
$enable_checked = (($enable) ? ' checked="checked" ' : '');
|
|
|
|
// load template and replace the macros
|
|
$t = Renderer::getMarkupTemplate("settings.tpl", "addon/curweather/" );
|
|
|
|
$s = Renderer::replaceMacros($t, [
|
|
'$submit' => L10n::t('Save Settings'),
|
|
'$header' => L10n::t('Current Weather').' '.L10n::t('Settings'),
|
|
'$noappidtext' => $noappidtext,
|
|
'$info' => L10n::t('Enter either the name of your location or the zip code.'),
|
|
'$curweather_loc' => [ 'curweather_loc', L10n::t('Your Location'), $curweather_loc, L10n::t('Identifier of your location (name or zip code), e.g. <em>Berlin,DE</em> or <em>14476,DE</em>.') ],
|
|
'$curweather_units' => [ 'curweather_units', L10n::t('Units'), $curweather_units, L10n::t('select if the temperature should be displayed in °C or °F'), ['metric'=>'°C', 'imperial'=>'°F']],
|
|
'$enabled' => [ 'curweather_enable', L10n::t('Show weather data'), $enable, '']
|
|
]);
|
|
|
|
return;
|
|
}
|
|
|
|
// Config stuff for the admin panel to let the admin of the node set a APPID
|
|
// for accessing the API of openweathermap
|
|
function curweather_addon_admin_post(App $a)
|
|
{
|
|
if (!is_site_admin()) {
|
|
return;
|
|
}
|
|
|
|
if (!empty($_POST['curweather-submit'])) {
|
|
Config::set('curweather', 'appid', trim($_POST['appid']));
|
|
Config::set('curweather', 'cachetime', trim($_POST['cachetime']));
|
|
|
|
info(L10n::t('Curweather settings saved.' . PHP_EOL));
|
|
}
|
|
}
|
|
|
|
function curweather_addon_admin(App $a, &$o)
|
|
{
|
|
if (!is_site_admin()) {
|
|
return;
|
|
}
|
|
|
|
$appid = Config::get('curweather', 'appid');
|
|
$cachetime = Config::get('curweather', 'cachetime');
|
|
|
|
$t = Renderer::getMarkupTemplate("admin.tpl", "addon/curweather/" );
|
|
|
|
$o = Renderer::replaceMacros($t, [
|
|
'$submit' => L10n::t('Save Settings'),
|
|
'$cachetime' => [
|
|
'cachetime',
|
|
L10n::t('Caching Interval'),
|
|
$cachetime,
|
|
L10n::t('For how long should the weather data be cached? Choose according your OpenWeatherMap account type.'), [
|
|
'0' => L10n::t('no cache'),
|
|
'300' => '5 ' . L10n::t('minutes'),
|
|
'900' => '15 ' . L10n::t('minutes'),
|
|
'1800' => '30 ' . L10n::t('minutes'),
|
|
'3600' => '60 ' . L10n::t('minutes')
|
|
]
|
|
],
|
|
'$appid' => ['appid', L10n::t('Your APPID'), $appid, L10n::t('Your API key provided by OpenWeatherMap')]
|
|
]);
|
|
}
|