XREST
XREST( $url , $par , $res )
XREST ruft einen REST service über die URL $url mit den Parametern $par auf.
Der Rest Service muss eine JSON Nachricht zurücksenden (UTF-8 codiert).
Das Ergebnis des Aufrufs wird über die Parameter-Tabelle $res zurück gegeben.
XCUST( 'RestUrl' , $url )
XCHECKERROR( $syserror )
$par = array();
$par['action'] = 'print';
$par['weight'] = '13';
$par['unit'] = 'kg';
XREST( $url , $par , $res )
if (empty($syserror))
{
$status = $res['status'];
$msgtxt = $res['msgtxt'];
$sysreply = '';
foreach ($res as $resnam => $resval)
{
// UTF-8 to LATIN-1
XLATIN( $resval )
$sysreply .= $resnam . '=' . $resval . '|';
}
}
else
{
$sysreply = "syserror [$syserror]";
}
XCHECKERROR
XCUST
XLATIN
$syserror
$sysreply
