Index: openacs.org-dev/tcl/openacsorg-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/tcl/openacsorg-init.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/tcl/openacsorg-init.tcl	12 Jul 2002 11:52:41 -0000	1.1
@@ -0,0 +1,34 @@
+# openeconomies-init.tcl
+
+ad_library {
+    Defines custom ETP applications used on OpenACS.org
+
+    @cvs-id $Id: openacsorg-init.tcl,v 1.1 2002/07/12 11:52:41 daveb Exp $
+    @author Luke Pond dlpond@pobox.com
+    @date 18 September 2001
+}
+
+
+etp::modify_application default {
+    index_template        www/templates/default-index
+    content_template      www/templates/default-content
+}    
+
+etp::define_application toplevel {
+    index_template        www/templates/homepage-index
+}
+
+etp::define_application community {
+    index_template        www/templates/community-index
+    content_content_attr_name "Special Events HTML"
+}
+
+etp::modify_application news {
+    index_template        www/templates/news-index
+    content_template      www/templates/news-content
+}    
+
+etp::modify_application faq {
+    index_template        www/templates/faq-index
+    content_template      www/templates/faq-content
+}    
Index: openacs.org-dev/tcl/openacsorg.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/tcl/openacsorg.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/tcl/openacsorg.tcl	12 Jul 2002 11:52:41 -0000	1.1
@@ -0,0 +1,60 @@
+# tcl/openacsorg.tcl
+
+ad_library {
+  Provides helper routines for the OpenACS.org  site.
+
+  @author Pat Colgan (pat@museatech.net)
+  @creation-date September 6, 2001
+
+}
+
+ad_proc -public oacs_set_login_vars { } {
+  uplevel {
+    set user_id [ad_get_user_id]
+
+    # One common problem with login is that people can hit the back button
+    # after a user logs out and relogin by using the cached password in
+    # the browser. We generate a unique hashed timestamp so that users
+    # cannot use the back button.
+
+    set time [ns_time]
+    set token_id [sec_get_random_cached_token_id]
+    set token [sec_get_token $token_id]
+    set hash [ns_sha1 "$time$token_id$token"]
+
+    set system_name [ad_system_name]
+
+    set allow_persistent_login_p [ad_parameter -package_id [ad_acs_kernel_id] AllowPersistentLoginP security 1]
+    if {[ad_parameter -package_id [ad_acs_kernel_id] PersistentLoginDefaultP security 1]} {
+	set remember_password "checked"
+    } else {
+	set remember_password ""
+    }
+
+    set return_url [ns_conn url]
+    set form_vars [export_form_vars return_url time token_id hash allow_persistent_login_p]
+
+    set oacs_admin_p 0
+
+    if { $user_id != 0 } {
+	# The user is logged in.
+	if {[db_0or1row user_name_select {
+	    select first_names,
+	    first_names || ' ' || last_name as user_name, email
+	    from persons, parties
+	    where person_id = :user_id
+	    and person_id = party_id
+	}]} {
+	    set home_url [ad_pvt_home]
+	    set home_url_name [ad_pvt_home_name]	
+	}
+	set requires_registration_p_clause ""
+
+	set root_node_id [site_node_id "/"]
+	set oacs_admin_p [ad_permission_p -user_id $user_id $root_node_id admin]
+    }
+  }
+}
+
+
+