#! /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" puts "Content-type: text/html\n" puts "Full Text Bug Listing" set generic_query { select bugs.bug_id, bugs.product, bugs.version, bugs.rep_platform, bugs.op_sys, bugs.bug_status, bugs.bug_severity, bugs.priority, bugs.resolution, assign.login_name, report.login_name, bugs.component, bugs.bug_file_loc, bugs.short_desc from bugs,profiles assign,profiles report where assign.userid = bugs.assigned_to and report.userid = bugs.reporter and } ConnectToDatabase foreach bug [split $FORM(buglist) :] { SendSQL "$generic_query bugs.bug_id = $bug\n" if { [ MoreSQLData ] } { set result [ FetchSQLData ] puts "" puts "" puts "
[html_quote [lindex $result 15]]
" puts "" puts "
Bug#: [lindex $result 0]" puts "Product: [lindex $result 1]" puts "Version: [lindex $result 2]" puts "Platform: [lindex $result 3]" puts "
OS/Version: [lindex $result 4]" puts "Status: [lindex $result 5]" puts "Severity: [lindex $result 6]" puts "Priority: [lindex $result 7]" puts "
Resolution: [lindex $result 8]Assigned To: [lindex $result 9]" puts "Reported By: [lindex $result 10]" puts "
Component: [lindex $result 11]" puts "
URL: [html_quote [lindex $result 12]]" puts "
Summary            : [html_quote [lindex $result 13]]" puts "
Description        :\n
" puts "
[html_quote [GetLongDescription $bug]]
" puts "
" } } puts "
Mozilla Communications Corporation, Company Confidential, read and eat.
"