script used at www.fpcsparta.org

#!c:/Perl/bin/Perl.exe # This Script uses Weather::Com v0.3.1 or newer by Thomas Schnucker and is available on www.CPAN.or +g # Author: David J. Pontzer (with plenty of borrowing from Thomas S's examples # Currently in use on http://www.doxanet.net and http://www.fpcsparta.org # I have posted the script as an example / guide to using Weather::Com 0.3.1 # Which has been enhanced to include forecasts and extensive flexible formatting # To use this script place the following line in your html page # <FORM ACTION="/cgi-bin/weather.pl" METHOD="POST" name="Weather" target="_blank" id="Weather"> # and # copy this weather.pl to your cgi-bin directory (or wherever you keep such things) # You may also have to edit the first line of this script to point to your PERL directory # Finally, enter your weather.com partner ID and License below, edit the header texts, and thats i +t # Users enter a city,state, or city,country, or a USA zip code, and click on the "go" button # A new window will pop up and display weather information # Enjoy, djp 3/6/05 use strict; use Weather::Com::Finder; use Data::Dumper; print "Content-type: text/html\n\n"; #Get variables from the form my ($i,$j,$vars,$temp,@pairs,$item,$key,$content); my %fields = (); #hash that contains the inputs from the form read(STDIN,$temp,$ENV{'CONTENT_LENGTH'}); @pairs=split(/&/,$temp); foreach $item(@pairs) { ($key,$content)=split(/=/,$item,2); $content=~tr/+/ /; $content=~s/%(..)/pack("c",hex($1))/ge; $content=~s/\t/ /g; $content=~s/\0//g; #strip nulls $fields{$key}=$content; } $| = 1; ############################## TO BE CONFIGURED BY THE USER ############################## my $PartnerId = ''; # put your weather.com partner ID and Lecense key here my $LicenseKey = ''; #put your license key here my $units = 's'; #set to 'm' for metric # if you need a proxy... maybe with authentication my $Proxy = ''; my $Proxy_User = ''; my $Proxy_Pass = ''; ############################# END OF USER CONFIG AREA ##################################### my $debugmode = 0; my %weatherargs = ( 'partner_id' => $PartnerId, 'license' => $LicenseKey, 'units' => $units, 'debug' => $debugmode, 'proxy' => $Proxy, 'proxy_user' => $Proxy_User, 'proxy_pass' => $Proxy_Pass, ); my $weather_finder = Weather::Com::Finder->new(%weatherargs); my $input = $fields{'name'}; #get the city and state from the form # print header ##################### User's to edit this header area to suit print ""; print " ", "FPC / Doxanet Weather Service", "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbs +p&nbsp&nbsp&nbsp&nbsp"; print " "; print "<input type=\"button\" value=\"Close this window\" onclick=\"self.close()\">"; print " "; #check for a blank entry unless ($input) { print " Sorry, No weather data found "; print "Please enter the city name and state or country separated by a comma "; print "Example: Sparta, NJ "; print "Example: Toronto, Canada "; print "<input type=\"button\" value=\"Close this window\" onclick=\"self.close()\">"; exit } my $locations = $weather_finder->find($input); # if $ws->get_weather() returned 'undef', we haven't found anything... unless ($locations) { print "No weather found for location '$input'", " "; print "Please enter the city name and state or country separated by a comma "; print "Example: Sparta, NJ "; print "Example: Toronto, Canada "; print "<input type=\"button\" value=\"Close this window\" onclick=\"self.close()\">"; exit } print ""; my $uodist = $locations->[0]->units()->distance(); my $uoprecip = $locations->[0]->units()->precipitation(); my $uopress = $locations->[0]->units()->pressure(); my $uotemp = $locations->[0]->units()->temperature(); my $uospeed = $locations->[0]->units()->speed(); foreach my $location ( @{$locations} ) { # current conditions print " Conditions for " . $location->name() . ": Updated: " . $location->current_conditions()->last_updated()->time_ampm()," on ", $location->current_conditions()->last_updated()->formatted("mm\/dd\/yyyy"), " "; print "<hr>"; print " - current conditions: ", $location->current_conditions()->description(), ", ", $location->current_conditions()->temperature(), " deg $uotemp. "; print " - visibilty is about ", $location->current_conditions()->visibility(), " $uodist. "; print " - the current windchill is ", $location->current_conditions()->windchill(), " deg $uotemp. "; print " - the humidity is ", $location->current_conditions()->humidity(), "\%. "; print " - the dewpoint is ", $location->current_conditions()->dewpoint(), " deg $uotemp. "; # all about wind print " - wind speed is ", $location->current_conditions()->wind()->speed(), " $uospeed. "; print " - wind comes from ", $location->current_conditions()->wind()->direction_long(), "."; print " max. gust ", $location->current_conditions()->wind()->maximum_gust(), " $uospeed. "; # all about uv index print " - uv index is ", $location->current_conditions()->uv_index()->index(), "."; print " ... that is ", $location->current_conditions()->uv_index()->description(), ". "; # all about barometric pressure print " - air pressure is ", $location->current_conditions()->pressure()->pressure(), " $uopress."; print " ... tendency ", $location->current_conditions()->pressure()->tendency(), ". "; # print location data print "- ", $location->name(), " is located at: ", $location->latitude(), "deg N latitude, ", $location->longitude(), "deg E longitude "; print " - local time is ", $location->localtime_ampm(), " "; print " - sunrise will be/has been at ", $location->sunrise()->time_ampm(), " "; print " - sunset (am/pm) will be/has been at ", $location->sunset_ampm(), " "; print " - timezone is GMT ", $location->timezone(), " hour(s) "; # Forecast Area print " "; print " Forcast for " . $location->name() . ": "; # forecasts my $forecast = $location->forecast(); my $today = $forecast->day(0); print $today->date()->weekday(), ", ", $today->date()->date(), " "; print "<hr> "; # print "- high for today will be: ", $today->high(), " deg $uotemp. "; # print "- low for today will be: ", $today->low(), " deg $uotemp. "; if ( $today->day() ) { # print "Today's Forcast: "; print "- high for today will be: ", $today->high(), " deg $uotemp. "; print "- conditions: ", $today->day()->conditions(), " "; print "- humidity: ", $today->day()->humidity(), "\% "; print "- chance of precipitation: ", $today->day()->precipitation(), "\% "; print "- wind speed: ", $today->day()->wind()->speed(), " $uospeed. "; print "- max gust: ", $today->day()->wind()->maximum_gust(), " $uospeed. " +; print "- wind dir: ", $today->day()->wind()->direction_long(), " "; # print "- wind dir: ", $today->day()->wind()->direction_degrees(), " "; } print " Tonight: "; print "- low for tonight will be: ", $today->low(), " deg $uotemp. "; print "- conditions: ", $today->night()->conditions(), " "; print "- humidity: ", $today->night()->humidity(), "\% "; print "- chance of precipitation: ", $today->night()->precipitation(), "\% "; print "- wind speed: ", $today->night()->wind()->speed(), "$uospeed. "; print "- max gust: ", $today->night()->wind()->maximum_gust(), "$uospeed. "; print "- wind dir: ", $today->night()->wind()->direction_long(), " "; # print "- wind dir: ", $today->night()->wind()->direction_degrees(), " "; my $tomorrow = $forecast->day(1); print " Tomorrow: "; print $tomorrow->date()->weekday(), ", ", $tomorrow->date()->date(), " "; if ( $tomorrow->high() ) { # print "- high: ", $tomorrow->high(), " deg $uotemp. "; } # print "- low: ", $tomorrow->low(), " deg $uotemp. "; # print "- sunrise: ", $tomorrow->sunrise()->time(), " "; # print "- sunset: ", $tomorrow->sunset()->time(), " "; # print " "; if ( $tomorrow->day() ) { # print "Daytime: "; print "- high: ", $tomorrow->high(), " deg $uotemp. "; print "- conditions: ", $tomorrow->day()->conditions(), " "; print "- humidity: ", $tomorrow->day()->humidity(), "\% "; print "- chance of precipitation: ", $tomorrow->day()->precipitation(), "\% "; print "- wind speed: ", $tomorrow->day()->wind()->speed(), " $uospeed. "; print "- max gust: ", $tomorrow->day()->wind()->maximum_gust(), " $uospeed."; print "- wind dir: ", $tomorrow->day()->wind()->direction_long(), " "; # print "- wind dir: ", $tomorrow->day()->wind()->direction_degrees()," "; } print " Tommorow Night: "; print "- low: ", $tomorrow->low(), " deg $uotemp. "; print "- conditions: ", $tomorrow->night()->conditions(), " "; print "- humidity: ", $tomorrow->night()->humidity(), "\% "; print "- chance of precipitation: ", $tomorrow->night()->precipitation(), "\% "; print "- wind speed: ", $tomorrow->night()->wind()->speed(), " $uospeed. "; print "- max gust: ", $tomorrow->night()->wind()->maximum_gust(), " $uospeed. "; print "- wind dir: ", $tomorrow->night()->wind()->direction_long(), " "; # print "- wind dir: ", $tomorrow->night()->wind()->direction_degrees(), " "; print " <hr> "; print "<input type=\"button\" value=\"Close this window\" onclick=\"self.close()\">"; print " "; print " Long Range Forcast for " . $location->name() . ": </ +b>"; print " <hr> "; #Long Range Forecast for next 10 days or so for (my $i=2; $i<10; $i++) { if ( my $day = $forecast->day($i) ) { #make sure a forecast exists for this +date print "", $day->date()->weekday(), ", ", $day->date()->date(), " "; if ( $day->high() ) { print "- high: ", $day->high(), " deg $uotemp. "; } # print "- low: ", $day->low(), " deg $uotemp. "; # print "- sunrise: ", $day->sunrise()->time(), " "; # print "- sunset: ", $day->sunset()->time(), " "; # print " "; if ( $day->day() ) { #make sure a day forecast exists, these get pulled aft +er dark I think # print "Daytime: "; print "- conditions: ", $day->day()->conditions(), " "; print "- humidity: ", $day->day()->humidity(), "\% "; print "- chance of precipitation: ", $day->day()->precipitation(), + "\% "; print "- wind speed: ", $day->day()->wind()->speed(), " $uospee +d. "; print "- max gust: ", $day->day()->wind()->maximum_gust(), " +$uospeed. "; print "- wind dir: ", $day->day()->wind()->direction_long(), " " +; # print "- wind dir: ", $day->day()->wind()->direction_degrees(),""; } if ( $day->night() ) { #this may not be necessary, but just check to see if + a night forecast is out there print " ", $day->date()->weekday(), " Night: "; print "- low: ", $day->low(), " deg $uotemp. "; print "- conditions: ", $day->night()->conditions(), " "; print "- humidity: ", $day->night()->humidity(), "\% "; print "- chance of precipitation: ", $day->night()->precipitation(), "\ +% "; print "- wind speed: ", $day->night()->wind()->speed(), " $uospeed.< +br>"; print "- max gust: ", $day->night()->wind()->maximum_gust(), " $uo +speed. "; print "- wind dir: ", $day->night()->wind()->direction_long(), " "; # print "- wind dir: ", $day->night()->wind()->direction_degrees(), " +"; print " "; } #end of conditional on night }# end of conditional on date } # end of date loop } #end of location loop #Credits and Closing Section - edit to suit print " "; print "<input type=\"button\" value=\"Close this window\" onclick=\"self.close()\">"; print " Weather data courtesy +of weather.com and PERL Module Weather::Com by Thomas Schnucker";