Monotone-Parent: 7f9eeda74d55829371d1c66f2c2545473af168ff

Monotone-Revision: e36214d6c44a28c81a60a0867712c70d3e3a1651

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-09-04T15:00:44
Monotone-Branch: ca.inverse.sogo

UI/WebServerResources/SOGoRootPage.js

@@ -0,0 +1,15 @@
+function initLogin() {
+  var submit = $("submit");
+  var userName = $("userName");
+  userName.focus();
+  Event.observe(submit, "click", onLoginClick);
+}
+
+function onLoginClick(event) {
+  startAnimation($("loginButton"), $("submit"));
+
+  var loginString = $("userName").value + ":" + $("password").value;
+  document.cookie = "0xHIGHFLYxSOGo-0.9 = basic" + loginString.base64encode();
+}
+
+addEvent(window, 'load', initLogin);