http://qs321.pair.com?node_id=193551

arashi has asked for the wisdom of the Perl Monks concerning the following question:

I'm using the Geo::WeatherNWS module to get METAR data, and it works fine...for the most part. Sometimes when trying to access the server, the script will hang and there doesn't seem to be any timeout check in the module. Is there something I can do that would allow me to set a timeout for the script, so it doesn't hang (I'll probably use the last good values if it fails)?
#!/usr/bin/perl -w use strict; use Geo::WeatherNWS; my $Report=Geo::WeatherNWS::new(); $Report->setservername("weather.noaa.gov"); $Report->setusername("anonymous"); $Report->setpassword('anemailuser@adomain.com'); $Report->setdirectory("/data/observations/metar/stations"); $Report->getreport('kmrj'); print $report;
Thanks in advance for your help
Arashi