From 0269aefc30d65ddb5d197bac7819feed5bf78de8 Mon Sep 17 00:00:00 2001
From: Fabio Bas <ctrlaltca@gmail.com>
Date: Sat, 23 Aug 2014 13:08:33 +0200
Subject: Manually backported Wsat

---
 framework/Wsat/pages/TWsatLogin.php | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 framework/Wsat/pages/TWsatLogin.php

(limited to 'framework/Wsat/pages/TWsatLogin.php')

diff --git a/framework/Wsat/pages/TWsatLogin.php b/framework/Wsat/pages/TWsatLogin.php
new file mode 100644
index 00000000..21994c07
--- /dev/null
+++ b/framework/Wsat/pages/TWsatLogin.php
@@ -0,0 +1,33 @@
+<?php
+
+/**
+ * @author Daniel Sampedro Bello <darthdaniel85@gmail.com>
+ * @link http://www.pradosoft.com/
+ * @copyright Copyright &copy; 2005-2013 PradoSoft
+ * @license http://www.pradosoft.com/license/
+ * @version $Id$
+ * @since 3.3
+ * @package Wsat.pages
+ */
+class TWsatLogin extends TPage
+{
+
+        public function login()
+        {
+                if ($this->IsValid)
+                {
+                        $this->Session["wsat_password"] = $this->getService()->getPassword();
+
+                        $url = $this->Service->constructUrl('TWsatHome');
+                        $this->Response->redirect($url);
+                }
+        }
+
+        public function validatePassword($sender, $param)
+        {
+                $config_pass = $this->Service->Password;
+                $user_pass = $this->password->Text;
+                $param->IsValid = $user_pass === $config_pass;
+        }
+
+}
\ No newline at end of file
-- 
cgit v1.2.3