}
}
if ($mysql->query("CREATE {$routine} " . idf_escape($_POST["name"]) . " (" . implode(", ", $set) . ")" . (isset($_GET["function"]) ? " RETURNS" . process_type($_POST["returns"], "CHARACTER SET") : "") . "\n\t\t\t{$_POST['definition']}")) {
redirect(substr($SELF, 0, -1), strlen($_GET["procedure"]) ? lang('Routine has been altered.') : lang('Routine has been created.'));
}
}
$error = $mysql->error;
}
page_header(strlen($_GET["procedure"]) ? (isset($_GET["function"]) ? lang('Alter function') : lang('Alter procedure')) . ": " . htmlspecialchars($_GET["procedure"]) : (isset($_GET["function"]) ? lang('Create function') : lang('Create procedure')), $error);
$collations = get_vals("SHOW CHARACTER SET");
if ($_POST) {
$row = $_POST;
$row["fields"] = (array) $row["fields"];
process_fields($row["fields"]);
} elseif (strlen($_GET["procedure"])) {
$row = routine($_GET["procedure"], $routine);
$row["name"] = $_GET["procedure"];
} else {
$row = array("fields" => array());
}
?>
<form action="" method="post" id="form">
<table border="0" cellspacing="0" cellpadding="2">
<?php
edit_fields($row["fields"], $collations, $routine);
if (isset($_GET["function"])) {
?>
<tr><td><?php
echo lang('Return type');
?>
<?php
$PROCEDURE = $_GET["procedure"];
$routine = isset($_GET["function"]) ? "FUNCTION" : "PROCEDURE";
$row = $_POST;
$row["fields"] = (array) $row["fields"];
if ($_POST && !process_fields($row["fields"]) && !$error) {
$temp_name = "{$row['name']}_adminer_" . uniqid();
drop_create("DROP {$routine} " . idf_escape($PROCEDURE), create_routine($routine, $row), "DROP {$routine} " . idf_escape($row["name"]), create_routine($routine, array("name" => $temp_name) + $row), "DROP {$routine} " . idf_escape($temp_name), substr(ME, 0, -1), lang('Routine has been dropped.'), lang('Routine has been altered.'), lang('Routine has been created.'), $PROCEDURE, $row["name"]);
}
page_header($PROCEDURE != "" ? (isset($_GET["function"]) ? lang('Alter function') : lang('Alter procedure')) . ": " . h($PROCEDURE) : (isset($_GET["function"]) ? lang('Create function') : lang('Create procedure')), $error);
if (!$_POST && $PROCEDURE != "") {
$row = routine($PROCEDURE, $routine);
$row["name"] = $PROCEDURE;
}
$collations = get_vals("SHOW CHARACTER SET");
sort($collations);
$routine_languages = routine_languages();
?>
<form action="" method="post" id="form">
<p><?php
echo lang('Name');
?>
: <input name="name" value="<?php
echo h($row["name"]);
?>
" maxlength="64" autocapitalize="off">
<?php
echo $routine_languages ? lang('Language') . ": " . html_select("language", $routine_languages, $row["language"]) : "";
?>
<?php
$PROCEDURE = $_GET["call"];
page_header(lang('Call') . ": " . h($PROCEDURE), $error);
$routine = routine($PROCEDURE, isset($_GET["callf"]) ? "FUNCTION" : "PROCEDURE");
$in = array();
$out = array();
foreach ($routine["fields"] as $i => $field) {
if (substr($field["inout"], -3) == "OUT") {
$out[$i] = "@" . idf_escape($field["field"]) . " AS " . idf_escape($field["field"]);
}
if (!$field["inout"] || substr($field["inout"], 0, 2) == "IN") {
$in[] = $i;
}
}
if (!$error && $_POST) {
$call = array();
foreach ($routine["fields"] as $key => $field) {
if (in_array($key, $in)) {
$val = process_input($field);
if ($val === false) {
$val = "''";
}
if (isset($out[$key])) {
$connection->query("SET @" . idf_escape($field["field"]) . " = {$val}");
}
}
$call[] = isset($out[$key]) ? "@" . idf_escape($field["field"]) : $val;
}
$query = (isset($_GET["callf"]) ? "SELECT" : "CALL") . " " . idf_escape($PROCEDURE) . "(" . implode(", ", $call) . ")";
echo "<p><code class='jush-{$jush}'>" . h($query) . "</code> <a href='" . h(ME) . "sql=" . urlencode($query) . "'>" . lang('Edit') . "</a>\n";
while ($row = $comps->fetch_array()) {
/* read the companies configuration */
print "Company Read: {$row['code']}\n";
db_con("cubit_{$row['code']}");
$cfg = getTrhConfig();
/* not enabled */
if ($cfg["MANAGEUSER"] <= 0 || empty($cfg["POP3_SERVER"]) || empty($cfg["SMTP_SERVER"])) {
continue;
}
$companies[$row["code"]] = $cfg;
}
$comps->free();
}
/* run the routines */
foreach ($companies as $code => $conf) {
routine($code, $conf);
if ($smallest_wait < 0 || $smallest_wait > $conf["INTERVAL"]) {
$smallest_wait = $conf["INTERVAL"];
}
}
if ($smallest_wait < 0) {
print "\nSleeping for dflt 60\n";
sleep(60);
} else {
print "\nSleeping for {$smallest_wait}\n";
sleep($smallest_wait);
}
}
/**
* routine runner
*
