ad_page_contract {
Redirects requests that are addressed to (Open)ACS 3 style url's
of bboard postings to their (Open)ACS 4 equivalents. Requires the
presence of the mappings tables that are created by the bboard-migr
scripts.
Place this under /www/bboard/index.vuh and adjust the mount point
of the new bboard package below.
@author Tilmann Singer (tils@tils.net)
} {
{ msg_id "" }
{ topic_id "" }
}
# Mount point of new forum to redirect to, no trailing slash.
set new_mount_point "/forums"
set target [lindex [ad_conn urlv] end]
regsub {\.tcl$} $target {} target
switch $target {
q-and-a-fetch-msg {
# a simple message
if { [db_0or1row get_new_ids {
select mm.new_message_id, fm.forum_id from migr_message_map mm
join bboard_forum_message_map fm
on mm.new_message_id=fm.message_id
where mm.old_message_id=:msg_id
}] } {
# Found a mapping, return new link.
set new_link "[ad_conn location]$new_mount_point/message?message_id=$new_message_id&forum_id=$forum_id"
ns_set put [ns_conn outputheaders] Location $new_link
ns_return 301 text/html "
Redirection
Redirection
The requested URL has moved here permanently.
"
return
}
}
q-and-a {
# a topic
if { [db_0or1row get_new_forum_id {
select new_forum_id from migr_forum_map
where old_forum_id=:topic_id
}] } {
set new_link "[ad_conn location]$new_mount_point/forum?forum_id=$new_forum_id"
ns_set put [ns_conn outputheaders] Location $new_link
ns_return 301 text/html "
Redirection
Redirection
The requested URL has moved here permanently.
"
return
}
}
default {
ns_log notice "A request for [ad_conn url]?[ad_conn query] occured - you might want to add it to /bboard/index.vuh"
}
}
# No success above.
ns_return 404 text/html "
Not Found
Not Found
You seem to refer to an old bboard posting that has been moved somewhere
else or deleted from this server. Sorry.
You might want to start searching from the start page.
"