1 files changed, 105 insertions, 0 deletions
diff --git a/sca-cpp/branches/lightweight-sca/hosting/server/dashboards.py b/sca-cpp/branches/lightweight-sca/hosting/server/dashboards.py
new file mode 100644
index 0000000000..d6281d0454
--- /dev/null
+++ b/sca-cpp/branches/lightweight-sca/hosting/server/dashboards.py
@@ -0,0 +1,105 @@
+#  Licensed to the Apache Software Foundation (ASF) under one
+#  or more contributor license agreements.  See the NOTICE file
+#  distributed with this work for additional information
+#  regarding copyright ownership.  The ASF licenses this file
+#  to you under the Apache License, Version 2.0 (the
+#  "License"); you may not use this file except in compliance
+#  with the License.  You may obtain a copy of the License at
+#  
+#    http://www.apache.org/licenses/LICENSE-2.0
+#    
+#  Unless required by applicable law or agreed to in writing,
+#  software distributed under the License is distributed on an
+#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+#  KIND, either express or implied.  See the License for the
+#  specific language governing permissions and limitations
+#  under the License.
+
+# Dashboards collection implementation
+from util import *
+from sys import debug
+
+# Convert a particular user id to a dashboard id
+def dashboardid(user):
+    return ("dashboards", user.get(()), "user.apps")
+
+# Get a dashboard from the cache
+def getdashboard(id, cache):
+    debug('dashboards.py::getdashboard::id', id)
+    val = cache.get(id)
+    if isNil(val) or val is None:
+        return ()
+    dashboard = cdddr(car(val))
+    if not isNil(dashboard) and isList(car(cadr(car(dashboard)))):
+        # Expand list of entries
+        edashboard = tuple(map(lambda e: cons("'entry", e), cadr(car(dashboard))))
+        debug('dashboards.py::getdashboard::edashboard', edashboard)
+        return edashboard
+
+    debug('dashboards.py::getdashboard::dashboard', dashboard)
+    return dashboard
+
+# Put a dashboard into the cache
+def putdashboard(id, dashboard, cache):
+    debug('dashboards.py::putdashboard::id', id)
+    debug('dashboards.py::putdashboard::dashboard', dashboard)
+    val = ((("'feed", ("'title", "Your Apps"), ("'id", cadr(id))) + dashboard),)
+    return cache.put(id, val)
+
+# Put an app into the user's dashboard
+def put(id, app, user, cache, apps):
+    debug('dashboards.py::put::id', id)
+    debug('dashboards.py::put::app', app)
+
+    def putapp(id, app, dashboard):
+        if isNil(dashboard):
+            return app
+        if car(id) == cadr(assoc("'id", car(dashboard))):
+            return cons(car(app), cdr(dashboard))
+        return cons(car(dashboard), putapp(id, app, cdr(dashboard)))
+
+    appentry = (("'entry", assoc("'title", car(app)), ("'id", car(id)), ("'author", user.get(())), assoc("'updated", car(app)), assoc("'content", car(app))),)
+    debug('dashboards.py::put::appentry', appentry)
+
+    dashboard = putapp(id, appentry, getdashboard(dashboardid(user), cache))
+    return putdashboard(dashboardid(user), dashboard, cache)
+
+# Get apps from the user's dashboard
+def get(id, user, cache, apps):
+    debug('dashboards.py::get::id', id)
+
+    def findapp(id, dashboard):
+        if isNil(dashboard):
+            return None
+        if car(id) == cadr(assoc("'id", car(dashboard))):
+            return (car(dashboard),)
+        return findapp(id, cdr(dashboard))
+
+    if isNil(id):
+        dashboard = ((("'feed", ("'title", "Your Apps"), ("'id", user.get(()))) + getdashboard(dashboardid(user), cache)),)
+        debug('dashboards.py::get::dashboard', dashboard)
+        return dashboard
+
+    app = findapp(id, getdashboard(dashboardid(user), cache))
+    debug('dashboards.py::get::app', app)
+    return app
+
+# Delete apps from the user's dashboard
+def delete(id, user, cache, apps):
+    debug('dashboards.py::delete::id', id)
+    if isNil(id):
+        return cache.delete(dashboardid(user))
+
+    def deleteapp(id, dashboard):
+        if isNil(dashboard):
+            return ()
+        if car(id) == cadr(assoc("'id", car(dashboard))):
+            return cdr(dashboard)
+        return cons(car(dashboard), deleteapp(id, cdr(dashboard)))
+
+    dashboard = getdashboard(dashboardid(user), cache)
+    deleted = deleteapp(id, dashboard)
+    if deleted == dashboard:
+        return False
+    return putdashboard(dashboardid(user), deleted, cache)
+