send($msg);
if (!$r) {
print "ERROR: couldn't send message
\n";
return 0;
} else {
if (!$r->faultCode()) {
return $r->value();
} else {
print "Fault: ";
print "Code: " . $r->faultCode() .
" Reason '" .$r->faultString()."'
";
return 0;
}
}
}
function toTable($arr) {
$fields = array_keys($arr[0]);
$nfields = count($fields);
$out = "\n\n";
for ($i=0; $i<$nfields; $i++) {
$out .= "| ".$fields[$i]." | \n";
}
$out .= "
\n";
$ndata = count($arr);
for ($i=0; $i<$ndata; $i++) {
$out .= "\n";
while(list($f,$val) = each($arr[$i])) {
$out .= "| ".htmlspecialchars($val)." | \n";
}
$out .= "
\n";
}
$out .= "
\n";
return $out;
}
function toTable2($arr) {
$fields = array_keys($arr[0]);
$nfields = count($fields);
$ndata = count($arr);
$out = "\n";
for ($i=0; $i<$ndata; $i++) {
$out .= "\n| ROW: ".($i + 1)." | \n
\n";
for ($j=0; $j<$nfields; $j++) {
$out .= "\n| ".$fields[$j]." | \n";
$out .= "".htmlspecialchars($arr[$i][$fields[$j]])." | \n
\n";
}
}
$out .= "
\n";
return $out;
}
?>