added mediation server web frontend
authorMartin Willi <martin@strongswan.org>
Wed, 11 Jun 2008 14:13:24 +0000 (14:13 -0000)
committerMartin Willi <martin@strongswan.org>
Wed, 11 Jun 2008 14:13:24 +0000 (14:13 -0000)
updated charons medsrv plugin to updated database scheme

29 files changed:
configure.in
src/Makefile.am
src/charon/plugins/medsrv/medsrv_config.c
src/charon/plugins/medsrv/medsrv_creds.c
src/charon/plugins/medsrv/mysql.sql
src/medsrv/Makefile.am [new file with mode: 0644]
src/medsrv/controller/peer_controller.c [new file with mode: 0755]
src/medsrv/controller/peer_controller.h [new file with mode: 0755]
src/medsrv/controller/user_controller.c [new file with mode: 0755]
src/medsrv/controller/user_controller.h [new file with mode: 0755]
src/medsrv/filter/auth_filter.c [new file with mode: 0755]
src/medsrv/filter/auth_filter.h [new file with mode: 0755]
src/medsrv/main.c [new file with mode: 0644]
src/medsrv/templates/footer.cs [new file with mode: 0755]
src/medsrv/templates/header.cs [new file with mode: 0755]
src/medsrv/templates/peer/add.cs [new file with mode: 0755]
src/medsrv/templates/peer/edit.cs [new file with mode: 0755]
src/medsrv/templates/peer/list.cs [new file with mode: 0755]
src/medsrv/templates/static/favicon.ico [new file with mode: 0755]
src/medsrv/templates/static/mootools.js [new file with mode: 0644]
src/medsrv/templates/static/script.js [new file with mode: 0644]
src/medsrv/templates/static/strongswan.png [new file with mode: 0755]
src/medsrv/templates/static/style.css [new file with mode: 0755]
src/medsrv/templates/user/add.cs [new file with mode: 0755]
src/medsrv/templates/user/edit.cs [new file with mode: 0755]
src/medsrv/templates/user/help.cs [new file with mode: 0644]
src/medsrv/templates/user/login.cs [new file with mode: 0755]
src/medsrv/user.c [new file with mode: 0644]
src/medsrv/user.h [new file with mode: 0644]

index 05d4db4..064d0c4 100644 (file)
@@ -16,7 +16,7 @@ dnl ===========================
 dnl  initialize & set some vars
 dnl ===========================
 
-AC_INIT(strongSwan,4.2.4)
+AC_INIT(strongSwan,4.2.4rc6)
 AM_INIT_AUTOMAKE(tar-ustar)
 AC_C_BIGENDIAN
 AC_SUBST(confdir, '${sysconfdir}')
