function pbuild_make_link(&$p2p_links, $ends, $dist = FALSE)
{
global $wpdb;
$rec = reset($ends);
$name = clb_val('', $rec, RF_NODES_TYPE) . ': ' . clb_val('', $rec, RF_NODES_NAME);
$lat1 = clb_val(0, $rec, 'lat');
$lng1 = clb_val(0, $rec, 'lng');
$pnum1 = clb_val(0, $rec, RF_LINKS_KEY);
$rec = next($ends);
$name .= clb_val('', $rec, RF_NODES_TYPE) . ': ' . clb_val('', $rec, RF_NODES_NAME);
$lat2 = clb_val(0, $rec, 'lat');
$lng2 = clb_val(0, $rec, 'lng');
$pnum2 = clb_val(0, $rec, RF_LINKS_KEY);
//checking for existing links, and specifically any existing walk link
$linkpnum = '';
$makelink = TRUE;
if (isset($p2p_links['nodes'][$pnum1]) && isset($p2p_links['nodes'][$pnum2])) {
//get the list of link_pnums for both nodes and intersect to see if they are already connected
$connections = array_intersect(explode(',', $p2p_links['nodes'][$pnum1]), explode(',', $p2p_links['nodes'][$pnum2]));
$makelink = count($connections) <= 0;
//dont make a link if there is already a direct link
//if there are links see if one of them is a walk link in which case we may want to update it if the ends have moved.
foreach ($connections as $ref) {
if (isset($p2p_links['links'][$ref]['ptype']) && $p2p_links['links'][$ref]['ptype'] == 'walk') {
$linkpnum = $ref;
$makelink = TRUE;
//comment this out if dont want to update walk links
if (isset($p2p_links['links'][$ref]['pt_count']) && $p2p_links['links'][$ref]['pt_count'] > 2) {
$makelink = FALSE;
}
//if the walk link has more than 2 points then
break;
}
}
if (count($connections) > 1 && $linkpnum) {
qlog(__LINE__, 'walk link and other link types', $pnum1, $pnum2, $connections);
}
}
/*
$p2p_links may not include existing "walk" interchanges if there were no routes involving the stops
but to prevent creating duplicates do a search and do nothing if a walk exists
*/
if ($makelink && !$linkpnum) {
$pair = clb_join(array($pnum1, $pnum2), TRUE);
$query = 'SELECT ' . RF_LINKS_KEY . ' FROM ' . RF_LINKS_FROM . ' WHERE ' . RF_LINKS_TYPE . '="walk" AND ' . RF_LINKS_END1 . ' IN ' . $pair . ' AND ' . RF_LINKS_END2 . ' IN ' . $pair;
$check = $wpdb->get_results($query, ARRAY_A);
if (is_array($check) && clb_val('', reset($check), RF_LINKS_KEY)) {
$makelink = FALSE;
}
}
if ($makelink) {
if ($dist === FALSE) {
$dist = pline_surface_dist($lat1, $lng1, $lat2, $lng2);
}
$processed = clb_now_utc();
$query = '';
$query .= ', ' . RF_LINKS_DIST . '=' . $dist * 2;
//double the distance so this is not chosen over actual tracks
$query .= ', ' . RF_LINKS_TIME . '=' . ceil($dist / 80);
//80 meters per minute is about 3 miles per hour
$query .= ', ' . RF_LINKS_MODIFIED . '=' . clb_escape($processed);
$query .= ', ' . RF_LINKS_NAME . '=' . clb_escape($name);
$query .= ', lat=' . round(($lat1 + $lat2) / 2, PT_PRECISION);
$query .= ', lng=' . round(($lng1 + $lng2) / 2, PT_PRECISION);
$points = array();
$points[] = array($lat1, $lng1, 0);
$points[] = array($lat2, $lng2, 0);
if ($polyline = pline_make($points, array('color' => '#00FF00'))) {
$query .= ', ' . RF_LINKS_LINE . '=' . clb_escape(clb_join($polyline, '', '&', '='));
$query .= ', ' . RF_LINKS_POINTS . '=' . clb_escape(clb_blob_enc($points));
}
if ($linkpnum) {
$query = 'UPDATE ' . RF_LINKS_FROM . ' SET ' . trim($query, ', ') . ' WHERE ' . RF_LINKS_KEY . '=' . clb_escape($linkpnum);
} else {
$linkpnum = pbuild_new_pnum(RF_LINKS_FROM, RF_LINKS_KEY);
$query .= ', ' . RF_LINKS_KEY . '=' . clb_escape($linkpnum);
$query .= ', ' . RF_LINKS_CREATED . '=' . clb_escape($processed);
$query .= ', ' . RF_LINKS_END1 . '=' . clb_escape($pnum1);
$query .= ', ' . RF_LINKS_END2 . '=' . clb_escape($pnum2);
$query .= ', ' . RF_LINKS_TYPE . '=' . clb_escape('walk');
$query = 'INSERT INTO ' . RF_LINKS_FROM . ' SET ' . trim($query, ', ');
}
// qlog(__LINE__, $query);
$wpdb->query($query);
}
return $makelink;
}
function pfind_interpret($entries, $mode, &$waypoints, $path, $node_types)
{
global $wpdb;
$result = array();
$result['error'] = 200;
//start optimistically
$result['error_str'] = 'no errors';
$waypoints = array();
if (clb_count($entries) <= 0) {
$result['error'] = 400;
$result['error_str'] = 'no locations received to parse';
return $result;
}
//if only one entry we expect a a "to" separating origin and dest
if (count($entries) == 1) {
$entries = preg_split('/\\s+to\\s+/i', trim(reset($entries)), -1, PREG_SPLIT_NO_EMPTY);
}
if (clb_count($entries) == 1) {
$result['error'] = 400;
$result['error_str'] = 'only one location';
return $result;
}
if (is_file($path)) {
$path = dirname($path);
}
$path = clb_dir($path) . 'metaphones.txt';
//like spelling city
$index = FALSE;
if (is_file($path)) {
$data = file_get_contents($path);
//, FILE_BINARY);
$index = clb_blob_dec($data);
}
$pickone = array();
foreach ($entries as $loc) {
$loc = strtolower($loc);
$sel = FALSE;
$select = 'SELECT ' . RF_NODES_SELECT . ' FROM ' . RF_NODES_FROM . ' ';
//'SELECT pnum, ptype, title, more, lat, lng FROM places ';
$where = ' WHERE ';
//the list of ptypes that will be used to limit the names search
$ptypes = $node_types;
//if more than one mode check if the user has added clarifying name to the name eg "oxford rail"
if (count($ptypes) > 1) {
foreach ($ptypes as $type) {
if (clb_contains($loc, $type)) {
//allow the user to force a mode, by adding the code to the name
$ptypes = array($type);
//replace all other modes
$loc = trim(preg_replace('/\\s*\\b' . preg_quote($type) . '\\b\\s*/i', ' ', $loc));
//remove the signal from the name
}
}
}
//get rid of quotes and escapes
$loc = trim(str_replace(array('\\', '"'), ' ', $loc));
if (preg_match('/^\\s*(-?[\\.\\d]+)\\s*,\\s*(-?[\\.\\d]+)\\s*$/', $loc, $m)) {
//waypoint given as lat/lng pair
//limit search by node types
if (clb_count($ptypes)) {
$where .= ' ' . RF_NODES_TYPE . ' IN ' . clb_join($ptypes, TRUE) . ' AND ';
}
list($junk, $lat, $lng) = $m;
for ($dist = 200; $dist <= 500; $dist += 100) {
$sel = $wpdb->get_results($select . $where . within_rect($lat, $lng, $dist), ARRAY_A);
$sel = clb_rekey($sel, RF_NODES_KEY);
if (clb_count($sel) > 1) {
break;
}
}
if (clb_count($sel) <= 0) {
$result = array('error' => 602, 'error_str' => 'no tranpost node could be found near coordinates ' . $lat . ', ' . $lng);
return $result;
}
} else {
if (preg_match('/^node:\\s*(\\w+)\\s*$/', $loc, $m)) {
//waypoint specified by pnum
$sel = $wpdb->get_results($select . ' WHERE ' . RF_NODES_KEY . '=' . clb_escape($m[1]), ARRAY_A);
$sel = clb_rekey($sel, RF_NODES_KEY);
} else {
if (in_array('rail', $ptypes) && preg_match('/^\\s*(\\w{3})\\s*$/', $loc, $m)) {
//rail station three letter code
$sel = $wpdb->get_results($select . ' WHERE ' . RF_NODES_TYPE . '="rail" AND (extref=' . clb_escape($m[1]) . ' OR ' . RF_NODES_NAME . '=' . clb_escape($m[1]) . ')', ARRAY_A);
$sel = clb_rekey($sel, RF_NODES_KEY);
} else {
/*
the primary key of the sound index structrue is the metaphone. Inside that are ptypes using that saound.
within each ptype there is a list of specific pnums using that sound in the name.
on each first word, get all pnums for that sound and type, on subsequent words intesect with pnums
so that we end up with pnums which have all sounds.
$index[$sound][ptype][] => pnum
*/
$sel = FALSE;
$name = pfind_unify_names($loc);
if (is_array($index)) {
$intersection = FALSE;
$words = preg_split('/\\W+/', $name, -1, PREG_SPLIT_NO_EMPTY);
foreach ($words as $w) {
if ($w == '&') {
$w = 'and';
}
$sound = metaphone($w);
if ($sound && isset($index[$sound])) {
$set = array();
foreach ($index[$sound] as $ptype => $nodes) {
if (in_array($ptype, $ptypes)) {
$set = array_merge($set, $nodes);
}
}
$intersection = !is_array($intersection) ? $set : array_intersect($set, $intersection);
}
}
if (clb_count($intersection)) {
$query = $select . $where . ' ' . RF_NODES_KEY . ' IN ' . clb_join($intersection, TRUE);
$sel = $wpdb->get_results($query, ARRAY_A);
$sel = clb_rekey($sel, RF_NODES_KEY);
}
} else {
$query = $select . $where . ' ' . RF_NODES_NAME . ' LIKE ' . clb_escape($name . '%');
if (clb_count($ptypes)) {
$query .= ' AND ' . RF_NODES_TYPE . ' IN ' . clb_join($ptypes, TRUE);
}
$sel = $wpdb->get_results($query, ARRAY_A);
$sel = clb_rekey($sel, RF_NODES_KEY);
}
//if more than one match scan for common words and remove the matches if they did not contain them
if (clb_count($sel) > 1) {
foreach ($sel as $i => $row) {
//exact match go for it alone
if (strtolower($row[RF_NODES_NAME]) == strtolower($loc)) {
$sel = array($i => $row);
break;
}
//if the full name contains "road" but the requested name does not
//omit this choice to avoid stations like "london road" when looking for london
if (preg_match('/\\b(road)\\b/i', $row[RF_NODES_NAME], $m)) {
if (!clb_contains($loc, $m[1], FALSE)) {
unset($sel[$i]);
}
}
}
}
}
}
}
if (clb_count($sel) <= 0) {
$result = array('error' => 602, 'error_str' => 'no stations with the name ' . $loc);
return $result;
}
$waypoints[] = $sel;
}
return $result;
}
function pline_splice($db, $route, $pnum1 = FALSE, $pnum2 = FALSE, $stopsegs = FALSE)
{
//$route is an array of link pnums
if (!is_array($route) || count($route) == 0) {
qlog(__LINE__, __FUNCTION__, 'bad route', $route, $pnum1, $pnum2);
//exit();
return '';
}
$raw = is_array($stopsegs);
//TRUE => segment end points are points not pnums
if ($raw) {
//in the raw case we have to trim the ends so prepare information we will need
$key1 = pline_arr_match($stopsegs['stoppnums'], $pnum1, $stopsegs['segpnums'], reset($route));
$key1 = reset($key1);
//should only be one match but still need to turn array into single value
$cut1 = clb_val(FALSE, $stopsegs['data'], $key1);
$key2 = pline_arr_match($stopsegs['stoppnums'], $pnum2, $stopsegs['segpnums'], end($route));
$key2 = reset($key2);
//should only be one match but still need to turn array into single value
$cut2 = clb_val(FALSE, $stopsegs['data'], $key2);
}
//load all segs in one hit
$query = 'SELECT ' . RF_LINKS_SELECT . ',' . RF_LINKS_POINTS . ' FROM ' . RF_LINKS_FROM . ' WHERE ' . RF_LINKS_KEY . ' IN ' . clb_join($route, TRUE);
$segs = $db->get_results($query, ARRAY_A);
$segs = clb_rekey($segs, 'pnum');
$last_end1 = $last_end2 = $flip = FALSE;
$flipfirst = FALSE;
//if the first seg is flipped this holds the nubmer of points so we can work out how many to trim
$points = array();
$count = 0;
$max = count($route);
foreach ($route as $seg_pnum) {
$count++;
//so will be 1 on first loop, 2 on second etc
$rec = clb_val(FALSE, $segs, $seg_pnum);
$aoe_text = clb_val('', $rec, RF_LINKS_POINTS);
$aoe_data = pline_pts_arr($aoe_text);
if (!is_array($aoe_data)) {
qlog(__FUNCTION__, __LINE__, 'failed to get points list for route segment', $seg_pnum, $count, $aoe_data);
continue;
}
$this_end1 = clb_val('', $rec, RF_LINKS_END1);
$this_end2 = clb_val('', $rec, RF_LINKS_END2);
$flip = FALSE;
if ($max == 1) {
if ($raw) {
//if the position within the segment of the second point is before the first, then we need to reverse
$flip = isset($cut1['pos']) && isset($cut2['pos']) && $cut2['pos'] < $cut1['pos'];
} else {
if ($pnum1) {
$flip = $this_end2 == $pnum1;
//on a stop to stop link, need to reverse if start pnum is at tail end of link
}
}
if ($flip) {
$flipfirst = count($aoe_data);
}
} else {
if ($count <= 1 || $this_end1 == $last_end2) {
//no action
} else {
if ($count == 2 && $this_end1 == $last_end1) {
$points = array_reverse($points, TRUE);
//TRUE=preserve_keys
$flipfirst = count($points);
} else {
if ($count == 2 && $this_end2 == $last_end1) {
$points = array_reverse($points, TRUE);
//TRUE=preserve_keys
$flipfirst = count($points);
$flip = TRUE;
} else {
$flip = $this_end2 == $last_end2;
}
}
}
}
if ($flip) {
$aoe_data = array_reverse($aoe_data, TRUE);
//TRUE=preserve_keys
list($this_end1, $this_end2) = array($this_end2, $this_end1);
//reverse end points too
}
//check if first point on this seg is same as last point on previous seg and if so remove it
if (count($points) && count($aoe_data)) {
$last = end($points);
$first = reset($aoe_data);
//do an array_pop on the existing points rather than removing the duplicate from $aoe_data since that alters the cutting math on raw segs
if (round($last[0], 5) == round($first[0], 5) && round($last[1], 5) == round($first[1], 5)) {
array_pop($points);
}
}
$points = array_merge($points, $aoe_data);
//$seg_idx[$this_end2] = count($points) - 1;
$last_end1 = $this_end1;
$last_end2 = $this_end2;
}
if ($raw) {
//if the first seg was reversed then we want to keep the number of points on the other side
$pos = is_int($flipfirst) ? $flipfirst - $cut1['pos'] : $cut1['pos'];
//cut off end points and insert the stops own point. If this is duplicate it will be cleaned by polyline later
array_splice($points, 0, $pos, array(array($cut1['lat'], $cut1['lng'], 0)));
//if the last seg was reversed then we want to keep the number of points on the other side
$pos = $flip ? $cut2['pos'] : count($aoe_data) - $cut2['pos'];
//aoe_data still around after last itteration of loop
//cut off end points and insert the stops own point. If this is duplicate it will be cleaned by polyline later
array_splice($points, -$pos, $pos, array(array($cut2['lat'], $cut2['lng'], 0)));
//qlog(__FUNCTION__, __LINE__, $pnum1, $cut1, $pnum2, $cut2);
}
//return array($points, $seg_idx); //not using this because the positions may change when making a polyline and makes returning the points list more cumbersome
return $points;
}
function ajax_request()
{
global $editor_types, $editor_tables;
$xml = '';
$msg = '';
$rec_count = 0;
$db = new wpdb(DB_USER, DB_PASSWORD, DB_NAME, DB_HOST);
$pnum = clb_val(FALSE, $_REQUEST, 'pnum');
if ($new_mark = preg_match('/^b(\\w{7})(\\w{7})/', $pnum, $m)) {
$_REQUEST['lat'] = hexdec($m[1]) / 100000 - 180;
$_REQUEST['lng'] = hexdec($m[2]) / 100000 - 180;
$_REQUEST['coords'] = clb_b64e($_REQUEST['lat']) . clb_b64e($_REQUEST['lng']);
}
$ptype = clb_val(FALSE, $_REQUEST, 'ptype');
//if the ptype is cust, default to the first table and type in the definitions that does or does not have a polyline
if ($ptype == 'cust' && $new_mark) {
foreach ($editor_types as $ptype => $spec) {
if (clb_val(FALSE, $spec, 'polyline') == isset($_REQUEST['polyline'])) {
break;
}
}
}
$table = FALSE;
$prefixes = clb_column($editor_tables, 'prefix');
if ($pnum && preg_match('/^(\\w+)_\\w+$/', $pnum, $m)) {
$table = array_search($m[1], $prefixes);
} else {
if ($ptype) {
$table = clb_val(FALSE, $editor_types, $ptype, 'table');
}
}
$spec = clb_val(FALSE, $editor_tables, $table);
$ajax = clb_val(FALSE, $_REQUEST, 'ajax');
qlog(__LINE__, '>>>>', $ajax, $pnum, $ptype, $table, $new_mark ? 'new' : 'old');
//, $spec);
switch ($ajax) {
case 'show':
$sel = FALSE;
if ($spec) {
$select = clb_val(FALSE, $spec, 'select');
$query = 'SELECT ' . clb_join($select, '`') . ' FROM ' . $table . ' WHERE pnum=' . clb_escape($pnum);
$sel = $db->get_results($query, ARRAY_A);
}
//if not found via pnum, try title in each table.
if (!$sel) {
foreach ($editor_tables as $table => $spec) {
if (($select = clb_val(FALSE, $spec, 'select')) && in_array('title', $select)) {
$query = 'SELECT ' . clb_join($select, '`') . ' FROM ' . $table . ' WHERE title like ' . clb_escape($pnum . '%');
$sel = $db->get_results($query, ARRAY_A);
if ($sel) {
break;
}
}
}
}
if (!$sel) {
$msg = 'No matches found for: ' . $pnum;
} else {
$titles = clb_column($sel, 'title');
$msg = count($sel) . ' matches found: ' . join(', ', $titles);
$rec = reset($sel);
$pnum = clb_val(FALSE, $rec, 'pnum');
$xml .= clb_tag('response', '', '', array_merge(array('type' => 'centre'), array_intersect_key($rec, array('lat' => 0, 'lng' => 0)))) . "\n";
$xml .= refesh_marker($db, $table, $pnum);
$xml .= marker_bubble($db, $spec, $table, $pnum);
}
break;
case 'route_list':
//shows bubble on station showing list of routes
$html = '';
//find the route table and which field(s) hold the stop list
$route_flds = '';
foreach ($editor_tables as $route_tab => $info) {
if ($route_flds = clb_val(FALSE, $info, 'routes')) {
break;
}
}
if (!$route_flds) {
break;
}
$route_flds = explode('/', $route_flds);
//can be more than one field with '/' as a separator
//build query to get route list
$select = clb_val(FALSE, $editor_tables, $route_tab, 'select');
$where = array();
foreach ($route_flds as $fld) {
$where[] = ' (`' . $fld . '` LIKE ' . clb_escape('%' . $pnum . '%') . ')';
}
$query = 'SELECT ' . clb_join(array_merge($select, $route_flds), '`') . ' FROM ' . $route_tab . ' WHERE ' . join(' OR ', $where);
$sel = $db->get_results($query, ARRAY_A);
if (clb_count($sel) == 0) {
$msg = 'There are no routes for node: ' . $pnum;
} else {
$list = '';
$alt = 0;
foreach ($sel as $rec) {
foreach ($route_flds as $pos => $fld) {
$rnum = reset($rec);
$route_key = key($rec);
$script = 'map_ajax(the_map, \'show_route\', {\'pnum\':\'' . $rnum . '\',\'fld\':\'' . $fld . '\', \'stop\':\'' . $pnum . '\'});';
$name = $rnum . ':' . $pos . ': ' . clb_val(FALSE, $rec, 'title');
$list .= clb_tag('li', '', clb_tag('a', $name, '', array('onclick' => $script, 'href' => 'javascript:void(0);')), array('class' => 'alt' . $alt++ % 2));
}
}
$html .= clb_tag('ul', '', $list, array('class' => 'route_list')) . "\n";
$form = clb_tag('form', '', $html, array('id' => 'info_win', 'action' => '', 'method' => 'get', 'onsubmit' => 'return false;')) . "\n";
$xml .= clb_tag('response', '', htmlspecialchars($form), array('type' => 'bubble', 'pnum' => $pnum)) . "\n";
}
break;
case 'new_route':
//create new route
//create new route
case 'route_stop':
//add stop to route
//add stop to route
case 'route_unstop':
//remove stop from route
//remove stop from route
case 'show_route':
//show route
// qlog(__LINE__, $table, $pnum, $spec);
require_once CODE_DIR . 'pline_lib.php';
//scan tables to find routes
foreach ($editor_tables as $table => $info) {
if ($routes = clb_val(FALSE, $info, 'routes')) {
break;
}
}
if (!$routes) {
break;
}
//did not find route table
$routes = explode('/', $routes);
$route_tab = $table;
$select = clb_val(FALSE, $editor_tables, $route_tab, 'select');
$route_key = reset($select);
$stops = FALSE;
$new_route = 'new_route' == $ajax;
if ($new_route) {
$fld = reset($routes);
$newstop = $pnum;
$stopindex = 0;
$list = '';
$title = clb_val(FALSE, $_REQUEST, 'title');
$pnum = new_pnum($db, $table, $route_key);
$ajax = 'route_stop';
} else {
$stopindex = clb_val(FALSE, $_REQUEST, 'stopindex');
//this only come with route_stop and route_unstop
$newstop = clb_val(FALSE, $_REQUEST, 'newstop');
//this only come with route_stop
$fld = clb_val(FALSE, $_REQUEST, 'fld');
$select = array_merge($select, $routes);
//select route record
$query = 'SELECT ' . clb_join($select, '`') . ' FROM ' . $route_tab . ' WHERE ' . $route_key . '=' . clb_escape($pnum);
$sel = $db->get_results($query, ARRAY_A);
$rec = clb_count($sel) ? reset($sel) : FALSE;
$list = clb_val(FALSE, $rec, $fld);
$ptype = clb_val(FALSE, $rec, 'ptype');
$title = clb_val(FALSE, $rec, 'title');
//if (empty($list) && (reset($routes) == $fld) && ($fld
if (empty($list)) {
$newstop = clb_val(FALSE, $_REQUEST, 'stop');
$stopindex = 0;
$ajax = 'route_stop';
}
}
if (preg_match_all('/^(\\w+)\\s+(.*)/m', $list, $m)) {
$stops = $m[1];
}
if (in_array($ajax, array('route_stop', 'route_unstop')) && is_numeric($stopindex)) {
if (!$stops) {
$stops = array(FALSE);
}
//ensure loop runs at least once
$new = '';
foreach ($stops as $i => $stop_pnum) {
if ('route_unstop' == $ajax && $i == $stopindex) {
continue;
}
//skip the stop that is to be deleted
//add the stop on this line
if ($stop_pnum) {
$new .= $m[1][$i] . ' ' . trim($m[2][$i]) . "\n";
}
//add new station if this is the right position
if ('route_stop' == $ajax && $i == $stopindex && $newstop) {
//find maker table via ptype
$table = clb_val(FALSE, $editor_types, $ptype, 'table');
$query = 'SELECT lat, lng, pnum, ptype, title FROM ' . $table . ' WHERE pnum=' . clb_escape($newstop);
$sel = $db->get_results($query, ARRAY_A);
if ($sel) {
$new .= $newstop . ' ' . clb_val('', reset($sel), 'title') . "\n";
}
}
}
if (preg_match_all('/^(\\w+)\\s+(.*)/m', $new, $m)) {
$stops = $m[1];
}
//if forward direction and changing last item update orig, dest and title
$rename = '';
if (reset($routes) == $fld && clb_count($stops) <= $stopindex + 2) {
$orig = reset($m[2]);
$dest = end($m[2]);
$rename .= ', title=' . clb_escape($orig . ' - ' . $dest);
$rename .= ', orig=' . clb_escape($orig);
$rename .= ', dest=' . clb_escape($dest);
}
if ($new_route) {
$query = 'SELECT area, count(*) AS c FROM ' . $route_tab . ' WHERE ptype=' . clb_escape($ptype) . ' GROUP BY area';
$sel = $db->get_results($query, ARRAY_A);
$area = is_array($sel) ? clb_val('', reset($sel), 'area') : '';
$query = '';
$query .= ', ' . $route_key . '=' . clb_escape($pnum);
$query .= ', area=' . clb_escape($area);
$query .= ', ptype=' . clb_escape($ptype);
$query .= ', ' . $fld . '=' . clb_escape($new);
$query .= ', created=' . clb_escape(clb_now_utc());
$query = 'INSERT INTO ' . $route_tab . ' SET ' . trim($query, ', ') . $rename;
} else {
$query = 'UPDATE ' . $route_tab . ' SET ' . $fld . '=' . clb_escape($new) . $rename . ' WHERE ' . $route_key . '=' . clb_escape($pnum);
}
$db->query($query);
}
if ($stops) {
$index = array_search(clb_val(FALSE, $_REQUEST, 'stop'), $stops);
//index of the stop we opened route from
if (is_numeric($stopindex)) {
$index = Min($stopindex + ($newstop ? 1 : 0), clb_count($stops) - 1);
}
//use new index if provided and add one if new stop
if (preg_match('/^(\\w+)_\\w+$/', reset($stops), $m)) {
$table = array_search($m[1], $prefixes);
$spec = clb_val(FALSE, $editor_tables, $table);
$points = array();
$names = array();
$pnums = array();
$query = 'SELECT lat, lng, pnum, ptype, title FROM ' . $table . ' WHERE pnum IN ' . clb_join($stops, TRUE);
$sel = $db->get_results($query, ARRAY_A);
//in theory could be multiple stop instances and need to give points in order so loop on $stops and look up record via xref
$xref = clb_column($sel, 'pnum');
if (clb_count($sel)) {
foreach ($stops as $stop_pnum) {
$rec = clb_val(FALSE, $sel, array_search($stop_pnum, $xref));
$points[] = array($rec['lat'], $rec['lng'], 0);
$names[] = str_replace('|', ',', $rec['title']);
$pnums[] = $rec['pnum'];
$rec['type'] = 'marker';
$xml .= clb_tag('response', '', '', $rec) . "\n";
$rec_count++;
}
}
foreach ($points as $i => $pt) {
if (!is_array($pt)) {
unset($points[$i]);
}
}
//remove non points if there are any
$line = pline_make($points, array('color' => '#FF0000'));
$line['names'] = join('|', $names);
$line['pnums'] = join('|', $pnums);
if ($line) {
$line = clb_join($line, '', '&', '=');
}
$attr = array('type' => 'route_pline', 'pnum' => $pnum, 'title' => $title, 'fld' => $fld, 'ptype' => $ptype, 'index' => $index);
if ($line) {
$xml .= clb_tag('response', '', htmlspecialchars($line), $attr) . "\n";
}
}
} else {
$msg = 'This route (in this direction) has no stops. ';
}
break;
case 'overlays':
if (clb_val(FALSE, $_REQUEST, 'zm') < 9) {
$msg = 'Zoom in to get markers to download.';
} else {
$rect = array();
$rect[] = 'lat >= ' . clb_val(FALSE, $_REQUEST, 'bot');
$rect[] = 'lng >= ' . clb_val(FALSE, $_REQUEST, 'lft');
$rect[] = 'lat <= ' . clb_val(FALSE, $_REQUEST, 'top');
$rect[] = 'lng <= ' . clb_val(FALSE, $_REQUEST, 'rgt');
$qtypes = preg_split('/;/', clb_val(FALSE, $_REQUEST, 'types'), -1, PREG_SPLIT_NO_EMPTY);
$tables = array();
foreach ($qtypes as $ptype) {
$tables[clb_val('bad', $editor_types, $ptype, 'table')][] = $ptype;
}
if (!count($qtypes)) {
$msg = 'No marker types selected.';
} else {
foreach ($tables as $table => $list) {
if ($table != 'bad' && count($list)) {
$prefix = clb_val(FALSE, $editor_tables, $table, 'prefix');
$types = preg_replace('/\\w+_/', '', clb_join($list, TRUE));
$query = '';
$query .= 'SELECT lat, lng, pnum, ptype, title FROM ' . $table . ' WHERE ';
$query .= ' ptype IN ' . $types . ' AND (' . join(' AND ', $rect) . ') ';
$sel = $db->get_results($query, ARRAY_A);
if (clb_count($sel)) {
foreach ($sel as $rec) {
$rec['type'] = 'marker';
if (!in_array($rec['ptype'], $list)) {
$rec['ptype'] = $prefix . '_' . $rec['ptype'];
}
$xml .= clb_tag('response', '', '', $rec) . "\n";
$rec_count++;
}
}
}
}
}
$msg = $rec_count ? count($sel) . ' markers loaded' : 'No markers found.';
if ('purge' == clb_val(FALSE, $_REQUEST, 'purge')) {
$xml .= clb_tag('response', '', '', array('type' => 'purge')) . "\n";
}
}
break;
case 'saveline':
require_once CODE_DIR . 'pline_lib.php';
//fall through
//fall through
case 'save':
//no real validation so just save and close
if (!$spec) {
$msg = 'could not identify the marker type.';
break;
}
//('polyline'=>'line', 'select'=>' lat, lng, pnum, ptype, title, line, aoe_data')
if ($new_mark) {
$pnum = new_pnum($db, $table);
}
//get field names and types
$def = array();
$sel = $db->get_results('describe ' . $table, ARRAY_A);
foreach ($sel as $rec) {
$def[$rec['Field']] = $rec['Type'];
}
/*
normally save line is handled by the normal save
but if we are saving a cut line, we need to save off the first part and
then use the normal save to create the latter part as a new record
dont cut on first or last point of line
*/
$points = FALSE;
if ('saveline' == $ajax) {
$points = pline_pts_arr(clb_val(FALSE, $_REQUEST, 'polyline'));
//the rest of this is only for cutting a line
if (($cut = clb_val(FALSE, $_REQUEST, 'cut')) && $cut + 1 < clb_count($points)) {
$first = array_slice($points, 0, $cut + 1);
//keep points up to and including cut
$points = array_slice($points, $cut);
//reduce points on and after cut for new record
$query = save_line_query($first, $spec);
$query .= '`' . 'lat' . '`=' . clb_escape($_REQUEST['lat']) . ',';
$query .= '`' . 'lng' . '`=' . clb_escape($_REQUEST['lng']) . ',';
$query .= '`' . 'end1' . '`=' . clb_escape($_REQUEST['end1']) . ',';
//adjusts mid point
$query .= '`' . 'end2' . '`=' . clb_escape($_REQUEST['end2']) . ',';
if ($new_mark) {
$query .= '`' . 'pnum' . '`=' . clb_escape($pnum) . ',';
$query .= '`' . 'ptype' . '`=' . clb_escape($ptype) . ',';
if (isset($def['created'])) {
$query .= '`' . 'created' . '`=' . clb_escape(clb_now_utc()) . ',';
}
$query = 'INSERT INTO ' . $table . ' SET ' . trim($query, ', ');
} else {
$query = 'UPDATE ' . $table . ' SET ' . trim($query, ', ') . ' WHERE pnum=' . clb_escape($pnum);
}
$res = $db->query($query);
$xml .= refesh_marker($db, $table, $pnum, $pnum);
unset($_REQUEST['pnum']);
//clear this so that the new marker does not remove the repositioned marker
$pnum = new_pnum($db, $table);
//new pnum for marker
$new_mark = TRUE;
}
}
$query = '';
if ('saveline' == $ajax && is_array($points)) {
$query .= save_line_query($points, $spec);
}
foreach ($def as $fld => $type) {
switch ($fld) {
case 'pnum':
if ($new_mark) {
$query .= '`' . $fld . '`=' . clb_escape($pnum) . ',';
}
break;
case 'created':
if ($new_mark) {
$query .= '`' . $fld . '`=' . clb_escape(clb_now_utc()) . ',';
}
break;
case 'ptype':
$query .= '`' . $fld . '`=' . clb_escape($ptype) . ',';
break;
default:
if (isset($_REQUEST[$fld])) {
$query .= '`' . $fld . '`=' . clb_escape($_REQUEST[$fld]) . ',';
}
break;
}
}
qlog(__LINE__, $query);
if ($new_mark) {
$query = 'INSERT INTO ' . $table . ' SET ' . trim($query, ', ');
}
if (!$new_mark) {
$query = 'UPDATE ' . $table . ' SET ' . trim($query, ', ') . ' WHERE pnum=' . clb_escape($pnum);
}
$res = $db->query($query);
//when saving a marker remember the type to be used as the default for next new marker.
$name = clb_val(FALSE, $spec, 'polyline') ? 'type_line' : 'type_mark';
$xml .= clb_tag('response', '', $ptype, array('type' => 'state', 'pnum' => $name)) . "\n";
//pnum is the "id" name is the "id" of the state we are setting
$xml .= refesh_marker($db, $table, $pnum, clb_val(FALSE, $_REQUEST, 'pnum'));
//want to fall through to show a bubble if saving a line
//so break when either condition fails
if ('saveline' == $ajax) {
$xml .= marker_bubble($db, $spec, $table, $pnum);
}
break;
case 'bubble':
if (!$spec || !$pnum) {
$msg = 'could not identify the marker type.';
break;
}
$xml .= marker_bubble($db, $spec, $table, $pnum);
break;
case 'delete':
$query = 'DELETE FROM ' . $table . ' WHERE pnum=' . clb_escape($pnum);
$sel = $db->query($query);
//remove old marker, which closes info box
$xml .= clb_tag('response', '', '', array('type' => 'remove', 'pnum' => $_REQUEST['pnum'])) . "\n";
break;
}
if ($ajax) {
if ($msg) {
$xml .= clb_tag('response', $msg, '', array('type' => 'info')) . "\n";
}
if (!$xml) {
$xml .= clb_tag('response', '', '', array('type' => 'null')) . "\n";
}
// qlog(__LINE__, $xml);
clb_response('xml', $xml);
}
}
while ($link = $network_c[$pos_c]['link']) {
$run[$link] = $network_c[$pos_c];
//['routes'];
$pos_c = $network_c[$pos_c]['prev'];
}
$result[] = $run;
}
}
//qlog(__LINE__,count($complete), count($used), count($network_c), count($network_d));
//qlog(__LINE__, clb_timing('shortest changes'));
//qlog(__LINE__, $node2, $complete);
return $result;
}
//get list of all stops sorted by latitude
$flat = 'wp_mfw_dists';
$query = 'SELECT ' . RF_NODES_KEY . ' FROM ' . RF_NODES_FROM . ' WHERE ' . RF_NODES_TYPE . ' IN ' . clb_join(array('rail'), TRUE) . ' ORDER BY ' . RF_NODES_KEY;
$sel1 = $wpdb->get_results($query, ARRAY_A);
if (is_array($sel1)) {
//load p2p data so we can run shortest path and do our own lookups on link data
$data = file_get_contents($p2p_path);
$p2p_links = clb_blob_dec($data);
$sel1 = clb_column($sel1, RF_NODES_KEY);
//remove stations that dont have links to them
foreach ($sel1 as $i => $pnum) {
if (!isset($p2p_links['stat2plat'][$pnum]) && !isset($p2p_links['nodes'][$pnum])) {
qpre('station not on network', $pnum);
unset($sel1[$i]);
}
}
$to_save = $sel1;
sort($sel1);
}
}
inspect_data($path, 1);
}
echo clb_tag('pre', '', clb_tag('code', $cmd . 'p2p'));
echo clb_tag('h3', 'Interchanges Process');
echo clb_tag('p', 'This process looks at stations/stops accessed by routes (as given in the stops file) and determines which nodes are
close but not connected. It then creates walk links if the nodes are within 400m of each other. This process relies on the p2p file
so walk links cannot be generated before the p2p, but the p2p file needs to be regenerated after running this process.');
if (!is_file($p2p_path)) {
echo clb_tag('p', 'There is no p2p file, you cannot run this process until it exists', '', array('style' => 'color:red;'));
} else {
$time = $test = clb_escape(clb_now_utc(filemtime($p2p_path)));
if (is_file($stops_path)) {
$test = clb_escape(clb_now_utc(filemtime($stops_path)));
}
//check station to station links of given types
$query = 'SELECT 1 FROM ' . RF_LINKS_FROM . ' WHERE ' . RF_LINKS_MODIFIED . ' > ' . $time . ' AND ' . RF_LINKS_TYPE . ' IN ' . clb_join($node_types, TRUE);
$links = $wpdb->get_results($query, ARRAY_A);
if ($time < $test) {
echo clb_tag('p', 'The stops file is more recent than this file and this file should be regenerated.', '', array('style' => 'color:red;'));
} else {
if (clb_count($links) > 0) {
echo clb_tag('p', clb_count($links) . ' station to statio links have been added or updates so this should be rebuilt.', '', array('style' => 'color:#f1a629;'));
} else {
echo clb_tag('p', 'This file seems up to date', '', array('style' => 'color:green;'));
}
}
}
echo clb_tag('pre', '', clb_tag('code', $cmd . 'walk'));
}
}
}
echo join(', ', $dupes);
break;
case 12:
$pnum1 = 'QNUBNAP';
$pnum2 = 'RABITVK';
$set = array();
$set['modified'] = 'NOW()';
$set['name'] = clb_escape('<>');
$set['ptype'] = clb_escape('rail');
$set['pnum'] = clb_escape(new_pnum('links'));
$set['created'] = 'NOW()';
$set['end1'] = clb_escape($pnum1);
$set['end2'] = clb_escape($pnum2);
$query = 'INSERT INTO links SET ' . clb_join($set, '"', ',', '=');
do_query($query, __FILE__, __LINE__);
qpre($set);
case 'test':
//arrays connecting nodes to raw segs
$data = file_get_contents($map_path, FILE_BINARY);
$stopsegs = clb_blob_dec($data);
$best = array('8OPGJHWH');
$aoe_data = splice_links($best, 'IEIQTRQ', 'DAKSXUO', $stopsegs);
$polyline = make_polyline($aoe_data, array('color' => '#0000FF'));
qpre($aoe_data);
//remove any unused points from the points list and save as a structure
$temp = $aoe_data;
$aoe_data = array();
foreach ($temp as $i => $pt) {
if (isset($pt['gran'])) {
