====Canadian Weather====
Admittedly a rather useless little action, unless of course you're Canadian or travelling here. (Perhaps others can generate similar actions for their locations) Place the file in the actions directory as ##weather.php##. If you just enter the action without any parameters, a list of location codes is produced so that forecasts can be generated. 
%%(php)
<?php
// Weather script Ver 1.0b created by GmBowen for use in wikka wiki as part of a SSHRC research project, released under GPL
// Linked images for the weather/satellite obtained from Environment Canada in accordance with their 
// copyright statement found at http://www.ec.gc.ca/copy_e.html which stipulates that for "non-commercial" purposes 
//  such use of images/information is allowed. You should ensure that your use is in accordance. 
// USE: {{weather location="3letterCode" [forecast="size"] [map="size"]}}. Size can be "small", "medium", or "large".
// User must specify at least a 3 letter code for the location OR a map size. 

if ((!($location)) & (!($map))) { 
?>
<table border="1">
   <tr>
	  <td colspan="4">
	     <p>You must designate at <i>least </i>either a location for
	     the weather forecast (using {{weather
	     location="3lettercode"}}) <b>OR</b>&nbsp;that you want to
	     see a satellite map ({{weather map="yes"}}. You can also
	     designate a size for the forecast and the map {{weather
	     location="yyz" forecast="medium" map="large"}} using either
	     small/medium/large for both. This action works for Canadian locations only. </P>
	  </td>
   </tr>
   <tr>
	  <td valign=top>
	     <P><b>NUNAVUT<br />
	     </b><br />
	     <font size="-1" face="Courier">WLT - Alert<br />
	     XAT - Arctic Bay<br />
	     YEK - Arviat<br />
	     YBK - Baker Lake<br />
	     YCB - Cambridge Bay<br />
	     YTE - Cape Dorset<br />
	     YCS - Chesterfield<br />
	     YCY - Clyde River<br />
	     YZS - Coral Harbour<br />
	     WJC - Ennadai<br />
	     WEU - Eureka<br />
	     YHK - Gjoa Haven<br />
	     WGZ - Grise Fiord<br />
	     YUX - Hall Beach<br />
	     YGT - Igloolik<br />
	     YFB - Iqaluit<br />
	     YLC - Kimmirut<br />
	     YBB - Kugaaruk<br />
	     YCO - Kugluktuk<br />
	     YSR - Nanisivik<br />
	     YXP - Pangnirtung<br />
	     YIO - Pond Inlet<br />
	     YVM - Qikiqtarjuaq<br />
	     YRT - Rankin Inlet<br />
	     YUT - Repulse Bay<br />
	     YRB - Resolute<br />
	     YSK - Sanikiluaq<br />
	     YYH - Taloyoak<br />
	     YXN - Whale Cove<br />
	     </font><br />
	     <b>NORTH WEST TERRITORIES<br />
	     </b><br />
	     <font size="-1" face="Courier">YKD - Aklavik<br />
	     WFX - Colville Lake<br />
	     YWJ - Deline<br />
	     YOA - Ekati<br />
	     YGH - Fort Good Hope<br />
	     WJL - Fort Liard<br />
	     ZFM - Fort McPherson<br />
	     WID - Fort Providence<br />
	     YFR - Fort Resolution<br />
	     YFS - Fort Simpson<br />
	     YSM - Fort Smith<br />
	     YHY - Hay River<br />
	     YHI - Holman<br />
	     WIE - Indin River<br />
	     YEV - Inuvik<br />
	     YLK - Lutselk'e<br />
	     XLL - Nahanni Butte<br />
	     YVQ - Norman Wells<br />
	     YPC - Paulatuk<br />
	     WYH - Rae Lakes<br />
	     YSY - Sachs Harbour<br />
	     WTE - Trout Lake<br />
	     YUB - Tuktoyaktuk<br />
	     ZFN - Tulita<br />
	     WFV - Virginia Falls<br />
	     XLC - Wekweti<br />
	     WMT - Wha Ti<br />
	     YWY - Wrigley<br />
	     YZF - Yellowknife<br />
	     </font><br />
	     <B>YUKON&nbsp;TERRITORIES</B><br />
	     <font size="-1" face="Courier">YXQ - Beaver Creek<br />
	     YDB - Burwash<br />
	     XCK - Carmacks<br />
	     YDA - Dawson City<br />
	     WUM - Faro<br />
	     WHT - Haines Junction<br />
	     YMA - Mayo<br />
	     YOC - Old Crow<br />
	     WRR - Rock River<br />
	     YDM - Ross River<br />
	     WZW - Teslin<br />
	     YQH - Watson Lake<br />
	     YXY - Whitehorse<br />
	     </font><br />
	     <B>ONTARIO<br />
	     <br />
	     </B><font size="-1" face="Courier">NS4 - Alexandria<br />
	     PJ2 - Alliston<br />
	     WYW - Armstrong<br />
	     WCH - Atikokan<br />
	     YAT - Attawapiskat<br />
	     WRK - Bancroft<br />
	     WCU - Barrie<br />
	     NZ4 - Barry's Bay<br />
	     YTL - Big Trout Lake<br />
	     YFD - Brantford<br />
	     WWB - Burlington<br />
	     PG2 - Cambridge<br />
	     YLD - Chapleau<br />
	     WNC - Cobourg<br />
	     WCO - Collingwood<br />
	     WCW - Cornwall<br />
	     PH2 - Deep River<br />
	     YHD - Dryden<br />
	     XEA - Ear Falls<br />
	     YXR - Earlton<br />
	     YEL - Elliot Lake<br />
	     YFA - Fort Albany<br />
	     YAG - Fort Frances<br />
	     YER - Fort Severn<br />
	     NN8 - Gananoque<br />
	     WGD - Goderich<br />
	     YZE - Gore Bay<br />
	     YSB - Greater Sudbury<br />
	     PY3 - Greenstone (Beardmore)<br />
	     YGQ - Greenstone (Geraldton)<br />
	     YQN - Greenstone (Nakina)<br />
	     ND4 - Haliburton<br />
	     YHM - Hamilton<br />
	     PD8 - Hawkesbury<br />
	     YHF - Hearst<br />
	     YHN - Hornepayne<br />
	     PC9 - Huntsville<br />
	     JN3 - Ignace<br />
	     KG8 - Kakabeka Falls<br />
	     YYU - Kapuskasing<br />
	     NF4 - Kawartha Lakes (Lindsay)<br />
	     XKE - Kemptville<br />
	     YQK - Kenora<br />
	     WBE - Killarney<br />
	     YGK - Kingston<br />
	     XKI - Kirkland Lake<br />
	     YKF - Kitchener-Waterloo<br />
	     WLF - Lansdowne House<br />
	     YXU - London<br />
	     YSP - Marathon<br />
	     YKZ - Markham<br />
	     YEE - Midland<br />
	     WGJ - Montreal River<br />
	     YMO - Moosonee<br />
	     NS8 - Morrisburg<br />
	     WLS - Mount Forest<br />
	     YQA - Muskoka<br />
	     PQ3 - Niagara Falls<br />
	     YYB - North Bay<br />
	     PE8 - Oakville<br />
	     NT3 - Ogoki<br />
	     PV2 - Orangeville<br />
	     YOO - Oshawa<br />
	     YOW - Ottawa North (Kanata - Orleans)<br />
	     XPC - Parry Sound<br />
	     WWN - Peawanuck<br />
	     YTA - Pembroke<br />
	     YWA - Petawawa<br />
	     YPQ - Peterborough<br />
	     YPL - Pickle Lake<br />
	     WPC - Port Colborne<br />
	     PX6 - Port Perry<br />
	     YRL - Red Lake<br />
	     PB8 - Rodney<br />
	     WAJ - Rondeau Park (Erieau)<br />
	     ZPB - Sachigo Lake<br />
	     ZSJ - Sandy Lake<br />
	     YZR - Sarnia<br />
	     YAM - Sault Ste. Marie<br />
	     KE7 - Savant Lake<br />
	     NN3 - Shelburne<br />
	     XDI - Simcoe - Delhi<br />
	     YXL - Sioux Lookout<br />
	     KM2 - Sioux Narrows<br />
	     YSH - Smiths Falls<br />
	     YSN - St. Catharines<br />
	     YQS - St. Thomas<br />
	     PJ5 - Stirling<br />
	     PK5 - Stratford<br />
	     YTJ - Terrace Bay<br />
	     YQT - Thunder Bay<br />
	     YTS - Timmins<br />
	     XCY - Tobermory<br />
	     YTZ - Toronto Island<br />
	     YYZ - Toronto<br />
	     YTR - Trenton<br />
	     WDV - Upsala<br />
	     XVN - Vineland<br />
	     YXZ - Wawa<br />
	     YWP - Webequie<br />
	     NR8 - Whitby<br />
	     YVV - Wiarton<br />
	     NA8 - Winchester<br />
	     YQG - Windsor<br />
	     PP5 - Wingham<br />
	     KL3 - Wunnummin Lake<br />
	     </font></p>
	  </td>
	  <td valign=top>
	     <p><b>BRITISH COLUMBIA<br />
	     </b><br />
	     <font size="-2" face="Courier">YXX - Abbotsford<br />
	     WZA - Agassiz<br />
	     YSQ - Atlin<br />
	     YBD - Bella Coola<br />
	     WSV - Blue River (Auto)<br />
	     YCP - Blue River<br />
	     WPZ - Burns Lake<br />
	     AZ5 - Cache Creek<br />
	     YBL - Campbell River<br />
	     YCG - Castlegar<br />
	     YCQ - Chetwynd<br />
	     YCW - Chilliwack<br />
	     WCL - Clinton<br />
	     YQQ - Comox<br />
	     AH3 - Courtenay<br />
	     YXC - Cranbrook<br />
	     WJR - Creston<br />
	     YDQ - Dawson Creek<br />
	     WDL - Dease Lake<br />
	     WPF - Esquimalt<br />
	     WEB - Estevan Point<br />
	     YYE - Fort Nelson<br />
	     YXJ - Fort St John<br />
	     YGE - Golden<br />
	     WLM - Gonzales<br />
	     ZGF - Grand Forks<br />
	     WVV - Hartland<br />
	     WKV - Hope Slide<br />
	     YHE - Hope<br />
	     AA8 - Invermere<br />
	     YKA - Kamloops<br />
	     YLW - Kelowna<br />
	     WKI - Kitimat<br />
	     YZL - Liard River<br />
	     WKF - Lillooet<br />
	     WLY - Lytton<br />
	     YZY - Mackenzie<br />
	     WKH - Malahat<br />
	     ZMT - Masset<br />
	     AV4 - McBride<br />
	     YMB - Merritt<br />
	     WWQ - Muncho Lake<br />
	     WNP - Nakusp<br />
	     YCD - Nanaimo<br />
	     WNM - Nelson<br />
	     WYY - Osoyoos<br />
	     WGP - Pemberton<br />
	     YYF - Penticton<br />
	     WMM - Pitt Meadows<br />
	     WQC - Port Alberni<br />
	     YZT - Port Hardy<br />
	     YPW - Powell River<br />
	     YXS - Prince George<br />
	     YPR - Prince Rupert<br />
	     WPR - Princeton<br />
	     WPU - Puntzi Mountain<br />
	     YQZ - Quesnel<br />
	     YRV - Revelstoke<br />
	     WSL - Salmon Arm<br />
	     YZP - Sandspit<br />
	     YYD - Smithers<br />
	     WSW - Sparwood<br />
	     WSK - Squamish<br />
	     ZST - Stewart<br />
	     WUS - Summerland<br />
	     XTL - Tatlayoko Lake<br />
	     YXT - Terrace<br />
	     WTH - Tetsa River<br />
	     YAZ - Tofino<br />
	     XWF - Trail<br />
	     WYJ - University of Victoria<br />
	     YVR - Vancouver<br />
	     AU4 - Vanderhoof<br />
	     WJV - Vernon<br />
	     YWH - Victoria Harbour<br />
	     YYJ - Victoria<br />
	     WAE - Whistler<br />
	     WWK - White Rock<br />
	     YWL - Williams Lake<br />
	     WYL - Yoho Park<br />
	     <br />
	     </font><b>QUEBEC<br />
	     <br />
	     </b><font size="-1" face="Courier">YTF - Alma<br />
	     YEY - Amos<br />
	     WZS - Amqui<br />
	     YLA - Aupaluk<br />
	     YBG - Bagotville<br />
	     WIS - Baie Saint-Paul<br />
	     YBC - Baie-Comeau<br />
	     WHV - Beauce<br />
	     YBX - Blanc-Sablon<br />
	     WSG - Cap Chat<br />
	     YML - Charlevoix<br />
	     WDM - Chevery<br />
	     YMT - Chibougamau<br />
	     SN7 - Farnham<br />
	     YGP - Gasp&eacute;<br />
	     YND - Gatineau<br />
	     YGV - Havre St-Pierre<br />
	     YGR - &Icirc;les-de-la-Madeleine<br />
	     YPH - Inukjuak<br />
	     YIK - Ivujivik<br />
	     SG3 - Joliette<br />
	     YLU - Kangiqsualujjuaq<br />
	     TMZ - Kangiqsujuaq<br />
	     YAS - Kangirsuk<br />
	     YVP - Kuujjuaq<br />
	     YGW - Kuujjuarapik<br />
	     WEW - L'Assomption<br />
	     YAH - La Grande IV<br />
	     YGL - La Grande Riviere<br />
	     WDQ - La Tuque<br />
	     YHU - Longueuil<br />
	     WDP - Manicouagan<br />
	     WMJ - Maniwaki<br />
	     YNM - Matagami<br />
	     XZS - Matapedia<br />
	     YMX - Mirabel<br />
	     YYY - Mont-Joli<br />
	     WJT - Mont-Tremblant<br />
	     WST - Montmagny<br />
	     YUL - Montr&eacute;al<br />
	     YNA - Natashquan<br />
	     WOC - New-Carlisle<br />
	     WNQ - Nicolet<br />
	     WPQ - Parent<br />
	     WBY - Port Menier<br />
	     YHA - Quaqtaq<br />
	     YQB - Qu&eacute;bec<br />
	     WPD - Reserve Faunique des Laurentides<br />
	     WYQ - Rimouski<br />
	     WNH - Rivi&egrave;re-du-Loup<br />
	     YRJ - Roberval<br />
	     YUY - Rouyn-Noranda<br />
	     WJO - Saguenay<br />
	     WBZ - Salaberry-de-Valleyfield<br />
	     YZG - Salluit<br />
	     YKL - Schefferville<br />
	     YZV - Sept-&Icirc;les<br />
	     XSH - Shawinigan<br />
	     YSC - Sherbrooke<br />
	     WXF - Sutton<br />
	     SZ5 - Tadoussac<br />
	     YTQ - Tasiujaq<br />
	     WTY - Trois-Rivi&egrave;res<br />
	     WBA - T&eacute;miscamingue<br />
	     YMU - Umiujaq<br />
	     YVO - Val-d'Or<br />
	     WHM - Varennes<br />
	     SR3 - Victoriaville<br />
	     YKQ - Waskaganish<br />
	     </FONT><br />
	     </P>
	  </td>
	  <td valign=top>
	     <p><b>ALBERTA<br />
	     <br />
	     </b><font size="-1" face="Courier">WZG - Banff<br />
	     WBM - Beaverlodge<br />
	     WXL - Bow Island<br />
	     WXA - Bow Valley<br />
	     WOV - Breton<br />
	     WBO - Brooks<br />
	     YYC - Calgary<br />
	     WRV - Camrose<br />
	     WDU - Canada Olympic Park<br />
	     WFJ - Cardston<br />
	     WDK - Claresholm<br />
	     YOD - Cold Lake<br />
	     WCT - Coronation<br />
	     WRT - Crowsnest<br />
	     XVG - Drayton Valley (Violet Grove)<br />
	     WDZ - Drumheller<br />
	     YXD - Edmonton City Centre<br />
	     YEG - Edmonton International<br />
	     YET - Edson<br />
	     WFE - Elk Island National Park<br />
	     WGY - Esther<br />
	     YPY - Fort Chipewyan<br />
	     YMM - Fort McMurray<br />
	     WGF - Garden River<br />
	     EQ5 - Grande Cache<br />
	     YQU - Grande Prairie<br />
	     WPA - Hendrickson Creek<br />
	     YOJ - High Level<br />
	     WHA - Highvale<br />
	     WJW - Jasper<br />
	     WLB - Lac La Biche<br />
	     WQQ - Lacombe<br />
	     YQL - Lethbridge<br />
	     YLL - Lloydminster<br />
	     YXH - Medicine Hat<br />
	     WMX - Mildred Lake<br />
	     WRY - Milk River<br />
	     WNR - Nakiska Ridgetop<br />
	     XND - Nordegg<br />
	     WOE - Onefour<br />
	     YPE - Peace River<br />
	     ZPC - Pincher Creek<br />
	     YQF - Red Deer<br />
	     WRD - Red Earth<br />
	     WRM - RockyMtnHouse<br />
	     YZH - Slave Lake<br />
	     WSH - Sousa Creek<br />
	     WXN - Stavely<br />
	     XPS - Stony Plain<br />
	     YSD - Suffield<br />
	     WAV - Sundre<br />
	     WHI - Three Hills<br />
	     WVO - Vauxhall<br />
	     WVI - Vegreville<br />
	     ZWN - Wainwright<br />
	     WGM - Waterton Park<br />
	     YZU - Whitecourt<br />
	     WWO - Willow Creek<br />
	     <br />
	     </font><b>NEW BRUNSWICK<br />
	     </b><br />
	     <font size="-1" face="Courier">WXS - Bas-Caraquet<br />
	     ZBF - Bathurst<br />
	     ZCR - Charlo<br />
	     YCL - Dalhousie<br />
	     CN3 - Edmundston<br />
	     YFC - Fredericton<br />
	     XGM - Grand Manan<br />
	     YCH - Miramichi<br />
	     WMI - Miscou Island<br />
	     YQM - Moncton<br />
	     WPJ - Point Escuminac<br />
	     WPE - Point Lepreau<br />
	     YSJ - Saint John<br />
	     YSL - Saint Leonard<br />
	     WSS - St Stephen<br />
	     <br />
	     </font><b>PRINCE EDWARD ISLAND<br />
	     </b><br />
	     <font size="-1" face="Courier">YYG - Charlottetown<br />
	     WEP - East Point<br />
	     XMP - Maple Plains<br />
	     WNE - North Cape<br />
	     ZSP - St. Peters Bay<br />
	     WSD - Summerside<br />
	     </font><br />
	     <b>NOVA SCOTIA<br />
	     <br />
	     </b><font size="-1" face="Courier">WAH - Amherst<br />
	     WCP - Baccaro Point<br />
	     WBV - Beaver Island<br />
	     WVU - Brier Island<br />
	     WGU - Cape George<br />
	     WBK - Caribou Point<br />
	     XCH - Cheticamp<br />
	     YID - Digby<br />
	     WRW - Fourchu Head<br />
	     WZQ - Grand &Eacute;tang<br />
	     YZX - Greenwood<br />
	     YHZ - Halifax<br />
	     WRN - Hart Island<br />
	     XIB - Ingonish<br />
	     WKG - Kejimkujik Park<br />
	     XKT - Kentville<br />
	     YAU - Liverpool<br />
	     XLB - Lunenburg<br />
	     XMY - Malay Falls<br />
	     XNM - North Mountain(Cape Breton)<br />
	     WNS - Northeast Margaree<br />
	     YPD - Port Hawkesbury<br />
	     YAW - Shearwater<br />
	     YQY - Sydney<br />
	     XTD - Tracadie<br />
	     WUR - Truro<br />
	     WWE - Western Head<br />
	     YQI - Yarmouth<br />
	     </font><br />
	     <b>NEWFOUNDLAND<br />
	     </b><br />
	     <font size="-1" face="Courier">WAR - Argentia<br />
	     WDI - Badger<br />
	     WVA - Bonavista<br />
	     WBF - Burgeo<br />
	     WRA - Cape Race<br />
	     WCA - Cartwright<br />
	     WZB - Channel - Port aux Basques<br />
	     ZUM - Churchill Falls<br />
	     WKB - Corner Brook<br />
	     WDH - Daniel's Harbour<br />
	     YDF - Deer Lake<br />
	     YQX - Gander<br />
	     YYR - Happy Valley-Goose Bay<br />
	     WHO - Hopedale<br />
	     WAG - La Scie<br />
	     YWK - Labrador City<br />
	     YFT - Makkovik<br />
	     XME - Marble Mountain<br />
	     YMH - Mary's Harbour<br />
	     YDP - Nain<br />
	     WYI - Pool's Island<br />
	     XRH - Rocky Harbour<br />
	     YYT - St John's<br />
	     WDS - St Lawrence<br />
	     YAY - St. Anthony<br />
	     YJT - Stephenville<br />
	     XTP - Terra Nova Nat.Prk<br />
	     WDO - Twillingate<br />
	     XWT - Winterland<br />
	     XWR - Wreckhouse<br />
	     </font></p>
	  </td>
	  <td valign=top>
	     <p><b>SASKATCHEWAN<br />
	     <br />
	     </b><font size="-1" face="Courier">WJI - Assiniboia<br />
	     WIK - Broadview<br />
	     YVT - Buffalo Narrows<br />
	     WWC - Collins Bay<br />
	     WAQ - Coronach<br />
	     WVP - Cypress Hills Park<br />
	     WEH - Eastend Cypress<br />
	     WOK - Elbow<br />
	     YEN - Estevan<br />
	     YHB - Hudson Bay<br />
	     WBD - Indian Head<br />
	     YKJ - Key Lake<br />
	     YKY - Kindersley<br />
	     YVC - La Ronge<br />
	     WXG - Last Mountain Lake<br />
	     WJX - Leader<br />
	     WLE - Lucky Lake<br />
	     WMQ - Maple Creek<br />
	     YLJ - Meadow Lake<br />
	     WFF - Melfort<br />
	     ZMJ - Moose Jaw (Auto)<br />
	     YMJ - Moose Jaw<br />
	     YBU - Nipawin<br />
	     YQW - North Battleford<br />
	     WYE - Outlook<br />
	     YPA - Prince Albert<br />
	     YQR - Regina<br />
	     WKO - Rockglen<br />
	     WRJ - Rosetown<br />
	     YXE - Saskatoon<br />
	     WTS - Scott<br />
	     WJH - Southend<br />
	     WSR - Spiritwood West<br />
	     YSF - Stony Rapids<br />
	     YYN - Swift Current<br />
	     WDC - Uranium City<br />
	     WVN - Val Marie<br />
	     WLV - Waskesiu Lake<br />
	     WIW - Watrous<br />
	     WWF - Weyburn<br />
	     WOY - Wynyard<br />
	     YQV - Yorkton<br />
	     <br />
	     </font><b>MANITOBA</b><br />
	     <br />
	     <font size="-1" face="Courier">WRE - Arnes<br />
	     WBL - Bachelors Island<br />
	     YBV - Berens River<br />
	     JB9 - Bissett<br />
	     ZTA - Bloodvein<br />
	     YBR - Brandon<br />
	     YBT - Brochet<br />
	     WZE - Carberry<br />
	     WNK - Carman<br />
	     YYQ - Churchill<br />
	     YDN - Dauphin<br />
	     XDW - Deerwood<br />
	     ZUG - Delta<br />
	     WEX - Emerson<br />
	     WSZ - Fisher Branch<br />
	     YFO - Flin Flon<br />
	     YGX - Gillam<br />
	     YGM - Gimli<br />
	     YGO - Gods Lake<br />
	     WJD - Grand Rapids<br />
	     WGN - Gretna<br />
	     WHH - Hunters Point Marine<br />
	     YIV - Island Lake<br />
	     YLR - Leaf Rapids<br />
	     ZGR - Little Grand Rapids<br />
	     YYL - Lynn Lake<br />
	     WEI - Melita<br />
	     XMD - Morden<br />
	     YNE - Norway House<br />
	     WOJ - Oakpoint Marine<br />
	     YOH - Oxford House<br />
	     WPO - Pilot Mound<br />
	     WEA - Pinawa<br />
	     YPG - Portage la Prairie<br />
	     ZFG - Pukatawagan<br />
	     WXB - Roblin<br />
	     ZTM - Shamattawa<br />
	     WLO - Shilo<br />
	     WUT - Shoal Lake<br />
	     JX5 - Souris<br />
	     WSU - Sprague<br />
	     WEQ - Swan River<br />
	     YBQ - Tadoule Lake<br />
	     YQD - The Pas<br />
	     YTH - Thompson<br />
	     WNT - Turtle Mountain Prov Park<br />
	     WII - Victoria Beach<br />
	     JZ5 - Virden<br />
	     WWP - Wasagaming<br />
	     WOO - Wilson Creek (McCreary)<br />
	     KZ7 - Winkler<br />
	     XWN - Winnipeg at the Forks<br />
	     YWG - Winnipeg<br />
	     ZAC - York Factory</font></p>
	  </td>
   </tr>
</table>
<?php
}
else {
if ($location) {
$url = "http://www.weatheroffice.com/FlashFeed/WxLinks/C".$location.".swf";}

$size=strtolower($size);

if (!($forecast) || $forecast=="medium"){
$width = 260;
$height = 160;
	}
elseif ($forecast=="small") {
$width = 156;
$height = 96;
	}
elseif ($forecast=="large") {
$width = 390;
$height = 240;
	}
else {
$width = 260;
$height = 160;
  }

if (!($map) || $map=="medium"){
$mapwidth = "60%";
$mapheight = "60%";
	}
elseif ($map=="small") {
$mapwidth = "30%";
$mapheight = "30%";
	}
elseif ($map=="large") {
$mapwidth = "100%";
$mapheight = "100%";
	}
else {
$mapwidth = "60%";
$mapheight = "60%";
  }

if ($url)
  echo '<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="'.$width.'" height="'.$height.'">
	    <param name="movie" value="'.$url.'" />
	    <param name="quality" value="high" />
	    <embed src="'.$url.'" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="'.$width.'" height="'.$height.'"></embed></object>';
if ($map) {
echo "<a href=http://meteo.ec.gc.ca/satellite/animateweb_e.html?imagetype=satellite&imagename=goes_nam_1070_m_..................jpg&nbimages=1&clf=1 target='_blank'><img src=http://meteo.ec.gc.ca/data/satellite/goes_nam_1070_100.jpg alt='Satellite Image Map of North America. Provided by Environment Canada & the Government of Canada. Link opens in new window.' width='".$mapwidth."' height='".$mapheight."'></a>";
	}
}
?>
%%

----
CategoryUserContributions