# admin-bozo-pattern.tcl,v 3.0 2000/02/06 03:32:34 ron Exp
set_the_usual_form_variables
# topic_id, topic, the_regexp
set db [bboard_db_gethandle]
if { $db == "" } {
bboard_return_error_page
return
}
if {[bboard_get_topic_info] == -1} {
return}
if {[bboard_admin_authorization] == -1} {
return}
# cookie checks out; user is authorized
if [catch {set selection [ns_db 0or1row $db "select bt.*,u.email as maintainer_email, u.first_names || ' ' || u.last_name as maintainer_name, presentation_type
from bboard_topics bt, users u
where bt.topic_id=$topic_id
and bt.primary_maintainer_id = u.user_id"]} errmsg] {
[bboard_return_cannot_find_topic_page]
return
}
# we found the data we needed
set_variables_after_query
set selection [ns_db 1row $db "select bbp.*, first_names, last_name
from bboard_bozo_patterns bbp, users
where bbp.creation_user = users.user_id
and topic_id = $topic_id
and the_regexp = '$QQthe_regexp'"]
set_variables_after_query
ReturnHeaders
ns_write "
Bozo Pattern in $topic: $the_regexp
$the_regexp
a bozo pattern
for $topic
- Regular Expression: \"$the_regexp\"
- Where we look: $scope
- What we say to users who run afoul of this regexp:
$message_to_user
- Why this was created:
$creation_comment
-- $first_names $last_name, [util_AnsiDatetoPrettyDate $creation_date]
If you don't like this bozo pattern, you can
[bboard_footer]
"