set url /[ad_conn extra_url] if {[regexp {^/+cat/+([^/]+)/*} $url \ ignore_whole sw_category_id]} { # SWC (Site-wide categories) # As the categories package currently doesn't have short names we # are using IDs. We don't check whether this is a valid integer here # because index.tcl will take care of that. rp_form_put category_id $sw_category_id } rp_internal_redirect "/packages/faq/www/one-faq" # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: