--- libgeo-metar-perl-1.15.orig/debian/copyright +++ libgeo-metar-perl-1.15/debian/copyright @@ -0,0 +1,23 @@ +The main website is at: http://idefix.net/~koos/perl/Geo-METAR/ +also: http://search.cpan.org/dist/Geo-METAR + +Upstream Author: Jeremy D. Zawodny , + Koos van den Hout + +Files: * +Copyright: © 1997-2000 Jeremy D. Zawodny + © 2007 Koos van den Hout +License: GPL-2+ + Geo::METAR is covered under the GNU Public License (GPL) version 2 or later. + +Files: debian/* +Copyright: © 2007 Martín Ferrari + © 2007 gregor herrmann + © 2003,2004 Jay Bonci + © 1999,2000 Remi Lefebvre +License: other + It is assumed that maintainers did choose a license compatible with the + software. + +On Debian GNU/Linux systems, the complete text of the GNU General +Public License can be found in /usr/share/common-licenses/GPL file. --- libgeo-metar-perl-1.15.orig/debian/README.Debian +++ libgeo-metar-perl-1.15/debian/README.Debian @@ -0,0 +1,30 @@ +This package differs slightly from the Geo::METAR distribution available at +CPAN. We've applied several patches to make it easier to use, develop, and +test. + +We are accepting more fixes for the module, and you are free to use these +fixes under the same terms as the module itself. Please submit them to the +Debian BTS: + http://bugs.debian.org/libgeo-metar-perl + +Contributors: + Timo Hietanen (#262397) + - also grabs the altimeter setting if it's reported in hectopascals + (Q\d\d\d\d instead of A\d\d\d\d) + - dont's set $self->{MOD} to "AUTO" by default + - tries a bit harder not to mix up weather groups with station identifiers + - Tries to find the visibility information even though $self->{visibility} + isn't defined (information missing from the METAR report). This leads to + a couple of warnings about uninitalized variables. + +A couple of bugs that need fixing, reported by Timo: + +- Unknown METAR group: RESHRA +- Unknown METAR group: R06/P1500UU +- Unknown METAR group: VV002 +- Unknown METAR group: 6000NE +- Unknown METAR group: 24CLRD// +- Unknown METAR group: 2419//95 +- Interprets R24/0650V1400N R06/0800V1200D as temperature 24, dew point 6 +- Convert numerals to numeric (04 -> 4) + --- libgeo-metar-perl-1.15.orig/debian/rules +++ libgeo-metar-perl-1.15/debian/rules @@ -0,0 +1,57 @@ +#!/usr/bin/make -f +# Sample debian/rules that uses debhelper. +# GNU copyright 1997 to 1999 by Joey Hess. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +export PERL_MM_USE_DEFAULT=1 + +PACKAGE = $(shell dh_listpackages) +TMP = $(CURDIR)/debian/$(PACKAGE) +PERL ?= /usr/bin/perl + +include /usr/share/quilt/quilt.make + +build: build-stamp +build-stamp: $(QUILT_STAMPFN) + dh_testdir + $(PERL) Makefile.PL verbose INSTALLDIRS=vendor + $(MAKE) + $(MAKE) test + touch $@ + +clean: unpatch + dh_testdir + dh_testroot + dh_clean build-stamp install-stamp + [ ! -f Makefile ] || $(MAKE) realclean + +install: install-stamp +install-stamp: build-stamp + dh_testdir + dh_testroot + dh_clean -k + dh_installdirs + $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr + touch $@ + +binary-arch:; +binary-indep: build install + dh_testdir + dh_testroot + dh_installdocs + dh_installman + dh_installchangelogs + dh_installexamples examples/* + dh_link + dh_perl + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install --- libgeo-metar-perl-1.15.orig/debian/compat +++ libgeo-metar-perl-1.15/debian/compat @@ -0,0 +1 @@ +5 --- libgeo-metar-perl-1.15.orig/debian/control +++ libgeo-metar-perl-1.15/debian/control @@ -0,0 +1,21 @@ +Source: libgeo-metar-perl +Section: perl +Priority: optional +Maintainer: Debian Perl Group +Uploaders: Jay Bonci , Martín Ferrari +Build-Depends: debhelper (>= 5), quilt +Build-Depends-Indep: perl (>= 5.6.0-16) +Standards-Version: 3.7.3 +Homepage: http://search.cpan.org/dist/Geo-METAR/ +Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libgeo-metar-perl/ +Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libgeo-metar-perl/ + +Package: libgeo-metar-perl +Architecture: all +Depends: ${perl:Depends} +Description: accessing Aviation Weather Information with Perl + Geo::METAR is a Perl module to access and parse aviation weather information + with Perl. + . + Note: This version differs slightly from the version in CPAN. See the file + README.Debian for specific changes --- libgeo-metar-perl-1.15.orig/debian/docs +++ libgeo-metar-perl-1.15/debian/docs @@ -0,0 +1,3 @@ +debian/README.Debian +README +TODO --- libgeo-metar-perl-1.15.orig/debian/changelog +++ libgeo-metar-perl-1.15/debian/changelog @@ -0,0 +1,103 @@ +libgeo-metar-perl (1.15-1) unstable; urgency=low + + * New upstream release, new upstream maintainer. + * debian/docs: removed HACKING. + * debian/copyright: updated CP info, plus new format. + * debian/control: added myself to Uploaders, fixed case in short desc. Fix + incorrect Build-Depends{,-Indep} distribution. + * debian/patches: finally merged all the patches from #304962 and #262397 + with the new upstream release! Also, sent the patches upstream as + CPAN#36708. (Closes: #304962). + + -- Martín Ferrari Fri, 13 Jun 2008 02:42:42 -0300 + +libgeo-metar-perl (1.14-6) UNRELEASED; urgency=low + + [ gregor herrmann ] + * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser + field (source stanza); Homepage field (source stanza). + * Set Maintainer to Debian Perl Group. + * Use dist-based URL in debian/watch. + + [ Martín Ferrari ] + * Moved modifications to the code to a patch file. + * Added quilt stuff. + * debian/control: updated Standards-Version, debhelper version, fixed + depends, and revamped Description. + * debian/rules: rewritten to conform current practices. + + -- gregor herrmann Sat, 01 Dec 2007 18:54:54 +0100 + +libgeo-metar-perl (1.14-5) unstable; urgency=low + + * Change to POD formatting so URL doesn't break oddly (Closes: #272910) + * Make examples executable (Closes: #273082) + + -- Jay Bonci Wed, 27 Oct 2004 14:39:56 -0400 + +libgeo-metar-perl (1.14-4) unstable; urgency=low + + * Adds debian/watch so uscan will actually work + + -- Jay Bonci Sun, 12 Sep 2004 03:11:04 -0400 + +libgeo-metar-perl (1.14-3) unstable; urgency=low + + * Applied final version of Timo Hietanen's patch (Closes: #262397) + - also grabs the altimeter setting if it's reported in hectopascals (Q\d\d\d\d instead of A\d\d\d\d) + - dont's set $self->{MOD} to "AUTO" by default + - tries a bit harder not to mix up weather groups with station identifiers + - recognizes the visibility setting "CAVOK" (ceiling and visibility OK) + * Time Hietanen also submitted a fix to clean up code warnings (Closes: #181407) + - Doesn't recognize the METAR tag dddVddd (d = digit), which defines wind direction's variation. + - Assumes that station ID begins with the letter 'K' (matches /K[A-Z]{3,3}/), while it should match /[A-Z]{4,4}/ + - Tries to find the visibility information even though $self->{visibility} isn't defined (information missing from the METAR report). This leads to a couple of warnings about uninitalized variables. + * Updated test suite to use Test::More instead of Test + + -- Jay Bonci Wed, 11 Aug 2004 01:34:18 -0400 + +libgeo-metar-perl (1.14-2) unstable; urgency=low + + * Updated maintainer address + * Added compat file per debhelper best practices + * Updated rules file to my standard build template + * Updated url in copyright file + * Updated to policy version 3.6.1.0 (No changes, ver. bump only) + + -- Jay Bonci Fri, 10 Oct 2003 16:56:27 -0400 + +libgeo-metar-perl (1.14-1) unstable; urgency=low + + * New Maintainer + * New rules file + * New upstream version + * Updated dependancies to be more in line with policy + * Fixed numerous lintian errors with paths and policy versions + * Un-orphans package. Closes #190193 + * Changed section to perl, now that there is one + + -- Jay Bonci Mon, 28 Apr 2003 15:43:14 -0400 + +libgeo-metar-perl (1.13-2) unstable; urgency=low + + * Fixed a bug with perl 5.6. (Closes: #77299) + + -- Remi Lefebvre Fri, 17 Nov 2000 22:08:17 -0500 + +libgeo-metar-perl (1.13-1) unstable; urgency=low + + * Conform to new policy. + * Fixed a few typos. + * New upstream version. + + -- Remi Lefebvre Fri, 16 Jun 2000 21:46:14 -0400 + +libgeo-metar-perl (1.12-1) unstable; urgency=low + + * Initial Release. + + -- Remi Lefebvre Sun, 14 Nov 1999 15:11:57 -0500 + +Local variables: +mode: debian-changelog +End: --- libgeo-metar-perl-1.15.orig/debian/watch +++ libgeo-metar-perl-1.15/debian/watch @@ -0,0 +1,2 @@ +version=3 +http://search.cpan.org/dist/Geo-METAR/ .*/Geo-METAR-v?([[:digit:]].*)\.tar\.gz --- libgeo-metar-perl-1.15.orig/debian/patches/pressure.patch +++ libgeo-metar-perl-1.15/debian/patches/pressure.patch @@ -0,0 +1,88 @@ +Index: libgeo-metar-perl/METAR.pm +=================================================================== +--- libgeo-metar-perl.orig/METAR.pm ++++ libgeo-metar-perl/METAR.pm +@@ -185,9 +185,9 @@ + + # PRESSURE + # +-# The pressure, or altimeter setting, at the reporting site recorded in +-# inches of mercury (Hg) minus the decimal point. It should always look +-# like (A\d\d\d\d). ++# The pressure, or altimeter setting, at the reporting site recorded in whole ++# hectopascals (starts with a Q) or inches of mercury (Hg) minus the decimal ++# point (starts with an A). It should always look like ([AQ]\d\d\d\d). + # + # KNMI: Q\d\d\d\d pressure in hPa calculated for sea level + +@@ -354,7 +354,8 @@ sub new + $self->{HOURLY_DEW_F} = undef; # hourly dew point, celcius + $self->{HOURLY_DEW_C} = undef; # hourly dew point, fahrenheit + $self->{HOURLY_PRECIP} = undef; # hourly precipitation +- $self->{ALT} = undef; # altimeter setting ++ $self->{ALT} = undef; # altimeter setting (Hg) ++ $self->{ALT_HP} = undef; # altimeter setting (hPa) + $self->{SLP} = undef; # sea level pressure + $self->{REMARKS} = undef; # remarks + +@@ -891,18 +892,14 @@ sub _process + } + + ## +- ## is it an altimeter setting? ++ ## is it an altimeter setting? (in.Hg) + ## + + elsif (($parsestate >= $expect_modifier) and ($parsestate < $expect_remarks) and ($tok =~ /^A(\d\d)(\d\d)$/i)) + { + $self->{alt} = $tok; +- $self->{ALT} = "$1.$2"; +- +- # inches Hg pressure. How imperial can you get +- # conversion using 'units' +- +- $self->{pressure} = 33.863886 * $self->{ALT}; ++ $self->{ALT} = "$1.$2"+0; ++ $self->{ALT_HP} = "$1.$2" * 33.863886; + + print "[$tok] is an altimeter setting.\n" if $self->{debug}; + $parsestate = $expect_recentweather; +@@ -910,14 +907,14 @@ sub _process + } + + ## +- ## is it a pressure? ++ ## is it a pressure? (hPa) + ## + + elsif (($parsestate >= $expect_modifier) and ($parsestate < $expect_remarks) and ($tok =~ /^Q(\d\d\d\d)$/i)) + { + $self->{pressure} = $1; +- +- $self->{ALT} = 0.029529983*$self->{pressure}; ++ $self->{ALT_HP} = $1; ++ $self->{ALT} = 0.029529983 * $self->{pressure}; + print "[$tok] is an air pressure.\n" if $self->{debug}; + $parsestate = $expect_recentweather; + next; +@@ -1378,7 +1375,8 @@ sub dump + print "weather: " . join(', ', @{$self->{weather}}) . "\n"; + print "sky: " . join(', ', @{$self->{sky}}) . "\n"; + print "temp_dew: $self->{temp_dew}\n"; +- print "alt: $self->{ALT}\n"; ++ print "alt: $self->{alt}\n"; ++ print "pressure: $self->{pressure}\n"; + print "slp: $self->{slp}\n"; + print "remarks: " . join (', ', @{$self->{remarks}}) . "\n"; + print "\n"; +@@ -1668,6 +1666,10 @@ Hourly dewpoint, celcius + + Altimeter setting (barometric pressure). + ++=item ALT_HP ++ ++Altimeter setting in hectopascals. ++ + =item REMARKS + + Any remarks in the report. --- libgeo-metar-perl-1.15.orig/debian/patches/series +++ libgeo-metar-perl-1.15/debian/patches/series @@ -0,0 +1,4 @@ +wind.patch +pressure.patch +visibility.patch +various.patch --- libgeo-metar-perl-1.15.orig/debian/patches/various.patch +++ libgeo-metar-perl-1.15/debian/patches/various.patch @@ -0,0 +1,103 @@ +Index: libgeo-metar-perl/METAR.pm +=================================================================== +--- libgeo-metar-perl.orig/METAR.pm ++++ libgeo-metar-perl/METAR.pm +@@ -364,8 +364,7 @@ sub new + # default=METAR + $self->{site} = undef; # the site code (4 chars) + $self->{date_time} = undef; # date/time +- $self->{modifier} = "AUTO"; # the AUTO/COR modifier (if +- # any) default=AUTO ++ $self->{modifier} = undef; # the AUTO/COR modifier + $self->{wind} = undef; # the wind information + $self->{windtype} = undef; # the wind speed type (knots/meterpersecond/kilometersperhour) + $self->{windvar} = undef; # the wind variation +@@ -1431,8 +1430,11 @@ applications. + Here is how you I use the Geo::METAR module. + + One use that I have had for this module is to query the NWS METAR page +-(using the LWP modules) at +-http://weather.noaa.gov/cgi-bin/mgetmetar.pl?cccc=EHSB to get an ++(using the LWP modules) at: ++ ++I ++ ++to get an + up-to-date METAR. Then, I scan thru the output, looking for what looks + like a METAR string (that's not hard in Perl). Oh, EHSB can be any site + location code where there is a reporting station. +Index: libgeo-metar-perl/t/metar.t +=================================================================== +--- libgeo-metar-perl.orig/t/metar.t ++++ libgeo-metar-perl/t/metar.t +@@ -5,59 +5,19 @@ + # Test script for METAR installation. + + use strict; +-use Test; ++use Test::More tests => 7; + +-BEGIN { plan tests => 6 } ++my $modname = "Geo::METAR"; ++my $m; + +-use Geo::METAR; +- +-my %tally = (passed => 0, failed => 0, skipped => 0); +- +-print "Testing METAR.\n"; +- +-my $m = new Geo::METAR; +- +-# Create a new instance. +- +-if (ref $m eq 'Geo::METAR') { +- ok(1); +-} else { +- ok(0); +-} +- +-## +-## Try out one hard-coded example. We need many more of these. +-## +- +-if ($m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014")) { +- ok(1); +-} else { +- ok(0); +-} +- +-if ($m->SITE eq "KFDY") { +- ok(1); +-} else { +- ok(0); +-} +- +-if ($m->DATE eq "25") { +- ok(1); +-} else { +- ok(0); +-} +- +-if ($m->MOD eq "AUTO") { +- ok(1); +-} else { +- ok(0); +-} +- +-if ($m->TEMP_F eq "39.2") { +- ok(1); +-} else { +- ok(0); +-} ++use_ok($modname); ++ok($m = $modname->new()); ++ok(ref $m eq $modname); ++ ++ok($m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014")); ++ok($m->SITE eq "KFDY"); ++ok($m->DATE eq "25"); ++ok($m->TEMP_F eq "39.2"); + + exit; + --- libgeo-metar-perl-1.15.orig/debian/patches/visibility.patch +++ libgeo-metar-perl-1.15/debian/patches/visibility.patch @@ -0,0 +1,22 @@ +Index: libgeo-metar-perl/METAR.pm +=================================================================== +--- libgeo-metar-perl.orig/METAR.pm ++++ libgeo-metar-perl/METAR.pm +@@ -1282,7 +1282,7 @@ sub _process + ## Visibility. + ## + +- { ++ if($self->{visibility}) { + my $vis = $self->{visibility}; + # test for statute miles + if ($vis =~ /SM$/){ +@@ -1290,7 +1290,7 @@ sub _process + if ($vis =~ /M(\d\/\d)/o) { + $self->{VISIBILITY} = "Less than $1 statute miles"; + } else { +- $self->{VISIBILITY} = $vis . " Statute Miles"; ++ $self->{VISIBILITY} = $vis . " statute miles"; + } # end if + # auto metars can have non-directional visibility reports + } elsif (($self->{MOD} eq 'AUTO') and ($vis =~ /(\d+)NDV$/)){ --- libgeo-metar-perl-1.15.orig/debian/patches/wind.patch +++ libgeo-metar-perl-1.15/debian/patches/wind.patch @@ -0,0 +1,210 @@ +Index: libgeo-metar-perl/METAR.pm +=================================================================== +--- libgeo-metar-perl.orig/METAR.pm ++++ libgeo-metar-perl/METAR.pm +@@ -333,9 +333,13 @@ sub new + $self->{WIND_GUST_KTS} = undef; # wind gusts (knots) + $self->{WIND_MPH} = undef; # wind speed (MPH) + $self->{WIND_GUST_MPH} = undef; # wind gusts (MPH) ++ $self->{WIND_MS} = undef; # wind speed (m/s) ++ $self->{WIND_GUST_MS} = undef; # wind gusts (m/s) + $self->{WIND_VAR} = undef; # wind variation (text) + $self->{WIND_VAR_1} = undef; # wind variation (direction 1) + $self->{WIND_VAR_2} = undef; # wind variation (direction 2) ++ $self->{WIND_VAR_ENG_1}= undef; # wind variation (text, direction 1) ++ $self->{WIND_VAR_ENG_2}= undef; # wind variation (text, direction 2) + $self->{VISIBILITY} = undef; # visibility info + $self->{RUNWAY} = [ ]; # runway vis. + $self->{WEATHER} = [ ]; # current weather +@@ -1112,14 +1116,20 @@ sub _process + { + my $wind = $self->{wind}; + my $dir_deg = substr($wind,0,3); ++ my $wind_speed; + my $dir_eng = ""; + my $dir_abb = ""; + ++ $wind_speed = $1 if($wind =~ /...(\d{2,3})/o); + # Check for wind direction + if ($dir_deg =~ /VRB/i) { +- $dir_deg = "Variable"; ++ $dir_deg = $dir_eng = "Variable"; + } else { +- if ($dir_deg < 15) { ++ if ($wind_speed == 0 and $dir_deg == 0) { ++ # Calm wind (00000KT in METAR) ++ $dir_eng = "Calm"; ++ print "wind is calm\n" if $self->{debug}; ++ } elsif ($dir_deg < 15) { + $dir_eng = "North"; + $dir_abb = "N"; + } elsif ($dir_deg < 30) { +@@ -1167,38 +1177,45 @@ sub _process + } elsif ($dir_deg < 345) { + $dir_eng = "North/Northwest"; + $dir_abb = "NNW"; +- } else { ++ } elsif ($dir_deg < 360) { + $dir_eng = "North"; + $dir_abb = "N"; ++ } else { ++ # Shouldn't happen, but if for some reason the METAR ++ # information doesn't contain a reasonable direction... ++ $dir_eng = "undeterminable"; + } + } + + my $kts_speed = undef; + my $mph_speed = undef; ++ my $mps_speed = undef; + + my $kts_gust = ""; + my $mph_gust = ""; ++ my $mps_gust = ""; + + # parse knots + + if ($self->{windtype} == $wt_knots){ + $wind =~ /...(\d\d\d?)/o; + $kts_speed = $1; +- $mph_speed = $kts_speed * 1.1508; +- ++ $mph_speed = $kts_speed * 1.15077945; ++ $mps_speed = $kts_speed * 0.514444444; + + if ($wind =~ /.{5,6}G(\d\d\d?)/o) { + $kts_gust = $1; +- $mph_gust = $kts_gust * 1.1508; ++ $mph_gust = $kts_gust * 1.15077945; ++ $mps_gust = $kts_gust * 0.514444444; + } + # else: parse meters/second + } elsif ($self->{windtype} == $wt_mps){ + $wind=~ /...(\d\d\d?)/o; +- my $mps_speed = $1; ++ $mps_speed = $1; + $kts_speed = $mps_speed * 1.9438445; # units + $mph_speed = $mps_speed * 2.2369363; + if ($wind =~ /\d{5,6}G(\d\d\d?)/o) { +- my $mps_gust = $1; ++ $mps_gust = $1; + $kts_gust = $mps_gust * 1.9438445; + $mph_gust = $mps_gust * 2.2369363; + } +@@ -1208,9 +1225,11 @@ sub _process + + $self->{WIND_KTS} = $kts_speed; + $self->{WIND_MPH} = $mph_speed; ++ $self->{WIND_MS} = $mps_speed; + + $self->{WIND_GUST_KTS} = $kts_gust; + $self->{WIND_GUST_MPH} = $mph_gust; ++ $self->{WIND_GUST_MS} = $mps_gust; + + $self->{WIND_DIR_DEG} = $dir_deg; + $self->{WIND_DIR_ENG} = $dir_eng; +@@ -1226,8 +1245,39 @@ sub _process + { + if ($self->{windvar} =~ /^(\d\d\d)V(\d\d\d)$/){ + $self->{WIND_VAR} = "Varying between $1 and $2"; +- $self->{WIND_VAR_1} = $1; +- $self->{WIND_VAR_2} = $2; ++ $self->{WIND_VAR_1} = $1; ++ $self->{WIND_VAR_2} = $2; ++ my @direction = ( ++ 15 => "North", ++ 30 => "North/Northeast", ++ 60 => "Northeast", ++ 75 => "East/Northeast", ++ 105 => "East", ++ 120 => "East/Southeast", ++ 150 => "Southeast", ++ 165 => "South/Southeast", ++ 195 => "South", ++ 210 => "South/Southwest", ++ 240 => "Southwest", ++ 265 => "West/Southwest", ++ 285 => "West", ++ 300 => "West/Northwest", ++ 330 => "Northwest", ++ 345 => "North/Northwest", ++ 360 => "North", ++ 1000 => "undeterminable"); ++ for(my $x = 0; $x < $#direction; $x += 2) { ++ if($self->{WIND_VAR_1} < $direction[$x]) { ++ $self->{WIND_VAR_ENG_1} = $direction[$x+1]; ++ last; ++ } ++ } ++ for(my $x = 0; $x < $#direction; $x += 2) { ++ if($self->{WIND_VAR_2} < $direction[$x]) { ++ $self->{WIND_VAR_ENG_2} = $direction[$x+1]; ++ last; ++ } ++ } + } + } + +@@ -1322,6 +1372,7 @@ sub dump + print "date_time: $self->{date_time}\n"; + print "modifier: $self->{modifier}\n"; + print "wind: $self->{wind}\n"; ++ print "variable wind: $self->{vrbwind}\n"; + print "visibility: $self->{visibility}\n"; + print "runway: $self->{runway}\n"; + print "weather: " . join(', ', @{$self->{weather}}) . "\n"; +@@ -1503,11 +1554,11 @@ Modifier (AUTO/COR) if any. + + =item WIND_DIR_ENG + +-The current wind direction in english (Southwest, East, North, etc.) ++The current wind direction in English (Southwest, East, North, etc.) + + =item WIND_DIR_ABB + +-The current wind direction in abbreviated english (S, E, N, etc.) ++The current wind direction in abbreviated English (S, E, N, etc.) + + =item WIND_DIR_DEG + +@@ -1521,6 +1572,10 @@ The current wind speed in Knots. + + The current wind speed in Miles Per Hour. + ++=item WIND_MS ++ ++The current wind speed in Metres Per Second. ++ + =item WIND_GUST_KTS + + The current wind gusting speed in Knots. +@@ -1529,6 +1584,10 @@ The current wind gusting speed in Knots. + + The current wind gusting speed in Miles Per Hour. + ++=item WIND_GUST_MS ++ ++The current wind gusting speed in Metres Per Second. ++ + =item WIND_VAR + + The wind variation in English +@@ -1537,10 +1596,18 @@ The wind variation in English + + The first wind variation direction + ++=item WIND_VAR_ENG_1 ++ ++The first wind variation direction in English ++ + =item WIND_VAR_2 + + The second wind variation direction + ++=item WIND_VAR_ENG_2 ++ ++The second wind variation direction in English ++ + =item VISIBILITY + + Visibility information.