corrade-http-templates – Rev 2
?pathlinks?
<?php
###########################################################################
## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ##
###########################################################################
## This is a script that uses Corrade to get the avatar positions and ##
## then aggregates that data to a JSON object that will be read by AJAX. ##
## ##
## The output JSON object that will be read via AJAX is of the form: ##
## { ##
## header: ["x", "y", "z"], ##
## positions: [[x1, y1, z1], [x2, y2, z2], ...], ##
## names: ["First Resident", "Second Resident", ...], ##
## colors: [[0.5, 1, 0.75], [0.3, 0.55, 0.34], ...] ##
## } ##
###########################################################################
###########################################################################
## CONFIGURATION ##
###########################################################################
// The configuration file for this script containing the settings.
include_once("config.php");
###########################################################################
## INTERNALS ##
###########################################################################
###########################################################################
## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ##
###########################################################################
function wasKeyValueGet($key, $data) {
return array_reduce(
explode(
"&",
$data
),
function($o, $p) {
$x = explode("=", $p);
return array_shift($x) != $o ? $o : array_shift($x);
},
$key
);
}
///////////////////////////////////////////////////////////////////////////
// Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 //
///////////////////////////////////////////////////////////////////////////
function wasCSVToArray($csv) {
$l = array();
$s = array();
$m = "";
for ($i = 0; $i < strlen($csv); ++$i) {
switch ($csv{$i}) {
case ',':
if (sizeof($s) == 0 || !current($s) == '"') {
array_push($l, $m);
$m = "";
break;
}
$m .= $csv{$i};
continue;
case '"':
if ($i + 1 < strlen($csv) && $csv{$i} == $csv{$i + 1}) {
$m .= $csv{$i};
++$i;
break;
}
if (sizeof($s) == 0|| !current($s) == $csv[$i]) {
array_push($s, $csv{$i});
continue;
}
array_pop($s);
break;
default:
$m .= $csv{$i};
break;
}
}
array_push($l, $m);
return $l;
}
///////////////////////////////////////////////////////////////////////////
// Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 //
///////////////////////////////////////////////////////////////////////////
function wasArrayStride($a, $s) {
return array_filter($a,
function($e, $i) use($s) {
return $i % $s == 0;
},
ARRAY_FILTER_USE_BOTH
);
}
///////////////////////////////////////////////////////////////////////////
// Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 //
///////////////////////////////////////////////////////////////////////////
function wasColorHash($a) {
$hash = sha1($a);
$size = strlen($hash);
return substr($hash, 0, 2).
substr($hash, $size/2, 2).
substr($hash, $size-2, 2);
}
///////////////////////////////////////////////////////////////////////////
// Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 //
///////////////////////////////////////////////////////////////////////////
function mapValueToRange($value, $xMin, $xMax, $yMin, $yMax) {
return $yMin + (
(
$yMax - $yMin
)
*
(
$value - $xMin
)
/
(
$xMax - $xMin
)
);
}
function hex2RGB($hexStr, $returnAsString = false, $seperator = ',') {
$hexStr = preg_replace("/[^0-9A-Fa-f]/", '', $hexStr);
$rgbArray = array();
switch(strlen($hexStr)) {
case 6:
$colorVal = hexdec($hexStr);
$rgbArray['red'] = 0xFF & ($colorVal >> 0x10);
$rgbArray['green'] = 0xFF & ($colorVal >> 0x8);
$rgbArray['blue'] = 0xFF & $colorVal;
break;
case 3:
$rgbArray['red'] = hexdec(
str_repeat(substr($hexStr, 0, 1), 2));
$rgbArray['green'] = hexdec(
str_repeat(substr($hexStr, 1, 1), 2));
$rgbArray['blue'] = hexdec(
str_repeat(substr($hexStr, 2, 1), 2));
break;
default:
return false;
}
return $returnAsString ? implode($seperator, $rgbArray) : $rgbArray;
}
####
# I. Get the avatar positions.
$params = array(
'command' => 'getavatarpositions',
'group' => $GROUP,
'entity' => 'region',
'password' => $PASSWORD
);
# We now escape each key and value: this is very important, because the
# data we send to Corrade may contain the '&' or '=' characters (we don't
# in this example though but this will not hurt anyone).
array_walk($params,
function(&$value, $key) {
$value = urlencode($key)."=".urlencode($value);
}
);
$postvars = implode('&', $params);
# Set the options, send the request and then display the outcome
if (!($curl = curl_init())) {
print 0;
return;
}
curl_setopt($curl, CURLOPT_URL, $URL);
curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
curl_setopt($curl, CURLOPT_POST, true);
curl_setopt($curl, CURLOPT_POSTFIELDS, $postvars);
$result = curl_exec($curl);
curl_close($curl);
$success = urldecode(
wasKeyValueGet(
"success",
$result
)
);
// Unable to get avatar positions?
if($success == 'False') return -1;
$data = wasCSVToArray(
urldecode(
wasKeyValueGet(
"data",
$result
)
)
);
####
# II. Construct and echo the JSON object.
echo json_encode(
array(
'header' => array('x', 'y', 'z'),
'positions' => array_values(
array_map(
function($e) {
$e = preg_replace('/</', '', $e);
$e = preg_replace('/>/', '', $e);
$e = explode(',', $e);
return array($e[0], $e[1], $e[2]);
},
wasArrayStride(
array_slice($data, 2),
3
)
)
),
'names' => array_values(
wasArrayStride(
$data,
3
)
),
'colors' => array_values(
array_map(
function($e) {
$e = hex2RGB(wasColorHash($e));
return array(
round (
mapValueToRange($e['red'], 0, 255, 0, 1), 2
),
round(
mapValueToRange($e['green'], 0, 255, 0, 1), 2
),
round(
mapValueToRange($e['blue'], 0, 255, 0, 1), 2
)
);
},
wasArrayStride(
$data,
3
)
)
)
),
JSON_NUMERIC_CHECK
);
return 0;
?>