@@ -315,7 +315,7 @@ AC_ARG_ENABLE(
 
 AC_ARG_ENABLE(
        [medsrv],
-       AS_HELP_STRING([--enable-medsrv],[enable mediation server configuration database plugin (default is NO).]),
+       AS_HELP_STRING([--enable-medsrv],[enable mediation server web frontend and daemon plugin (default is NO).]),
        [if test x$enableval = xyes; then
                medsrv=true
        fi]
@@ -589,6 +589,7 @@ fi
 
 if test x$medsrv = xtrue; then
        me=true
+       fast=true
 fi
 
 if test x$medcli = xtrue; then
@@ -865,5 +866,6 @@ AC_OUTPUT(
        src/dumm/Makefile
        src/libfast/Makefile
        src/manager/Makefile
+       src/medsrv/Makefile
        testing/Makefile
 )
index 4407491..e28ed63 100644 (file)
@@ -11,6 +11,7 @@ endif
 if USE_PLUTO
   SUBDIRS += libcrypto pluto whack
 endif
+
 if USE_CHARON
   SUBDIRS += charon
 endif
@@ -39,6 +40,10 @@ if USE_MANAGER
   SUBDIRS += manager
 endif
 
+if USE_MEDSRV
+  SUBDIRS += medsrv
+endif
+
 EXTRA_DIST = strongswan.conf
 
 install-exec-local :   
index 4768a2c..1017b9d 100644 (file)
@@ -85,9 +85,9 @@ static enumerator_t* create_peer_cfg_enumerator(private_medsrv_config_t *this,
                return NULL;
        }
        e = this->db->query(this->db,
-                       "SELECT CONCAT(Peer.Alias, CONCAT('@', User.Login)) FROM "
-                       "Peer JOIN User ON Peer.IdUser = User.IdUser "
-                       "WHERE Peer.KeyID = ?", DB_BLOB, other->get_encoding(other),
+                       "SELECT CONCAT(peer.alias, CONCAT('@', user.login)) FROM "
+                       "peer JOIN user ON peer.user = user.id "
+                       "WHERE peer.keyid = ?", DB_BLOB, other->get_encoding(other),
                        DB_TEXT);
        if (e)
        {
@@ -137,8 +137,8 @@ medsrv_config_t *medsrv_config_create(database_t *db)
        
        this->db = db;
        this->rekey = lib->settings->get_int(lib->settings,
-                                                                                "medmanager.rekey", 20) * 60;
-       this->dpd = lib->settings->get_int(lib->settings, "medmanager.dpd", 300);
+                                                                                "medsrv.rekey", 20) * 60;
+       this->dpd = lib->settings->get_int(lib->settings, "medsrv.dpd", 300);
        this->ike = ike_cfg_create(FALSE, FALSE, "0.0.0.0", "0.0.0.0");
        this->ike->add_proposal(this->ike, proposal_create_default(PROTO_IKE));
        
index 4289076..decd381 100644 (file)
@@ -121,7 +121,7 @@ static enumerator_t* create_cert_enumerator(private_medsrv_creds_t *this,
        e->public.enumerate = (void*)cert_enumerator_enumerate;
        e->public.destroy = (void*)cert_enumerator_destroy;
        e->inner = this->db->query(this->db,
-                                                          "SELECT PublicKey FROM Peer WHERE KeyId = ?",
+                                                          "SELECT public_key FROM peer WHERE keyid = ?",
                                                           DB_BLOB, id->get_encoding(id),
                                                           DB_BLOB);
        if (!e->inner)
index 0fb60db..8f4ba34 100644 (file)
@@ -1,12 +1,21 @@
 
-CREATE TABLE IF NOT EXISTS `Peer` (
-  `IdPeer` int(10) unsigned NOT NULL auto_increment,
-  `IdUser` int(10) unsigned NOT NULL,
-  `Alias` varchar(30) collate utf8_unicode_ci NOT NULL,
-  `KeyId` varbinary(20) NOT NULL,
-  `PublicKey` blob NOT NULL,
-  PRIMARY KEY  (`IdPeer`),
-  KEY `KeyId` (`KeyId`),
-  KEY `IdUser` (`IdUser`)
-) ENGINE=MyISAM  DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+CREATE TABLE IF NOT EXISTS `peer` (
+  `id` int(10) unsigned NOT NULL auto_increment,
+  `user` int(10) unsigned NOT NULL,
+  `alias` varchar(30) NOT NULL,
+  `keyid` varbinary(20) NOT NULL,
+  `public_key` blob,
+  PRIMARY KEY  (`id`),
+  UNIQUE KEY (`user`,`alias`),
+  UNIQUE KEY (`keyid`),
+  KEY `user` (`user`)
+) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
+
+CREATE TABLE IF NOT EXISTS `user` (
+  `id` int(10) unsigned NOT NULL auto_increment,
+  `login` varchar(30) NOT NULL,
+  `password` varbinary(20) NOT NULL,
+  PRIMARY KEY  (`id`),
+  UNIQUE KEY (`login`)
+) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
 
diff --git a/src/medsrv/Makefile.am b/src/medsrv/Makefile.am
new file mode 100644 (file)
index 0000000..1bbf384
--- /dev/null
@@ -0,0 +1,42 @@
+medsrvdir = ${ipsecdir}/medsrv
+
+medsrv_PROGRAMS = medsrv.fcgi
+
+medsrv_fcgi_SOURCES = user.h user.c \
+main.c filter/auth_filter.c filter/auth_filter.h \
+controller/user_controller.c controller/user_controller.h \
+controller/peer_controller.c controller/peer_controller.h
+
+medsrv_fcgi_LDADD = $(top_builddir)/src/libfast/libfast.la
+
+INCLUDES = -I$(top_srcdir)/src/libstrongswan -I$(top_srcdir)/src/libfast
+AM_CFLAGS = -rdynamic \
+  -DSTRONGSWAN_CONF=\"${strongswan_conf}\" \
+  -DIPSECDIR=\"${ipsecdir}\" \
+  -DIPSEC_PIDDIR=\"${piddir}\" \
+  -DIPSEC_PLUGINDIR=\"${plugindir}\"\
+  -DPLUGINS=\""${libstrongswan_plugins}\""
+
+# Don't forget to add templates to EXTRA_DIST !!! How to automate?
+medsrv_templatesdir = ${medsrvdir}/templates
+medsrv_templates_DATA = templates/header.cs templates/footer.cs
+
+medsrv_templates_userdir = ${medsrv_templatesdir}/user
+medsrv_templates_user_DATA = templates/user/add.cs templates/user/edit.cs \
+templates/user/login.cs templates/user/help.cs
+  
+medsrv_templates_peerdir = ${medsrv_templatesdir}/peer
+medsrv_templates_peer_DATA = templates/peer/add.cs templates/peer/edit.cs \
+templates/peer/list.cs 
+
+medsrv_templates_staticdir = ${medsrv_templatesdir}/static
+medsrv_templates_static_DATA = templates/header.cs templates/footer.cs \
+templates/static/style.css templates/static/strongswan.png \
+templates/static/favicon.ico templates/static/mootools.js
+
+EXTRA_DIST = templates/header.cs templates/footer.cs \
+templates/static/style.css templates/static/strongswan.png \
+templates/static/favicon.ico templates/static/mootools.js \
+templates/peer/add.cs templates/peer/edit.cs templates/peer/list.cs \
+templates/user/login.cs templates/user/add.cs templates/user/edit.cs \
+templates/user/help.cs
diff --git a/src/medsrv/controller/peer_controller.c b/src/medsrv/controller/peer_controller.c
new file mode 100755 (executable)
index 0000000..22fc6df
--- /dev/null
@@ -0,0 +1,377 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+#define _GNU_SOURCE
+#include <string.h>
+
+#include "peer_controller.h"
+
+#include <library.h>
+#include <debug.h>
+#include <asn1/asn1.h>
+#include <asn1/oid.h>
+
+typedef struct private_peer_controller_t private_peer_controller_t;
+
+/**
+ * private data of the peer_controller
+ */
+struct private_peer_controller_t {
+
+       /**
+        * public functions
+        */
+       peer_controller_t public;
+
+       /**
+        * active user session
+        */
+       user_t *user;
+       
+       /** 
+        * underlying database
+        */
+       database_t *db;
+};
+
+/**
+ * list the configured peer configs
+ */
+static void list(private_peer_controller_t *this, request_t *request)
+{
+       enumerator_t *query;
+       
+       query = this->db->query(this->db,
+                       "SELECT id, alias, keyid FROM peer WHERE user = ? ORDER BY alias",
+                       DB_UINT, this->user->get_user(this->user),
+                       DB_UINT, DB_TEXT, DB_BLOB);
+       
+       if (query)
+       {
+               u_int id;
+               char *alias;
+               chunk_t keyid;
+               identification_t *identifier;
+       
+               while (query->enumerate(query, &id, &alias, &keyid))
+               {
+                       request->setf(request, "peers.%d.alias=%s", id, alias);
+                       identifier = identification_create_from_encoding(ID_KEY_ID, keyid);
+                       request->setf(request, "peers.%d.identifier=%D", id, identifier);
+                       identifier->destroy(identifier);
+               }
+               query->destroy(query);
+       }
+       request->render(request, "templates/peer/list.cs");
+}
+
+/**
+ * verify a peer alias
+ */
+static bool verify_alias(private_peer_controller_t *this, request_t *request,
+                                                char *alias)
+{
+       if (!alias || *alias == '\0')
+       {
+               request->setf(request, "error=Alias is missing.");
+               return FALSE;   
+       }
+       while (*alias != '\0')
+       {
+               switch (*alias)
+               {
+                       case 'a' ... 'z':
+                       case 'A' ... 'Z':
+                       case '0' ... '9':
+                       case '-':
+                       case '_':
+                       case '@':
+                       case '.':
+                               alias++;
+                               continue;
+                       default:
+                               request->setf(request, "error=Alias invalid, "
+                                                         "valid characters: A-Z a-z 0-9 - _ @ .");
+                               return FALSE;
+               }
+       }
+       return TRUE;
+}
+
+/**
+ * parse and verify a public key
+ */
+static bool parse_public_key(private_peer_controller_t *this,
+                                                        request_t *request, char *public_key,
+                                                        chunk_t *encoding, chunk_t *keyid)
+{
+       public_key_t *public;
+       identification_t *id;
+               
+       if (!public_key || *public_key == '\0')
+       {
+               request->setf(request, "error=Public key is missing.");
+               return FALSE;
+       }
+       public = lib->creds->create(lib->creds, CRED_PUBLIC_KEY, KEY_ANY,
+                                                               BUILD_BLOB_ASN1_PEM, public_key,
+                                                               BUILD_END);
+       if (!public)
+       {
+               request->setf(request, "error=Parsing public key failed.");
+               return FALSE;
+       }
+       /* TODO: use get_encoding() with an encoding type */
+       *encoding = asn1_wrap(ASN1_SEQUENCE, "cm",
+                                                 asn1_algorithmIdentifier(OID_RSA_ENCRYPTION),
+                                                 asn1_bitstring("m", public->get_encoding(public)));
+       id = public->get_id(public, ID_PUBKEY_SHA1);
+       *keyid = chunk_clone(id->get_encoding(id));
+       public->destroy(public);
+       return TRUE;
+}
+
+/**
+ * register a new peer
+ */
+static void add(private_peer_controller_t *this, request_t *request)
+{
+       char *alias = "", *public_key = "";
+       
+       if (request->get_query_data(request, "back"))
+       {
+               return request->redirect(request, "peer/list");
+       }
+       while (request->get_query_data(request, "add"))
+       {
+               chunk_t encoding, keyid;
+       
+               alias = request->get_query_data(request, "alias");
+               public_key = request->get_query_data(request, "public_key");
+               
+               if (!verify_alias(this, request, alias))
+               {
+                       break;
+               }
+               if (!parse_public_key(this, request, public_key, &encoding, &keyid))
+               {
+                       break;
+               }
+               if (this->db->execute(this->db, NULL,
+                                                 "INSERT INTO peer (user, alias, public_key, keyid) "
+                                                 "VALUES (?, ?, ?, ?)",
+                                                 DB_UINT, this->user->get_user(this->user),
+                                                 DB_TEXT, alias, DB_BLOB, encoding,
+                                                 DB_BLOB, keyid) <= 0)
+               {
+                       request->setf(request, "error=Peer already exists.");
+                       free(keyid.ptr);
+                       free(encoding.ptr);
+                       break;
+               }
+               free(keyid.ptr);
+               free(encoding.ptr);
+               return request->redirect(request, "peer/list");
+       }
+       request->set(request, "alias", alias);
+       request->set(request, "public_key", public_key);
+       
+       return request->render(request, "templates/peer/add.cs");
+}
+
+/**
+ * pem encode a public key into an allocated string
+ */
+char* pem_encode(chunk_t der)
+{
+       static const char *begin = "-----BEGIN PUBLIC KEY-----\n";
+       static const char *end = "-----END PUBLIC KEY-----";
+       size_t len;
+       char *pem;
+       chunk_t base64;
+       int i = 0;
+       
+       base64 = chunk_to_base64(der, NULL);
+       len = strlen(begin) + base64.len + base64.len/64 + strlen(end) + 2;
+       pem = malloc(len + 1);
+
+       strcpy(pem, begin);
+       do
+       {
+               strncat(pem, base64.ptr + i, 64);
+               strcat(pem, "\n");
+               i += 64;
+       }
+       while (i < base64.len - 2);
+       strcat(pem, end);
+       
+       free(base64.ptr);
+       return pem;
+}
+
+/**
+ * edit a peer
+ */
+static void edit(private_peer_controller_t *this, request_t *request, int id)
+{
+       char *alias = "", *public_key = "", *pem;
+       chunk_t encoding, keyid;
+       
+       if (request->get_query_data(request, "back"))
+       {
+               return request->redirect(request, "peer/list");
+       }
+       if (request->get_query_data(request, "delete"))
+       {
+               this->db->execute(this->db, NULL,
+                                                 "DELETE FROM peer WHERE id = ? AND user = ?",
+                                                 DB_INT, id, DB_UINT, this->user->get_user(this->user));
+               return request->redirect(request, "peer/list");
+       }
+       if (request->get_query_data(request, "save"))
+       {
+               while (TRUE)
+               {
+                       alias = request->get_query_data(request, "alias");
+                       public_key = request->get_query_data(request, "public_key");
+               
+                       if (!verify_alias(this, request, alias))
+                       {
+                               break;
+                       }
+                       if (!parse_public_key(this, request, public_key, &encoding, &keyid))
+                       {
+                               break;
+                       }
+                       if (this->db->execute(this->db, NULL,
+                                 "UPDATE peer SET alias = ?, public_key = ?, keyid = ? "
+                                 "WHERE id = ? AND user = ?",
+                                 DB_TEXT, alias, DB_BLOB, encoding, DB_BLOB, keyid,
+                                 DB_INT, id, DB_UINT, this->user->get_user(this->user)) < 0)
+                       {
+                               request->setf(request, "error=Peer already exists.");
+                               free(keyid.ptr);
+                               free(encoding.ptr);
+                               break;
+                       }
+                       free(keyid.ptr);
+                       free(encoding.ptr);
+                       return request->redirect(request, "peer/list");
+               }
+       }
+       else
+       {
+               enumerator_t *query = this->db->query(this->db,
+                               "SELECT alias, public_key FROM peer WHERE id = ? AND user = ?",
+                               DB_INT, id, DB_UINT, this->user->get_user(this->user),
+                               DB_TEXT, DB_BLOB);
+               if (query && query->enumerate(query, &alias, &encoding))
+               {
+                       alias = strdupa(alias);
+                       pem = pem_encode(encoding);
+                       public_key = strdupa(pem);
+                       free(pem);
+               }
+               else
+               {
+                       return request->redirect(request, "peer/list");
+               }
+               DESTROY_IF(query);
+       }
+       request->set(request, "alias", alias);
+       request->set(request, "public_key", public_key);
+       return request->render(request, "templates/peer/edit.cs");
+}
+
+/**
+ * delete a peer from the database
+ */
+static void delete(private_peer_controller_t *this, request_t *request, int id)
+{
+       this->db->execute(this->db, NULL,
+                                         "DELETE FROM peer WHERE id = ? AND user = ?",
+                                         DB_INT, id, DB_UINT, this->user->get_user(this->user));
+}
+
+/**
+ * Implementation of controller_t.get_name
+ */
+static char* get_name(private_peer_controller_t *this)
+{
+       return "peer";
+}
+
+/**
+ * Implementation of controller_t.handle
+ */
+static void handle(private_peer_controller_t *this, request_t *request,
+                                  char *action, char *idstr)
+{
+       if (action)
+       {
+               int id = 0;
+               if (idstr)
+               {
+                       id = atoi(idstr);
+               }
+               
+               if (streq(action, "list"))
+               {
+                       return list(this, request);
+               }
+               else if (streq(action, "add"))
+               {
+                       return add(this, request);
+               }
+               else if (streq(action, "edit") && id)
+               {
+                       return edit(this, request, id);
+               }
+               else if (streq(action, "delete") && id)
+               {
+                       delete(this, request, id);
+               }
+       }
+       request->redirect(request, "peer/list");
+}
+
+/**
+ * Implementation of controller_t.destroy
+ */
+static void destroy(private_peer_controller_t *this)
+{
+       free(this);
+}
+
+/*
+ * see header file
+ */
+controller_t *peer_controller_create(user_t *user, database_t *db)
+{
+       private_peer_controller_t *this= malloc_thing(private_peer_controller_t);
+
+       this->public.controller.get_name = (char*(*)(controller_t*))get_name;
+       this->public.controller.handle = (void(*)(controller_t*, request_t*, char*, char*, char*, char*, char*))handle;
+       this->public.controller.destroy = (void(*)(controller_t*))destroy;
+
+       this->user = user;
+       this->db = db;
+
+       return &this->public.controller;
+}
+
diff --git a/src/medsrv/controller/peer_controller.h b/src/medsrv/controller/peer_controller.h
new file mode 100755 (executable)
index 0000000..5112654
--- /dev/null
@@ -0,0 +1,50 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+/**
+ * @defgroup peer_controller_server peer_controller
+ * @{ @ingroup controller_server
+ */
+
+#ifndef PEER_CONTROLLER_H_
+#define PEER_CONTROLLER_H_
+
+#include <user.h>
+
+#include <controller.h>
+#include <database/database.h>
+
+typedef struct peer_controller_t peer_controller_t;
+
+/**
+ * Peer controller. Manages peers associated to a user.
+ */
+struct peer_controller_t {
+
+       /**
+        * Implements controller_t interface.
+        */
+       controller_t controller;
+};
+
+/**
+ * Create a peer_controller controller instance.
+ */
+controller_t *peer_controller_create(user_t *user, database_t *db);
+
+#endif /* PEER_CONTROLLER_H_ @} */
diff --git a/src/medsrv/controller/user_controller.c b/src/medsrv/controller/user_controller.c
new file mode 100755 (executable)
index 0000000..9e6d123
--- /dev/null
@@ -0,0 +1,363 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+#define _GNU_SOURCE
+#include <string.h>
+
+#include "user_controller.h"
+
+#include <library.h>
+
+typedef struct private_user_controller_t private_user_controller_t;
+
+/**
+ * private data of the user_controller
+ */
+struct private_user_controller_t {
+
+       /**
+        * public functions
+        */
+       user_controller_t public;
+
+       /**
+        * database connection
+        */
+       database_t *db;
+       
+       /**
+        * user session
+        */
+       user_t *user;
+       
+       /**
+        * minimum required password lenght
+        */
+       u_int password_length;
+};
+
+/**
+ * hash the password for database storage
+ */
+static chunk_t hash_password(char *login, char *password)
+{
+       hasher_t *hasher;
+       chunk_t hash, data;
+       
+       hasher = lib->crypto->create_hasher(lib->crypto, HASH_SHA1);
+       if (!hasher)
+       {
+               return chunk_empty;
+       }
+       data = chunk_cata("cc", chunk_create(login, strlen(login)),
+                                                       chunk_create(password, strlen(password)));
+       hasher->allocate_hash(hasher, data, &hash);
+       hasher->destroy(hasher);
+       return hash;
+}
+
+/**
+ * Login a user.
+ */
+static void login(private_user_controller_t *this, request_t *request)
+{
+       if (request->get_query_data(request, "submit"))
+       {
+               char *login, *password;
+               
+               login = request->get_query_data(request, "login");
+               password = request->get_query_data(request, "password");
+               
+               if (login && password)
+               {
+                       enumerator_t *query;
+                       u_int id = 0;
+                       chunk_t hash;
+                       
+                       hash = hash_password(login, password);
+                       query = this->db->query(this->db,
+                                               "SELECT id FROM user WHERE login = ? AND password = ?",
+                                               DB_TEXT, login, DB_BLOB, hash, DB_UINT);
+                       if (query)
+                       {
+                               query->enumerate(query, &id);
+                               query->destroy(query);
+                       }
+                       free(hash.ptr);
+                       if (id)
+                       {
+                               this->user->set_user(this->user, id);
+                               return request->redirect(request, "peer/list");
+                       }
+               }
+               request->setf(request, "error=Invalid username or password.");
+       }
+       request->render(request, "templates/user/login.cs");
+}
+
+/**
+ * Logout a user.
+ */
+static void logout(private_user_controller_t *this, request_t *request)
+{
+       request->redirect(request, "user/login");
+       request->close_session(request);
+}
+
+/**
+ * verify a user entered username for validity
+ */
+static bool verify_login(private_user_controller_t *this, request_t *request,
+                                                char *login)
+{
+       if (!login || *login == '\0')
+       {
+               request->setf(request, "error=Username is missing.");
+               return FALSE;   
+       }
+       while (*login != '\0')
+       {
+               switch (*login)
+               {
+                       case 'a' ... 'z':
+                       case 'A' ... 'Z':
+                       case '0' ... '9':
+                       case '-':
+                       case '_':
+                       case '@':
+                       case '.':
+                               login++;
+                               continue;
+                       default:
+                               request->setf(request, "error=Username invalid, "
+                                                         "valid characters: A-Z a-z 0-9 - _ @ .");
+               }
+       }
+       return TRUE;
+}
+
+/**
+ * verify a user entered password for validity
+ */
+static bool verify_password(private_user_controller_t *this, request_t *request,
+                                                       char *password, char *confirm)
+{
+       if (!password || *password == '\0')
+       {
+               request->setf(request, "error=Password is missing.");
+               return FALSE;
+       }
+       if (strlen(password) < this->password_length)
+       {
+               request->setf(request, "error=Password requires at least %d characters.",
+                                         this->password_length);
+               return FALSE;
+       }
+       if (!confirm || !streq(password, confirm))
+       {
+               request->setf(request, "error=Password not confirmed.");
+               return FALSE;
+       }
+       return TRUE;
+}
+
+/**
+ * Register a user.
+ */
+static void add(private_user_controller_t *this, request_t *request)
+{
+       char *login = "";
+
+       while (request->get_query_data(request, "register"))
+       {
+               char *password, *confirm;
+               chunk_t hash;
+               u_int id;
+
+               login = request->get_query_data(request, "new_login");
+               password = request->get_query_data(request, "new_password");
+               confirm = request->get_query_data(request, "confirm_password");
+               
+               if (!verify_login(this, request, login) ||
+                       !verify_password(this, request, password, confirm))
+               {
+                       break;
+               }
+               
+               hash = hash_password(login, password);
+               if (!hash.ptr || this->db->execute(this->db, &id,
+                                                       "INSERT INTO user (login, password) VALUES (?, ?)",
+                                                       DB_TEXT, login, DB_BLOB, hash) < 0)
+               {
+                       request->setf(request, "error=Username already exists.");
+                       free(hash.ptr);
+                       break;
+               }
+               free(hash.ptr);
+               this->user->set_user(this->user, id);
+               return request->redirect(request, "peer/list");
+       }
+       request->set(request, "new_login", login);
+       request->setf(request, "password_length=%d", this->password_length);
+       request->render(request, "templates/user/add.cs");
+}
+
+/**
+ * Edit the logged in user
+ */
+static void edit(private_user_controller_t *this, request_t *request)
+{
+       enumerator_t *query;
+       char *old_login;
+       
+       /* lookup old login */
+       query = this->db->query(this->db, "SELECT login FROM user WHERE id = ?",
+                                                       DB_INT, this->user->get_user(this->user),
+                                                       DB_TEXT);
+       if (!query || !query->enumerate(query, &old_login))
+       {
+               DESTROY_IF(query);
+               request->close_session(request);
+               return request->redirect(request, "user/login");
+       }
+       old_login = strdupa(old_login);
+       query->destroy(query);
+
+       /* back pressed */
+       if (request->get_query_data(request, "back"))
+       {
+               return request->redirect(request, "peer/list");
+       }
+       /* delete pressed */
+       if (request->get_query_data(request, "delete"))
+       {
+               this->db->execute(this->db, NULL, "DELETE FROM user WHERE id = ?",
+                                                 DB_UINT, this->user->get_user(this->user));
+               this->db->execute(this->db, NULL,
+                                                 "DELETE FROM peer WHERE user = ?",
+                                                 DB_UINT, this->user->get_user(this->user));
+               return logout(this, request);
+       }
+       /* save pressed */
+       while (request->get_query_data(request, "save"))
+       {
+               char *new_login, *old_pass, *new_pass, *confirm;
+               chunk_t old_hash, new_hash;
+               
+               new_login = request->get_query_data(request, "old_login");
+               old_pass = request->get_query_data(request, "old_password");
+               new_pass = request->get_query_data(request, "new_password");
+               confirm = request->get_query_data(request, "confirm_password");
+               
+               if (!verify_login(this, request, new_login) ||
+                       !verify_password(this, request, new_pass, confirm))
+               {
+                       old_login = new_login;
+                       break;
+               }
+               old_hash = hash_password(old_login, old_pass);
+               new_hash = hash_password(new_login, new_pass);
+               
+               if (this->db->execute(this->db, NULL,
+                       "UPDATE user SET login = ?, password = ? "
+                       "WHERE id = ? AND password = ?",
+                       DB_TEXT, new_login, DB_BLOB, new_hash,
+                       DB_UINT, this->user->get_user(this->user), DB_BLOB, old_hash) <= 0)
+               {
+                       free(new_hash.ptr);
+                       free(old_hash.ptr);
+                       old_login = new_login;
+                       request->setf(request, "error=Password verification failed.");
+                       break;
+               }
+               free(new_hash.ptr);
+               free(old_hash.ptr);
+               return request->redirect(request, "peer/list");
+       }
+       /* on error/template rendering */
+       request->set(request, "old_login", old_login);
+       request->setf(request, "password_length=%d", this->password_length);
+       request->render(request, "templates/user/edit.cs");
+}
+
+/**
+ * Implementation of controller_t.get_name
+ */
+static char* get_name(private_user_controller_t *this)
+{
+       return "user";
+}
+
+/**
+ * Implementation of controller_t.handle
+ */
+static void handle(private_user_controller_t *this, request_t *request, char *action)
+{
+       if (action)
+       {
+               if (streq(action, "add"))
+               {
+                       return add(this, request);
+               }
+               if (streq(action, "login"))
+               {
+                       return login(this, request);
+               }
+               else if (streq(action, "logout"))
+               {
+                       return logout(this, request);
+               }
+               else if (streq(action, "edit"))
+               {
+                       return edit(this, request);
+               }
+               else if (streq(action, "help"))
+               {
+                       return request->render(request, "templates/user/help.cs");
+               }
+       }
+       request->redirect(request, "user/login");
+}
+
+/**
+ * Implementation of controller_t.destroy
+ */
+static void destroy(private_user_controller_t *this)
+{
+       free(this);
+}
+
+/*
+ * see header file
+ */
+controller_t *user_controller_create(user_t *user, database_t *db)
+{
+       private_user_controller_t *this= malloc_thing(private_user_controller_t);
+
+       this->public.controller.get_name = (char*(*)(controller_t*))get_name;
+       this->public.controller.handle = (void(*)(controller_t*, request_t*, char*, char*, char*, char*, char*))handle;
+       this->public.controller.destroy = (void(*)(controller_t*))destroy;
+
+       this->user = user;
+       this->db = db;
+       this->password_length = lib->settings->get_int(lib->settings,
+                                                                                                  "medsrv.password_length", 6);
+
+       return &this->public.controller;
+}
+
diff --git a/src/medsrv/controller/user_controller.h b/src/medsrv/controller/user_controller.h
new file mode 100755 (executable)
index 0000000..897e283
--- /dev/null
@@ -0,0 +1,50 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+/**
+ * @defgroup user_controller_server user_controller
+ * @{ @ingroup controller_server
+ */
+
+#ifndef USER_CONTROLLER_H_
+#define USER_CONTROLLER_H_
+
+#include <user.h>
+
+#include <controller.h>
+#include <database/database.h>
+
+typedef struct user_controller_t user_controller_t;
+
+/**
+ * User controller. Register, Login and user management.
+ */
+struct user_controller_t {
+
+       /**
+        * Implements controller_t interface.
+        */
+       controller_t controller;
+};
+
+/**
+ * Create a user_controller controller instance.
+ */
+controller_t *user_controller_create(user_t *user, database_t *db);
+
+#endif /* USER_CONTROLLER_H_ @} */
diff --git a/src/medsrv/filter/auth_filter.c b/src/medsrv/filter/auth_filter.c
new file mode 100755 (executable)
index 0000000..5036d26
--- /dev/null
@@ -0,0 +1,100 @@
+/*
+ * Copyright (C) 2008 Martin Willi\r
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig\r
+ * Hochschule fuer Technik Rapperswil\r
+ *\r
+ * This program is free software; you can redistribute it and/or modify it\r
+ * under the terms of the GNU General Public License as published by the\r
+ * Free Software Foundation; either version 2 of the License, or (at your\r
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.\r
+ *\r
+ * This program is distributed in the hope that it will be useful, but\r
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY\r
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License\r
+ * for more details.\r
+ *\r
+ * $Id$\r
+ */\r
+\r
+#include "auth_filter.h"\r
+\r
+#include <debug.h>\r
+\r
+typedef struct private_auth_filter_t private_auth_filter_t;\r
+\r
+/**\r
+ * private data of auth_filter\r
+ */\r
+struct private_auth_filter_t {\r
+       /**\r
+        * public functions\r
+        */\r
+       auth_filter_t public;\r
+\r
+       /**\r
+        * user session\r
+        */\r
+       user_t *user;
+       
+       /**
+        * database connection
+        */
+       database_t *db;\r
+};
+\r
+/**\r
+ * Implementation of filter_t.run\r
+ */\r
+static bool run(private_auth_filter_t *this, request_t *request,
+                               char *controller, char *action)\r
+{
+       if (this->user->get_user(this->user))
+       {
+               enumerator_t *query;
+               char *login;
+       
+               query = this->db->query(this->db, "SELECT login FROM user WHERE id = ?",
+                                                               DB_INT, this->user->get_user(this->user),
+                                                               DB_TEXT);
+               if (query && query->enumerate(query, &login))
+               {
+                       request->set(request, "login", login);
+                       query->destroy(query);
+                       return TRUE;
+               }
+               DESTROY_IF(query);
+               this->user->set_user(this->user, 0);
+       }
+       if (controller && streq(controller, "user") && action &&
+               (streq(action, "add") || streq(action, "login") || streq(action, "help")))
+       {       /* add/login allowed */
+               return TRUE;
+       }\r
+       request->redirect(request, "user/login");\r
+       return FALSE;\r
+}\r
+\r
+/**\r
+ * Implementation of filter_t.destroy\r
+ */\r
+static void destroy(private_auth_filter_t *this)\r
+{\r
+       free(this);\r
+}\r
+\r
+/*\r
+ * see header file\r
+ */\r
+filter_t *auth_filter_create(user_t *user, database_t *db)\r
+{\r
+       private_auth_filter_t *this= malloc_thing(private_auth_filter_t);\r
+\r
+       this->public.filter.destroy = (void(*)(filter_t*))destroy;\r
+       this->public.filter.run = (bool(*)(filter_t*, request_t*,char*,char*,char*,char*,char*,char*))run;\r
+\r
+       this->user = user;
+       this->db = db;\r
+\r
+       return &this->public.filter;\r
+}\r
+
diff --git a/src/medsrv/filter/auth_filter.h b/src/medsrv/filter/auth_filter.h
new file mode 100755 (executable)
index 0000000..5ba270e
--- /dev/null
@@ -0,0 +1,50 @@
+/*
+ * Copyright (C) 2008 Martin Willi\r
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig\r
+ * Hochschule fuer Technik Rapperswil\r
+ *\r
+ * This program is free software; you can redistribute it and/or modify it\r
+ * under the terms of the GNU General Public License as published by the\r
+ * Free Software Foundation; either version 2 of the License, or (at your\r
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.\r
+ *\r
+ * This program is distributed in the hope that it will be useful, but\r
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY\r
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License\r
+ * for more details.\r
+ *\r
+ * $Id$\r
+ */\r
+\r
+/**\r
+ * @defgroup auth_filter_server auth_filter\r
+ * @{ @ingroup filter_server\r
+ */\r
+\r
+#ifndef AUTH_FILTER_H_\r
+#define AUTH_FILTER_H_\r
+\r
+#include <library.h>\r
+#include <filter.h>
+
+#include "user.h"\r
+\r
+typedef struct auth_filter_t auth_filter_t;\r
+\r
+/**\r
+ * Authentication/Authorization filter.\r
+ */\r
+struct auth_filter_t {\r
+\r
+       /**\r
+        * Implements filter_t interface.\r
+        */\r
+       filter_t filter;\r
+};\r
+\r
+/**\r
+ * Create a auth_filter instance.\r
+ */\r
+filter_t *auth_filter_create(user_t *user, database_t *db);\r
+\r
+#endif /* AUTH_FILTER_H_  @}*/\r
diff --git a/src/medsrv/main.c b/src/medsrv/main.c
new file mode 100644 (file)
index 0000000..00975e9
--- /dev/null
@@ -0,0 +1,78 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Copyright (C) 2008 Philip Boetschi, Adrian Doerig
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+#include <stdio.h>
+
+#include <dispatcher.h>
+#include <debug.h>
+#include <database/database.h>
+
+#include "filter/auth_filter.h"
+#include "controller/user_controller.h"
+#include "controller/peer_controller.h"
+
+int main(int arc, char *argv[])
+{
+       dispatcher_t *dispatcher;
+       database_t *db;
+       char *socket;
+       bool debug;
+       char *uri;
+       int timeout, threads;
+       
+       library_init(STRONGSWAN_CONF);
+       lib->plugins->load(lib->plugins, IPSEC_PLUGINDIR,
+           lib->settings->get_str(lib->settings, "medsrv.load", PLUGINS));
+       
+       socket = lib->settings->get_str(lib->settings, "medsrv.socket", NULL);
+       debug = lib->settings->get_bool(lib->settings, "medsrv.debug", FALSE);
+       timeout = lib->settings->get_int(lib->settings, "medsrv.timeout", 900);
+       threads = lib->settings->get_int(lib->settings, "medsrv.threads", 5);
+       uri = lib->settings->get_str(lib->settings, "medsrv.database", NULL);
+       if (uri == NULL)
+       {
+               fprintf(stderr, "database URI medsrv.database not defined.\n");
+               return 1;
+       }
+       
+       db = lib->db->create(lib->db, uri);
+       if (db == NULL)
+       {
+               fprintf(stderr, "opening database failed.\n");
+               return 1;
+       }
+       
+       dispatcher = dispatcher_create(socket, debug, timeout,
+                                                                  (context_constructor_t)user_create, db);
+       dispatcher->add_filter(dispatcher,
+                                               (filter_constructor_t)auth_filter_create, db);
+       dispatcher->add_controller(dispatcher,
+                                               (controller_constructor_t)user_controller_create, db);
+       dispatcher->add_controller(dispatcher,
+                                               (controller_constructor_t)peer_controller_create, db);
+       
+       dispatcher->run(dispatcher, threads);
+       
+       dispatcher->waitsignal(dispatcher);
+       dispatcher->destroy(dispatcher);
+       db->destroy(db);
+       
+       library_deinit();
+       return 0;
+}
+
diff --git a/src/medsrv/templates/footer.cs b/src/medsrv/templates/footer.cs
new file mode 100755 (executable)
index 0000000..db36019
--- /dev/null
@@ -0,0 +1,4 @@
+      </div>    
+    </div>
+  </body>
+</html>
diff --git a/src/medsrv/templates/header.cs b/src/medsrv/templates/header.cs
new file mode 100755 (executable)
index 0000000..4ab4afd
--- /dev/null
@@ -0,0 +1,31 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/2002/REC-xhtml1-20020801/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+  <head>
+    <title>strongSwan Mediation Service</title>
+    <link rel="stylesheet" type="text/css" href="<?cs var:base ?>/static/style.css"/>
+    <link rel="icon" href="<?cs var:base ?>/static/favicon.ico" type="image/x-icon" />
+    <script type="text/javascript" src="<?cs var:base ?>/static/mootools.js"></script>
+    <script type="text/javascript" src="<?cs var:base ?>/static/script.js"></script>
+  </head>
+  <body>
+       <div class="fleft">
+      <a href="<?cs var:base ?>/peer/list">
+        <img class="fleft" src="<?cs var:base ?>/static/strongswan.png"/>
+      </a>
+      <h1>Mediation Service</h1>
+    </div>
+    <div class="menu">
+            <?cs if:?login ?>
+             Logged in as <i><?cs var:login ?></i> 
+             | <a href="<?cs var:base ?>/user/edit">Edit</a>
+             | <a href="<?cs var:base ?>/user/logout">Logout</a>
+             | <a href="<?cs var:base ?>/user/help">Help</a>
+            <?cs else ?>
+             | <a href="<?cs var:base ?>/user/help">Help</a>
+             | <a href="<?cs var:base ?>/user/login">Login</a>
+             | <a href="<?cs var:base ?>/user/add">Register</a>
+            <?cs /if ?>
+    </div>
+    <hr class="cleft"/>
+    <div class="center">
+      <div class="content">
diff --git a/src/medsrv/templates/peer/add.cs b/src/medsrv/templates/peer/add.cs
new file mode 100755 (executable)
index 0000000..28a994f
--- /dev/null
@@ -0,0 +1,24 @@
+<?cs include:"templates/header.cs" ?>
+<form method="post">
+<?cs if:?error ?>
+  <div class="error"><?cs var:error ?></div>
+<?cs /if ?>
+  <table class="peer">
+    <tr>
+      <td><label for="alias">Alias</label></td>
+      <td><input type="text" id="alias" name="alias" class="focus" maxlength="30" value="<?cs var:alias ?>";"/></td>
+    </tr>
+    <tr>
+      <td valign="top"><label for="public_key">Public Key</label></td>
+      <td><textarea id="public_key" name="public_key"><?cs var:public_key ?></textarea></td>
+    </tr>
+    <tr>
+      <td></td>
+      <td class="right">
+        <input type="submit" value="Back" name="back"/> 
+        <input type="submit" value="Add" name="add"/>
+      </td>
+    </tr>
+</table>
+</form>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/templates/peer/edit.cs b/src/medsrv/templates/peer/edit.cs
new file mode 100755 (executable)
index 0000000..76fb9da
--- /dev/null
@@ -0,0 +1,25 @@
+<?cs include:"templates/header.cs" ?>
+<form method="post" name="form">
+<?cs if:?error ?>
+  <div class="error"><?cs var:error ?></div>
+<?cs /if ?>
+  <table class="peer">
+    <tr>
+      <td><label for="alias">Alias</label></td>
+      <td><input type="text" id="alias" name="alias" maxlength="30" class="focus" value="<?cs var:alias ?>"/></td>
+    </tr>
+    <tr>
+      <td valign="top"><label for="public_key">Public Key</label></td>
+      <td><textarea id="public_key" name="public_key"><?cs var:public_key ?></textarea></td>
+    </tr>
+    <tr>
+      <td></td>
+      <td align="right">
+        <input type="submit" value="Back" name="back"/>
+        <input type="submit" value="Delete" name="delete" onclick="return confirm('Permanently delete this peer?')"/> 
+       <input type="submit" value="Save" name="save"/>
+      </td>
+    </tr>
+</table>
+</form>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/templates/peer/list.cs b/src/medsrv/templates/peer/list.cs
new file mode 100755 (executable)
index 0000000..2054526
--- /dev/null
@@ -0,0 +1,28 @@
+<?cs include:"templates/header.cs" ?>
+<div>
+<?cs if subcount(peers) > 0 ?>
+<table class="list">
+  <tr>
+    <th>Alias</th>
+    <th>Key Identifier</th>
+  </tr>
+<?cs each:peer = peers ?>
+  <tr>
+    <td>
+      <a href="<?cs var:base ?>/peer/edit/<?cs name:peer?>"><?cs var:peer.alias ?></a>
+    </td>
+    <td>
+      <a href="<?cs var:base ?>/peer/edit/<?cs name:peer?>"><?cs var:peer.identifier ?></a>
+    </td>
+  </tr>
+<?cs /each ?>
+</table>
+<?cs else ?>
+No peers defined.
+<?cs /if ?>
+<div class="right">
+<form action="<?cs var:base ?>/peer/add" method="get">
+    <input type="submit" value="Add Peer"/></td>
+</form>
+</div>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/templates/static/favicon.ico b/src/medsrv/templates/static/favicon.ico
new file mode 100755 (executable)
index 0000000..d004591
Binary files /dev/null and b/src/medsrv/templates/static/favicon.ico differ
diff --git a/src/medsrv/templates/static/mootools.js b/src/medsrv/templates/static/mootools.js
new file mode 100644 (file)
index 0000000..d953a1c
--- /dev/null
@@ -0,0 +1,341 @@
+//MooTools, <http://mootools.net>, My Object Oriented (JavaScript) Tools. Copyright (c) 2006-2008 Valerio Proietti, <http://mad4milk.net>, MIT Style License.
+
+var MooTools={version:"1.2dev",build:""};var Native=function(J){J=J||{};var F=J.afterImplement||function(){};var G=J.generics;G=(G!==false);var H=J.legacy;
+var E=J.initialize;var B=J.protect;var A=J.name;var C=E||H;C.constructor=Native;C.$family={name:"native"};if(H&&E){C.prototype=H.prototype;}C.prototype.constructor=C;
+if(A){var D=A.toLowerCase();C.prototype.$family={name:D};Native.typize(C,D);}var I=function(M,K,N,L){if(!B||L||!M.prototype[K]){M.prototype[K]=N;}if(G){Native.genericize(M,K,B);
+}F.call(M,K,N);return M;};C.implement=function(L,K,N){if(typeof L=="string"){return I(this,L,K,N);}for(var M in L){I(this,M,L[M],K);}return this;};C.alias=function(M,K,N){if(typeof M=="string"){M=this.prototype[M];
+if(M){I(this,K,M,N);}}else{for(var L in M){this.alias(L,M[L],K);}}return this;};return C;};Native.implement=function(D,C){for(var B=0,A=D.length;B<A;B++){D[B].implement(C);
+}};Native.genericize=function(B,C,A){if((!A||!B[C])&&typeof B.prototype[C]=="function"){B[C]=function(){var D=Array.prototype.slice.call(arguments);return B.prototype[C].apply(D.shift(),D);
+};}};Native.typize=function(A,B){if(!A.type){A.type=function(C){return($type(C)===B);};}};Native.alias=function(E,B,A,F){for(var D=0,C=E.length;D<C;D++){E[D].alias(B,A,F);
+}};(function(B){for(var A in B){Native.typize(B[A],A);}})({"boolean":Boolean,"native":Native,object:Object});(function(B){for(var A in B){new Native({name:A,initialize:B[A],protect:true});
+}})({String:String,Function:Function,Number:Number,Array:Array,RegExp:RegExp,Date:Date});(function(B,A){for(var C=A.length;C--;C){Native.genericize(B,A[C],true);
+}return arguments.callee;})(Array,["pop","push","reverse","shift","sort","splice","unshift","concat","join","slice","toString","valueOf","indexOf","lastIndexOf"])(String,["charAt","charCodeAt","concat","indexOf","lastIndexOf","match","replace","search","slice","split","substr","substring","toLowerCase","toUpperCase","valueOf"]);
+function $chk(A){return !!(A||A===0);}function $clear(A){clearTimeout(A);clearInterval(A);return null;}function $defined(A){return(A!=undefined);}function $empty(){}function $arguments(A){return function(){return arguments[A];
+};}function $lambda(A){return(typeof A=="function")?A:function(){return A;};}function $extend(C,A){for(var B in (A||{})){C[B]=A[B];}return C;}function $unlink(C){var B;
+switch($type(C)){case"object":B={};for(var E in C){B[E]=$unlink(C[E]);}break;case"hash":B=$unlink(C.getClean());break;case"array":B=[];for(var D=0,A=C.length;
+D<A;D++){B[D]=$unlink(C[D]);}break;default:return C;}return B;}function $merge(){var E={};for(var D=0,A=arguments.length;D<A;D++){var B=arguments[D];if($type(B)!="object"){continue;
+}for(var C in B){var G=B[C],F=E[C];E[C]=(F&&$type(G)=="object"&&$type(F)=="object")?$merge(F,G):$unlink(G);}}return E;}function $pick(){for(var B=0,A=arguments.length;
+B<A;B++){if(arguments[B]!=undefined){return arguments[B];}}return null;}function $random(B,A){return Math.floor(Math.random()*(A-B+1)+B);}function $splat(B){var A=$type(B);
+return(A)?((A!="array"&&A!="arguments")?[B]:B):[];}var $time=Date.now||function(){return new Date().getTime();};function $try(){for(var B=0,A=arguments.length;
+B<A;B++){try{return arguments[B]();}catch(C){}}return null;}function $type(A){if(A==undefined){return false;}if(A.$family){return(A.$family.name=="number"&&!isFinite(A))?false:A.$family.name;
+}if(A.nodeName){switch(A.nodeType){case 1:return"element";case 3:return(/\S/).test(A.nodeValue)?"textnode":"whitespace";}}else{if(typeof A.length=="number"){if(A.callee){return"arguments";
+}else{if(A.item){return"collection";}}}}return typeof A;}var Hash=new Native({name:"Hash",initialize:function(A){if($type(A)=="hash"){A=$unlink(A.getClean());
+}for(var B in A){this[B]=A[B];}return this;}});Hash.implement({getLength:function(){var B=0;for(var A in this){if(this.hasOwnProperty(A)){B++;}}return B;
+},forEach:function(B,C){for(var A in this){if(this.hasOwnProperty(A)){B.call(C,this[A],A,this);}}},getClean:function(){var B={};for(var A in this){if(this.hasOwnProperty(A)){B[A]=this[A];
+}}return B;}});Hash.alias("forEach","each");function $H(A){return new Hash(A);}Array.implement({forEach:function(C,D){for(var B=0,A=this.length;B<A;B++){C.call(D,this[B],B,this);
+}}});Array.alias("forEach","each");function $A(C){if(C.item){var D=[];for(var B=0,A=C.length;B<A;B++){D[B]=C[B];}return D;}return Array.prototype.slice.call(C);
+}function $each(C,B,D){var A=$type(C);((A=="arguments"||A=="collection"||A=="array")?Array:Hash).each(C,B,D);}var Browser=new Hash({Engine:{name:"unknown",version:""},Platform:{name:(navigator.platform.match(/mac|win|linux/i)||["other"])[0].toLowerCase()},Features:{xpath:!!(document.evaluate),air:!!(window.runtime)},Plugins:{}});
+if(window.opera){Browser.Engine={name:"presto",version:(document.getElementsByClassName)?950:925};}else{if(window.ActiveXObject){Browser.Engine={name:"trident",version:(window.XMLHttpRequest)?5:4};
+}else{if(!navigator.taintEnabled){Browser.Engine={name:"webkit",version:(Browser.Features.xpath)?420:419};}else{if(document.getBoxObjectFor!=null){Browser.Engine={name:"gecko",version:(document.getElementsByClassName)?19:18};
+}}}}Browser.Engine[Browser.Engine.name]=Browser.Engine[Browser.Engine.name+Browser.Engine.version]=true;if(window.orientation!=undefined){Browser.Platform.name="ipod";
+}Browser.Platform[Browser.Platform.name]=true;Browser.Request=function(){return $try(function(){return new XMLHttpRequest();},function(){return new ActiveXObject("MSXML2.XMLHTTP");
+});};Browser.Features.xhr=!!(Browser.Request());Browser.Plugins.Flash=(function(){var A=($try(function(){return navigator.plugins["Shockwave Flash"].description;
+},function(){return new ActiveXObject("ShockwaveFlash.ShockwaveFlash").GetVariable("$version");})||"0 r0").match(/\d+/g);return{version:parseInt(A[0]||0+"."+A[1]||0),build:parseInt(A[2]||0)};
+})();function $exec(B){if(!B){return B;}if(window.execScript){window.execScript(B);}else{var A=document.createElement("script");A.setAttribute("type","text/javascript");
+A.text=B;document.head.appendChild(A);document.head.removeChild(A);}return B;}Native.UID=1;var $uid=(Browser.Engine.trident)?function(A){return(A.uid||(A.uid=[Native.UID++]))[0];
+}:function(A){return A.uid||(A.uid=Native.UID++);};var Window=new Native({name:"Window",legacy:(Browser.Engine.trident)?null:window.Window,initialize:function(A){$uid(A);
+if(!A.Element){A.Element=$empty;if(Browser.Engine.webkit){A.document.createElement("iframe");}A.Element.prototype=(Browser.Engine.webkit)?window["[[DOMElement.prototype]]"]:{};
+}return $extend(A,Window.Prototype);},afterImplement:function(B,A){window[B]=Window.Prototype[B]=A;}});Window.Prototype={$family:{name:"window"}};new Window(window);
+var Document=new Native({name:"Document",legacy:(Browser.Engine.trident)?null:window.Document,initialize:function(A){$uid(A);A.head=A.getElementsByTagName("head")[0];
+A.html=A.getElementsByTagName("html")[0];A.window=A.defaultView||A.parentWindow;if(Browser.Engine.trident4){$try(function(){A.execCommand("BackgroundImageCache",false,true);
+});}return $extend(A,Document.Prototype);},afterImplement:function(B,A){document[B]=Document.Prototype[B]=A;}});Document.Prototype={$family:{name:"document"}};
+new Document(document);Array.implement({every:function(C,D){for(var B=0,A=this.length;B<A;B++){if(!C.call(D,this[B],B,this)){return false;}}return true;
+},filter:function(D,E){var C=[];for(var B=0,A=this.length;B<A;B++){if(D.call(E,this[B],B,this)){C.push(this[B]);}}return C;},clean:function(){return this.filter($defined);
+},indexOf:function(C,D){var A=this.length;for(var B=(D<0)?Math.max(0,A+D):D||0;B<A;B++){if(this[B]===C){return B;}}return -1;},map:function(D,E){var C=[];
+for(var B=0,A=this.length;B<A;B++){C[B]=D.call(E,this[B],B,this);}return C;},some:function(C,D){for(var B=0,A=this.length;B<A;B++){if(C.call(D,this[B],B,this)){return true;
+}}return false;},associate:function(C){var D={},B=Math.min(this.length,C.length);for(var A=0;A<B;A++){D[C[A]]=this[A];}return D;},link:function(C){var A={};
+for(var E=0,B=this.length;E<B;E++){for(var D in C){if(C[D](this[E])){A[D]=this[E];delete C[D];break;}}}return A;},contains:function(A,B){return this.indexOf(A,B)!=-1;
+},extend:function(C){for(var B=0,A=C.length;B<A;B++){this.push(C[B]);}return this;},getLast:function(){return(this.length)?this[this.length-1]:null;},getRandom:function(){return(this.length)?this[$random(0,this.length-1)]:null;
+},include:function(A){if(!this.contains(A)){this.push(A);}return this;},combine:function(C){for(var B=0,A=C.length;B<A;B++){this.include(C[B]);}return this;
+},erase:function(B){for(var A=this.length;A--;A){if(this[A]===B){this.splice(A,1);}}return this;},empty:function(){this.length=0;return this;},flatten:function(){var D=[];
+for(var B=0,A=this.length;B<A;B++){var C=$type(this[B]);if(!C){continue;}D=D.concat((C=="array"||C=="collection"||C=="arguments")?Array.flatten(this[B]):this[B]);
+}return D;},hexToRgb:function(B){if(this.length!=3){return null;}var A=this.map(function(C){if(C.length==1){C+=C;}return C.toInt(16);});return(B)?A:"rgb("+A+")";
+},rgbToHex:function(D){if(this.length<3){return null;}if(this.length==4&&this[3]==0&&!D){return"transparent";}var B=[];for(var A=0;A<3;A++){var C=(this[A]-0).toString(16);
+B.push((C.length==1)?"0"+C:C);}return(D)?B:"#"+B.join("");}});Function.implement({extend:function(A){for(var B in A){this[B]=A[B];}return this;},create:function(B){var A=this;
+B=B||{};return function(D){var C=B.arguments;C=(C!=undefined)?$splat(C):Array.slice(arguments,(B.event)?1:0);if(B.event){C=[D||window.event].extend(C);
+}var E=function(){return A.apply(B.bind||null,C);};if(B.delay){return setTimeout(E,B.delay);}if(B.periodical){return setInterval(E,B.periodical);}if(B.attempt){return $try(E);
+}return E();};},pass:function(A,B){return this.create({arguments:A,bind:B});},attempt:function(A,B){return this.create({arguments:A,bind:B,attempt:true})();
+},bind:function(B,A){return this.create({bind:B,arguments:A});},bindWithEvent:function(B,A){return this.create({bind:B,event:true,arguments:A});},delay:function(B,C,A){return this.create({delay:B,bind:C,arguments:A})();
+},periodical:function(A,C,B){return this.create({periodical:A,bind:C,arguments:B})();},run:function(A,B){return this.apply(B,$splat(A));}});Number.implement({limit:function(B,A){return Math.min(A,Math.max(B,this));
+},round:function(A){A=Math.pow(10,A||0);return Math.round(this*A)/A;},times:function(B,C){for(var A=0;A<this;A++){B.call(C,A,this);}},toFloat:function(){return parseFloat(this);
+},toInt:function(A){return parseInt(this,A||10);}});Number.alias("times","each");(function(B){var A={};B.each(function(C){if(!Number[C]){A[C]=function(){return Math[C].apply(null,[this].concat($A(arguments)));
+};}});Number.implement(A);})(["abs","acos","asin","atan","atan2","ceil","cos","exp","floor","log","max","min","pow","sin","sqrt","tan"]);String.implement({test:function(A,B){return((typeof A=="string")?new RegExp(A,B):A).test(this);
+},contains:function(A,B){return(B)?(B+this+B).indexOf(B+A+B)>-1:this.indexOf(A)>-1;},trim:function(){return this.replace(/^\s+|\s+$/g,"");},clean:function(){return this.replace(/\s+/g," ").trim();
+},camelCase:function(){return this.replace(/-\D/g,function(A){return A.charAt(1).toUpperCase();});},hyphenate:function(){return this.replace(/[A-Z]/g,function(A){return("-"+A.charAt(0).toLowerCase());
+});},capitalize:function(){return this.replace(/\b[a-z]/g,function(A){return A.toUpperCase();});},escapeRegExp:function(){return this.replace(/([-.*+?^${}()|[\]\/\\])/g,"\\$1");
+},toInt:function(A){return parseInt(this,A||10);},toFloat:function(){return parseFloat(this);},hexToRgb:function(B){var A=this.match(/^#?(\w{1,2})(\w{1,2})(\w{1,2})$/);
+return(A)?A.slice(1).hexToRgb(B):null;},rgbToHex:function(B){var A=this.match(/\d{1,3}/g);return(A)?A.rgbToHex(B):null;},stripScripts:function(B){var A="";
+var C=this.replace(/<script[^>]*>([\s\S]*?)<\/script>/gi,function(){A+=arguments[1]+"\n";return"";});if(B===true){$exec(A);}else{if($type(B)=="function"){B(A,C);
+}}return C;},substitute:function(A,B){return this.replace(B||(/\\?\{([^}]+)\}/g),function(D,C){if(D.charAt(0)=="\\"){return D.slice(1);}return(A[C]!=undefined)?A[C]:"";
+});}});Hash.implement({has:Object.prototype.hasOwnProperty,keyOf:function(B){for(var A in this){if(this.hasOwnProperty(A)&&this[A]===B){return A;}}return null;
+},hasValue:function(A){return(Hash.keyOf(this,A)!==null);},extend:function(A){Hash.each(A,function(C,B){Hash.set(this,B,C);},this);return this;},combine:function(A){Hash.each(A,function(C,B){Hash.include(this,B,C);
+},this);return this;},erase:function(A){if(this.hasOwnProperty(A)){delete this[A];}return this;},get:function(A){return(this.hasOwnProperty(A))?this[A]:null;
+},set:function(A,B){if(!this[A]||this.hasOwnProperty(A)){this[A]=B;}return this;},empty:function(){Hash.each(this,function(B,A){delete this[A];},this);
+return this;},include:function(B,C){var A=this[B];if(A==undefined){this[B]=C;}return this;},map:function(B,C){var A=new Hash;Hash.each(this,function(E,D){A.set(D,B.call(C,E,D,this));
+},this);return A;},filter:function(B,C){var A=new Hash;Hash.each(this,function(E,D){if(B.call(C,E,D,this)){A.set(D,E);}},this);return A;},every:function(B,C){for(var A in this){if(this.hasOwnProperty(A)&&!B.call(C,this[A],A)){return false;
+}}return true;},some:function(B,C){for(var A in this){if(this.hasOwnProperty(A)&&B.call(C,this[A],A)){return true;}}return false;},getKeys:function(){var A=[];
+Hash.each(this,function(C,B){A.push(B);});return A;},getValues:function(){var A=[];Hash.each(this,function(B){A.push(B);});return A;},toQueryString:function(A){var B=[];
+Hash.each(this,function(F,E){if(A){E=A+"["+E+"]";}var D;switch($type(F)){case"object":D=Hash.toQueryString(F,E);break;case"array":var C={};F.each(function(H,G){C[G]=H;
+});D=Hash.toQueryString(C,E);break;default:D=E+"="+encodeURIComponent(F);}if(F!=undefined){B.push(D);}});return B.join("&");}});Hash.alias({keyOf:"indexOf",hasValue:"contains"});
+var Event=new Native({name:"Event",initialize:function(A,F){F=F||window;var K=F.document;A=A||F.event;if(A.$extended){return A;}this.$extended=true;var J=A.type;
+var G=A.target||A.srcElement;while(G&&G.nodeType==3){G=G.parentNode;}if(J.test(/key/)){var B=A.which||A.keyCode;var M=Event.Keys.keyOf(B);if(J=="keydown"){var D=B-111;
+if(D>0&&D<13){M="f"+D;}}M=M||String.fromCharCode(B).toLowerCase();}else{if(J.match(/(click|mouse|menu)/i)){K=(!K.compatMode||K.compatMode=="CSS1Compat")?K.html:K.body;
+var I={x:A.pageX||A.clientX+K.scrollLeft,y:A.pageY||A.clientY+K.scrollTop};var C={x:(A.pageX)?A.pageX-F.pageXOffset:A.clientX,y:(A.pageY)?A.pageY-F.pageYOffset:A.clientY};
+if(J.match(/DOMMouseScroll|mousewheel/)){var H=(A.wheelDelta)?A.wheelDelta/120:-(A.detail||0)/3;}var E=(A.which==3)||(A.button==2);var L=null;if(J.match(/over|out/)){switch(J){case"mouseover":L=A.relatedTarget||A.fromElement;
+break;case"mouseout":L=A.relatedTarget||A.toElement;}if(!(function(){while(L&&L.nodeType==3){L=L.parentNode;}return true;}).create({attempt:Browser.Engine.gecko})()){L=false;
+}}}}return $extend(this,{event:A,type:J,page:I,client:C,rightClick:E,wheel:H,relatedTarget:L,target:G,code:B,key:M,shift:A.shiftKey,control:A.ctrlKey,alt:A.altKey,meta:A.metaKey});
+}});Event.Keys=new Hash({enter:13,up:38,down:40,left:37,right:39,esc:27,space:32,backspace:8,tab:9,"delete":46});Event.implement({stop:function(){return this.stopPropagation().preventDefault();
+},stopPropagation:function(){if(this.event.stopPropagation){this.event.stopPropagation();}else{this.event.cancelBubble=true;}return this;},preventDefault:function(){if(this.event.preventDefault){this.event.preventDefault();
+}else{this.event.returnValue=false;}return this;}});var Class=new Native({name:"Class",initialize:function(B){B=B||{};var A=function(E){for(var D in this){this[D]=$unlink(this[D]);
+}for(var F in Class.Mutators){if(!this[F]){continue;}Class.Mutators[F](this,this[F]);delete this[F];}this.constructor=A;if(E===$empty){return this;}var C=(this.initialize)?this.initialize.apply(this,arguments):this;
+if(this.options&&this.options.initialize){this.options.initialize.call(this);}return C;};$extend(A,this);A.constructor=Class;A.prototype=B;return A;}});
+Class.implement({implement:function(){Class.Mutators.Implements(this.prototype,Array.slice(arguments));return this;}});Class.Mutators={Implements:function(A,B){$splat(B).each(function(C){$extend(A,($type(C)=="class")?new C($empty):C);
+});},Extends:function(self,klass){var instance=new klass($empty);delete instance.parent;delete instance.parentOf;for(var key in instance){var current=self[key],previous=instance[key];
+if(current==undefined){self[key]=previous;continue;}var ctype=$type(current),ptype=$type(previous);if(ctype!=ptype){continue;}switch(ctype){case"function":if(!arguments.callee.caller){self[key]=eval("("+String(current).replace(/\bthis\.parent\(\s*(\))?/g,function(full,close){return"arguments.callee._parent_.call(this"+(close||", ");
+})+")");}self[key]._parent_=previous;break;case"object":self[key]=$merge(previous,current);}}self.parent=function(){return arguments.callee.caller._parent_.apply(this,arguments);
+};self.parentOf=function(descendant){return descendant._parent_.apply(this,Array.slice(arguments,1));};}};var Chain=new Class({chain:function(){this.$chain=(this.$chain||[]).extend(arguments);
+return this;},callChain:function(){return(this.$chain&&this.$chain.length)?this.$chain.shift().apply(this,arguments):false;},clearChain:function(){if(this.$chain){this.$chain.empty();
+}return this;}});var Events=new Class({addEvent:function(C,B,A){C=Events.removeOn(C);if(B!=$empty){this.$events=this.$events||{};this.$events[C]=this.$events[C]||[];
+this.$events[C].include(B);if(A){B.internal=true;}}return this;},addEvents:function(A){for(var B in A){this.addEvent(B,A[B]);}return this;},fireEvent:function(C,B,A){C=Events.removeOn(C);
+if(!this.$events||!this.$events[C]){return this;}this.$events[C].each(function(D){D.create({bind:this,delay:A,"arguments":B})();},this);return this;},removeEvent:function(B,A){B=Events.removeOn(B);
+if(!this.$events||!this.$events[B]){return this;}if(!A.internal){this.$events[B].erase(A);}return this;},removeEvents:function(C){for(var D in this.$events){if(C&&C!=D){continue;
+}var B=this.$events[D];for(var A=B.length;A--;A){this.removeEvent(D,B[A]);}}return this;}});Events.removeOn=function(A){return A.replace(/^on([A-Z])/,function(B,C){return C.toLowerCase();
+});};var Options=new Class({setOptions:function(){this.options=$merge.run([this.options].extend(arguments));if(!this.addEvent){return this;}for(var A in this.options){if($type(this.options[A])!="function"||!(/^on[A-Z]/).test(A)){continue;
+}this.addEvent(A,this.options[A]);delete this.options[A];}return this;}});Document.implement({newElement:function(A,B){if(Browser.Engine.trident&&B){["name","type","checked"].each(function(C){if(!B[C]){return ;
+}A+=" "+C+'="'+B[C]+'"';if(C!="checked"){delete B[C];}});A="<"+A+">";}return $.element(this.createElement(A)).set(B);},newTextNode:function(A){return this.createTextNode(A);
+},getDocument:function(){return this;},getWindow:function(){return this.defaultView||this.parentWindow;},purge:function(){var C=this.getElementsByTagName("*");
+for(var B=0,A=C.length;B<A;B++){Browser.freeMem(C[B]);}}});var Element=new Native({name:"Element",legacy:window.Element,initialize:function(A,B){var C=Element.Constructors.get(A);
+if(C){return C(B);}if(typeof A=="string"){return document.newElement(A,B);}return $(A).set(B);},afterImplement:function(A,B){if(!Array[A]){Elements.implement(A,Elements.multi(A));
+}Element.Prototype[A]=B;}});Element.Prototype={$family:{name:"element"}};Element.Constructors=new Hash;var IFrame=new Native({name:"IFrame",generics:false,initialize:function(){var E=Array.link(arguments,{properties:Object.type,iframe:$defined});
+var C=E.properties||{};var B=$(E.iframe)||false;var D=C.onload||$empty;delete C.onload;C.id=C.name=$pick(C.id,C.name,B.id,B.name,"IFrame_"+$time());B=new Element(B||"iframe",C);
+var A=function(){var F=$try(function(){return B.contentWindow.location.host;});if(F&&F==window.location.host){var H=new Window(B.contentWindow);var G=new Document(B.contentWindow.document);
+$extend(H.Element.prototype,Element.Prototype);}D.call(B.contentWindow,B.contentWindow.document);};(!window.frames[C.id])?B.addListener("load",A):A();return B;
+}});var Elements=new Native({initialize:function(F,B){B=$extend({ddup:true,cash:true},B);F=F||[];if(B.ddup||B.cash){var G={},E=[];for(var C=0,A=F.length;
+C<A;C++){var D=$.element(F[C],!B.cash);if(B.ddup){if(G[D.uid]){continue;}G[D.uid]=true;}E.push(D);}F=E;}return(B.cash)?$extend(F,this):F;}});Elements.implement({filter:function(A,B){if(!A){return this;
+}return new Elements(Array.filter(this,(typeof A=="string")?function(C){return C.match(A);}:A,B));}});Elements.multi=function(A){return function(){var B=[];
+var F=true;for(var D=0,C=this.length;D<C;D++){var E=this[D][A].apply(this[D],arguments);B.push(E);if(F){F=($type(E)=="element");}}return(F)?new Elements(B):B;
+};};Window.implement({$:function(B,C){if(B&&B.$family&&B.uid){return B;}var A=$type(B);return($[A])?$[A](B,C,this.document):null;},$$:function(A){if(arguments.length==1&&typeof A=="string"){return this.document.getElements(A);
+}var F=[];var C=Array.flatten(arguments);for(var D=0,B=C.length;D<B;D++){var E=C[D];switch($type(E)){case"element":E=[E];break;case"string":E=this.document.getElements(E,true);
+break;default:E=false;}if(E){F.extend(E);}}return new Elements(F);},getDocument:function(){return this.document;},getWindow:function(){return this;}});
+$.string=function(C,B,A){C=A.getElementById(C);return(C)?$.element(C,B):null;};$.element=function(A,D){$uid(A);if(!D&&!A.$family&&!(/^object|embed$/i).test(A.tagName)){var B=Element.Prototype;
+for(var C in B){A[C]=B[C];}}return A;};$.object=function(B,C,A){if(B.toElement){return $.element(B.toElement(A),C);}return null;};$.textnode=$.whitespace=$.window=$.document=$arguments(0);
+Native.implement([Element,Document],{getElement:function(A,B){return $(this.getElements(A,true)[0]||null,B);},getElements:function(A,D){A=A.split(",");
+var C=[];var B=(A.length>1);A.each(function(E){var F=this.getElementsByTagName(E.trim());(B)?C.extend(F):C=F;},this);return new Elements(C,{ddup:B,cash:!D});
+}});Element.Storage={get:function(A){return(this[A]||(this[A]={}));}};Element.Inserters=new Hash({before:function(B,A){if(A.parentNode){A.parentNode.insertBefore(B,A);
+}},after:function(B,A){if(!A.parentNode){return ;}var C=A.nextSibling;(C)?A.parentNode.insertBefore(B,C):A.parentNode.appendChild(B);},bottom:function(B,A){A.appendChild(B);
+},top:function(B,A){var C=A.firstChild;(C)?A.insertBefore(B,C):A.appendChild(B);}});Element.Inserters.inside=Element.Inserters.bottom;Element.Inserters.each(function(C,B){var A=B.capitalize();
+Element.implement("inject"+A,function(D){C(this,$(D,true));return this;});Element.implement("grab"+A,function(D){C($(D,true),this);return this;});});Element.implement({getDocument:function(){return this.ownerDocument;
+},getWindow:function(){return this.ownerDocument.getWindow();},getElementById:function(D,C){var B=this.ownerDocument.getElementById(D);if(!B){return null;
+}for(var A=B.parentNode;A!=this;A=A.parentNode){if(!A){return null;}}return $.element(B,C);},set:function(D,B){switch($type(D)){case"object":for(var C in D){this.set(C,D[C]);
+}break;case"string":var A=Element.Properties.get(D);(A&&A.set)?A.set.apply(this,Array.slice(arguments,1)):this.setProperty(D,B);}return this;},get:function(B){var A=Element.Properties.get(B);
+return(A&&A.get)?A.get.apply(this,Array.slice(arguments,1)):this.getProperty(B);},erase:function(B){var A=Element.Properties.get(B);(A&&A.erase)?A.erase.apply(this,Array.slice(arguments,1)):this.removeProperty(B);
+return this;},match:function(A){return(!A||Element.get(this,"tag")==A);},inject:function(B,A){Element.Inserters.get(A||"bottom")(this,$(B,true));return this;
+},wraps:function(B,A){B=$(B,true);return this.replaces(B).grab(B,A);},grab:function(B,A){Element.Inserters.get(A||"bottom")($(B,true),this);return this;
+},appendText:function(B,A){return this.grab(this.getDocument().newTextNode(B),A);},adopt:function(){Array.flatten(arguments).each(function(A){A=$(A,true);
+if(A){this.appendChild(A);}},this);return this;},dispose:function(){return(this.parentNode)?this.parentNode.removeChild(this):this;},clone:function(D,C){switch($type(this)){case"element":var H={};
+for(var G=0,E=this.attributes.length;G<E;G++){var B=this.attributes[G],L=B.nodeName.toLowerCase();if(Browser.Engine.trident&&(/input/i).test(this.tagName)&&(/width|height/).test(L)){continue;
+}var K=(L=="style"&&this.style)?this.style.cssText:B.nodeValue;if(!$chk(K)||L=="uid"||(L=="id"&&!C)){continue;}if(K!="inherit"&&["string","number"].contains($type(K))){H[L]=K;
+}}var J=new Element(this.nodeName.toLowerCase(),H);if(D!==false){for(var I=0,F=this.childNodes.length;I<F;I++){var A=Element.clone(this.childNodes[I],true,C);
+if(A){J.grab(A);}}}return J;case"textnode":return document.newTextNode(this.nodeValue);}return null;},replaces:function(A){A=$(A,true);A.parentNode.replaceChild(this,A);
+return this;},hasClass:function(A){return this.className.contains(A," ");},addClass:function(A){if(!this.hasClass(A)){this.className=(this.className+" "+A).clean();
+}return this;},removeClass:function(A){this.className=this.className.replace(new RegExp("(^|\\s)"+A+"(?:\\s|$)"),"$1").clean();return this;},toggleClass:function(A){return this.hasClass(A)?this.removeClass(A):this.addClass(A);
+},getComputedStyle:function(B){if(this.currentStyle){return this.currentStyle[B.camelCase()];}var A=this.getWindow().getComputedStyle(this,null);return(A)?A.getPropertyValue([B.hyphenate()]):null;
+},empty:function(){$A(this.childNodes).each(function(A){Browser.freeMem(A);Element.empty(A);Element.dispose(A);},this);return this;},destroy:function(){Browser.freeMem(this.empty().dispose());
+return null;},getSelected:function(){return new Elements($A(this.options).filter(function(A){return A.selected;}));},toQueryString:function(){var A=[];
+this.getElements("input, select, textarea").each(function(B){if(!B.name||B.disabled){return ;}var C=(B.tagName.toLowerCase()=="select")?Element.getSelected(B).map(function(D){return D.value;
+}):((B.type=="radio"||B.type=="checkbox")&&!B.checked)?null:B.value;$splat(C).each(function(D){if(D){A.push(B.name+"="+encodeURIComponent(D));}});});return A.join("&");
+},getProperty:function(C){var B=Element.Attributes,A=B.Props[C];var D=(A)?this[A]:this.getAttribute(C,2);return(B.Bools[C])?!!D:(A)?D:D||null;},getProperties:function(){var A=$A(arguments);
+return A.map(function(B){return this.getProperty(B);},this).associate(A);},setProperty:function(D,E){var C=Element.Attributes,B=C.Props[D],A=$defined(E);
+if(B&&C.Bools[D]){E=(E||!A)?true:false;}else{if(!A){return this.removeProperty(D);}}(B)?this[B]=E:this.setAttribute(D,E);return this;},setProperties:function(A){for(var B in A){this.setProperty(B,A[B]);
+}return this;},removeProperty:function(D){var C=Element.Attributes,B=C.Props[D],A=(B&&C.Bools[D]);(B)?this[B]=(A)?false:"":this.removeAttribute(D);return this;
+},removeProperties:function(){Array.each(arguments,this.removeProperty,this);return this;}});(function(){var A=function(D,B,I,C,F,H){var E=D[I||B];var G=[];
+while(E){if(E.nodeType==1&&(!C||Element.match(E,C))){G.push(E);if(!F){break;}}E=E[B];}return(F)?new Elements(G,{ddup:false,cash:!H}):$(G[0],H);};Element.implement({getPrevious:function(B,C){return A(this,"previousSibling",null,B,false,C);
+},getAllPrevious:function(B,C){return A(this,"previousSibling",null,B,true,C);},getNext:function(B,C){return A(this,"nextSibling",null,B,false,C);},getAllNext:function(B,C){return A(this,"nextSibling",null,B,true,C);
+},getFirst:function(B,C){return A(this,"nextSibling","firstChild",B,false,C);},getLast:function(B,C){return A(this,"previousSibling","lastChild",B,false,C);
+},getParent:function(B,C){return A(this,"parentNode",null,B,false,C);},getParents:function(B,C){return A(this,"parentNode",null,B,true,C);},getChildren:function(B,C){return A(this,"nextSibling","firstChild",B,true,C);
+},hasChild:function(B){B=$(B,true);return(!!B&&$A(this.getElementsByTagName(B.tagName)).contains(B));}});})();Element.Properties=new Hash;Element.Properties.style={set:function(A){this.style.cssText=A;
+},get:function(){return this.style.cssText;},erase:function(){this.style.cssText="";}};Element.Properties.tag={get:function(){return this.tagName.toLowerCase();
+}};Element.Properties.href={get:function(){return(!this.href)?null:this.href.replace(new RegExp("^"+document.location.protocol+"//"+document.location.host),"");
+}};Element.Properties.html={set:function(){return this.innerHTML=Array.flatten(arguments).join("");}};Native.implement([Element,Window,Document],{addListener:function(B,A){if(this.addEventListener){this.addEventListener(B,A,false);
+}else{this.attachEvent("on"+B,A);}return this;},removeListener:function(B,A){if(this.removeEventListener){this.removeEventListener(B,A,false);}else{this.detachEvent("on"+B,A);
+}return this;},retrieve:function(B,A){var D=Element.Storage.get(this.uid);var C=D[B];if($defined(A)&&!$defined(C)){C=D[B]=A;}return $pick(C);},store:function(B,A){var C=Element.Storage.get(this.uid);
+C[B]=A;return this;},eliminate:function(A){var B=Element.Storage.get(this.uid);delete B[A];return this;}});Element.Attributes=new Hash({Props:{html:"innerHTML","class":"className","for":"htmlFor",text:(Browser.Engine.trident)?"innerText":"textContent"},Bools:["compact","nowrap","ismap","declare","noshade","checked","disabled","readonly","multiple","selected","noresize","defer"],Camels:["value","accessKey","cellPadding","cellSpacing","colSpan","frameBorder","maxLength","readOnly","rowSpan","tabIndex","useMap"]});
+Browser.freeMem=function(A){if(!A){return ;}if(Browser.Engine.trident&&(/object/i).test(A.tagName)){for(var B in A){if(typeof A[B]=="function"){A[B]=$empty;
+}}Element.dispose(A);}if(A.uid&&A.removeEvents){A.removeEvents();}};(function(B){var C=B.Bools,A=B.Camels;B.Bools=C=C.associate(C);Hash.extend(Hash.combine(B.Props,C),A.associate(A.map(function(D){return D.toLowerCase();
+})));B.erase("Camels");})(Element.Attributes);window.addListener("unload",function(){window.removeListener("unload",arguments.callee);document.purge();
+if(Browser.Engine.trident){CollectGarbage();}});Element.Properties.events={set:function(A){this.addEvents(A);}};Native.implement([Element,Window,Document],{addEvent:function(E,G){var H=this.retrieve("events",{});
+H[E]=H[E]||{keys:[],values:[]};if(H[E].keys.contains(G)){return this;}H[E].keys.push(G);var F=E,A=Element.Events.get(E),C=G,I=this;if(A){if(A.onAdd){A.onAdd.call(this,G);
+}if(A.condition){C=function(J){if(A.condition.call(this,J)){return G.call(this,J);}return false;};}F=A.base||F;}var D=function(){return G.call(I);};var B=Element.NativeEvents[F]||0;
+if(B){if(B==2){D=function(J){J=new Event(J,I.getWindow());if(C.call(I,J)===false){J.stop();}};}this.addListener(F,D);}H[E].values.push(D);return this;},removeEvent:function(D,C){var B=this.retrieve("events");
+if(!B||!B[D]){return this;}var G=B[D].keys.indexOf(C);if(G==-1){return this;}var A=B[D].keys.splice(G,1)[0];var F=B[D].values.splice(G,1)[0];var E=Element.Events.get(D);
+if(E){if(E.onRemove){E.onRemove.call(this,C);}D=E.base||D;}return(Element.NativeEvents[D])?this.removeListener(D,F):this;},addEvents:function(A){for(var B in A){this.addEvent(B,A[B]);
+}return this;},removeEvents:function(B){var A=this.retrieve("events");if(!A){return this;}if(!B){for(var C in A){this.removeEvents(C);}A=null;}else{if(A[B]){while(A[B].keys[0]){this.removeEvent(B,A[B].keys[0]);
+}A[B]=null;}}return this;},fireEvent:function(D,B,A){var C=this.retrieve("events");if(!C||!C[D]){return this;}C[D].keys.each(function(E){E.create({bind:this,delay:A,"arguments":B})();
+},this);return this;},cloneEvents:function(D,A){D=$(D);var C=D.retrieve("events");if(!C){return this;}if(!A){for(var B in C){this.cloneEvents(D,B);}}else{if(C[A]){C[A].keys.each(function(E){this.addEvent(A,E);
+},this);}}return this;}});Element.NativeEvents={click:2,dblclick:2,mouseup:2,mousedown:2,contextmenu:2,mousewheel:2,DOMMouseScroll:2,mouseover:2,mouseout:2,mousemove:2,selectstart:2,selectend:2,keydown:2,keypress:2,keyup:2,focus:2,blur:2,change:2,reset:2,select:2,submit:2,load:1,unload:1,beforeunload:2,resize:1,move:1,DOMContentLoaded:1,readystatechange:1,error:1,abort:1,scroll:1};
+(function(){var A=function(B){var C=B.relatedTarget;if(C==undefined){return true;}if(C===false){return false;}return($type(this)!="document"&&C!=this&&C.prefix!="xul"&&!this.hasChild(C));
+};Element.Events=new Hash({mouseenter:{base:"mouseover",condition:A},mouseleave:{base:"mouseout",condition:A},mousewheel:{base:(Browser.Engine.gecko)?"DOMMouseScroll":"mousewheel"}});
+})();Element.Properties.styles={set:function(A){this.setStyles(A);}};Element.Properties.opacity={set:function(A,B){if(!B){if(A==0){if(this.style.visibility!="hidden"){this.style.visibility="hidden";
+}}else{if(this.style.visibility!="visible"){this.style.visibility="visible";}}}if(!this.currentStyle||!this.currentStyle.hasLayout){this.style.zoom=1;}if(Browser.Engine.trident){this.style.filter=(A==1)?"":"alpha(opacity="+A*100+")";
+}this.style.opacity=A;this.store("opacity",A);},get:function(){return this.retrieve("opacity",1);}};Element.implement({setOpacity:function(A){return this.set("opacity",A,true);
+},getOpacity:function(){return this.get("opacity");},setStyle:function(B,A){switch(B){case"opacity":return this.set("opacity",parseFloat(A));case"float":B=(Browser.Engine.trident)?"styleFloat":"cssFloat";
+}B=B.camelCase();if($type(A)!="string"){var C=(Element.Styles.get(B)||"@").split(" ");A=$splat(A).map(function(E,D){if(!C[D]){return"";}return($type(E)=="number")?C[D].replace("@",Math.round(E)):E;
+}).join(" ");}else{if(A==String(Number(A))){A=Math.round(A);}}this.style[B]=A;return this;},getStyle:function(G){switch(G){case"opacity":return this.get("opacity");
+case"float":G=(Browser.Engine.trident)?"styleFloat":"cssFloat";}G=G.camelCase();var A=this.style[G];if(!$chk(A)){A=[];for(var F in Element.ShortStyles){if(G!=F){continue;
+}for(var E in Element.ShortStyles[F]){A.push(this.getStyle(E));}return A.join(" ");}A=this.getComputedStyle(G);}if(A){A=String(A);var C=A.match(/rgba?\([\d\s,]+\)/);
+if(C){A=A.replace(C[0],C[0].rgbToHex());}}if(Browser.Engine.presto||(Browser.Engine.trident&&!$chk(parseInt(A)))){if(G.test(/^(height|width)$/)){var B=(G=="width")?["left","right"]:["top","bottom"],D=0;
+B.each(function(H){D+=this.getStyle("border-"+H+"-width").toInt()+this.getStyle("padding-"+H).toInt();},this);return this["offset"+G.capitalize()]-D+"px";
+}if(Browser.Engine.presto&&String(A).test("px")){return A;}if(G.test(/(border(.+)Width|margin|padding)/)){return"0px";}}return A;},setStyles:function(B){for(var A in B){this.setStyle(A,B[A]);
+}return this;},getStyles:function(){var A={};Array.each(arguments,function(B){A[B]=this.getStyle(B);},this);return A;}});Element.Styles=new Hash({left:"@px",top:"@px",bottom:"@px",right:"@px",width:"@px",height:"@px",maxWidth:"@px",maxHeight:"@px",minWidth:"@px",minHeight:"@px",backgroundColor:"rgb(@, @, @)",backgroundPosition:"@px @px",color:"rgb(@, @, @)",fontSize:"@px",letterSpacing:"@px",lineHeight:"@px",clip:"rect(@px @px @px @px)",margin:"@px @px @px @px",padding:"@px @px @px @px",border:"@px @ rgb(@, @, @) @px @ rgb(@, @, @) @px @ rgb(@, @, @)",borderWidth:"@px @px @px @px",borderStyle:"@ @ @ @",borderColor:"rgb(@, @, @) rgb(@, @, @) rgb(@, @, @) rgb(@, @, @)",zIndex:"@",zoom:"@",fontWeight:"@",textIndent:"@px",opacity:"@"});
+Element.ShortStyles={margin:{},padding:{},border:{},borderWidth:{},borderStyle:{},borderColor:{}};["Top","Right","Bottom","Left"].each(function(G){var F=Element.ShortStyles;
+var B=Element.Styles;["margin","padding"].each(function(H){var I=H+G;F[H][I]=B[I]="@px";});var E="border"+G;F.border[E]=B[E]="@px @ rgb(@, @, @)";var D=E+"Width",A=E+"Style",C=E+"Color";
+F[E]={};F.borderWidth[D]=F[E][D]=B[D]="@px";F.borderStyle[A]=F[E][A]=B[A]="@";F.borderColor[C]=F[E][C]=B[C]="rgb(@, @, @)";});(function(){Element.implement({scrollTo:function(H,I){if(B(this)){this.getWindow().scrollTo(H,I);
+}else{this.scrollLeft=H;this.scrollTop=I;}return this;},getSize:function(){if(B(this)){return this.getWindow().getSize();}return{x:this.offsetWidth,y:this.offsetHeight};
+},getScrollSize:function(){if(B(this)){return this.getWindow().getScrollSize();}return{x:this.scrollWidth,y:this.scrollHeight};},getScroll:function(){if(B(this)){return this.getWindow().getScroll();
+}return{x:this.scrollLeft,y:this.scrollTop};},getScrolls:function(){var I=this,H={x:0,y:0};while(I&&!B(I)){H.x+=I.scrollLeft;H.y+=I.scrollTop;I=I.parentNode;
+}return H;},getOffsetParent:function(){var H=this;if(B(H)){return null;}if(!Browser.Engine.trident){return H.offsetParent;}while((H=H.parentNode)&&!B(H)){if(D(H,"position")!="static"){return H;
+}}return null;},getOffsets:function(){var I=this,H={x:0,y:0};if(B(this)){return H;}while(I&&!B(I)){H.x+=I.offsetLeft;H.y+=I.offsetTop;if(Browser.Engine.gecko){if(!F(I)){H.x+=C(I);
+H.y+=G(I);}var J=I.parentNode;if(J&&D(J,"overflow")!="visible"){H.x+=C(J);H.y+=G(J);}}else{if(I!=this&&(Browser.Engine.trident||Browser.Engine.webkit)){H.x+=C(I);
+H.y+=G(I);}}I=I.offsetParent;if(Browser.Engine.trident){while(I&&!I.currentStyle.hasLayout){I=I.offsetParent;}}}if(Browser.Engine.gecko&&!F(this)){H.x-=C(this);
+H.y-=G(this);}return H;},getPosition:function(K){if(B(this)){return{x:0,y:0};}var L=this.getOffsets(),I=this.getScrolls();var H={x:L.x-I.x,y:L.y-I.y};var J=(K&&(K=$(K)))?K.getPosition():{x:0,y:0};
+return{x:H.x-J.x,y:H.y-J.y};},getCoordinates:function(J){if(B(this)){return this.getWindow().getCoordinates();}var H=this.getPosition(J),I=this.getSize();
+var K={left:H.x,top:H.y,width:I.x,height:I.y};K.right=K.left+K.width;K.bottom=K.top+K.height;return K;},computePosition:function(H){return{left:H.x-E(this,"margin-left"),top:H.y-E(this,"margin-top")};
+},position:function(H){return this.setStyles(this.computePosition(H));}});Native.implement([Document,Window],{getSize:function(){var I=this.getWindow();
+if(Browser.Engine.presto||Browser.Engine.webkit){return{x:I.innerWidth,y:I.innerHeight};}var H=A(this);return{x:H.clientWidth,y:H.clientHeight};},getScroll:function(){var I=this.getWindow();
+var H=A(this);return{x:I.pageXOffset||H.scrollLeft,y:I.pageYOffset||H.scrollTop};},getScrollSize:function(){var I=A(this);var H=this.getSize();return{x:Math.max(I.scrollWidth,H.x),y:Math.max(I.scrollHeight,H.y)};
+},getPosition:function(){return{x:0,y:0};},getCoordinates:function(){var H=this.getSize();return{top:0,left:0,bottom:H.y,right:H.x,height:H.y,width:H.x};
+}});var D=Element.getComputedStyle;function E(H,I){return D(H,I).toInt()||0;}function F(H){return D(H,"-moz-box-sizing")=="border-box";}function G(H){return E(H,"border-top-width");
+}function C(H){return E(H,"border-left-width");}function B(H){return(/^(?:body|html)$/i).test(H.tagName);}function A(H){var I=H.getDocument();return(!I.compatMode||I.compatMode=="CSS1Compat")?I.html:I.body;
+}})();Native.implement([Window,Document,Element],{getHeight:function(){return this.getSize().y;},getWidth:function(){return this.getSize().x;},getScrollTop:function(){return this.getScroll().y;
+},getScrollLeft:function(){return this.getScroll().x;},getScrollHeight:function(){return this.getScrollSize().y;},getScrollWidth:function(){return this.getScrollSize().x;
+},getTop:function(){return this.getPosition().y;},getLeft:function(){return this.getPosition().x;}});Native.implement([Document,Element],{getElements:function(H,G){H=H.split(",");
+var C,E={};for(var D=0,B=H.length;D<B;D++){var A=H[D],F=Selectors.Utils.search(this,A,E);if(D!=0&&F.item){F=$A(F);}C=(D==0)?F:(C.item)?$A(C).concat(F):C.concat(F);
+}return new Elements(C,{ddup:(H.length>1),cash:!G});}});Element.implement({match:function(B){if(!B){return true;}var D=Selectors.Utils.parseTagAndID(B);
+var A=D[0],E=D[1];if(!Selectors.Filters.byID(this,E)||!Selectors.Filters.byTag(this,A)){return false;}var C=Selectors.Utils.parseSelector(B);return(C)?Selectors.Utils.filter(this,C,{}):true;
+}});var Selectors={Cache:{nth:{},parsed:{}}};Selectors.RegExps={id:(/#([\w-]+)/),tag:(/^(\w+|\*)/),quick:(/^(\w+|\*)$/),splitter:(/\s*([+>~\s])\s*([a-zA-Z#.*:\[])/g),combined:(/\.([\w-]+)|\[(\w+)(?:([!*^$~|]?=)["']?(.*?)["']?)?\]|:([\w-]+)(?:\(["']?(.*?)?["']?\)|$)/g)};
+Selectors.Utils={chk:function(B,C){if(!C){return true;}var A=$uid(B);if(!C[A]){return C[A]=true;}return false;},parseNthArgument:function(F){if(Selectors.Cache.nth[F]){return Selectors.Cache.nth[F];
+}var C=F.match(/^([+-]?\d*)?([a-z]+)?([+-]?\d*)?$/);if(!C){return false;}var E=parseInt(C[1]);var B=(E||E===0)?E:1;var D=C[2]||false;var A=parseInt(C[3])||0;
+if(B!=0){A--;while(A<1){A+=B;}while(A>=B){A-=B;}}else{B=A;D="index";}switch(D){case"n":C={a:B,b:A,special:"n"};break;case"odd":C={a:2,b:0,special:"n"};
+break;case"even":C={a:2,b:1,special:"n"};break;case"first":C={a:0,special:"index"};break;case"last":C={special:"last-child"};break;case"only":C={special:"only-child"};
+break;default:C={a:(B-1),special:"index"};}return Selectors.Cache.nth[F]=C;},parseSelector:function(E){if(Selectors.Cache.parsed[E]){return Selectors.Cache.parsed[E];
+}var D,H={classes:[],pseudos:[],attributes:[]};while((D=Selectors.RegExps.combined.exec(E))){var I=D[1],G=D[2],F=D[3],B=D[4],C=D[5],J=D[6];if(I){H.classes.push(I);
+}else{if(C){var A=Selectors.Pseudo.get(C);if(A){H.pseudos.push({parser:A,argument:J});}else{H.attributes.push({name:C,operator:"=",value:J});}}else{if(G){H.attributes.push({name:G,operator:F,value:B});
+}}}}if(!H.classes.length){delete H.classes;}if(!H.attributes.length){delete H.attributes;}if(!H.pseudos.length){delete H.pseudos;}if(!H.classes&&!H.attributes&&!H.pseudos){H=null;
+}return Selectors.Cache.parsed[E]=H;},parseTagAndID:function(B){var A=B.match(Selectors.RegExps.tag);var C=B.match(Selectors.RegExps.id);return[(A)?A[1]:"*",(C)?C[1]:false];
+},filter:function(F,C,E){var D;if(C.classes){for(D=C.classes.length;D--;D){var G=C.classes[D];if(!Selectors.Filters.byClass(F,G)){return false;}}}if(C.attributes){for(D=C.attributes.length;
+D--;D){var B=C.attributes[D];if(!Selectors.Filters.byAttribute(F,B.name,B.operator,B.value)){return false;}}}if(C.pseudos){for(D=C.pseudos.length;D--;D){var A=C.pseudos[D];
+if(!Selectors.Filters.byPseudo(F,A.parser,A.argument,E)){return false;}}}return true;},getByTagAndID:function(B,A,D){if(D){var C=(B.getElementById)?B.getElementById(D,true):Element.getElementById(B,D,true);
+return(C&&Selectors.Filters.byTag(C,A))?[C]:[];}else{return B.getElementsByTagName(A);}},search:function(J,I,O){var B=[];var C=I.trim().replace(Selectors.RegExps.splitter,function(Z,Y,X){B.push(Y);
+return":)"+X;}).split(":)");var K,F,E,V;for(var U=0,Q=C.length;U<Q;U++){var T=C[U];if(U==0&&Selectors.RegExps.quick.test(T)){K=J.getElementsByTagName(T);
+continue;}var A=B[U-1];var L=Selectors.Utils.parseTagAndID(T);var W=L[0],M=L[1];if(U==0){K=Selectors.Utils.getByTagAndID(J,W,M);}else{var D={},H=[];for(var S=0,R=K.length;
+S<R;S++){H=Selectors.Getters[A](H,K[S],W,M,D);}K=H;}var G=Selectors.Utils.parseSelector(T);if(G){E=[];for(var P=0,N=K.length;P<N;P++){V=K[P];if(Selectors.Utils.filter(V,G,O)){E.push(V);
+}}K=E;}}return K;}};Selectors.Getters={" ":function(H,G,I,A,E){var D=Selectors.Utils.getByTagAndID(G,I,A);for(var C=0,B=D.length;C<B;C++){var F=D[C];if(Selectors.Utils.chk(F,E)){H.push(F);
+}}return H;},">":function(H,G,I,A,F){var C=Selectors.Utils.getByTagAndID(G,I,A);for(var E=0,D=C.length;E<D;E++){var B=C[E];if(B.parentNode==G&&Selectors.Utils.chk(B,F)){H.push(B);
+}}return H;},"+":function(C,B,A,E,D){while((B=B.nextSibling)){if(B.nodeType==1){if(Selectors.Utils.chk(B,D)&&Selectors.Filters.byTag(B,A)&&Selectors.Filters.byID(B,E)){C.push(B);
+}break;}}return C;},"~":function(C,B,A,E,D){while((B=B.nextSibling)){if(B.nodeType==1){if(!Selectors.Utils.chk(B,D)){break;}if(Selectors.Filters.byTag(B,A)&&Selectors.Filters.byID(B,E)){C.push(B);
+}}}return C;}};Selectors.Filters={byTag:function(B,A){return(A=="*"||(B.tagName&&B.tagName.toLowerCase()==A));},byID:function(A,B){return(!B||(A.id&&A.id==B));
+},byClass:function(B,A){return(B.className&&B.className.contains(A," "));},byPseudo:function(A,D,C,B){return D.call(A,C,B);},byAttribute:function(C,D,B,E){var A=Element.prototype.getProperty.call(C,D);
+if(!A){return false;}if(!B||E==undefined){return true;}switch(B){case"=":return(A==E);case"*=":return(A.contains(E));case"^=":return(A.substr(0,E.length)==E);
+case"$=":return(A.substr(A.length-E.length)==E);case"!=":return(A!=E);case"~=":return A.contains(E," ");case"|=":return A.contains(E,"-");}return false;
+}};Selectors.Pseudo=new Hash({empty:function(){return !(this.innerText||this.textContent||"").length;},not:function(A){return !Element.match(this,A);},contains:function(A){return(this.innerText||this.textContent||"").contains(A);
+},"first-child":function(){return Selectors.Pseudo.index.call(this,0);},"last-child":function(){var A=this;while((A=A.nextSibling)){if(A.nodeType==1){return false;
+}}return true;},"only-child":function(){var B=this;while((B=B.previousSibling)){if(B.nodeType==1){return false;}}var A=this;while((A=A.nextSibling)){if(A.nodeType==1){return false;
+}}return true;},"nth-child":function(G,E){G=(G==undefined)?"n":G;var C=Selectors.Utils.parseNthArgument(G);if(C.special!="n"){return Selectors.Pseudo[C.special].call(this,C.a,E);
+}var F=0;E.positions=E.positions||{};var D=$uid(this);if(!E.positions[D]){var B=this;while((B=B.previousSibling)){if(B.nodeType!=1){continue;}F++;var A=E.positions[$uid(B)];
+if(A!=undefined){F=A+F;break;}}E.positions[D]=F;}return(E.positions[D]%C.a==C.b);},index:function(A){var B=this,C=0;while((B=B.previousSibling)){if(B.nodeType==1&&++C>A){return false;
+}}return(C==A);},even:function(B,A){return Selectors.Pseudo["nth-child"].call(this,"2n+1",A);},odd:function(B,A){return Selectors.Pseudo["nth-child"].call(this,"2n",A);
+}});Element.Events.domready={onAdd:function(A){if(Browser.loaded){A.call(this);}}};(function(){var B=function(){if(Browser.loaded){return ;}Browser.loaded=true;
+window.fireEvent("domready");document.fireEvent("domready");};switch(Browser.Engine.name){case"webkit":(function(){(["loaded","complete"].contains(document.readyState))?B():arguments.callee.delay(50);
+})();break;case"trident":var A=document.createElement("div");(function(){($try(function(){A.doScroll("left");return $(A).inject(document.body).set("html","temp").dispose();
+}))?B():arguments.callee.delay(50);})();break;default:window.addEvent("load",B);document.addEvent("DOMContentLoaded",B);}})();var JSON=new Hash({encode:function(B){switch($type(B)){case"string":return'"'+B.replace(/[\x00-\x1f\\"]/g,JSON.$replaceChars)+'"';
+case"array":return"["+String(B.map(JSON.encode).filter($defined))+"]";case"object":case"hash":var A=[];Hash.each(B,function(E,D){var C=JSON.encode(E);if(C){A.push(JSON.encode(D)+":"+C);
+}});return"{"+A+"}";case"number":case"boolean":return String(B);case false:return"null";}return null;},$specialChars:{"\b":"\\b","\t":"\\t","\n":"\\n","\f":"\\f","\r":"\\r",'"':'\\"',"\\":"\\\\"},$replaceChars:function(A){return JSON.$specialChars[A]||"\\u00"+Math.floor(A.charCodeAt()/16).toString(16)+(A.charCodeAt()%16).toString(16);
+},decode:function(string,secure){if($type(string)!="string"||!string.length){return null;}if(secure&&!(/^[,:{}\[\]0-9.\-+Eaeflnr-u \n\r\t]*$/).test(string.replace(/\\./g,"@").replace(/"[^"\\\n\r]*"/g,""))){return null;
+}return eval("("+string+")");}});Native.implement([Hash,Array,String,Number],{toJSON:function(){return JSON.encode(this);}});var Cookie=new Class({Implements:Options,options:{path:false,domain:false,duration:false,secure:false,document:document},initialize:function(B,A){this.key=B;
+this.setOptions(A);},write:function(B){B=encodeURIComponent(B);if(this.options.domain){B+="; domain="+this.options.domain;}if(this.options.path){B+="; path="+this.options.path;
+}if(this.options.duration){var A=new Date();A.setTime(A.getTime()+this.options.duration*24*60*60*1000);B+="; expires="+A.toGMTString();}if(this.options.secure){B+="; secure";
+}this.options.document.cookie=this.key+"="+B;return this;},read:function(){var A=this.options.document.cookie.match("(?:^|;)\\s*"+this.key.escapeRegExp()+"=([^;]*)");
+return(A)?decodeURIComponent(A[1]):null;},dispose:function(){new Cookie(this.key,$merge(this.options,{duration:-1})).write("");return this;}});Cookie.write=function(B,C,A){return new Cookie(B,A).write(C);
+};Cookie.read=function(A){return new Cookie(A).read();};Cookie.dispose=function(B,A){return new Cookie(B,A).dispose();};var Swiff=new Class({Implements:[Options],options:{id:null,height:1,width:1,container:null,properties:{},params:{quality:"high",allowScriptAccess:"always",wMode:"transparent",swLiveConnect:true},callBacks:{},vars:{}},toElement:function(){return this.object;
+},initialize:function(L,M){this.instance="Swiff_"+$time();this.setOptions(M);M=this.options;var B=this.id=M.id||this.instance;var A=$(M.container);Swiff.CallBacks[this.instance]={};
+var E=M.params,G=M.vars,F=M.callBacks;var H=$extend({height:M.height,width:M.width},M.properties);var K=this;for(var D in F){Swiff.CallBacks[this.instance][D]=(function(N){return function(){return N.apply(K.object,arguments);
+};})(F[D]);G[D]="Swiff.CallBacks."+this.instance+"."+D;}E.flashVars=Hash.toQueryString(G);if(Browser.Engine.trident){H.classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000";
+E.movie=L;}else{H.type="application/x-shockwave-flash";H.data=L;}var J='<object id="'+B+'"';for(var I in H){J+=" "+I+'="'+H[I]+'"';}J+=">";for(var C in E){if(E[C]){J+='<param name="'+C+'" value="'+E[C]+'" />';
+}}J+="</object>";this.object=((A)?A.empty():new Element("div")).set("html",J).firstChild;},replaces:function(A){A=$(A,true);A.parentNode.replaceChild(this.toElement(),A);
+return this;},inject:function(A){$(A,true).appendChild(this.toElement());return this;},remote:function(){return Swiff.remote.apply(Swiff,[this.toElement()].extend(arguments));
+}});Swiff.CallBacks={};Swiff.remote=function(obj,fn){var rs=obj.CallFunction('<invoke name="'+fn+'" returntype="javascript">'+__flash__argumentsToXML(arguments,2)+"</invoke>");
+return eval(rs);};var Fx=new Class({Implements:[Chain,Events,Options],options:{fps:50,unit:false,duration:500,link:"ignore",transition:function(A){return -(Math.cos(Math.PI*A)-1)/2;
+}},initialize:function(A){this.subject=this.subject||this;this.setOptions(A);this.options.duration=Fx.Durations[this.options.duration]||this.options.duration.toInt();
+var B=this.options.wait;if(B===false){this.options.link="cancel";}},step:function(){var A=$time();if(A<this.time+this.options.duration){var B=this.options.transition((A-this.time)/this.options.duration);
+this.set(this.compute(this.from,this.to,B));}else{this.set(this.compute(this.from,this.to,1));this.complete();}},set:function(A){return A;},compute:function(C,B,A){return Fx.compute(C,B,A);
+},check:function(A){if(!this.timer){return true;}switch(this.options.link){case"cancel":this.cancel();return true;case"chain":this.chain(A.bind(this,Array.slice(arguments,1)));
+return false;}return false;},start:function(B,A){if(!this.check(arguments.callee,B,A)){return this;}this.from=B;this.to=A;this.time=0;this.startTimer();
+this.onStart();return this;},complete:function(){if(this.stopTimer()){this.onComplete();}return this;},cancel:function(){if(this.stopTimer()){this.onCancel();
+}return this;},onStart:function(){this.fireEvent("start",this.subject);},onComplete:function(){this.fireEvent("complete",this.subject);if(!this.callChain()){this.fireEvent("chainComplete",this.subject);
+}},onCancel:function(){this.fireEvent("cancel",this.subject).clearChain();},pause:function(){this.stopTimer();return this;},resume:function(){this.startTimer();
+return this;},stopTimer:function(){if(!this.timer){return false;}this.time=$time()-this.time;this.timer=$clear(this.timer);return true;},startTimer:function(){if(this.timer){return false;
+}this.time=$time()-this.time;this.timer=this.step.periodical(Math.round(1000/this.options.fps),this);return true;}});Fx.compute=function(C,B,A){return(B-C)*A+C;
+};Fx.Durations={"short":250,normal:500,"long":1000};Fx.CSS=new Class({Extends:Fx,prepare:function(D,E,B){B=$splat(B);var C=B[1];if(!$chk(C)){B[1]=B[0];
+B[0]=D.getStyle(E);}var A=B.map(this.parse);return{from:A[0],to:A[1]};},parse:function(A){A=$lambda(A)();A=(typeof A=="string")?A.split(" "):$splat(A);
+return A.map(function(C){C=String(C);var B=false;Fx.CSS.Parsers.each(function(F,E){if(B){return ;}var D=F.parse(C);if($chk(D)){B={value:D,parser:F};}});
+B=B||{value:C,parser:Fx.CSS.Parsers.String};return B;});},compute:function(D,C,B){var A=[];(Math.min(D.length,C.length)).times(function(E){A.push({value:D[E].parser.compute(D[E].value,C[E].value,B),parser:D[E].parser});
+});A.$family={name:"fx:css:value"};return A;},serve:function(C,B){if($type(C)!="fx:css:value"){C=this.parse(C);}var A=[];C.each(function(D){A=A.concat(D.parser.serve(D.value,B));
+});return A;},render:function(A,D,C,B){A.setStyle(D,this.serve(C,B));},search:function(A){if(Fx.CSS.Cache[A]){return Fx.CSS.Cache[A];}var B={};Array.each(document.styleSheets,function(E,D){var C=E.href;
+if(C&&C.contains("://")&&!C.contains(document.domain)){return ;}var F=E.rules||E.cssRules;Array.each(F,function(I,G){if(!I.style){return ;}var H=(I.selectorText)?I.selectorText.replace(/^\w+/,function(J){return J.toLowerCase();
+}):null;if(!H||!H.test("^"+A+"$")){return ;}Element.Styles.each(function(K,J){if(!I.style[J]||Element.ShortStyles[J]){return ;}K=String(I.style[J]);B[J]=(K.test(/^rgb/))?K.rgbToHex():K;
+});});});return Fx.CSS.Cache[A]=B;}});Fx.CSS.Cache={};Fx.CSS.Parsers=new Hash({Color:{parse:function(A){if(A.match(/^#[0-9a-f]{3,6}$/i)){return A.hexToRgb(true);
+}return((A=A.match(/(\d+),\s*(\d+),\s*(\d+)/)))?[A[1],A[2],A[3]]:false;},compute:function(C,B,A){return C.map(function(E,D){return Math.round(Fx.compute(C[D],B[D],A));
+});},serve:function(A){return A.map(Number);}},Number:{parse:parseFloat,compute:Fx.compute,serve:function(B,A){return(A)?B+A:B;}},String:{parse:$lambda(false),compute:$arguments(1),serve:$arguments(0)}});
+Fx.Tween=new Class({Extends:Fx.CSS,initialize:function(B,A){this.element=this.subject=$(B);this.parent(A);},set:function(B,A){if(arguments.length==1){A=B;
+B=this.property||this.options.property;}this.render(this.element,B,A,this.options.unit);return this;},start:function(C,E,D){if(!this.check(arguments.callee,C,E,D)){return this;
+}var B=Array.flatten(arguments);this.property=this.options.property||B.shift();var A=this.prepare(this.element,this.property,B);return this.parent(A.from,A.to);
+}});Element.Properties.tween={set:function(A){var B=this.retrieve("tween");if(B){B.cancel();}return this.eliminate("tween").store("tween:options",$extend({link:"cancel"},A));
+},get:function(A){if(A||!this.retrieve("tween")){if(A||!this.retrieve("tween:options")){this.set("tween",A);}this.store("tween",new Fx.Tween(this,this.retrieve("tween:options")));
+}return this.retrieve("tween");}};Element.implement({tween:function(A,C,B){this.get("tween").start(arguments);return this;},fade:function(C){var E=this.get("tween"),D="opacity",A;
+C=$pick(C,"toggle");switch(C){case"in":E.start(D,1);break;case"out":E.start(D,0);break;case"show":E.set(D,1);break;case"hide":E.set(D,0);break;case"toggle":var B=this.retrieve("fade:flag",this.get("opacity")==1);
+E.start(D,(B)?0:1);this.store("fade:flag",!B);A=true;break;default:E.start(D,arguments);}if(!A){this.eliminate("fade:flag");}return this;},highlight:function(C,A){if(!A){A=this.retrieve("highlight:original",this.getStyle("background-color"));
+A=(A=="transparent")?"#fff":A;}var B=this.get("tween");B.start("background-color",C||"#ffff88",A).chain(function(){this.setStyle("background-color",this.retrieve("highlight:original"));
+B.callChain();}.bind(this));return this;}});Fx.Morph=new Class({Extends:Fx.CSS,initialize:function(B,A){this.element=this.subject=$(B);this.parent(A);},set:function(A){if(typeof A=="string"){A=this.search(A);
+}for(var B in A){this.render(this.element,B,A[B],this.options.unit);}return this;},compute:function(E,D,C){var A={};for(var B in E){A[B]=this.parent(E[B],D[B],C);
+}return A;},start:function(B){if(!this.check(arguments.callee,B)){return this;}if(typeof B=="string"){B=this.search(B);}var E={},D={};for(var C in B){var A=this.prepare(this.element,C,B[C]);
+E[C]=A.from;D[C]=A.to;}return this.parent(E,D);}});Element.Properties.morph={set:function(A){var B=this.retrieve("morph");if(B){B.cancel();}return this.eliminate("morph").store("morph:options",$extend({link:"cancel"},A));
+},get:function(A){if(A||!this.retrieve("morph")){if(A||!this.retrieve("morph:options")){this.set("morph",A);}this.store("morph",new Fx.Morph(this,this.retrieve("morph:options")));
+}return this.retrieve("morph");}};Element.implement({morph:function(A){this.get("morph").start(A);return this;}});(function(){var A=Fx.prototype.initialize;
+Fx.prototype.initialize=function(B){A.call(this,B);var C=this.options.transition;if(typeof C=="string"&&(C=C.split(":"))){var D=Fx.Transitions;D=D[C[0]]||D[C[0].capitalize()];
+if(C[1]){D=D["ease"+C[1].capitalize()+(C[2]?C[2].capitalize():"")];}this.options.transition=D;}};})();Fx.Transition=function(B,A){A=$splat(A);return $extend(B,{easeIn:function(C){return B(C,A);
+},easeOut:function(C){return 1-B(1-C,A);},easeInOut:function(C){return(C<=0.5)?B(2*C,A)/2:(2-B(2*(1-C),A))/2;}});};Fx.Transitions=new Hash({linear:$arguments(0)});
+Fx.Transitions.extend=function(A){for(var B in A){Fx.Transitions[B]=new Fx.Transition(A[B]);}};Fx.Transitions.extend({Pow:function(B,A){return Math.pow(B,A[0]||6);
+},Expo:function(A){return Math.pow(2,8*(A-1));},Circ:function(A){return 1-Math.sin(Math.acos(A));},Sine:function(A){return 1-Math.sin((1-A)*Math.PI/2);
+},Back:function(B,A){A=A[0]||1.618;return Math.pow(B,2)*((A+1)*B-A);},Bounce:function(D){var C;for(var B=0,A=1;1;B+=A,A/=2){if(D>=(7-4*B)/11){C=-Math.pow((11-6*B-11*D)/4,2)+A*A;
+break;}}return C;},Elastic:function(B,A){return Math.pow(2,10*--B)*Math.cos(20*B*Math.PI*(A[0]||1)/3);}});["Quad","Cubic","Quart","Quint"].each(function(B,A){Fx.Transitions[B]=new Fx.Transition(function(C){return Math.pow(C,[A+2]);
+});});var Request=new Class({Implements:[Chain,Events,Options],options:{url:"",data:"",headers:{"X-Requested-With":"XMLHttpRequest",Accept:"text/javascript, text/html, application/xml, text/xml, */*"},async:true,format:false,method:"post",link:"ignore",isSuccess:null,emulation:true,urlEncoded:true,encoding:"utf-8",evalScripts:false,evalResponse:false},initialize:function(A){this.xhr=new Browser.Request();
+this.setOptions(A);this.options.isSuccess=this.options.isSuccess||this.isSuccess;this.headers=new Hash(this.options.headers);},onStateChange:function(){if(this.xhr.readyState!=4||!this.running){return ;
+}this.running=false;this.status=0;$try(function(){this.status=this.xhr.status;}.bind(this));if(this.options.isSuccess.call(this,this.status)){this.response={text:this.xhr.responseText,xml:this.xhr.responseXML};
+this.success(this.response.text,this.response.xml);}else{this.response={text:null,xml:null};this.failure();}this.xhr.onreadystatechange=$empty;},isSuccess:function(){return((this.status>=200)&&(this.status<300));
+},processScripts:function(A){if(this.options.evalResponse||(/(ecma|java)script/).test(this.getHeader("Content-type"))){return $exec(A);}return A.stripScripts(this.options.evalScripts);
+},success:function(B,A){this.onSuccess(this.processScripts(B),A);},onSuccess:function(){this.fireEvent("complete",arguments).fireEvent("success",arguments).callChain();
+},failure:function(){this.onFailure();},onFailure:function(){this.fireEvent("complete").fireEvent("failure",this.xhr);},setHeader:function(A,B){this.headers.set(A,B);
+return this;},getHeader:function(A){return $try(function(){return this.xhr.getResponseHeader(A);}.bind(this));},check:function(A){if(!this.running){return true;
+}switch(this.options.link){case"cancel":this.cancel();return true;case"chain":this.chain(A.bind(this,Array.slice(arguments,1)));return false;}return false;
+},send:function(I){if(!this.check(arguments.callee,I)){return this;}this.running=true;var G=$type(I);if(G=="string"||G=="element"){I={data:I};}var D=this.options;
+I=$extend({data:D.data,url:D.url,method:D.method},I);var E=I.data,B=I.url,A=I.method;switch($type(E)){case"element":E=$(E).toQueryString();break;case"object":case"hash":E=Hash.toQueryString(E);
+}if(this.options.format){var H="format="+this.options.format;E=(E)?H+"&"+E:H;}if(this.options.emulation&&["put","delete"].contains(A)){var F="_method="+A;
+E=(E)?F+"&"+E:F;A="post";}if(this.options.urlEncoded&&A=="post"){var C=(this.options.encoding)?"; charset="+this.options.encoding:"";this.headers.set("Content-type","application/x-www-form-urlencoded"+C);
+}if(E&&A=="get"){B=B+(B.contains("?")?"&":"?")+E;E=null;}this.xhr.open(A.toUpperCase(),B,this.options.async);this.xhr.onreadystatechange=this.onStateChange.bind(this);
+this.headers.each(function(K,J){if(!$try(function(){this.xhr.setRequestHeader(J,K);return true;}.bind(this))){this.fireEvent("exception",[J,K]);}},this);
+this.fireEvent("request");this.xhr.send(E);if(!this.options.async){this.onStateChange();}return this;},cancel:function(){if(!this.running){return this;
+}this.running=false;this.xhr.abort();this.xhr.onreadystatechange=$empty;this.xhr=new Browser.Request();this.fireEvent("cancel");return this;}});(function(){var A={};
+["get","post","put","delete","GET","POST","PUT","DELETE"].each(function(B){A[B]=function(){var C=Array.link(arguments,{url:String.type,data:$defined});
+return this.send($extend(C,{method:B.toLowerCase()}));};});Request.implement(A);})();Element.Properties.send={set:function(A){var B=this.retrieve("send");
+if(B){B.cancel();}return this.eliminate("send").store("send:options",$extend({data:this,link:"cancel",method:this.get("method")||"post",url:this.get("action")},A));
+},get:function(A){if(A||!this.retrieve("send")){if(A||!this.retrieve("send:options")){this.set("send",A);}this.store("send",new Request(this.retrieve("send:options")));
+}return this.retrieve("send");}};Element.implement({send:function(A){var B=this.get("send");B.send({data:this,url:A||B.options.url});return this;}});Request.HTML=new Class({Extends:Request,options:{update:false,evalScripts:true,filter:false},processHTML:function(C){var B=C.match(/<body[^>]*>([\s\S]*?)<\/body>/i);
+C=(B)?B[1]:C;var A=new Element("div");return $try(function(){var D="<root>"+C+"</root>",G;if(Browser.Engine.trident){G=new ActiveXObject("Microsoft.XMLDOM");
+G.async=false;G.loadXML(D);}else{G=new DOMParser().parseFromString(D,"text/xml");}D=G.getElementsByTagName("root")[0];for(var F=0,E=D.childNodes.length;
+F<E;F++){var H=Element.clone(D.childNodes[F],true,true);if(H){A.grab(H);}}return A;})||A.set("html",C);},success:function(D){var C=this.options,B=this.response;
+B.html=D.stripScripts(function(E){B.javascript=E;});var A=this.processHTML(B.html);B.tree=A.childNodes;B.elements=A.getElements("*");if(C.filter){B.tree=B.elements.filter(C.filter);
+}if(C.update){$(C.update).empty().adopt(B.tree);}if(C.evalScripts){$exec(B.javascript);}this.onSuccess(B.tree,B.elements,B.html,B.javascript);}});Element.Properties.load={set:function(A){var B=this.retrieve("load");
+if(B){send.cancel();}return this.eliminate("load").store("load:options",$extend({data:this,link:"cancel",update:this,method:"get"},A));},get:function(A){if(A||!this.retrieve("load")){if(A||!this.retrieve("load:options")){this.set("load",A);
+}this.store("load",new Request.HTML(this.retrieve("load:options")));}return this.retrieve("load");}};Element.implement({load:function(){this.get("load").send(Array.link(arguments,{data:Object.type,url:String.type}));
+return this;}});Request.JSON=new Class({Extends:Request,options:{secure:true},initialize:function(A){this.parent(A);this.headers.extend({Accept:"application/json","X-Request":"JSON"});
+},success:function(A){this.response.json=JSON.decode(A,this.options.secure);this.onSuccess(this.response.json,A);}});
diff --git a/src/medsrv/templates/static/script.js b/src/medsrv/templates/static/script.js
new file mode 100644 (file)
index 0000000..f2ab1e0
--- /dev/null
@@ -0,0 +1,13 @@
+window.addEvent('domready', function() {
+       $$('.focus').each(function(e){e.focus();});
+       $$('table.list tr:nth-child(2n) td').each(function(e){e.set('class', 'even');});
+       $$('table.list tr:nth-child(2n+1) td').each(function(e){e.set('class', 'odd');});
+       $$('table.list tr th').each(function(e){e.set('class', 'head');});
+       $$('table.list tr td').each(function(e){e.addEvents({
+               'click': function(){
+                   location.href = this.getChildren('a')[0].get('href');
+               }
+       })});
+});
+
+
diff --git a/src/medsrv/templates/static/strongswan.png b/src/medsrv/templates/static/strongswan.png
new file mode 100755 (executable)
index 0000000..869188c
Binary files /dev/null and b/src/medsrv/templates/static/strongswan.png differ
diff --git a/src/medsrv/templates/static/style.css b/src/medsrv/templates/static/style.css
new file mode 100755 (executable)
index 0000000..e109ce2
--- /dev/null
@@ -0,0 +1,132 @@
+
+body {
+    font-family: Verdana, Arial, Helvetica, sans-serif;
+    color: #230100;
+    background-color: #f7f4d3;
+    margin: 0;
+}
+
+.content {
+}
+
+.content > * {
+    background-color: #e5bf5e;
+    border: solid 2px;
+    padding: 1em 1em 1em 1em;
+    margin: 1em;
+    text-align: left;
+}
+
+textarea, select, input {
+       background-color: #ffec9e;
+       border: 1px solid;
+       padding: 1px 3px 1px 3px;
+}
+
+table.user input[type="text"], table.user input[type="password"] {
+       width: 15em;
+}
+
+table.peer textarea {
+       height: 20em;
+       width: 42.3em;
+
+}
+
+table.peer input[type="text"] {
+       width: 38em;
+}
+
+.menu {
+       text-align: right;
+    background-color: #e5bf5e;
+    padding: 3px;
+    border-bottom: solid 2px;
+}
+
+a {
+       color: black;
+       text-decoration: none;
+}
+
+a:hover {
+       text-decoration: underline;
+}
+
+h1 {
+       margin-top: 1.5em;
+       font-size: 2.1em;
+       white-space: nowrap;
+}
+
+hr {
+       border: solid 1px;
+}
+
+a img {
+       border: none;
+}
+
+.center {
+       text-align: center;
+}
+
+.left {
+       text-align: left;
+}
+
+.right {
+       text-align: right;
+}
+
+.fleft {
+       margin-right: 2em;
+       float: left;
+}
+
+.fright {
+       float: left;
+}
+
+.cleft {
+       clear:left;
+}
+
+.cright {
+       clear:right;
+}
+
+.both {
+       clear:both;
+}
+
+.error {
+       color: #dd0000;
+}
+
+.even {
+       cursor : pointer;
+}
+
+.even a, .odd a {
+       text-decoration: none;
+}
+
+.odd {
+       background-color: #f2cd6f;
+       cursor : pointer;
+}
+
+.head {
+       background-color: #ffec9e;
+}
+
+table.list * {
+       padding: 0px 1em 0px 0.2em;
+}
+
+table.list tr td, table.list tr th {
+       border: solid 1px;
+       border-color: black;
+}
+
diff --git a/src/medsrv/templates/user/add.cs b/src/medsrv/templates/user/add.cs
new file mode 100755 (executable)
index 0000000..8ba4e5c
--- /dev/null
@@ -0,0 +1,28 @@
+<?cs include:"templates/header.cs" ?>
+<form method="post">
+<?cs if:?error ?>
+  <div class="error"><?cs var:error ?></div>
+<?cs /if ?>
+  <table class="user">
+    <tr>
+      <td><label for="new_login">Username</label></td>
+      <td><input type="text" id="new_login" name="new_login" class="focus" maxlength="30" value="<?cs var:new_login ?>"/></td>
+    </tr>
+    <tr>
+      <td><label for="new_password">Password</label></td>
+      <td><input type="password" id="new_password" name="new_password"/></td>
+      <td><small>min. <?cs var:password_length ?> characters</small></td>
+    </tr>
+    <tr>
+      <td><label for="confirm_password">Confirm password</label></td>
+      <td><input type="password" id="confirm_password" name="confirm_password"/></td>
+    </tr>
+    <tr>
+      <td/>
+      <td class="right">
+        <input type="submit" value="Register" name="register"/>
+      </td>
+    </tr>
+</table>
+</form>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/templates/user/edit.cs b/src/medsrv/templates/user/edit.cs
new file mode 100755 (executable)
index 0000000..1f16849
--- /dev/null
@@ -0,0 +1,35 @@
+<?cs include:"templates/header.cs" ?>
+<form method="post">
+<?cs if:?error ?>
+  <div class="error"><?cs var:error ?></div>
+<?cs /if ?>
+  <table class="user">
+    <tr>
+      <td><label for="old_login">Username</label></td>
+      <td><input type="text" id="old_login" name="old_login" maxlength="30" value="<?cs var:old_login ?>" /></td>
+    </tr>
+    <tr>
+      <td><label for="old_password">Old password</label></td>
+      <td><input type="password" id="old_password" name="old_password"/></td>
+      <td></td>
+    </tr>
+    <tr>
+      <td><label for="new_password">New password</label></td>
+      <td><input type="password" id="new_password" name="new_password"/></td>
+      <td><small>min. <?cs var:password_length ?> characters</small></td>
+    </tr>
+    <tr>
+      <td><label for="confirm_password">Confirm new password</label></td>
+      <td><input type="password" id="confirm_password" name="confirm_password"/></td>
+    </tr>
+    <tr>
+      <td></td>
+      <td class="right">
+        <input type="submit" value="Back" name="back"/> 
+        <input type="submit" value="Delete" name="delete" onclick="return confirm('Permanently delete your account?')"/> 
+        <input type="submit" value="Save" name="save"/>
+      </td>
+    </tr>
+  </table>
+</form>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/templates/user/help.cs b/src/medsrv/templates/user/help.cs
new file mode 100644 (file)
index 0000000..58615c1
--- /dev/null
@@ -0,0 +1,34 @@
+<?cs include:"templates/header.cs" ?>
+<div>
+<h3>strongSwan Mediation Service web frontend</h3>
+<p>This web application builds the end user front end for a Mediation Service
+as defined in the <i>
+<a href="http://www.ietf.org/internet-drafts/draft-brunner-ikev2-mediation-00.txt">
+IKEv2 Mediation Extension draft</a></i>.</p>
+<h4>Mediation connection</h4>
+<p>The authentication between Mediation Server and connecting clients is based
+on RSA public keys. The identities used for IKEv2 are the public key identifier
+of each clients key, encapsulated in a ID_KEY_ID identity.</p>
+<p>The public key of this Mediation Server is:</p>
+<pre>-----BEGIN PUBLIC KEY-----
+MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAzZRsIp99UrIdoctThOfc
+r2Up92BTSlY1Xv1J6Hqcbx3dX/MDvX60nCPeA63Eh0VvQetfkpR73I/42+RD+NES
+4NosmBRefE0c0Vzd0IV39NTz0KLh2jwIyUzYGXWHUZMeepckzEPXOhG44XaiaLTN
+u/OZXLCXI6vJv8R3wl5xSkZhqEwHi+dATYmGvlXyBDfjprJ4o8yJrsCFlB8aGq+v
+SyKuFG/kaE1VZ9wwZYoyCH0BuYUVBwyxZTMRy2EC+CqDxjjCp5mF27lgB1Lpy8Jy
+AUpcVHtKtZEww6lIZYv/eUtvICz5WTn/pzsQUh8FwGDOyxX4WX7ZXXK55AXuMfG1
+2QIDAQAB
+-----END PUBLIC KEY-----</pre>
+<p>The Mediation Server is reachable at <i>mediation.strongswan.org</i>.</p>
+The mediation server allows connections from all registered peers.</p>
+<h4>Mediated connections</h4>
+<p>The authentication between mediated clients is done between clients, they
+can use own keys or the same keys as defined for authentication of the
+mediation connection.
+<form action="<?cs var:base ?>/peer/list" method="get">
+  <div class="right">
+    <input type="submit" value="Back"/></td>
+  </div>
+</form>
+</div>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/templates/user/login.cs b/src/medsrv/templates/user/login.cs
new file mode 100755 (executable)
index 0000000..1d6eadb
--- /dev/null
@@ -0,0 +1,23 @@
+<?cs include:"templates/header.cs" ?>
+<form method="post">
+<?cs if:?error ?>
+  <div class="error"><?cs var:error ?></div>
+<?cs /if ?>
+  <table class="user">
+    <tr>
+      <td><label for="login">Username</label></td>
+      <td><input type="text" id="login" name="login" size="30" maxlength="30" class="focus"/></td>
+    </tr>
+    <tr>
+      <td><label for="password">Password</label></td>
+      <td><input type="password" id="password" name="password" size="30"/></td>
+    </tr>
+    <tr>
+      <td/>
+      <td class="right">
+        <input type="submit" value="Login" name="submit"/>
+      </td>
+    </tr>
+</table>
+</form>
+<?cs include:"templates/footer.cs" ?>
diff --git a/src/medsrv/user.c b/src/medsrv/user.c
new file mode 100644 (file)
index 0000000..032859e
--- /dev/null
@@ -0,0 +1,77 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+#include "user.h"
+
+typedef struct private_user_t private_user_t;
+
+/**
+ * private data of user
+ */
+struct private_user_t {
+
+       /**
+        * public functions
+        */
+       user_t public;
+
+       /**
+        * user id, if we are logged in; otherwise 0
+        */
+       u_int user;
+};
+
+/**
+ * Implementation of user_t.set_user
+ */
+static void set_user(private_user_t *this, u_int id)
+{
+       this->user = id;
+}
+
+/**
+ * Implementation of user_t.get_user
+ */
+static u_int get_user(private_user_t *this)
+{
+       return this->user;
+}
+
+/**
+ * Implementation of context_t.destroy
+ */
+static void destroy(private_user_t *this)
+{
+       free(this);
+}
+
+/*
+ * see header file
+ */
+user_t *user_create(void *param)
+{
+       private_user_t *this= malloc_thing(private_user_t);
+
+       this->public.set_user = (void(*)(user_t*,u_int id))set_user;
+       this->public.get_user = (u_int(*)(user_t*))get_user;
+       this->public.context.destroy = (void(*)(context_t*))destroy;
+
+       this->user = 0;
+
+       return &this->public;
+}
+
diff --git a/src/medsrv/user.h b/src/medsrv/user.h
new file mode 100644 (file)
index 0000000..b411f7c
--- /dev/null
@@ -0,0 +1,52 @@
+/*
+ * Copyright (C) 2008 Martin Willi
+ * Hochschule fuer Technik Rapperswil
+ *
+ * This program is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by the
+ * Free Software Foundation; either version 2 of the License, or (at your
+ * option) any later version.  See <http://www.fsf.org/copyleft/gpl.txt>.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+ * for more details.
+ *
+ * $Id$
+ */
+
+#ifndef USER_H_
+#define USER_H_
+
+#include <context.h>
+#include <library.h>
+
+typedef struct user_t user_t;
+
+/**
+ * Per session context. Contains user user state and data.
+ */
+struct user_t {
+       
+       /**
+        * implements context_t interface
+        */
+       context_t context;
+       
+       /**
+        * Set the user ID of the logged in user.
+        */
+       void (*set_user)(user_t *this, u_int id);
+       
+       /**
+        * Get the user ID of the logged in user.
+        */
+       u_int (*get_user)(user_t *this);
+};
+
+/**
+ * Create a user instance.
+ */
+user_t *user_create(void *param);
+
+#endif /* USER_H_ @} */