- added auto-login page

www/auto-login.tcl

+# /packages/intranet-rest/www/auto-login.tcl
+#
+# Copyright (C) 2009 ]project-open[
+#
+
+ad_page_contract {
+    Home page for REST service, when accessing from the browser.
+    The page shows a link to the documentation Wiki and a status
+    of CRUD for every object type.
+    
+    @author frank.bergmann@project-open.com
+} {
+
+}
+
+# Parameters passed aside of page_contract
+# from intranet-rest-procs.tcl:
+#
+#    [list object_type $object_type] \
+#    [list format $format] \
+#    [list user_id $user_id] \
+#    [list object_id $object_id] \
+#    [list query_hash $query_hash] \
+
+if {![info exists user_id]} { set user_id 0 }
+set auto_login [im_generate_auto_login -user_id $user_id]
+
+set username ""
+
+db_0or1row user_info "
+	select	*,
+		im_name_from_user_id(user_id) as name
+	from	cc_users
+	where	user_id = :user_id
+"
+