" . print_r($mtemp,true) . "\n"; $WXSIMpop[$i] = $mtemp[1]; $WXSIMpop[$i] = preg_replace('|less than |i','<',$WXSIMpop[$i]); if ($WXSIMpop[$i] == '<20') {$WXSIMpop[$i] = '10';} if ($WXSIMpop[$i] == 'near 100') { $WXSIMpop[$i] = '100'; } } // extract frost if (preg_match('!with\s+(.*)\s+frost.!is',$WXSIMtext[$i],$mtemp)) { // print "
" . print_r($mtemp,true) . "\n"; $WXSIMfrost[$i] = ucfirst($mtemp[1]) . ' frost'; if ($doTranslate) { // perform optional translation if $Language has entries reset ($Language); // process in order of the file $text = $WXSIMfrost[$i]; foreach ($Language as $key => $replacement) { $text = str_replace($key,$replacement,$text); } $WXSIMfrost[$i] = $text; } } // now look for harshest conditions first.. (in order in -data file if ($doDebug) { $Status .= "\n"; } reset($Conditions); // Do search in load order foreach ($Conditions as $cond => $condrec) { // look for matching condition if ($doDebug) { $Status .= "\n"; } if(preg_match("!$cond!i",$WXSIMtext[$i],$mtemp)) { list($dayicon,$nighticon,$condition) = explode("\t",$condrec); if (preg_match('!chance!i',$condition) and $WXSIMpop[$i] < $minPoP) { if ($doDebug) { $Status .= "\n"; } continue; // skip this one } if (preg_match("|$cond level|i",$WXSIMtext[$i]) and !preg_match("/(chance of $cond|$cond likely|$cond very likely)/i",$WXSIMtext[$i]) ) { if ($doDebug) { $Status .= "\n"; } continue; // skip 'snow level' and 'freezing level' entries } if ($doDebug) { $Status .= "\n"; } $WXSIMcond[$i] = PPget_lang($condition); if (preg_match('|night|i',$WXSIMday[$i])) { $WXSIMicon[$i] = $nighticon; } else { $WXSIMicon[$i] = $dayicon; } break; } } // end of conditions search // look for precipitation amounts reset($Precip); // Do search in load order foreach ($Precip as $pamt => $prec) { // look for matching precipitation amounts if(preg_match("!$pamt!is",$WXSIMtext[$i],$mtemp)) { list($amount,$units) = explode("\t",$prec); $WXSIMprecip[$i] = $amount . ' ' . $units; break; } } // end of precipitation amount search // look for Snow Accumulation reset($Snow); // Do search in load order foreach ($Snow as $pamt => $prec) { // look for matching precipitation amounts if(preg_match("!$pamt!is",$WXSIMtext[$i],$mtemp)) { list($amount,$units) = explode("\t",$prec); $WXSIMprecip[$i] .= "
" . $amount . ' ' . $units . "\n"; break; } } // end of Snow Accumulation amount search // now fix up the full icon name and PoP if available $curicon = $WXSIMicon[$i] . $iconType; if ($WXSIMpop[$i] > 0) { $testicon = preg_replace('|'.$iconType.'|',$WXSIMpop[$i].$iconType,$curicon); // print "
testicon='$testicon'\n"; if (file_exists($iconDir . $testicon)) { $WXSIMicon[$i] = $testicon; } else { $WXSIMicon[$i] = $curicon; } } else { $WXSIMicon[$i] = $curicon; } if ($WXSIMtempdirect[$i] <> '') { $tempdirect = 'up.gif'; if (substr($WXSIMtempdirect[$i],0,1) == 'f') { $tempdirect='down.gif'; } $WXSIMtemp[$i] .= "
\n" . PPget_lang('Hot!') . ""; } if($WXSIMheatidx[$i] <> '') { $WXSIMheatidx[$i] = "".PPget_lang('Heat').": $WXSIMheatidx[$i]$tempDegrees\n"; } if($WXSIMhumidex[$i] <> '') { $WXSIMhumidex[$i] = "".PPget_lang('Hmdx').": $WXSIMhumidex[$i]\n"; } // process Wind-chill if ($WXSIMwindchill[$i] <= $showColdVal and $WXSIMwindchill[$i] <> '') { $WXSIMcond[$i] .= "
\n" . PPget_lang('Cold!') . ""; // $WXSIMicon[$i] = 'cold.jpg'; } if($WXSIMwindchill[$i] <> '') { $WXSIMwindchill[$i] = "".PPget_lang('WCh').": $WXSIMwindchill[$i]$tempDegrees\n"; } if ($WXSIMfrost[$i] <> '') { $WXSIMfrost[$i] = "$WXSIMfrost[$i]\n"; } // make HTML for full icon with condition description $WXSIMicons[$i] = "$WXSIMtitles[$i]
$WXSIMcond[$i]"; } // end of main loop ------------------------- $IncludeMode = false; $PrintMode = true; if (isset($doPrint) && ! $doPrint ) { // print $Status; return; } if (isset($_REQUEST['inc']) && strtolower($_REQUEST['inc']) == 'noprint' ) { print $Status; return; } if (isset($_REQUEST['inc']) && strtolower($_REQUEST['inc']) == 'y') { $IncludeMode = true; } if (isset($doInclude)) { $IncludeMode = $doInclude; } // V1.03 -- set width of
";
print "Testing links for ";
$thisLink = isset($_REQUEST['test'])?'&test='.$_REQUEST['test']:'';
print "lang=$lang ";
print "lang=en
\n";
print $linksList;
print "\n
| >
|
||||||
| > ";} echo $WXSIMupdated; if($doRTL) { echo "";} ?> | ||||||
| > ";} echo $updtime; if($doRTL) { echo "";} ?> | ||||||
|
| $WXSIMday[$i] | \n";
print "$WXSIMtext[$i] | \n"; print "\n"; } ?>
WXSIM forecast using WXSIM .
'.jpg') { } ?>" . ' ' . PPget_lang("Low") .' '; break; case (($uv >= 3) and ($uv < 6)): $uv = "UV: $uv
" . ' ' . PPget_lang("Medium") .' '; break; case (($uv >=6 ) and ($uv < 8)): $uv = "UV: $uv
" . ' ' . PPget_lang("High") .' '; break; case (($uv >=8 ) and ($uv < 11)): $uv = "UV: $uv
" . ' ' . PPget_lang('Very High') . ' '; break; case (($uv >= 11) ): $uv = "UV: $uv
" . ' ' . PPget_lang("Extreme") .' '; break; } // end switch return $uv; } // end get_UVrange // determine Beaufort number based on wind speed and units function PPgetBeaufort ( $wind, $units) { global $showBeaufort,$BeaufortMPH,$BeaufortKPH,$BeaufortKTS,$BeaufortMS,$doDebug,$Status; switch ($units) { case 'mph': $winds = $BeaufortMPH; break; case 'kph': $winds = $BeaufortKPH; break; case 'km/h': $winds = $BeaufortKPH; break; case 'm/s': $winds = $BeaufortMS; break; case 'mps': $winds = $BeaufortMS; break; case 'kts': $winds = $BeaufortKTS; break; default: $winds = $BeaufortMPH; } // end switch $Bft = 0; for ($i=0;$i<12;$i++) { if ($wind < $winds[$i]) { $Bft = $i; break; } } if ($i > 11 and ! $Bft) { $Bft = 12; }; if($doDebug) { $Status .= "\n"; } return($Bft); }// end PPgetBeaufort // perform Beaufort display if desired by showBeaufort setting function PPdisplayBeaufort ($Bft) { global $showBeaufort, $BeaufortText; if ($Bft < 0 or $Bft > 12 ) { return(""); } if ($showBeaufort == 'T') { return( PPget_lang($BeaufortText[$Bft]) ); } if ($showBeaufort == 'V') { return("$Bft Bft"); } return(""); }// end PPdisplayBeaufort ?>