Monotone-Parent: 7f9eeda74d55829371d1c66f2c2545473af168ff

Monotone-Revision: e36214d6c44a28c81a60a0867712c70d3e3a1651 Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2007-09-04T15:00:44 Monotone-Branch: ca.inverse.sogo
2026-05-14 07:55:28 +00:00 · 2007-09-04 15:00:44 +00:00
parent d78f807510
commit 310b567c67
5 changed files with 212 additions and 91 deletions
@@ -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);