");
-
- $this->renderEndTag("table");
- }
- }
- }
-
- }
-?>
\ No newline at end of file
diff --git a/php/mocha/lib/mocha/ui/renderers/html/HTMLRenderer.inc.php b/php/mocha/lib/mocha/ui/renderers/html/HTMLRenderer.inc.php
new file mode 100644
index 0000000..8fe0cee
--- /dev/null
+++ b/php/mocha/lib/mocha/ui/renderers/html/HTMLRenderer.inc.php
@@ -0,0 +1,761 @@
+Context = $context;
+ $this->FailedValidations = [];
+ $this->FailedValidationElements = [];
+ $this->IsPostback = false;
+ $this->StyleClasses = [];
+ }
+ /**
+ * Thanks https://stackoverflow.com/a/31107425
+ *
+ * Generate a random string, using a cryptographically secure
+ * pseudorandom number generator (random_int)
+ *
+ * This function uses type hints now (PHP 7+ only), but it was originally
+ * written for PHP 5 as well.
+ *
+ * For PHP 7, random_int is a PHP core function
+ * For PHP 5.x, depends on https://github.com/paragonie/random_compat
+ *
+ * @param int $length How many characters do we want?
+ * @param string $keyspace A string of all possible characters
+ * to select from
+ * @return string
+ */
+ private function random_str(int $length = 64, string $keyspace = '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ' ) : string
+ {
+ if ($length < 1)
+ {
+ throw new \RangeException("Length must be a positive integer");
+ }
+ $pieces = [];
+ $max = \mb_strlen($keyspace, '8bit') - 1;
+ for ($i = 0; $i < $length; ++$i)
+ {
+ $pieces[] = $keyspace[\random_int(0, $max)];
+ }
+ return \implode('', $pieces);
+ }
+
+ public function getElementContentValue(InstanceReference $elementContent, $defaultValue = null)
+ {
+ if (isset($_POST["ec_" . $elementContent->InstanceKey]))
+ {
+ return $_POST["ec_" . $elementContent->InstanceKey];
+ }
+ return $defaultValue;
+ }
+
+ public function renderTask(InstanceReference $task, InstanceReference $relatedInstance)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ $parentClass = $oms->getParentClass($task);
+ if ($parentClass->GlobalIdentifier == KnownClassGuids::HardcodedTask)
+ {
+ $className = $oms->getAttributeValue($task, KnownAttributeGuids::ClassName);
+ $taskClass = null;
+ try
+ {
+ $taskClass = new $className($task, $relatedInstance);
+ }
+ catch (\Error $ex)
+ {
+ }
+
+ if ($taskClass !== null)
+ {
+ $value = $taskClass->Render();
+ if ($value instanceof InstanceReference)
+ {
+ $pc = $oms->getParentClass($value);
+ if ($pc->GlobalIdentifier == KnownClassGuids::Element)
+ {
+ $this->renderInitialElement($value);
+ }
+ }
+ else if (is_string($value))
+ {
+ echo($value);
+ }
+ }
+ else
+ {
+ echo("could not find hardcoded task class '" . $className . "'");
+ }
+ }
+ }
+
+ public function processPostback(InstanceReference $element)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ if (is_callable($this->ProcessPostbackFunction))
+ {
+ // call user-defined ProcessPostbackFunction
+ return call_user_func($this->ProcessPostbackFunction, $this, $element);
+ }
+ else
+ {
+ $ecs = array();
+ foreach ($_POST as $key => $value)
+ {
+ if (str_starts_with($key, "ec_"))
+ {
+ $ecid = substr($key, 3);
+ $ecs[$ecid] = $value;
+ }
+ }
+
+ $result = null;
+ foreach ($ecs as $key => $value)
+ {
+ $inst_ec = $oms->getInstanceByKey(InstanceKey::Parse($key));
+ if (!$this->checkValidationsForElementContent($inst_ec, $value))
+ {
+ $result = false;
+ }
+ }
+
+ if ($result === false)
+ {
+ return false;
+ }
+
+ if (is_callable($this->ProcessUpdatesFunction))
+ {
+ // call user-defined ProcessUpdatesFunction
+ return call_user_func($this->ProcessUpdatesFunction, $this, $element);
+ }
+ else
+ {
+ // process updates
+ foreach ($ecs as $key => $value)
+ {
+ $inst_ec = $oms->getInstanceByKey(InstanceKey::Parse($key));
+ if (!$this->processUpdatesForElementContent($inst_ec, $value))
+ {
+ return false;
+ }
+ }
+ }
+ }
+ }
+
+ /**
+ * @return true if the validation passes; false otherwise
+ */
+ private function checkValidationForElementContent(InstanceReference $elementContent, string $value, InstanceReference $validation)
+ {
+ return true;
+ }
+
+ /**
+ * @return true if the validations pass (or there are no validations); false otherwise.
+ */
+ private function checkValidationsForElementContent(InstanceReference $elementContent, string $value)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ $displayOptions = $oms->getRelatedInstances($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Element_Content_Display_Option));
+ if ($oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__Required)))
+ {
+ // this is a required parm
+ if ($value == null)
+ {
+ $this->FailedValidations[] = new ValidationResult(null, "Missing required parameter", $oms->getAttributeValue($elementContent, KnownAttributeGuids::Label));
+ $this->FailedValidationElements[] = $elementContent;
+ return false;
+ }
+ }
+
+ $validations = $oms->getRelatedInstances($elementContent, KnownRelationshipGuids::Element_Content__has__Validation);
+ foreach ($validations as $validation)
+ {
+ if (!$this->checkValidationForElementContent($elementContent, $value, $validation))
+ {
+ $this->FailedValidations[] = new ValidationResult($validation, null, null);
+ $this->FailedValidationElements[] = $elementContent;
+ return false;
+ }
+ }
+ return true;
+ }
+
+ private function processUpdatesForElementContent(InstanceReference $elementContent, string $value)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ /*
+ if (!$oms->getAttributeValue($inst_ec, KnownAttributeGuids::DoNotUpdateOnSubmit))
+ {
+ */
+ $inst_target = $oms->getRelatedInstance($elementContent, KnownRelationshipGuids::Element_Content__has__Instance);
+
+ /*
+ $value = $oms->getAttributeValue($this->TargetInstance, $ecInst);
+ if ($value === null)
+ {
+ $value = $oms->getAttributeValue($inst_target, $oms->getInstanceByGlobalIdentifier(KnownAttributeGuids::Value));
+ }
+ */
+
+ $oms->setAttributeValue($inst_target, KnownAttributeGuids::Value, $value);
+ /*
+ }
+ */
+ return true;
+ }
+
+ public function shouldRenderElementContentLabel(InstanceReference $elementContent)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ $displayOptions = $oms->getRelatedInstances($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Element_Content_Display_Option));
+
+ if ($oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__WideText)))
+ {
+ return false;
+ }
+ $ecLayout = $oms->getRelatedInstance($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Layout));
+ if ($ecLayout !== null)
+ {
+ $ecLayoutParentClass = $oms->getParentClass($ecLayout);
+ if ($ecLayoutParentClass !== null)
+ {
+ if (
+ ($ecLayoutParentClass->GlobalIdentifier == KnownClassGuids::ButtonLayout)
+ || ($ecLayoutParentClass->GlobalIdentifier == KnownClassGuids::ImageLayout)
+ )
+ {
+ return false;
+ }
+ }
+ }
+ return true;
+ }
+
+ public function shouldRenderElementContent(InstanceReference $elementContent)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+ if ($this->Context->getElementParm($elementContent, "visible", false))
+ {
+ return true;
+ }
+
+ $displayOptions = $oms->getRelatedInstances($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Element_Content_Display_Option));
+ if ($oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__DoNotShow)))
+ return false;
+
+ if (!$this->Context->getElementParm($elementContent, "visible", true))
+ {
+ return false;
+ }
+
+ return true;
+ }
+
+ public function buildStyleAttribute(array $constantStyles, array $stylesFromInstanceSet)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ $str = "";
+ foreach ($constantStyles as $key => $value)
+ {
+ $str .= $key . ": " . $value . ";";
+ }
+ foreach ($stylesFromInstanceSet as $ir)
+ {
+ # $styleHasStyleRule = $oms->getRelatedInstances($ir, KnownRelationshipGuids::Style__has__Style_Rule);
+ $styleHasWidthAttr = $oms->getAttributeValue($ir, KnownRelationshipGuids::Style__has_width__Measurement);
+ if ($styleHasWidthAttr !== null)
+ {
+
+ }
+ $styleHasHeightAttr = $oms->getAttributeValue($ir, KnownRelationshipGuids::Style__has_height__Measurement);
+ if ($styleHasHeightAttr !== null)
+ {
+
+ }
+ }
+ }
+
+ public function renderElementContent(InstanceReference $elementContent)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ $ecInst = $oms->getRelatedInstance($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Instance));
+ $ecLayout = $oms->getRelatedInstance($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Layout));
+ if ($ecLayout !== null)
+ {
+ $ecStyles = $oms->getRelatedInstances($ecLayout, KnownRelationshipGuids::Layout__has__Style);
+
+ $ecLayoutParentClass = $oms->getParentClass($ecLayout);
+ if ($ecLayoutParentClass !== null)
+ {
+ if ($ecLayoutParentClass->GlobalIdentifier == KnownClassGuids::ButtonLayout)
+ {
+ // override layout : button
+ echo ("");
+ // TODO: get Translatable label text from EC
+ $attrLabel = $oms->getAttributeValue($elementContent, KnownAttributeGuids::Label, "NO_LABEL_" . $elementContent->InstanceKey);
+ echo ($attrLabel);
+ echo ("");
+ }
+ else if ($ecLayoutParentClass->GlobalIdentifier == KnownClassGuids::ImageLayout)
+ {
+ // override layout : image
+ echo ("getAttributeValue($ecInst, KnownAttributeGuids::ContentType);
+ $attrContentEncoding = $oms->getAttributeValue($ecInst, KnownAttributeGuids::Encoding);
+ $attrValue = $oms->getAttributeValue($ecInst, KnownAttributeGuids::Value);
+
+ echo ($this->buildStyleAttribute([
+ "background-image" => "url('data:" . $attrContentType . ";" . $attrContentEncoding . "," . $attrValue . "')"
+ ], $ecStyles));
+ echo("\">
");
+ }
+ }
+ }
+ else
+ {
+ // default layout
+ if ($ecInst === null)
+ {
+ }
+ else
+ {
+ if ($this->shouldRenderElementContent($elementContent))
+ {
+ $displayOptions = $oms->getRelatedInstances($elementContent, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Element_Content_Display_Option));
+
+ $ecPClass = $oms->getParentClass($ecInst);
+ if (strtolower($ecPClass->GlobalIdentifier) == strtolower(KnownClassGuids::Element))
+ {
+ $this->renderElement($ecInst, $displayOptions);
+ }
+ else if (strtolower($ecPClass->GlobalIdentifier) == strtolower(KnownClassGuids::Relationship))
+ {
+ if (!$oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__NotEnterable)))
+ {
+ //$this->renderRelationship($ecInst);
+ }
+ else
+ {
+ // get the current value of the relationship
+ $value = $oms->getRelatedInstances($this->TargetInstance, $ecInst);
+ if (count($value) > 0)
+ {
+ $this->renderBeginTag("ul");
+
+ $this->renderBeginTag("li");
+ $this->renderEndTag("li");
+
+
+ $this->renderEndTag("ul");
+ }
+ else
+ {
+ echo("(empty)");
+ }
+ }
+ }
+ else if (strtolower($ecPClass->GlobalIdentifier) == strtolower(KnownClassGuids::TextAttribute))
+ {
+ $value = $oms->getAttributeValue($this->TargetInstance, $ecInst);
+ if ($value === null)
+ {
+ $value = $oms->getAttributeValue($ecInst, $oms->getInstanceByGlobalIdentifier(KnownAttributeGuids::Value));
+ }
+
+ if ($this->IsPostback && isset($_POST["ec_" . strval($elementContent->InstanceKey)]))
+ {
+ $value = $_POST["ec_" . strval($elementContent->InstanceKey)];
+ }
+
+ if (!$oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__NotEnterable)))
+ {
+ $this->renderTextAttribute($elementContent, $ecInst, $oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__ObscuredText)), $value);
+ }
+ else
+ {
+ echo($value);
+ }
+ }
+ else
+ {
+ echo ("unknown pclass ident " . $ecPClass->GlobalIdentifier . "");
+ }
+ echo ("");
+ }
+ }
+ }
+ }
+
+ public function renderTextAttribute(InstanceReference $ec, InstanceReference $inst, $password = false, $value = null)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+ $displayOptions = $oms->getRelatedInstances($ec, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::Element_Content__has__Element_Content_Display_Option));
+
+ $ecid = $ec->InstanceKey;
+
+ $p = new \Phast\WebControl();
+ $p->TagName = "input";
+ $p->ClientID = "ec_" . $ecid;
+ $p->Attributes[] = new \Phast\WebControlAttribute("name", "ec_" . $ecid);
+ $p->Attributes[] = new \Phast\WebControlAttribute("data-ecid", $ecid);
+ $p->Attributes[] = new \Phast\WebControlAttribute("value", $value);
+
+ if ($oms->instanceSetContains($displayOptions, $oms->getInstanceByGlobalIdentifier(KnownInstanceGuids::DisplayOption__Required)))
+ {
+ $p->ClassList[] = "uwt-required";
+ }
+ if ($this->IsPostback && $oms->instanceSetContains($this->FailedValidationElements, $ec))
+ {
+ $p->ClassList[] = "uwt-failed-validation";
+ }
+
+ $maxLength = $inst->getAttributeValue(KnownAttributeGuids::MaximumLength);
+ if ($maxLength !== null)
+ {
+ $p->Attributes[] = new \Phast\WebControlAttribute("maxlength", $maxLength);
+ }
+ $p->HasContent = false;
+ $attType = new \Phast\WebControlAttribute("type", "text");
+ if ($password)
+ {
+ $attType->Value = "password";
+ }
+ $p->Attributes[] = $attType;
+ $p->Render();
+ }
+
+ public function renderArray(?array $array, string $separator, string $prefix = "", string $suffix = "")
+ {
+ if ($array === null)
+ return "";
+ if (\count($array) > 0)
+ {
+ return $prefix . \implode($separator, $array) . $suffix;
+ }
+ return "";
+ }
+
+ public function renderKeyedArray(?array $array, string $separator, string $prefix = "", string $suffix = "", string $partSeparator = "", string $keyPrefix = "", string $keySuffix = "", string $valuePrefix = "", string $valueSuffix = "")
+ {
+ if ($array === null)
+ return "";
+
+ if (\count($array) > 0)
+ {
+ $str = $prefix;
+ foreach ($array as $key => $value)
+ {
+ $str .= $keyPrefix . $key . $keySuffix;
+ $str .= $partSeparator;
+ $str .= $valuePrefix . $value . $valueSuffix;
+ $str .= $separator;
+ }
+ $str .= $suffix;
+ return $str;
+ }
+ return "";
+ }
+
+ public function renderInitialElement(InstanceReference $element)
+ {
+ /**
+ * @var MySQLDatabaseOms
+ */
+ $oms = mocha_get_oms();
+
+ $metaCharset = "UTF-8";
+ $metaAttributes = [];
+ $metaAttributes["viewport"] = "width=device-width, initial-scale=1.0";
+
+ echo ("");
+ $this->renderBeginTag("html", array("xmlns" => "http://www.w3.org/1999/xhtml"));
+ $this->renderBeginTag("head");
+ echo ("");
+ foreach ($metaAttributes as $key => $value)
+ {
+ echo ("");
+ }
+
+ $applicationTitle = "Mocha"; // TOOD: get tenant application title
+ $pageTitle = null;
+ $pageTitle = $oms->getAttributeValue($element, KnownAttributeGuids::Label);
+
+ if ($pageTitle !== null && $applicationTitle !== null)
+ {
+ $title = $pageTitle . " - " . $applicationTitle;
+ }
+ else if ($pageTitle !== null)
+ {
+ $title = $pageTitle;
+ }
+ else if ($applicationTitle !== null)
+ {
+ $title = $applicationTitle;
+ }
+
+ $this->renderBeginTag("title");
+ echo($title);
+ $this->renderEndTag("title");
+ echo("");
+ $this->renderTag("script", array("type" => "text/javascript", "src" => System::ExpandRelativePath("~/scripts/phast/System.js.php", false, true)));
+ $this->renderTag("script", array("type" => "text/javascript", "src" => System::ExpandRelativePath("~/scripts/mocha.js.php", false, true)));
+ $this->renderBeginTag("script", array("type" => "text/javascript"));
+ echo("System.BasePath = '" . System::GetConfigurationValue("Application.BasePath") . "';");
+ echo("System.IsTenantedHostingEnabled = function() { return false; };");
+ echo("System.TenantName = '" . $oms->getTenantName() . "';");
+ $this->renderEndTag("script");
+ $this->renderEndTag("head");
+ $bodyClasses = [];
+ foreach ($this->StyleClasses as $className)
+ {
+ $bodyClasses[] = $className;
+ }
+ if ($this->IsPostback)
+ {
+ $bodyClasses[] = "uwt-postback";
+ }
+ $this->renderBeginTag("body", null, $bodyClasses);
+ if ($this->IsPostback)
+ {
+ echo("");
+ if (count($this->FailedValidations) > 0)
+ {
+ foreach ($this->FailedValidations as $validation)
+ {
+ $ik = "";
+ echo("
");
+ echo("
" . $validation->Title . "
");
+ echo("
" . $validation->Message . "
");
+ echo("
");
+ }
+ }
+ else
+ {
+ echo("
");
+ echo("
Saved
");
+ echo("
");
+ }
+ echo("
+
Test Instance
+
Cast to Class Instance ID:
+
Instance ID:
+
If you require assistance, please contact your system administrator.";
- }
- else
- {
- $oms->setTenant($tenant);
- $this->Page->GetControlByID("header-image")->ImageUrl = System::ExpandRelativePath("~/madi/authgwy/" . $oms->getTenantName() . "/images/signon.xml", false, true);
- }
-
- if ($this->Page->IsPostback)
- {
- $userName = $_POST["ec__56$1"];
- $password = $_POST["ec__56$2"];
-
- $oms->setTenant($oms->getTenantByName($this->Page->GetPathVariableValue("tenant")));
-
- $instUser = $oms->getUserByUserName($userName);
- $passwordSalt = $oms->getAttributeValue($instUser, $oms->getInstanceByGlobalIdentifier(KnownAttributeGuids::PasswordSalt));
- $passwordHashExpected = $oms->getAttributeValue($instUser, $oms->getInstanceByGlobalIdentifier(KnownAttributeGuids::PasswordHash));
- $passwordHashActual = hash('sha512', $password . $passwordSalt);
-
- if ($passwordHashExpected == $passwordHashActual)
- {
- $token = $this->random_str();
-
- // create the instance of `User Login`
- $instLogin = $oms->createInstanceOf($oms->getInstanceByGlobalIdentifier(KnownClassGuids::UserLogin));
- if ($instLogin !== null)
- {
- $oms->setAttributeValue($instLogin, $oms->getInstanceByGlobalIdentifier(KnownAttributeGuids::Token), $token);
- $oms->assignRelationship($instLogin, $oms->getInstanceByGlobalIdentifier(KnownRelationshipGuids::User_Login__has__User), $instUser);
- }
- $_SESSION["user_token_" . $oms->getTenant()->ID] = $token;
-
- System::Redirect("~/d/home.htmld");
- exit();
- }
- else
- {
- $this->Page->GetControlByID("literal1")->EnableRender = true;
- }
- }
}
}
diff --git a/php/mocha/ui/tasks/ViewElementContent.inc.php b/php/mocha/ui/tasks/ViewElementContent.inc.php
new file mode 100644
index 0000000..8b76dff
--- /dev/null
+++ b/php/mocha/ui/tasks/ViewElementContent.inc.php
@@ -0,0 +1,53 @@
+
+
+ View Element Content
+
+
+ View Element Content
+
+EOK;
+ $value .= $this->TaskInstance->InstanceKey;
+ $value .= <<
+
+