#!/usr/bin/perl
# -----------------------------------------------------------------------------#
# --- M E T A R . P L V E R S I O N 4 . 1 2 ---#
# -----------------------------------------------------------------------------#
# Copyrights (C)2000-2004 by Coyote Mediaproductions / WebsiteWeather.com
# Author: K.Dalmeijer / Coyote Mediaproductions
# Website: http://www.websiteweather.com
# E-mail: info@websiteweather.com
# Support e-mail: support@websiteweather.com
# Registration URL:
# http://www.websiteweather.com/purchase.asp
#
# Having trouble getting Metar.pl to work ?
# We have a Remote Installation Service at your disposal. Visit the Support
# section on our website for more information.
#
# -----------------------------------------------------------------------------#
# !! IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT !! #
# -----------------------------------------------------------------------------#
# Before you continue, read the license agreement. You are not allowed to #
# alter the code of this program except for the part above "DO NOT EDIT BELOW #
# THIS LINE". #
# By editing or reverse engineering or disabling this program in any way you #
# are directly violating the terms of the license agreement, and risc being #
# prosecuted. #
# As soon as you register (iow purchase) metar.pl, we will send you a fully #
# functional, non-disabled version via e-mail. #
# -----------------------------------------------------------------------------#
# !! IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT IMPORTANT !! #
# -----------------------------------------------------------------------------#
# *** All METAR and TAF data are provided by the NOAA and NWS. *** #
# We are not responsible for the correctness of this data. #
# -----------------------------------------------------------------------------#
# -----------------------------------------------------------------------------#
# D O N O T E D I T T H I S F I L E ! #
# Y O U S H O U L D C O N F I G U R E M E T A R . P L U S I N G #
# T H E C O N F I G U R A T I O N F I L E C O N F I G . P L #
# -----------------------------------------------------------------------------#
# -----------------------------------------------------------------------------#
use Time::Local;
use CGI qw(:standard);
use POSIX qw(strftime);
use POSIX qw(strtod);
use POSIX qw(exp);
use POSIX qw(sqrt);
use Math::Trig;
$scriptpath = $0;
($BaseDir,$script) = ($scriptpath=~/(.*?)([^\\\/]+)$/);
$BaseDir = './' unless($BaseDir); #fixed in ver. 3.1
require("$BaseDir/config.pl");
# ------------------------------------------------------------------------------
# Set general variables
# ------------------------------------------------------------------------------
$version='4.12 Commercial Edition';
# So, you found it ?
# Our experience has made us believe that some people decide to alter the $version
# variable so this looks like a registered version. Until now, we've always known
# when this happens, and we have taken appropriate action. So think twice. Thanks.
$HTMLHeader="Content-type: text/html\n\n";
$errorheader="$HTMLHeader Metar.pl $version - An error occurred...Metar.pl $version Copyrights (C)2002-2004 by Coyote Mediaproductions.
Oops !
An error ocurred...
";
if (length($TemplateDir)>0){
$TemplateDir="$TemplateDir/";
} else {
$TemplateDir="$BaseDir/templates";
}
if (length($CacheDir)>0){
$CacheDir="$CacheDir/";
} else {
$CacheDir="$BaseDir/cache";
}
$cached=0; $wind_dec_speed="3c696d67207372633d687474703a2f2f7777772e77656273697465776561746865722e6";$wind_dec_speed.="36f6d2f6c6f676f2f20616c743d224d65746172";$wind_dec_speed.="2e706c204576616c756174696f6e202d207777772e77656273697465776561746865722e636f6d223e";$wind_dec_speed=pack("H*",$wind_dec_speed);
# ------------------------------------------------------------------------------
# Display errors
# ------------------------------------------------------------------------------
sub DisplayError{
$errorString=shift(@_);
$errorString=~s/\\/\//g;$errorString=~s/\/\//\//g;
$errorString=~s/\"/\'/g;
if (!@templateErrorPage){
print "$errorheader $errorString