$val->db['pave_avg'] = 'M';
} else {
$val->db['pave_avg'] = round($val->db['pave_avg'], 0);
}
$s = sprintf("%5s %52s %2s %7s %8s %2s %4s %5s %5s %4s %4s %4.1d %4s %4s %4s %4s %4s %4s %3s %3s %3s %3s\n", $key, $cities[$key]['name'], $val->db['state'], round($cities[$key]['lat'], 2), round($cities[$key]['lon'], 2), date('d', $val->db['ts'] + 6 * 3600), date('H', $val->db['ts'] + 6 * 3600), $val->db['tmpf'], $val->db['dwpf'], $val->db['drct'], drct2txt($val->db['drct']), $val->db['sknt'], $val->db['rwis_subf'], $val->db['tsf0'], $val->db['tsf1'], $val->db['tsf2'], $val->db['tsf3'], $val->db['pave_avg'], $traffic[$key]["avgspeed0"], $traffic[$key]["avgspeed1"], $traffic[$key]["avgspeed2"], $traffic[$key]["avgspeed3"]);
fwrite($rwis, $s);
}
}
// End of while
fclose($rwis);
$pqstr = "data c 000000000000 wxc/wxc_iadot.txt bogus txt";
$cmd = sprintf("/home/ldm/bin/pqinsert -p '%s' /tmp/wxc_iadot.txt", $pqstr);
system($cmd);
unlink("/tmp/wxc_iadot.txt");
$nt->table = array();
$nt->load_network("IL_RWIS");
$cities = $nt->table;
$mydata = $iem->getNetwork("IL_RWIS");
$rwis = fopen('/tmp/wxc_ildot.txt', 'w');
fwrite($rwis, "Weather Central 001d0300 Surface Data TimeStamp={$tstamp}\n 18\n 6 Station\n 52 CityName\n 2 State\n 7 Lat\n 8 Lon\n 2 Day\n 4 Hour\n 5 AirTemp\n 5 AirDewp\n 4 Wind Direction Degrees\n 4 Wind Direction Text\n 5 Wind Speed\n 5 SubSurface Temp\n 5 P1 Temp\n 5 P2 Temp\n 5 P3 Temp\n 5 P4 Temp\n 5 Pave Ave Temp\n");
$now = time();
while (list($key, $val) = each($mydata)) {
$tdiff = $now - $val->db["ts"];
if ($val->db['tsf0'] == "") {
$val->db['tsf0'] = -99.98999999999999;
}
if ($val->db['tsf1'] == "") {
$val->db['tsf1'] = -99.98999999999999;
}
if ($val->db['tsf2'] == "") {
$val->db['tsf2'] = -99.98999999999999;
