#!/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 LoadCheckins upvar #0 $FORM(id) info puts "Content-type: text/html Say the magic word.

Edit a checkin.

Congratulations, you have found the hidden edit-a-checkin feature. Of course, you need to know the magic word to do anything from here.

" if {![info exists info(notes)]} { set info(notes) "" } foreach i {person dir files notes} { puts "" puts "" } proc CheckString {value} { if {$value} { return "CHECKED" } else { return "" } } puts "
Password:
When:
$i:
Tree state: Open
Closed
Log message:
Check this box to blow away this checkin entirely.
" foreach i [lsort [array names info]] { puts "" } puts "" puts "" puts "
" PutsTrailer exit