# admin-bozo-pattern-add.tcl,v 3.0 2000/02/06 03:32:29 ron Exp set_the_usual_form_variables # topic, topic_id 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 ReturnHeaders ns_write " Add Bozo Pattern to $topic

Add Bozo Pattern

for $topic
[export_form_vars topic topic_id]
Regular Expression (lowercase)
Scope
Message to User
Comment to other administrators
(optional)



Note: the regular expression should be in Tcl format. If you just want to match for a particular word, you need only type that word. If you want something fancier, you probably have to read Mastering Regular Expressions (Friedl; O'Reilly)
[bboard_footer] "