Index: openacs.org-dev/packages/forums/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/forums/www/index.vuh	4 Nov 2002 21:19:49 -0000	1.1
@@ -0,0 +1,54 @@
+ad_page_contract {
+  packages/forums/www/index.vuh
+
+  @author Roberto Mello
+  @creation-date 2002-11-04
+
+  Virtual URL Handler to serve pretty URLs to forums. 
+
+}
+
+# Get a list with the whole request (e.g. {{forums} {message-view?12345}} )
+set request [ad_conn urlv]
+
+# Get the URL where this instance of the forums package is mounted
+# without /'s
+regsub -all "/" [ad_conn package_url] "" package
+
+# Find index in the request list where the package url is
+set package_index [lsearch $request $package]
+
+# The next element in the list is what we want to look at
+set url_1st_elem [lindex $request [expr $package_index + 1]]
+
+ns_log notice "REQ: $request, pk: $package, pi: $package_index, u1: $url_1st_elem"
+
+if { [string is alpha $url_1st_elem] == 1 } {
+	switch  $url_1st_elem {
+		"openacs" {
+			rp_form_put forum_id 14013
+		}
+		"openacs-dev" { 
+			rp_form_put forum_id 14014
+		}
+		"openacs-cms" { 
+			rp_form_put forum_id 14015
+		}
+		"openacs-testing" { 
+			rp_form_put forum_id 14016
+		}
+		"dotlrn-dev" { 
+			rp_form_put forum_id 14017
+		}
+		"cvs" { 
+			rp_form_put forum_id 46408
+		}
+	}
+
+	rp_internal_redirect forum-view
+}
+
+if { [string is digit $url_1st_elem] == 1 } {
+	rp_form_put message_id $url_1st_elem
+	rp_internal_redirect message-view
+}