result($mysql->query("SHOW CREATE " . (isset($_GET["callf"]) ? "FUNCTION" : "PROCEDURE") . " " . idf_escape($_GET["call"])), 2);
preg_match("~\\($pattern(?:\\s*,$pattern)*~is", $create, $match);
$in = array();
$out = array();
$params = array();
preg_match_all("~$pattern~is", $match[0], $matches, PREG_SET_ORDER);
foreach ($matches as $i => $match) {
$field = array(
"field" => str_replace("``", "`", $match[2]) . $match[3],
"type" => $match[4], //! type aliases
"length" => preg_replace_callback("~$enum_length~s", 'normalize_enum', $match[5]),
"unsigned" => ($match[6] ? "unsigned" : ""), // zerofill ignored
"null" => true,
);
if (strcasecmp("out", substr($match[1], -3)) == 0) {
$out[$i] = "@" . idf_escape($field["field"]) . " AS " . idf_escape($field["field"]);
}
if (!$match[1] || strcasecmp("in", substr($match[1], 0, 2)) == 0) {
$in[] = $i;
}
$params[$i] = $field;
}
if ($_POST) {
$call = array();
foreach ($params as $key => $field) {
if (in_array($key, $in)) {
$val = process_input($key, $field);
if ($val === false) {
$val = "''";
}
if (isset($out[$key])) {
$mysql->query("SET @" . idf_escape($field["field"]) . " = " . $val);
}
}
$call[] = (isset($out[$key]) ? "@" . idf_escape($field["field"]) : $val);
}
$result = $mysql->multi_query((isset($_GET["callf"]) ? "SELECT" : "CALL") . " " . idf_escape($_GET["call"]) . "(" . implode(", ", $call) . ")");
if (!$result) {
echo "" . lang('Error during calling') . ": " . htmlspecialchars($mysql->error) . "
\n";
} else {
do {
$result = $mysql->store_result();
if (is_object($result)) {
select($result);
} else {
echo "" . lang('Routine has been called, %d row(s) affected.', $mysql->affected_rows) . "
\n";
}
} while ($mysql->next_result());
if ($out) {
select($mysql->query("SELECT " . implode(", ", $out)));
}
}
}
?>