#!/usr/bonsaitools/bin/mysqltcl
# -*- Mode: tcl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Netscape Public License
# Version 1.0 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
# License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is the Bonsai CVS tool.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are Copyright (C) 1998
# Netscape Communications Corporation. All Rights Reserved.
source CGI.tcl
puts "Content-type: text/html
We don't need no stinkin' HTML compose window
Message editor
"
set filename $FORM(msgname)
set fullfilename [DataDir]/$filename
if {[file exists $fullfilename]} {
set text [read_file $fullfilename]
} else {
set text {}
}
puts "
Below is the template for the $filename message. Type the
magic word and edit at will, but be careful to not break anything,
especially around the headers.
The following magic symbols exist:
"
proc PutDoc {name desc} {
puts ""
puts "| %$name% | "
puts "Replaced by the $desc | "
puts "
"
}
switch -exact -- $filename {
openmessage -
closemessage {
PutDoc name "username of the person getting mail"
PutDoc dir "directory for this checkin"
PutDoc files "list of files for this checkin"
PutDoc log "log message for this checkin"
PutDoc profile "profile for this user"
}
treeopened -
treeopenedsamehook -
treeclosed {
PutDoc "hooklist" "comma-separated list of e-mail address of people on the hook"
}
default {
puts "
Uh, hey, this isn't a legal file for"
puts "you to be editing here!"
PutsTrailer
exit
}
}
puts "
"
PutsTrailer
exit