#! /usr/bonsaitools/bin/mysqltcl # -*- Mode: tcl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla 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/MPL/ # # 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 Bugzilla Bug Tracking System. # # 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. # # Contributor(s): Terry Weissman source "CGI.tcl" confirm_login puts "Content-type: text/html\n" GetVersionTable if {![cequal $FORM(product) $dontchange]} { set prod [FormData product] set vok [expr [lsearch -exact $versions($prod) \ [FormData version]] >= 0] set cok [expr [lsearch -exact $components($prod) \ [FormData component]] >= 0] if {!$vok || !$cok} { puts "

Changing product means changing version and component.

" puts "You have chosen a new product, and now the version and/or" puts "component fields are not correct. Please set them now.

" puts "

" puts "" puts "" puts "" puts "" puts "" puts "" puts "" puts "" puts "" puts "" puts "" puts "
Product:$prod
Version:[Version_element [FormData version] $prod]
Component:[Component_element [FormData component] $prod]
" foreach i [array names FORM] { if {[lsearch -exact {version component} $i] < 0} { puts "" } } puts "" puts "
" puts "" puts "Cancel all this and go back to the query page." exit } } if {[info exists FORM(id)]} { set idlist $FORM(id) } else { set idlist {} foreach i [array names FORM] { if {[string match "id_*" $i]} { lappend idlist [crange $i 3 end] } } } if {![info exists FORM(who)]} { set FORM(who) $COOKIE(Bugzilla_login) } puts "Update Bug $idlist" if {[info exists FORM(id)]} { navigation_header } puts "
" set query "update bugs\nset" set comma "" umask 0 proc DoComma {} { global query comma append query "$comma\n " set comma "," } proc ChangeStatus {str} { global dontchange query if {![cequal $str $dontchange]} { DoComma append query "bug_status = '$str'" } } proc ChangeResolution {str} { global dontchange query if {![cequal $str $dontchange]} { DoComma append query "resolution = '$str'" } } foreach field {rep_platform priority bug_severity url summary \ component bug_file_loc short_desc \ product version component} { if {[info exists FORM($field)]} { if {![cequal $FORM($field) $dontchange]} { DoComma regsub -all "'" [FormData $field] "''" value append query "$field = '$value'" } } } ConnectToDatabase switch -exact $FORM(knob) { none {} accept { ChangeStatus ASSIGNED } clearresolution { ChangeResolution {} } resolve { ChangeStatus RESOLVED ChangeResolution $FORM(resolution) } reassign { ChangeStatus NEW DoComma set newid [DBNameToIdAndCheck $FORM(assigned_to)] append query "assigned_to = $newid" } reassignbycomponent { if {[cequal $FORM(component) $dontchange]} { puts "You must specify a component whose owner should get assigned" puts "these bugs." exit 0 } ChangeStatus NEW DoComma SendSQL "select initialowner from components where program='[SqlQuote $FORM(product)]' and value='[SqlQuote $FORM(component)]'" set newname [lindex [FetchSQLData] 0] set newid [DBNameToIdAndCheck $newname 1] append query "assigned_to = $newid" } reopen { ChangeStatus REOPENED } verify { ChangeStatus VERIFIED } close { ChangeStatus CLOSED } duplicate { ChangeStatus RESOLVED ChangeResolution DUPLICATE set num $FORM(dup_id) if {[catch {incr num}]} { puts "You must specify a bug number of which this bug is a" puts "duplicate. The bug has not been changed." exit } if {$FORM(dup_id) == $FORM(id)} { puts "Nice try. But it doesn't really make sense to mark a bug as" puts "a duplicate of itself, does it?" exit } AppendComment $FORM(dup_id) $FORM(who) "*** Bug $FORM(id) has been marked as a duplicate of this bug. ***" append FORM(comment) "\n\n*** This bug has been marked as a duplicate of $FORM(dup_id) ***" exec ./processmail $FORM(dup_id) < /dev/null > /dev/null 2> /dev/null & } default { puts "Unknown action $FORM(knob)!" exit } } if {[lempty $idlist]} { puts "You apparently didn't choose any bugs to modify." puts "

Click Back and try again." exit } if {[cequal $comma ""]} { set comment {} if {[info exists FORM(comment)]} { set comment $FORM(comment) } if {[cequal $comment ""]} { puts "Um, you apparently did not change anything on the selected bugs." puts "

Click Back and try again." exit } } set basequery $query proc SnapShotBug {id} { global log_columns SendSQL "select [join $log_columns ","] from bugs where bug_id = $id" return [FetchSQLData] } foreach id $idlist { SendSQL "lock tables bugs write, bugs_activity write, cc write, profiles write" set oldvalues [SnapShotBug $id] set query "$basequery\nwhere bug_id = $id" # puts "

$query
" if {![cequal $comma ""]} { if { [SendSQL $query] != 0 } { puts "

Error -- Changes not applied

" puts "OK, the database rejected the changes for some reason" puts "which bugzilla can't deal with. The error string returned" puts "was:
$oramsg(errortxt)
" puts "Here is the query which caused the error:" puts "
$query
" } while {[MoreSQLData]} { FetchSQLData } } if {[info exists FORM(comment)]} { AppendComment $id $FORM(who) [FormData comment] } if {[info exists FORM(cc)] && [ShowCcList $id] != [lookup FORM cc]} { set ccids(zz) 1 unset ccids(zz) foreach person [split $FORM(cc) " ,"] { if {![cequal $person ""]} { set cid [DBNameToIdAndCheck $person] set ccids($cid) 1 } } SendSQL "delete from cc where bug_id = $id" while {[MoreSQLData]} { FetchSQLData } foreach ccid [array names ccids] { SendSQL "insert into cc (bug_id, who) values ($id, $ccid)" while { [ MoreSQLData ] } { FetchSQLData } } } # oracommit $lhandle set newvalues [SnapShotBug $id] foreach col $log_columns { set old [lvarpop oldvalues] set new [lvarpop newvalues] if {![cequal $old $new]} { if {![info exists whoid]} { set whoid [DBNameToIdAndCheck $FORM(who)] SendSQL "select delta_ts from bugs where bug_id = $id" set timestamp [lindex [FetchSQLData] 0] } if {[cequal $col assigned_to]} { set old [DBID_to_name $old] set new [DBID_to_name $new] } set q "insert into bugs_activity (bug_id,who,when,field,oldvalue,newvalue) values ($id,$whoid,$timestamp,'[SqlQuote $col]','[SqlQuote $old]','[SqlQuote $new]')" # puts "
$q
" SendSQL $q } } puts "

Changes Submitted

" puts "
Back To BUG# $id
" flush stdout SendSQL "unlock tables" exec ./processmail $id < /dev/null > /dev/null 2> /dev/null & } if {[info exists next_bug]} { set FORM(id) $next_bug puts "
" navigation_header source "bug_form.tcl" } else { puts "
Back To Query Page" }