One Hat Cyber Team

Edit File: Metar.php

<?php
/**
 * An applet for the portal screen to display METAR weather data for a
 * specified location (currently airports).
 *
 * @package Horde
 */
class Horde_Block_Metar extends Horde_Core_Block
{
 /**
 */
 public $updateable = true;

/**
     */
    public function __construct($app, $params = array())
    {
        parent::__construct($app, $params);

$this->enabled = (!empty($GLOBALS['conf']['sql']['phptype']) &&
                          class_exists('Services_Weather') &&
                          class_exists('DB'));
        $this->_name = _("Metar Weather");
    }

/**
     */
    protected function _title()
    {
        return _("Current Weather");
    }

/**
     */
    protected function _params()
    {
        $db = $GLOBALS['injector']->getInstance('Horde_Core_Factory_DbPear')->create();

$result = $db->query('SELECT icao, name, country FROM metarAirports ORDER BY country');
        if ($result instanceof PEAR_Error) {
            throw new Horde_Exception($result);
        }

$locations = array();
        while ($row = $result->fetchRow(DB_FETCHMODE_ASSOC)) {
            $locations[$row['country']][$row['icao']] = $row['name'];
        }

return array(
            'location' => array(
                'type' => 'mlenum',
                'name' => _("Location"),
                'default' => 'KSFB',
                'values' => $locations,
            ),
            'units' => array(
                'type' => 'enum',
                'name' => _("Units"),
                'default' => 's',
                'values' => array(
                    's' => _("Standard"),
                    'm' => _("Metric")
                )
            ),
            'knots' => array(
                'type' => 'checkbox',
                'name' => _("Wind speed in knots"),
                'default' => 0
            ),
            'taf' => array(
                'type' => 'checkbox',
                'name' => _("Display forecast (TAF)"),
                'default' => 0
            )
        );
    }

/**
 */
 private function _row($label, $content)
 {
 return ' ' . $label . ': ' . $content;
 }

/**
 */
 private function _sameRow($label, $content)
 {
 return ' ' . $label . ': ' . $content;
 }

/**
     */
    protected function _content()
    {
        global $conf;
        static $metarLocs;

if (empty($this->_params['location'])) {
            throw new Horde_Exception(_("No location is set."));
        }

if (!is_array($metarLocs)) {
            $metarLocs = $this->getParams();
        }

$metar = Services_Weather::service('METAR', array('debug' => 0));
        $metar->setMetarDB($conf['sql']);
        $metar->setUnitsFormat($this->_params['units']);
        $metar->setDateTimeFormat('M j, Y', 'H:i');
        $metar->setMetarSource('http');

$units = $metar->getUnitsFormat($this->_params['units']);
 $weather = $metar->getWeather($this->_params['location']);
 if (is_a($weather, 'PEAR_Error')) {
 $html = $weather->getMessage();
 return $html;
 }
 $html = '<table width="100%" cellspacing="0">' .
 '<tr><td class="control">' .
 sprintf('%s, %s (%s)',
 $metarLocs['location']['values'][$this->_params['__location']][$this->_params['location']],
 $this->_params['__location'],
 $this->_params['location']) .
 '</td></tr></table>' . _("Last Updated:") . ' ' .
 $weather['update'] . ' ';

// Wind.
 if (isset($weather['wind'])) {
 $html .= '' . _("Wind:") . ' ';
 if ($weather['windDirection'] == 'Variable') {
 if (!empty($this->_params['knots'])) {
 $html .= sprintf(_("%s at %s %s"),
 $weather['windDirection'],
 round($metar->convertSpeed($weather['wind'],
 $units['wind'], 'kt')),
 'kt');
 } else {
 $html .= sprintf(_("%s at %s %s"),
 $weather['windDirection'],
 round($weather['wind']),
 $units['wind']);
 }
 } elseif (($weather['windDegrees'] == '000') &&
 ($weather['wind'] == '0')) {
 $html .= sprintf(_("calm"));
 } else {
 $html .= sprintf(_("from the %s (%s) at %s %s"),
 $weather['windDirection'],
 $weather['windDegrees'],
 empty($this->_params['knots']) ?
 round($weather['wind']) :
 round($metar->convertSpeed($weather['wind'], $units['wind'], 'kt')),
 empty($this->_params['knots']) ?
 $units['wind'] :
 'kt');
 }
 }
 if (isset($weather['windGust'])) {
 if ($weather['windGust']) {
 if (!empty($this->_params['knots'])) {
 $html .= sprintf(_(", gusting %s %s"),
 round($metar->convertSpeed($weather['windGust'],
 $units['wind'], 'kt')),
 'kt');
 } else {
 $html .= sprintf(_(", gusting %s %s"),
 round($weather['windGust']),
 $units['wind']);
 }
 }
 }
 if (isset($weather['windVariability'])) {
 if ($weather['windVariability']['from']) {
 $html .= sprintf(_(", variable from %s to %s"),
 $weather['windVariability']['from'],
 $weather['windVariability']['to']);
 }
 }

// Visibility.
        if (isset($weather['visibility'])) {
            $html .= $this->_sameRow(_("Visibility"), $weather['visibility'] . ' ' . $units['vis']);
        }

// Temperature/DewPoint.
        if (isset($weather['temperature'])) {
            $html .= $this->_row(_("Temperature"), round($weather['temperature']) . '&deg;' . Horde_String::upper($units['temp']));
        }
        if (isset($weather['dewPoint'])) {
            $html .= $this->_sameRow(_("Dew Point"), round($weather['dewPoint']) . '&deg;' . Horde_String::upper($units['temp']));
        }
        if (isset($weather['feltTemperature'])) {
            $html .= $this->_sameRow(_("Feels Like"), round($weather['feltTemperature']) . '&deg;' . Horde_String::upper($units['temp']));
        }

// Pressure.
        if (isset($weather['pressure'])) {
            $html .= $this->_row(_("Pressure"), $weather['pressure'] . ' ' . $units['pres']);
        }

// Humidity.
        if (isset($weather['humidity'])) {
            $html .= $this->_sameRow(_("Humidity"), round($weather['humidity']) . '%');
        }

// Clouds.
 if (isset($weather['clouds'])) {
 $clouds = '';
 foreach ($weather['clouds'] as $cloud) {
 $clouds .= ' ';
 if (isset($cloud['height'])) {
 $clouds .= sprintf(_("%s at %s %s"), $cloud['amount'], $cloud['height'], $units['height']);
 } else {
 $clouds .= $cloud['amount'];
 }
 }
 $html .= $this->_row(_("Clouds"), $clouds);
 }

// Conditions.
        if (isset($weather['condition'])) {
            $html .= $this->_row(_("Conditions"), $weather['condition']);
        }

// Remarks.
 if (isset($weather['remark'])) {
 $remarks = '';
 $other = '';
 foreach ($weather['remark'] as $remark => $value) {
 switch ($remark) {
 case 'seapressure':
 $remarks .= ' ' . _("Pressure at sea level: ") . $value . ' ' . $units['pres'];
 break;

case 'precipitation':
 foreach ($value as $precip) {
 if (is_numeric($precip['amount'])) {
 $remarks .= ' ' .
 sprintf(ngettext("Precipitation for last %d hour: ", "Precipitation for last %d hours: ", $precip['hours']),
 $precip['hours']) .
 $precip['amount'] . ' ' . $units['rain'];
 } else {
 $remarks .= ' ' .
 sprintf(ngettext("Precipitation for last %d hour: ", "Precipitation for last %d hours: ", $precip['hours']),
 $precip['hours']) . $precip['amount'];
 }
 }
 break;

case 'snowdepth':
 $remarks .= ' ' . _("Snow depth: ") . $value . ' ' . $units['rain'];
 break;

case 'snowequiv':
 $remarks .= ' ' . _("Snow equivalent in water: ") . $value . ' ' . $units['rain'];
 break;

case 'sunduration':
 $remarks .= ' ' . sprintf(_("%d minutes"), $value);
 break;

case '1htemp':
 $remarks .= ' ' . _("Temp for last hour: ") . round($value) . '&deg;' . Horde_String::upper($units['temp']);
 break;

case '1hdew':
 $remarks .= ' ' . _("Dew Point for last hour: ") . round($value) . '&deg;' . Horde_String::upper($units['temp']);
 break;

case '6hmaxtemp':
 $remarks .= ' ' . _("Max temp last 6 hours: ") . round($value) . '&deg;' . Horde_String::upper($units['temp']);
 break;

case '6hmintemp':
 $remarks .= ' ' . _("Min temp last 6 hours: ") . round($value) . '&deg;' . Horde_String::upper($units['temp']);
 break;

case '24hmaxtemp':
 $remarks .= ' ' . _("Max temp last 24 hours: ") . round($value) . '&deg;' . Horde_String::upper($units['temp']);
 break;

case '24hmintemp':
 $remarks .= ' ' . _("Min temp last 24 hours: ") . round($value) . '&deg;' . Horde_String::upper($units['temp']);
 break;

case 'sensors':
 foreach ($value as $sensor) {
 $remarks .= ' ' .
 _("Sensor: ") . $sensor;
 }
 break;

default:
 $other .= ' ' . $value;
 break;
 }
 }

$html .= $this->_row(_("Remarks"), $remarks . $other);
        }

// TAF
 if (!empty($this->_params['taf'])) {
 $taf = $metar->getForecast($this->_params['location']);
 if (!is_a($taf, 'PEAR_Error')) {
 $forecast = '<table width="100%" cellspacing="0">';
 $forecast .= '<tr><td class="control" colspan="2"><center>' . _("Forecast (TAF)") . '</td></tr></table>';
 $forecast .= 'Valid: ' . $taf['validFrom'] . ' - ' . $taf['validTo'] . ' ';
 $item = 0;
 foreach ($taf['time'] as $time => $entry) {
 $item++;
 $forecast .= '<table width="100%" cellspacing="0">';
 $forecast .= '<tr class="item' . ($item % 2) . '">';
 $forecast .= '<td align="center" width="50">' . $time . '</td><td>Wind: ';
 if (isset($entry['wind'])) {
 if ($entry['windDirection'] == 'Variable') {
 if (!empty($this->_params['knots'])) {
 $forecast .= sprintf(_("%s at %s %s"),
 strtolower($entry['windDirection']),
 round($metar->convertSpeed($entry['wind'],
 $units['wind'], 'kt')),
 'kt');
 } else {
 $forecast .= sprintf(_("%s at %s %s"),
 $entry['windDirection'],
 round($entry['wind']),
 $units['wind']);
 }
 } elseif (($entry['windDegrees'] == '000') &&
 ($entry['wind'] == '0')) {
 $forecast .= sprintf(_("calm"));
 } else {
 $forecast .= sprintf(_("from the %s (%s) at %s %s"),
 $entry['windDirection'],
 $entry['windDegrees'],
 empty($this->_params['knots']) ?
 round($entry['wind']) :
 round($metar->convertSpeed($entry['wind'], $units['wind'], 'kt')),
 empty($this->_params['knots']) ?
 $units['wind'] :
 'kt');
 }
 $forecast .= ' ';
 }
 if (isset($entry['temperatureLow']) || isset($entry['temperatureHigh'])) {
 $forecast .= 'Temperature';
 if (isset($entry['temperatureLow'])) {
 $forecast .= ' Low:';
 $forecast .= $entry['temperatureLow'];
 }
 if (isset($entry['temperatureHigh'])) {
 $forecast .= ' High:';
 $forecast .= $entry['temperatureHigh'];
 }
 $forecast .= ' ';
 }
 if (isset($entry['windshear'])) {
 $forecast .= 'Windshear:';
 $forecast .= sprintf(_("from the %s (%s) at %s %s"),
 $entry['windshearDirection'],
 $entry['windshearDegrees'],
 $entry['windshearHeight'],
 $units['height']);
 $forecast .= ' ';
 }
 if (isset($entry['visibility'])) {
 $forecast .= 'Visibility: ';
 $forecast .= strtolower($entry['visQualifier']) . ' ' . $entry['visibility'] . ' ' . $units['vis'];
 $forecast .= ' ';
 }
 if (isset($entry['condition'])) {
 $forecast .= 'Conditions: ';
 $forecast .= $entry['condition'];
 $forecast .= ' ';
 }
 $forecast .= 'Clouds: ';
 foreach ($entry['clouds'] as $clouds) {
 if (isset($clouds['type'])) {
 $forecast .= ' ' . $clouds['type'];
 }
 $forecast .= ' ' . $clouds['amount'];
 if (isset($clouds['height'])) {
 $forecast .= ' at ' . $clouds['height'] . ' ' . $units['height'];
 } else {
 $forecast .= ' ';
 }
 }
 $forecast .= '</td></tr>';
 if (isset($entry['fmc'])) {
 $item++;
 foreach ($entry['fmc'] as $fmcEntry) {
 $forecast .= '<tr class="item' . ($item % 2) . '">';
 $forecast .= '<td align="center" width="50">';
 $forecast .= '* ' . $fmcEntry['from'] . ' - ' . $fmcEntry['to'] . '</td>';
 $forecast .= '<td>';
 $forecast .= 'Type: ' . $fmcEntry['type'];
 if (isset($fmcEntry['probability'])) {
 $forecast .= ' Prob: ' . $fmcEntry['probability'] . '%';
 }
 if (isset($fmcEntry['condition'])) {
 $forecast .= ' Conditions: ' . $fmcEntry['condition'];
 }
 if (isset($fmcEntry['clouds'])) {
 $forecast .= ' Clouds:';
 foreach ($fmcEntry['clouds'] as $fmcClouds) {
 if (isset($fmcClouds['type'])) {
 $forecast .= ' ' . $fmcClouds['type'];
 }
 if (isset($fmcClouds['height'])) {
 $forecast .= ' ' . $fmcClouds['amount'];
 $forecast .= ' ' . $fmcClouds['height'];
 $forecast .= ' ' . $units['height'];
 } else {
 $forecast .= ' ' . $fmcClouds['amount'];
 }
 }
 }
 if (isset($fmcEntry['visQualifier'])) {
 $forecast .= ' Visibility: ';
 $forecast .= strtolower($fmcEntry['visQualifier']) . ' ';
 $forecast .= $fmcEntry['visibility'] . ' ' . $units['vis'];
 }
 $forecast .= '</td></tr>';
 }
 }

}
 $forecast .= '</table>';

$html .= $forecast;
            }
        }

return $html;
    }

}