'."\n".''."\n";
}
$g = $_GET[tl];
$g = preg_replace('|<[^>]+>|is','',$g);
if(!preg_match('|nordicweathers|', $_SERVER["SERVER_NAME"])) {
include 'yr_lang.php';
}
if((! is_numeric($g)) && (! in_array($g, $citys))) { $g = $default; }
$dir = strrchr($citys[$g], "/");
$dir = str_replace('/', "", $dir);
$qacacheName = ($cachedir.$dir.".xml");
$URL = ("http://www.yr.no/place/". $citys[$g]."/"); // URL to the ENGLISH page on yr.no where location is
$URLS = $URL . 'varsel.xml';
$extlink = ' 
';
// refresh cached copy of page if needed
// fetch/cache code by Tom at carterlake.org
if ($useC) { $uomtemp = "°C"; } else { $uomtemp = "°F"; }
if ($useKMH) { $uomwind = " km/h"; } else if ($useMPH) { $uomwind = " mph"; } else { $uomwind = " m/s";}
if ($useHPA) { $uombaro = " hPa"; } else { $uombaro = " inHg"; }
if ($useMM) { $uomrain = " mm"; } else { $uomrain = " in"; }
if (file_exists($qacacheName) and filemtime($qacacheName) + $qarefetchSeconds > time()) {
$WhereLoaded = "from cachefile: $qacacheName";
$html = implode('', file($qacacheName));
} else {
$WhereLoaded = "from URL: $URLS";
$html = fetchqaUrlWithoutHanging($URLS);
$fp = fopen($qacacheName, "w");
if($fp) {
list($headers,$content) = explode("\r\n\r\n",$html); // split headers from html
$i = strpos($html,"\r\n\r\n");
$headers = substr($html,0,$i-1);
$content = substr($html,$i+2);
//$content = parseToXML($content);
$content = trim($content);
$write = fputs($fp, $content);
fclose($fp);
} else {
print "\n";
}
}
print "\n";
if(strlen($html) < 50 ) {
print "\n";
return;
}
$test=(file_get_contents($qacacheName));
print "<-- begin test-->\n";
print_r($test);
print "<-- eind test-->\n";
$xml=xml2ary(file_get_contents($qacacheName));
print "<-- begin xml1-->\n";
print_r($xml);
print "<-- eind xml1-->\n";
$xml = $xml['weatherdata'][_c];
print "<-- begin xml2-->\n";
print_r($xml);
print "<-- eind xml2-->\n";
$location = $xml[location];
$credit = $xml[credit];
$city = $location[_c][name][_v];
$country = $location[_c][country][_v];
$alt = $location[_c][location][_a][altitude];
$lat = $location[_c][location][_a][latitude];
$lon = $location[_c][location][_a][longitude];
$off = $location[_c][timezone][_a][utcoffsetMinutes];
$credit = $credit[_c][link][_a][text];
//echo "$lat $lon $off
";
$offset = ($off / 60);
$zenith=90+33/60;
$sunri = date_sunrise(time(), SUNFUNCS_RET_STRING, $lat, $lon, $zenith, $offset);
$sunse = date_sunset(time(), SUNFUNCS_RET_STRING, $lat, $lon, $zenith, $offset);
$sunr = strtotime($sunri);
$suns = strtotime($sunse);
if($sunri == '') { $sunri = "--"; }
if($sunse == '') { $sunse = "--"; }
//echo "$offset $sunr $suns
";
$meta = $xml[meta];
$lupd = $meta[_c][lastupdate][_v];
$lupd = date($longdate, parse_time($lupd));
$nupd = $meta[_c][nextupdate][_v];
$nupd = date($longdate, parse_time($nupd));
$forecasts = $xml[forecast][_c][tabular][_c][time];
$howmany = count($forecasts);
echo "\n";
//echo "$city $country $alt $lupd $nupd
";
$tablehead = '
';
$table = '
' . FORECAST_FOR . ' ' . $city . ', ' . $country . '
|
|
' . LASTUPD . ': ' . $lupd . '
' . NEXTUPD . ': ' . $nupd . '
|
' . PROVIDED_BY . ': 
|
';
$table .= '';
for ($i = 0; $i < $howmany; $i++) {
$validfr = $forecasts[$i][_a][from];
$validfrd = date($datestyle, parse_time($validfr));
$validda = date('w', parse_time($validfr));
$validda = $days[$validda];
$validfrt = date($timestyle, parse_time($validfr));
$validto = $forecasts[$i][_a][to];
$validtot = date($timestyle, parse_time($validto));
$period = $forecasts[$i][_a][period];
$period = $period + 1;
$icon = $forecasts[$i][_c][symbol][_a][number];
$micons = array('1', '2', '3', '5', '6', '7', '8');
$rh = date('H', parse_time($validto));
$sh = date('H', parse_time($validfr));
if ((date('H', $sunr)) > ($rh - 3)) {
$usunrise = 1;
} else if (((date('H', $suns)) < ($sh + 3)) && ($sh > 18)) {
$usunrise = 1;
} else {
$usunrise = 0;
}
if (($usunrise == 1) && (in_array($icon, $micons))) {
$nicon = $icon . 'n.png';
} else {
$nicon = $icon . '.png';
}
$precip = $forecasts[$i][_c][precipitation][_a][value];
$dir = $forecasts[$i][_c][windDirection][_a][code];
$dirname = $forecasts[$i][_c][windDirection][_a][name];
$spd = $forecasts[$i][_c][windSpeed][_a][mps];
$spdname = $forecasts[$i][_c][windSpeed][_a][name];
$temp = $forecasts[$i][_c][temperature][_a][value];
$baro = $forecasts[$i][_c][pressure][_a][value];
if($temp <= 0) {
$tcolor = "below";
} else {
$tcolor = "over";
}
if (!$useC) { $temp = CtoF($temp); }
if ($useMPH) { $spd = MStoMPH($spd); }
if ($useKMH) { $spd = MStoKMH($spd); }
if (!$useHPA) { $baro = HPAtoIN($baro); } else {round($baro);}
if ($useMM) {
if(($precip > 0) && ($precip <= 1)) {
$prc = "< 1 mm";
} else if( $precip > 1) {
$prc = round($precip) . " mm";
} else {
$prc = " ";
}
} else {
$precip = mmToin($precip);
if(($precip > 0) && ($precip <= 0.01)) {
$prc = "< 0.01 in";
} else if( $precip > 0.01) {
$prc = $precip . " in";
} else {
$prc = " ";
}
}
$wind = windspeed($spdname) . ' ' . FROM . ' ' . winddirs(strtolower($dirname)) . '' . WEXT;
$curr = date('d.m.Y', time());
if($curr == $validfrd) {
$day = TODAY;
$ik = 0;
} else if(($i < 1) && ($validfrd <> $curr)) {
$day = TOMORROW;
$ik = 0;
} else {
$day = $validda.'
'.$validfrd;
$ik = 1;
}
$pr = parse_daytime($period);
if ($validfrd <> $vlc) {
$table .= '';
}
if (($validfrd <> $vlc) && ($i > 0) && ($i < 5)) {
$table .= '
' . NEXTFOUR . '
' .$tablehead . '';
}
if (($validfrd <> $vlc) && ($plc == 4) && ($period ==3)) {
$table .= '
' . LASTDAYS . '
' .$tablehead . '';
}
if($i % 2 == 1) {
$bgcolor = "#F7F7F7";
} else {
$bgcolor = "#E8E8E8";
}
if (($validfrd <> $vlc) && ($uh == 1)) { // First line
$table .= '
| ' . $day . ' |
' . $validfrt . ' - ' . $validtot . ' |
 |
' . $temp . $uomtemp . ' |
' . parseTohtml($prc) . ' |
' . $baro . $uombaro . ' |
' . $wind . ' |
' . round($spd) . $uomwind . ' |
';
$uh = 2;
} else if (($validfrd <> $vlc) && ($period == 3)) {
$table .= '
| ' . $day . ' |
|
|
' . $temp . $uomtemp . ' |
' . parseTohtml($prc) . ' |
' . $baro . $uombaro . ' |
' . $wind . ' |
' . round($spd) . $uomwind . ' |
';
} else if (($validfrd <> $vlc) && ($i == 0)) {
$table .= '
| |
' . $validfrt . ' - ' . $validtot . ' |
|
' . $temp . $uomtemp . ' |
' . parseTohtml($prc) . ' |
' . $baro . $uombaro . ' |
' . $wind . ' |
' . round($spd) . $uomwind . ' |
';
} else if (($validfrd <> $vlc)) {
$table .= '
| ' . $day . ' |
' . $validfrt . ' - ' . $validtot . ' |
|
' . $temp . $uomtemp . ' |
' . parseTohtml($prc) . ' |
' . $baro . $uombaro . ' |
' . $wind . ' |
' . round($spd) . $uomwind .' |
';
} else {
$table .= '
| |
' . $validfrt . ' - ' . $validtot . ' |
|
' . $temp . $uomtemp . ' |
' . parseTohtml($prc) . ' |
' . $baro . $uombaro . ' |
' . $wind . ' |
' . round($spd) . $uomwind . ' |
';
}
$plc = $period;
$vlc = $validfrd;
}
$table .= '';
echo $table;
if(!$includemode) {
echo '