Re: TCPConnect / Current Temperature

This WebDNA talk-list message is from

2004


It keeps the original formatting.
numero = 55229
interpreted = N
texte = Here is a PHP version that supposedly works. I don't know PHP very well so maybe someone can translate it over to WebDNA?? (P.S., this is only the core PHP file) --begin

Weather Port

" METHOD="GET"> ZIP Code:
"); } ELSE { $count = 0; $url = "http://www.weather.com/weather/local/" . $zipcode; while ($count < 1) { ++$count; $fp=fopen($url,"r"); IF (!fp) { echo ("

Couldn't Open Weather.com

"); include ("footer.inc"); exit; } $file=fread($fp,60000); fclose($fp); preg_match("/scroll down for map and 10-day forecast.*/s",$file,$matches); echo ("
"); echo ("
"); $matches[0] = str_replace("
\"\"", "", $matches[0]); $matches[0] = str_replace ("scroll down for map and 10-day forecast", "", $matches[0]); echo ($matches[0]); echo ("
"); echo (""); } } } echo ("
This Script Provided Free By WebWorkz Ware. This, and other free scripts are available at http://www.webworkzware.com.
"); include ("footer.inc"); ?> -- -- =o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o DONOVAN D. BROOKE Eucalyptus Design <-Web Development (specializing in eCommerce), -> <-Graphic Design, and Pre-Press Consultation -> ADDRESS:> Donovan Brooke DBA Eucalyptus Design N2862 Summerville Park Rd. Lodi, WI 53555 PH:> 1.608.592.3567 Web:> http://www.euca.us =o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o ------------------------------------------------------------- This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/ Associated Messages, from the most recent to the oldest:

    
  1. Re: TCPConnect / Current Temperature ( Christer Olsson 2004)
  2. Re: (more) TCPConnect / Current Temperature ( Joe D'Andrea 2004)
  3. Re: TCPConnect / Current Temperature ( Joe D'Andrea 2004)
  4. Re: TCPConnect / Current Temperature ( Clint Davis 2004)
  5. Re: TCPConnect / Current Temperature ( Donovan Brooke 2004)
  6. Re: TCPConnect / Current Temperature ( Christer Olsson 2004)
  7. Re: TCPConnect / Current Temperature ( Christer Olsson 2004)
  8. Re: TCPConnect / Current Temperature ( Rob Marquardt 2004)
  9. Re: TCPConnect / Current Temperature ( Clint Davis 2004)
  10. Re: TCPConnect / Current Temperature ( Donovan Brooke 2004)
  11. Re: TCPConnect / Current Temperature ( Donovan Brooke 2004)
  12. Re: TCPConnect / Current Temperature ( "Sal D'Anna" 2004)
  13. Re: TCPConnect / Current Temperature ( Christer Olsson 2004)
  14. Re: TCPConnect / Current Temperature ( Donovan Brooke 2004)
  15. Re: TCPConnect / Current Temperature ( Donovan Brooke 2004)
  16. Re: TCPConnect / Current Temperature ( devaulw@onebox.com 2004)
  17. Re: TCPConnect / Current Temperature ( devaulw@onebox.com 2004)
  18. Re: TCPConnect / Current Temperature ( Bob Minor 2004)
  19. Re: TCPConnect / Current Temperature ( devaulw@onebox.com 2004)
  20. Re: TCPConnect / Current Temperature ( Donovan Brooke 2004)
  21. Re: TCPConnect / Current Temperature ( Clint Davis 2004)
  22. Re: TCPConnect / Current Temperature ( "Dan Strong" 2004)
  23. Re: TCPConnect / Current Temperature ( Jeff Logan 2004)
  24. TCPConnect / Current Temperature ( Clint Davis 2004)
Here is a PHP version that supposedly works. I don't know PHP very well so maybe someone can translate it over to WebDNA?? (P.S., this is only the core PHP file) --begin

Weather Port

" METHOD="GET"> ZIP Code:
"); } ELSE { $count = 0; $url = "http://www.weather.com/weather/local/" . $zipcode; while ($count < 1) { ++$count; $fp=fopen($url,"r"); IF (!fp) { echo ("

Couldn't Open Weather.com

"); include ("footer.inc"); exit; } $file=fread($fp,60000); fclose($fp); preg_match("/scroll down for map and 10-day forecast.*/s",$file,$matches); echo ("
"); echo ("
"); $matches[0] = str_replace("
\"\"", "", $matches[0]); $matches[0] = str_replace ("scroll down for map and 10-day forecast", "", $matches[0]); echo ($matches[0]); echo ("
"); echo (""); } } } echo ("
This Script Provided Free By WebWorkz Ware. This, and other free scripts are available at http://www.webworkzware.com.
"); include ("footer.inc"); ?> -- -- =o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o DONOVAN D. BROOKE Eucalyptus Design <-Web Development (specializing in eCommerce), -> <-Graphic Design, and Pre-Press Consultation -> ADDRESS:> Donovan Brooke DBA Eucalyptus Design N2862 Summerville Park Rd. Lodi, WI 53555 PH:> 1.608.592.3567 Web:> http://www.euca.us =o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o ------------------------------------------------------------- This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/ Donovan Brooke

DOWNLOAD WEBDNA NOW!

Top Articles:

Talk List

The WebDNA community talk-list is the best place to get some help: several hundred extremely proficient programmers with an excellent knowledge of WebDNA and an excellent spirit will deliver all the tips and tricks you can imagine...

Related Readings:

Performance Issue (2000) There's a bug in the math context ... (1997) too many nested tags ... (1997) emailer settings and control questions (1997) SendTo more emails (1998) Ghostly cached webpage (2000) RE: WebCat and image maps (1997) Picking a random entry from a .db (2001) quotes and truncating? (1997) [format xs] freeze (1997) Running _every_ page through WebCat ? (1997) getchars broken? (1997) Help with Shipping Costs (1997) Email Formatting (1998) Multiple Passwords (1997) international time (1997) Line Feed Character Appended (1998) [Fwd: Rotating Banners ... (was LinkExchange)] (1997) Reinstalling (2001) FlushDatabase Suggestion (1998)