#!/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