From 502157a1c39ac71764554eda8686a05ed6db3680 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com"
 <terry%netscape.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Wed, 26 Aug 1998 06:14:20 +0000
Subject: [PATCH] Bugzilla source.

git-svn-id: svn://10.0.0.236/trunk@8494 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/1x1.gif             | Bin 0 -> 82 bytes
 mozilla/webtools/bugzilla/CGI.tcl             | 320 +++++++++
 mozilla/webtools/bugzilla/ant.jpg             | Bin 0 -> 17469 bytes
 mozilla/webtools/bugzilla/bug_form.tcl        | 216 ++++++
 mozilla/webtools/bugzilla/bug_status.html     | 194 ++++++
 mozilla/webtools/bugzilla/buglist.cgi         | 623 ++++++++++++++++++
 mozilla/webtools/bugzilla/changepassword.cgi  |  74 +++
 mozilla/webtools/bugzilla/colchange.cgi       |  88 +++
 mozilla/webtools/bugzilla/doclosebug.cgi      |  53 ++
 mozilla/webtools/bugzilla/edit_desc.cgi       | 112 ++++
 mozilla/webtools/bugzilla/enter_bug.cgi       | 227 +++++++
 mozilla/webtools/bugzilla/globals.tcl         | 435 ++++++++++++
 mozilla/webtools/bugzilla/help.html           |  55 ++
 mozilla/webtools/bugzilla/how_to_mail.html    |  80 +++
 mozilla/webtools/bugzilla/index.html          |  76 +++
 mozilla/webtools/bugzilla/long_list.cgi       |  78 +++
 .../webtools/bugzilla/makeactivitytable.sh    |  47 ++
 mozilla/webtools/bugzilla/makebugtable.sh     |  69 ++
 mozilla/webtools/bugzilla/makecctable.sh      |  40 ++
 .../webtools/bugzilla/makecomponenttable.sh   | 102 +++
 .../webtools/bugzilla/makeprofilestable.sh    |  42 ++
 mozilla/webtools/bugzilla/makeversiontable.sh |  51 ++
 mozilla/webtools/bugzilla/new_comment.cgi     |  41 ++
 mozilla/webtools/bugzilla/newquip.html        |  34 +
 mozilla/webtools/bugzilla/post_bug.cgi        | 137 ++++
 mozilla/webtools/bugzilla/process_bug.cgi     | 309 +++++++++
 mozilla/webtools/bugzilla/processmail         | 238 +++++++
 mozilla/webtools/bugzilla/query.cgi           | 242 +++++++
 mozilla/webtools/bugzilla/relogin.cgi         |  52 ++
 mozilla/webtools/bugzilla/show_activity.cgi   |  58 ++
 mozilla/webtools/bugzilla/show_bug.cgi        |  44 ++
 31 files changed, 4137 insertions(+)
 create mode 100644 mozilla/webtools/bugzilla/1x1.gif
 create mode 100755 mozilla/webtools/bugzilla/CGI.tcl
 create mode 100644 mozilla/webtools/bugzilla/ant.jpg
 create mode 100755 mozilla/webtools/bugzilla/bug_form.tcl
 create mode 100755 mozilla/webtools/bugzilla/bug_status.html
 create mode 100755 mozilla/webtools/bugzilla/buglist.cgi
 create mode 100755 mozilla/webtools/bugzilla/changepassword.cgi
 create mode 100755 mozilla/webtools/bugzilla/colchange.cgi
 create mode 100755 mozilla/webtools/bugzilla/doclosebug.cgi
 create mode 100755 mozilla/webtools/bugzilla/edit_desc.cgi
 create mode 100755 mozilla/webtools/bugzilla/enter_bug.cgi
 create mode 100644 mozilla/webtools/bugzilla/globals.tcl
 create mode 100644 mozilla/webtools/bugzilla/help.html
 create mode 100644 mozilla/webtools/bugzilla/how_to_mail.html
 create mode 100644 mozilla/webtools/bugzilla/index.html
 create mode 100755 mozilla/webtools/bugzilla/long_list.cgi
 create mode 100755 mozilla/webtools/bugzilla/makeactivitytable.sh
 create mode 100755 mozilla/webtools/bugzilla/makebugtable.sh
 create mode 100755 mozilla/webtools/bugzilla/makecctable.sh
 create mode 100755 mozilla/webtools/bugzilla/makecomponenttable.sh
 create mode 100755 mozilla/webtools/bugzilla/makeprofilestable.sh
 create mode 100755 mozilla/webtools/bugzilla/makeversiontable.sh
 create mode 100755 mozilla/webtools/bugzilla/new_comment.cgi
 create mode 100644 mozilla/webtools/bugzilla/newquip.html
 create mode 100755 mozilla/webtools/bugzilla/post_bug.cgi
 create mode 100755 mozilla/webtools/bugzilla/process_bug.cgi
 create mode 100755 mozilla/webtools/bugzilla/processmail
 create mode 100755 mozilla/webtools/bugzilla/query.cgi
 create mode 100755 mozilla/webtools/bugzilla/relogin.cgi
 create mode 100755 mozilla/webtools/bugzilla/show_activity.cgi
 create mode 100755 mozilla/webtools/bugzilla/show_bug.cgi

diff --git a/mozilla/webtools/bugzilla/1x1.gif b/mozilla/webtools/bugzilla/1x1.gif
new file mode 100644
index 0000000000000000000000000000000000000000..b07a89a6eae93da8d6c89f7647ed2bc38b358992
GIT binary patch
literal 82
zcmZ?wbhEHbWMp7u_`tyM2MiSdDJv*=<`(1^m87O9q!s1oD!6;PDP-m*rl(pdl;<Sp
d>ZNC<F)03IVPpX6(_sJtkO2-%Og@YZ)&RMK7r_7k

literal 0
HcmV?d00001

diff --git a/mozilla/webtools/bugzilla/CGI.tcl b/mozilla/webtools/bugzilla/CGI.tcl
new file mode 100755
index 00000000000..fc711c7a01e
--- /dev/null
+++ b/mozilla/webtools/bugzilla/CGI.tcl
@@ -0,0 +1,320 @@
+# -*- 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 <terry@mozilla.org>
+
+source "globals.tcl"
+
+proc url_decode {buf} {
+  regsub -all {\\(.)} $buf {\1} buf ; regsub -all {\\} $buf {\\\\} buf ;
+  regsub -all { }  $buf {\ } buf ; regsub -all {\+} $buf {\ } buf ;
+  regsub -all {\$} $buf {\$} buf ; regsub -all \n   $buf {\n} buf ;
+  regsub -all {;}  $buf {\;} buf ; regsub -all {\[} $buf {\[} buf ;
+  regsub -all \" $buf \\\" buf ; regsub  ^\{ $buf \\\{ buf ;
+  regsub -all -nocase {%([a-fA-F0-9][a-fA-F0-9])} $buf {[format %c 0x\1]} buf
+  eval return \"$buf\"
+}
+
+proc url_quote {var} {
+  regsub -all { } "$var" {%20} var
+  regsub -all {=} "$var" {%3d} var
+  regsub -all "\n" "$var" {%0a} var
+  return $var
+}
+
+proc lookup { a key } {
+  global $a
+  set ref [format %s(%s) $a $key]
+  if { [ info exists $ref] } {
+    eval return \$$ref
+  } else {
+    return ""
+  }
+}
+
+proc ProcessFormFields {buffer} {
+    global FORM MFORM
+    catch {unset FORM}
+    catch {unset MFORM}
+    set remaining $buffer
+    while {![cequal $remaining ""]} {
+        if {![regexp {^([^&]*)&(.*)$} $remaining foo item remaining]} {
+            set item $remaining
+            set remaining ""
+        }
+        if {![regexp {^([^=]*)=(.*)$} $item foo name value]} {
+            set name $item
+            set value ""
+        }
+        set value [url_decode $value]
+        if {![cequal $value ""]} {
+            append FORM($name) $value
+            lappend MFORM($name) $value
+        } else {
+            set isnull($name) 1
+        }
+    }
+    if {[info exists isnull]} {
+        foreach name [array names isnull] {
+            if {![info exists FORM($name)]} {
+                set FORM($name) ""
+                set MFORM($name) ""
+            }
+        }
+    }
+}
+
+proc FormData { field } {
+  global FORM
+  return $FORM($field)
+}
+    
+if { [info exists env(REQUEST_METHOD) ] } {
+  if { $env(REQUEST_METHOD) == "GET" } { 
+    set buffer [lookup env QUERY_STRING]
+  } else { set buffer [ read stdin $env(CONTENT_LENGTH) ] }
+  ProcessFormFields $buffer
+}
+
+proc html_quote { var } {
+  regsub -all {&} "$var" {\&amp;} var
+  regsub -all {<} "$var" {\&lt;} var
+  regsub -all {>} "$var" {\&gt;} var
+  return $var
+}
+proc value_quote { var } {
+  regsub -all {&} "$var" {\&amp;} var
+  regsub -all {"} "$var" {\&quot;} var
+  regsub -all {<} "$var" {\&lt;} var
+  regsub -all {>} "$var" {\&gt;} var
+  return $var
+}
+
+proc value_unquote { var } {
+    regsub -all {&quot;} $var "\"" var
+    regsub -all {&lt;} $var "<" var
+    regsub -all {&gt;} $var ">" var
+    regsub -all {&amp;} $var {\&} var
+    return $var
+}
+    
+foreach pair [ split [lookup env HTTP_COOKIE] ";" ] {
+  set pair [string trim $pair]
+  set eq [string first = $pair ]
+  if {$eq == -1} {
+    set COOKIE($pair) ""
+  } else {
+    set COOKIE([string range $pair 0 [expr $eq - 1]]) [string range $pair [expr $eq + 1] end]
+  }
+}
+
+proc navigation_header {} {
+  global COOKIE FORM next_bug
+  set buglist [lookup COOKIE BUGLIST]
+  if { $buglist != "" } {
+    set bugs [split $buglist :]
+    set cur [ lsearch -exact $bugs $FORM(id) ]
+    puts "<B>Bug List:</B> ([expr $cur + 1] of [llength $bugs])"
+    puts "<A HREF=\"show_bug.cgi?id=[lindex $bugs 0]\">First</A>"
+    puts "<A HREF=\"show_bug.cgi?id=[lindex $bugs [expr [ llength $bugs ] - 1]]\">Last</A>"
+    if { $cur > 0 } {
+      puts "<A HREF=\"show_bug.cgi?id=[lindex $bugs [expr $cur - 1]]\">Prev</A>"
+    } else {
+      puts "<I><FONT COLOR=\#777777>Prev</FONT></I>"
+    }
+    if { $cur < [expr [ llength $bugs ] - 1] } {
+      set next_bug [lindex $bugs [expr $cur + 1]]
+      puts "<A HREF=\"show_bug.cgi?id=$next_bug\">Next</A>"
+    } else {
+      puts "<I><FONT COLOR=\#777777>Next</FONT></I>"
+    }
+  }
+  puts "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<A HREF=\"query.cgi\">Query page</A>"
+}
+
+proc make_options { src default {isregexp 0} } {
+    set last "" ; set popup "" ; set found 0
+    foreach item $src {
+        if {$item == "-blank-" || $item != $last} {
+            if { $item == "-blank-" } { set item "" }
+            set last $item
+            if {$isregexp ? [regexp $default $item] : [cequal $default $item]} {
+                append popup "<OPTION SELECTED VALUE=\"$item\">$item"
+                set found 1
+            } else {
+                append popup "<OPTION VALUE=\"$item\">$item"
+            }
+        }
+    }
+    if {!$found && $default != ""} {
+        append popup "<OPTION SELECTED>$default"
+    }
+    return $popup
+}
+
+
+
+proc PasswordForLogin {login} {
+    SendSQL "select password from profiles where login_name = '[SqlQuote $login]'"
+    return [FetchSQLData]
+}
+    
+
+
+proc confirm_login {{nexturl ""}} {
+#    puts "Content-type: text/plain\n"
+    global FORM COOKIE argv0
+    ConnectToDatabase
+    if { [info exists FORM(Bugzilla_login)] && 
+         [info exists FORM(Bugzilla_password)] } {
+        if {![regexp {^[^@, ]*@[^@, ]*\.[^@, ]*$} $FORM(Bugzilla_login)]} {
+            puts "Content-type: text/html\n"
+            puts "<H1>Invalid e-mail address entered.</H1>"
+            puts "The e-mail address you entered"
+            puts "(<b>$FORM(Bugzilla_login)</b>) didn't match our minimal"
+            puts "syntax checking for a legal email address.  A legal address"
+            puts "must contain exactly one '@', and at least one '.' after"
+            puts "the @, and may not contain any commas or spaces."
+            puts "<p>Please click <b>back</b> and try again."
+            exit
+        }
+        set realpwd [PasswordForLogin $FORM(Bugzilla_login)]
+        if {[info exists FORM(PleaseMailAPassword)]} {
+            if {[cequal $realpwd ""]} {
+                set realpwd [InsertNewUser $FORM(Bugzilla_login)]
+            }
+            set template "From: bugzilla-daemon
+To: %s
+Subject: Your bugzilla password.
+
+To use the wonders of bugzilla, you can use the following:
+
+E-mail address: %s
+      Password: %s
+"
+            set msg [format $template $FORM(Bugzilla_login) \
+                         $FORM(Bugzilla_login) $realpwd]
+            
+            exec /usr/lib/sendmail -t << $msg
+            puts "Content-type: text/html\n"
+            puts "<H1>Password has been emailed.</H1>"
+            puts "The password for the e-mail address"
+            puts "$FORM(Bugzilla_login) has been e-mailed to that address."
+            puts "<p>When the e-mail arrives, you can click <b>Back</b>"
+            puts "and enter your password in the form there."
+            exit
+        }
+                
+        if {[cequal $realpwd ""] || ![cequal $realpwd $FORM(Bugzilla_password)]} {
+            puts "Content-type: text/html\n"
+            puts "<H1>Login failed.</H1>"
+            puts "The username or password you entered is not valid.  Please"
+            puts "click <b>back</b> and try again."
+            exit
+        }
+        set COOKIE(Bugzilla_login) $FORM(Bugzilla_login)
+        set COOKIE(Bugzilla_password) $FORM(Bugzilla_password)
+        puts "Set-Cookie: Bugzilla_login=$COOKIE(Bugzilla_login) ; path=/; expires=Sun, 30-Jun-2029 00:00:00 GMT"
+        puts "Set-Cookie: Bugzilla_password=$COOKIE(Bugzilla_password) ; path=/; expires=Sun, 30-Jun-2029 00:00:00 GMT"
+    }
+
+
+    set realpwd {}
+
+    if { [info exists COOKIE(Bugzilla_login)] && [info exists COOKIE(Bugzilla_password)] } {
+        set realpwd [PasswordForLogin $COOKIE(Bugzilla_login)]
+    }
+
+    if {[cequal $realpwd ""] || ![cequal $realpwd $COOKIE(Bugzilla_password)]} {
+        puts "Content-type: text/html\n"
+        puts "<H1>Please log in.</H1>"
+        puts "I need a legitimate e-mail address and password to continue."
+        if {[cequal $nexturl ""]} {
+            regexp {[^/]*$} $argv0 nexturl
+        }
+        set method POST
+        if {[info exists env(REQUEST_METHOD)]} {
+            set method $env(REQUEST_METHOD)
+        }
+        puts "
+<FORM action=$nexturl method=$method>
+<table>
+<tr>
+<td align=right><b>E-mail address:</b></td>
+<td><input size=35 name=Bugzilla_login></td>
+</tr>
+<tr>
+<td align=right><b>Password:</b></td>
+<td><input type=password size=35 name=Bugzilla_password></td>
+</tr>
+</table>
+"
+        foreach i [array names FORM] {
+            if {[regexp {^Bugzilla_} $i]} {
+                continue
+            }
+            puts "<input type=hidden name=$i value=\"[value_quote $FORM($i)]\">"
+        }
+        puts "
+<input type=submit value=Login name=GoAheadAndLogIn><hr>
+If you don't have a password, or have forgotten it, then please fill in the
+e-mail address above and click
+ here:<input type=submit value=\"E-mail me a password\"
+name=PleaseMailAPassword>
+</form>"
+        
+        exit
+    }
+}
+
+
+proc CopyOut {filename} {
+    if {[file exists $filename]} {
+        set fid [open $filename "r"]
+        while {[gets $fid line] > 0} {
+            puts $line
+        }
+        close $fid
+    }
+}
+
+proc PutHeader {title h1 {h2 ""}} {
+    puts "<HTML><HEAD><TITLE>$title</TITLE></HEAD>";
+    puts "<BODY   BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"";
+    puts "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">";
+
+    CopyOut "banner.html"
+
+    puts "<TABLE BORDER=0 CELLPADDING=12 CELLSPACING=0 WIDTH=\"100%\">";
+    puts " <TR>\n";
+    puts "  <TD>\n";
+    puts "   <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=2>\n";
+    puts "    <TR><TD VALIGN=TOP ALIGN=CENTER NOWRAP>\n";
+    puts "     <FONT SIZE=\"+3\"><B><NOBR>$h1</NOBR></B></FONT>\n";
+    puts "    </TD></TR><TR><TD VALIGN=TOP ALIGN=CENTER>\n";
+    puts "     <B>$h2</B>\n";
+    puts "    </TD></TR>\n";
+    puts "   </TABLE>\n";
+    puts "  </TD>\n";
+    puts "  <TD>\n";
+
+    CopyOut "blurb.html"
+
+    puts "</TD></TR></TABLE>\n";
+
+}
diff --git a/mozilla/webtools/bugzilla/ant.jpg b/mozilla/webtools/bugzilla/ant.jpg
new file mode 100644
index 0000000000000000000000000000000000000000..440e836d45a35e8b26d8c441b2ba965dccd3f011
GIT binary patch
literal 17469
zcmXV%cT^Ky`?Uvy1QBV%BS@%0=}1vb=tb$$JBU<~o)GCB1O!9qsI-9eF4Cn4(m@CU
z0@6ehh=BAaE&TF+>zm0xS(%l!=FENO+<WiqT+UoB0SsDdnrZ+A`OF}nz$FQ|Wg@EM
zWar3j6o7i^<be|5*7S4`11{$PRe<^`6`1NOHJA!~jhgxzE%Oc9>(^;n8JXyqIoLQk
zA#4zKZay)7ZeC$tc8GwqfbcyDsryn~cVTicNjWh|DT&J-U>pD_u2THJ1Ni?3#T5`G
z`H!iu(OhQ$u26tLS13VOuToNyuM8po22e6yW#W-grn+fh2j)dGOGYH;Q$tm1yI2gr
z@9;_4dq-ZQ`R^7h+wD7d`2_@p?mv)z2!qS0K6<RCuA!-AWNcz;W^Q5W;OO++`Gt!s
z>ZOmbpMOAL)T`*2*w=CKDXD4c8E@ac&-_qOSX5k6T2}t4uD+qMsk!Cz*Y2L)zW#y1
zq49~yA5+saKWBe0;|VLP#6N56yL<ZwheyZ%PEId7f$P-3JcT9&1tV}d3s6%~0DvN}
z`Z9!bSa*E6C4fmgZkcx6r&Df;o@mmW*PNY4;|R@%ag!cE^y{ZTbn9C0ladht>=JO&
zt8p#CyM%uI{$j^rL`S}l6`NIRbb#BiMx(#iDs>)>C@occ`z!n+&SG!ha)S3sWM2Z7
zEnf9@-V|$tCBt%vJ{>Ji!@wUmQ?88$5El#0=5l_io|vXb_gVN|rOtEwxQ6>Tty=6d
zvdlY`fl%3h)H>sMMGcv`dbq%}uhru3Y5U@7U_~{Zd`Q>fnuU87G9AR<@X$*{9LAMg
zT>d*osSC2Zt@RFOTmDTCR9oipfk~yO5B+ni0i|7s!5haJGORJ&6A;{6qKPtM92DFu
zh(kyQ*U!rQ5H0V#^5vz^wpK0rLn&o$o4%c`n!4x&rftGE8rC_$5rZ-kU|RvKbHkl?
z@{`{6Uq|O6PYhY>8YR#Uz;dj~BLU<Z`sF16FA*v)WfSSNt(Nh@C+_1W4O`TB%mwkB
z@77KY%cIeWB9Lrn(3iuKG(#dyNyj`oXngbOdWlys{`3;SS|%)mWYw5ovX$7D0SG1H
z+}z3d)j@8ad38|9%C?@yP;)0M^b3A7^Cp5oo7%-6rDgWgz1cSB-yzO5aoESl#zLK<
z<*ek3Zd!mBN%<0>nbTZ-Z(!;DrdDYl2I5c@3jDRK`03{eKlFGa6(bLnZThhNEuwdN
zm|Bato(JVTj9*<{S5I&InKRScGVBQ_Oy2X7ApYGGA658WbOwng;V}rhad>`J(Y%^8
z3kQ9Xw1(qr=RCQCHG|Jr-Lna_-h!_SK$Iko=EI6ir|8iFM8;9_E#Hlw#(}keg{RtX
z{;uLu5k~s(Jv7Thi415xQu9xgyCRR!Ro|I*C|XY*rWtawuz$bL&hz|41I(}ZY$|_O
zA-cprV_<Gk+`{<b&n;u80y*a$oXM6vJ+$jwJ%8avW_E_(;L1Q-wZcZ(pP`^A5_GEe
zhq;EH5)3@ClP6}zp$5k@cebKZ<Y60@hMiMWgYS8g-}`IKq+Da`!k=c2k9pjwZ^*Q;
zgmH!?1-u7)g)Y!*#npe2IT$>82UY(Ik^ptUimlcdfMTn?>sPc2Dfgo=-U{_q1+#fq
z@9k+Vt#aAGPFl82Rwst))xc&mC)`(HI8bhJX`AFV=Y$_k<>l$_k!__!c>x9%>YgN4
zM^Dy;QP{STx;xu@iyZ@12aan(inPxwnnf`qgSe(5s4y*JMjk{LdoBPI6PMviLmw=s
zE7O2k4<P%x5%D|yd<R_+GtHuZ7S;9JjZdFmcd~moR*k|vb4OWU99)@QD+nnpfFw!e
z78EHr(?YT_X$3B@QT3+#-U|R_&9cjilIj>LxnFL)Ji7o;3&U+ZF$>MoFw|TaBk}JP
zr<;G0nxsYI#;{+pE86SWx8w<2vN&4GF{lp)VHPJVO<7K4a`hD79u%D^tI^S!Gj`c1
z3VrV2|6ySAXdu1-5OKZAf6n*0R9~mG+jqNJFmc&KxzI4UwkaaIPpI%TZCafvIRk!2
zO-jdwz?jbOs|*s=Pz-E^gE?H?Zon2~*;so$W0|zzrxfd9Zv)p4Dh5P8m{&m=`vMkA
zR=YSfw`U7?`Qv&!GVixOc${k@jN&GIV4(Y!>x~+e$AFE{+cf?i8_L;yuZExhz22X?
z7nrU%Q4~nY$wyl&y{BI$<j1KFR@CdSzF|J;G;!|W`f}6qUL7v#$nB%#SPKa2Bj@PX
z?+_^$Wijqq@1aZ7>qvC!p*0TIG@55X4nUJaBrHCui7U-FD_Ty}j?ZdjEH9<Some}+
z%-)Y!>mr<T1y0u+K<qq3JNvx<@yj8bkIseFHG<++d>AX*tUvNehXjV5Zj_AIXSx0E
zU`>9$aO_7Hh-%_2fdr8r+Kp}EQUxPLQ*N0qDi3x6A*hHG<Ig6fEIYgV&u95U!Zps+
zzfrqm0zuXbz0qx_{w<GRe0|ceLZm=wC|m-|ZZc4(GL^xgo3C%*edC=i4#e0XCmp_U
zfU5=mrFKu4tCz@ytxZj{zw$1<Gujz%^7fyG;Vl606~sM=@VefT0sF{4FmF{nUYX~3
z2&6+!4M!XwuQf?X>r^pOt>>jwq)u$phM+c#OCH0VSWQjVC2|4WvMN`PaS$^Q`bPn4
zsWuqAN6mIzA<YnwxH=G>tgDq<86upQvbT2;?xNL`cL~s4DLti|A*GKlYNS}h^k?`s
z`NzUe%NxfLxJVQ!w7vy;BRoWqjb=|j9Be=eP3NUwNE=3u$_9l!n@ZNE1vF<RqWbY#
zEq;rIWeW$Ffcy;!1NJRKQhOkJ$-d|eMq0iEem%QzeMzfb!yOG|x{p)&(g3)UlcQ3{
zR5ymSu^H}Y%A5Ux$b>>TF}J=mR*rEk(|p-><^&-_lfs8OR#Ol5<xKbdI#yRV3{|H|
z(soFlh_Dp+yQK0(h@Yn7-yUk)aN(I)I@N0T{J@u1%8+lD02|lv<e4dGh;?fo$9<CJ
z2lpgQsOIEr;u>Cd(ETvB7R!41i?83Et|xR8=a3tI_EK)zlsk8n5S-;`o$_v7mh_&u
zX5gPP?{;J`_ffgjykyIIXB4|X()<UR6oOiJOWWCsIi~g8c5tdwpD8y^g!f5)*+M7u
z??CoscpUlcCmNSo1^!-%K-0ncZH4NOD$6OkYglFdS&ysVbkC~F4P63KBQaEx1Z3jd
zT}tP9=kfYcY*6tA#`gUbuXac_9<(}}$2dcv#Y4yI4GMxP-1r?6bdo!!`V5W}29Uo*
z!k`D$VNZ7{T6Sr%uI4Lsn!bgP)ozO;0w7W0!eE=0*7hG&D-+x);{u4JZhB$XEnOKx
zuI7dz7u`Ba1TkAEuvd1KF%CLOM|}xU{AzzG<JAqvrQiRY*>~3#@qTj@g=xOAHfg3#
z7i)(q8qVJ^6ZMV~W?r<DRHMG0&YyqO1#!q+Zqwd5I#Oh?(Q3+Iw8Fi&b17kr%1)B@
z{z-ca#<Aarfd4$dRXUpYbEH^zBV6A`ND7&KzM@Q-D}3+S&Q#5Z#}q%@@6_*KGkM-E
z2<N9rOXugPo2|=hNLgJK4)VDmRF?x_?p!Q!wtn;XoeY6A1{i4D^N|1ibn^6{m9TJ-
zqtK^Ozrjdl(8p7s^NK88_7{I(xIi_-TdZB9$V@ws3lU-$5)FU5V)zQL(01_z{;V2-
zfZsply2tOu%16JytuyP(L5SvvTM7(SBsM@R#K!1p;OEi&Kf%Wi=WA<sMRyzgl4Q<|
zdF@hkHF3(iV00ROexmCu0m3=M%KPpaoJL-jls4+;Jkh|0Q=K?pt*_sBZa~z~%9o?)
z+uk|-G5DY6Ka(Y2j+nsEhWoAeXJVE){kVjZvxBf+`?DXbQ`D12r0OyADS@kbqAAxl
zalF|IM)kCTM<wBGALS*c+OL0|-Ej4dT->r=u)=TCo($b$y9E4S;>M<O7R4TYDqhm#
zt_!@7$8A{DJssF7|F(h_uJwa>u*bm;R^k+MoV7~<@jPZ-@Rt+P7cK3lmIBoenN4X5
z9ppl>#FOb~#cpGseG>zGJc>TCp|CZ}Oiasvg=H_9PsVB)V<~Smb4Mydrl^wr9VeM)
zcs+02`R4BZ%)9Sf+hL!XV%#BfE_Z~8y=J_yIzMhNcZTvJU;vD1mPc7v{@r``6YIiV
z3hN6S#P3wOxwULA-V^2UMq^=}lywwXeI;n3QjnSRZx7wQKh!BMqMMtxl=XHtI`yvs
z_SZnp3?%~SH+XuKUh;Eo>a6Mq)=$A9qCE!20sh!0#6BXdH7PgMTo-8;mOdk}PcC48
z)S8LNIaj`AzQoJ`;b!Ds3pbt2%@e<hx2I1#3W^%BKAtJFL(MM=2dxo7FS+-q35?0{
zyYJ7X0)Bh3T4famaNp8KvW@=tSnU@kM}>-%uKuLyj3?fNV!qMjS;EW)*4?Mt!Tg=I
z>rI)KnS?su#k?@XfN~LL4S1JPqD>l}6WRB7H!{eVl!h+Mr2-C%%ee7uH0tEr$1(qo
zyft<SM6;($hrhGK$SaLpHL&+YsB%@QHG4;~lGh00n%<s#EKwig0fH_0718+lbdikb
zuXf3W2Tdfurif9Ke@vO-j&`0ag8JZ|1-6t}Ql*Z*W59lGe;5{CC4O6pCebdlPA*FK
zRZ8i;hQedwb=<T4sgHM3lm%0K#kO><CMS}2IequH1aI?Yp#|h&<tsFFFklZk+gQI%
z=j!+0?qUe$(I;;pSGhrhw1YD^sL`GvL0-_W3>Ue*{rL1l3@1Xh9{<_H2z^Gn|M^!;
z!;L$={b|RI`EdcZ>_ccjy*6<30I00ma4X0qxJ86Or2=Q;3PNsJJp5b1_5PaE(_iAS
z6TQ63IH%2AWFI}(+ZD5_d*`22CG^!K<r7POTQRJA_uhU5SE7KR@%x8t=b`Ci{@$mf
zPoL=sbr`7&y&aB-CP^L4B?bAcncrU782rq-;$kdee#)SRoVx_7;pMkpWfkv>v%mp5
zlwm)TZ#*IzeihY}anj_-IFWhyjGj44r*>le$+)!$YVq5ATMak2pnPKt2V5@qI^-DH
z$I0%a*(2d$D9xbBy198W@#v@#DK_<p5}_d%v91IskQyK|JrA!uX6kLCm|i8a^+TH!
zi!}JrIWhX;O8mc?6eG?n*n1k^+^HYE&8Fzx`+Z<u*-%mJ%j@mA!3V>3MHUT1PsBLy
z&G!*$(I<xT|7_a#539v)$ZVMpcTq4VcS{53ILn$l9Y5bcH5c#f+SDk#>VRI_WZs>~
zAkba{hwFF1iegfOYq|)le@za}=PreK$Q9(kLf3|Fs*6$f`OHASLQV&ED1WX|hZb^-
zV=eRRHL+qd!s$-lU1;f~+|{@Q1fdw2<yU8Iv=RLcTH&cV-F&--UBDgdCAI8Yd4=@C
z51L%X5}o`F>LMEyK4K4vd87t4i(Jj9Ext@Qjjtlo2<mk~{g3h=ADhR^ZO$eC;x^rS
z`#}gt9=^&-wcpnnSk(L%HV&%h=3e8aGmfcXOnC2;7TXzX2qF6r#)hvJ{*ZCBF^ut8
zHSbzBmW{yYs&l1Vjh~wYc|P+Wib^*O;3A$M6mN8Jj<s3ewi0w0Z*Wg-1EBBrk2|;5
z)fHMln`LfTKF`m8CZAE^xuaR1eKRc?b)0t0c?k?mLH?L16EFz9z0-+D=<l0e>BiX(
zO(*!h3Pg))efAYF_e95>h<ou&&PHzb;kqIOJ6dB7wH8R@jjV)30u-o7_yPW~WP!H=
z&@k$gC6-(Q<t5{rk*(UYCkCCWOeG@om|MT{PeD(=#CYB~s$$|X%g}7(634rFJk61p
z#_B3kSY}=VuL)<?k$ozSe}3zO`T(AQ190{fWVUx)ZJpocDf3_V1K|O_5G1CfJ)&xp
zcl+Lh>fB`OfUK!I8KR4J^v$58fVqJ`V3r?!xlUQV6smD_3k5W0r6B&)bZ8B6unh8U
zIhn^mR?<%KC%!uHnB2sU$k`RBd{BF&mL!nQEbv!@e=Z99wM7t`Yt;VpU9SJe3CSmY
z*<G_#jfL7iiko&%6Q5Y+5NVdZRINz!c)<PeU_?yPN*)<C$9(ZlX{Hm;ht)DMY=d02
zRb%fE)b!&1FI84uPX}p&+;_+a!J%V@m%yCVB@mLhQ@q&;=Fhap%Tu3DShd)7mXxmL
ziU&NfpXEu|ObW+y43?FI37Qm9Scm_|EfIk!uDJdt1|})}eUNQAw)6b}+nu`UVwdP{
z2F)TmM{Zl}<BBnrI8yT!g0DQR>Jqr&QoL-3<lg&jsNxBca>#9$NW|?`f6;DKm8t(8
zNrS(@_J7gAUIHcv63>sA{K_Ztt@aB@2se5K9M+TaE5Y}FJ#E+THyb!n)sdG5nq2-u
zbPF;q6)D!{^TT{<JRaf%hj&@iYh!02LU78)CRv(h>m>6sTX|}E*&qK7--vpCee$r!
zcNh0UX=dTJRJNxn7uiRMmAm~r_}S7%!j*@g8{VF&s|EjUMTb@Ny8ve;zw(dd=pH@l
z5$2w^Dw&Qq|Nc>OMj;-BbN}&Alt#Ut{0hGbzXUqkFDlGb?~ea|RMnu|MHybCM@#1q
zxji*mU*SJ>y)ac=yScx9=_A(#LjAXepHy8nixRaoEv>`(?sVq#PT@pvh{)K$_bfLH
zE;;np6%o+f6&3Zf;)0eWVmQFJm$!t(_GNa)QTAF5J!caV@742cCOAh1nLRFQNny=T
z{`h-(nC|2onwk!rXONBQQtERXd#QQbJa7NQ%S5F9Q{PP?fSX=db{}`QVW<Lqq7@qh
zg^=6%!^E#GVgH#IP<wxiRG%GU4vrsE<~x!*I-P!7nQN#)G7_3A6MKqKW(6p$d;dOU
zT+qB7=_DFQCsX@Z{_|Aul%XnHfQBi5x(Mjr4?V@AM^J7eXSdw*=(CeM{_+xfZz6%=
zo0CQWorZh%0eO%V(&mvF{UdWby~?+Vv`dMq|BM<H%R^PqU7|nJsi~J}J?^AD;7!_V
zSuL(_+W*)u%!;ph=GrbS0#I=`a|x^^YK_i}f9st&9OT>A_}i*=k4EuXpv%HJf9gc$
zlagxsyOllv@v*_Z^t2|vyWg4IeiSsMRPou2BQ_6*n%m#Bi6}PDP+_>pWDt)_Z303&
z7B2x^H~($Z+ota?awu-dFYhU{VH944=q;Q+ZzF!QOLRTtx-s7u3@TPp=?fmz^qBdz
z-?T9n%96RCp0;%rr<zSOIk7$Zqalq=^wd^-2&*4N@0osM-kx7lWp2sYmK9k~WL1c*
zJvB+-?=iCsp0iEY@hrSA8e_)VMahUeIW@5&&xjW?b8@G~yMN4_{McOrnjA=jY!akL
zK{P85p3<A{oEU$p_vdwp&Y^x8c5Lm)RgBs+;d$@)5+m-Ij_J&!ZIYMY7$;jj!d9_n
zlao)i;4jQBbO72MLdYrsnH>^jwkx01(wttIhl0R++*m0bK#{;^B0(KiEreLKWt$JQ
zMRgvpJq?Qy*)se3@K~1lO+{g}K7BJ(4Nh#@R_bqX*7V@M(<zI}^)7@sD_ltYBWXiK
zuW^f`DH_Nk;16ApGiS#an~H8<v!>F1ojO^@ZYe?A67<7S-$QUZzr6oy>zSy~I!x5Q
z<%P6Ld4a8H8%0ER1g7n9^s1XC&^hRZoKDm#KzX<zMqKWX)-?|Z-SX$`iSO3~{<!z(
zyuDd4vRd!0y_cH36b;~Ki{Ez5LKxb7Gvz<-!+Z_))3^6;W(PTAgYDa*dOB{`V&I0~
z9wdzC<Wo_42GRPCs_PtAQ~BGlEnZs|<V7f-b)TP}jn_c-CsLJ1#bpl8UE-Muj-FlT
zb)=9rKA0JZO?g^A498-fBFVh8M4*E)ZwrJ4lbp}pLZ4ijEEN<RSCab?ASbt*4FwN$
zZl3-SeA&W-5R;)N%hGJ)@r)Sm@Ash5`Y;xyIGvxi%KRxVDFYNUu@QZ)Kqp-QKCwv7
zGnlXm5W=vQ=|A<azJU#vxmOX|nl)_E_diLGNu6FOer=cPo|V(@Yh3bpbQK-T=G)Id
zG51B!a_UEe>{Ghl;`dF1Y<8@qvoN|}y6s_HIstSAWqKh#cY5ceSA2(=6uIT2&CpV^
z^!gzc_2V_mZ@x~A-Gaxs+zh9Q)cyT0xPQ02?wO(?3q}`33N+qvWoM2;J8(0iQKvut
z`TQr`;^-x@L({~orxbDt;4E{VH?)3zfBWaVgn`b(Qw%mi_OF?S6zf&>-OBjImJ6wq
z$&Ir0K!l)+u=;8>U`=oUH*xd|nVY-bD)a69IZ%p2iBPJsc~f-u|AO}^1AG2`Zt9l1
z(LZ_wo$PM?6!`!ECEH5~c25|GxIDe(X8jY&2WcLaI$sZB=930Ls<4+6P*|f0IeMeM
zf32NnN3+qj6L;L^wBJj=zpL-m#C<cvZqiPdeHw$8kr8W~cyo_#(PD1KYHQEVXTW6e
zL>*2@MQ0PTb2T57mHso**W_4cu;w0o(eY=q&!1e%=VdSHuVoE>%gpBSShDr4Y(>YG
zfdQb6u%A0agf?67G{xm581m@|@rqpmu61(6fY%J-bdo9_C+ci*gec-lOX^9E23lyi
zEdU|-^;atvi6jXPR6Cfag)tf=&()N$=ox%IyRW5F9??v>kItod@IIjGK9gkY&HJk1
zRq3eKt=&VALYrSTxYtZN6TPZ!IKmV4&1s1N)(In$0|0r={cXlMXkMF;>RpyNym#*V
z<Fylf18N7!?asJ1Z@f#^BZl&|Pv!<Te?5S7#vmZfUEH~v3Nath-rugVQRZf2((j!E
zVZYSR-9q>&R2qXEL@_OwfFkL$g;(a)Q9nlnwzNE1&9nM?8(J;!63`oO7&n(oq5*En
z*)oy>s+~>S5>|OxX!3|x@+L$cPsr6Zy=B6*OPOq?P`<m!eycCjR3$|(z5IHl-to)`
z^F!g^gXw>q)Z;_T>qei{P8>uK7V6ey`5phKx&c<{9`U~R)xaVD9~rXwUKK!Us+eD&
z&UN2zxQTc?>KjOUkYS!pZxfTt?&`?dGO%rV+i6sk*x-J39)kMEwWiG%9p|*MF>`A4
zA=|M)Y-*iKk8^V6a~g16d`lc<CQ3{??}|@Cz|SKps(fT5?Y>*VK>maH%%FAeerBiV
zi#<DRO}+%$3oubjPPHuUYRPPlL=zNp*h#DjoZ0aqWG24;yD6Q=G{hE3i+GR1orAd&
zd}mWWUF1?b3A2nWTMejzZ|o6X5@FCr^#<Q*CU|Ruw6_{BuL1I!P6{&vo37e;O+6=_
zYLHn@uu@$lLG4rBNw;kHZ%yEE=(zt6#bKpY;>~|4*IAmHCpp)dIW1d)n`z**>U;^^
zB7tWSnMVmi6KBvzjbsVBqsB6n;`e2j@mB^P>A~B(l?p#ze^UdUy-l7Ma2{$34UfFV
zpYL?aMpuY+^s~wc=dJA<uarnKznKCE{6$T4C{xv8O&MIw6h#yq!T###QoDBJkDy#h
zJ(%zoykxL4Bt{@*^;$#*l-J9)>us(KBR0*MZ9ULbp=8<3G<;s!`?YzRm7j=Tu{Sjy
z@a3L{R{5tqe{V>u%KQxRSk_K<M>1$1i(IolTTgl8Kq)CA;JeiwvPFgJhoXNNez?$L
zklbaa@rL(-C$i1t`S`k5OBMi6YqINBx`JTc!V3lNUmy(`8y}n`Qf@8h`}iip^uLky
z9+uQDk+vjYFwN#k?nS4{<Z3tgFZROv>L2AB@gXPXPmLuqyr1H3jL}KNf2?z0<>#Q6
zUuPfwA|@wA(agCZeCz$4E<AWU(D>L4Za_Vh$J)6zp5ttP%q3N80)opwarxBm;mn6D
zHSQes=UehAmw6gD=_9bT&>+2)KAlrR^5<M_deGWi+n}*odozjh1$J*l-dp~$o%K`g
z``&yh8H!>LIr`DZ<<4*z6t<CjFb)P)KY=>HKx<LxiQjLBk{ENB$aa9GL#wQX@6z~V
znQ#yaz1MCwTcRFa7uy{~lq1{wE;Qjee@{q^Slxq&*VH3jpz8;u$jaWA>kn($Y$!a{
z<gdyXyI82g!H}f`vSLM>sV~V!I4^t1Z1%0Vd~LeX>Gc-g@A0cBu(86&>!QNL@nb=4
z>Im%uW0EI$BMIzT((d9PYZ$`by%9jEoB~Izmzz=iNLSanIMQua9BNB6m@4XM>A~D$
zLkx*i$p#&=o(7q|eZ~EJ`e4uok(@P<HS8{Z3FPR~VBQ;SAvd!FkG}XFS&68StSc3L
z@gEwM2Jt0#+s5VX{Mx*&e@{khSVH;Sd&I8OFH@F4Q(Ikt<!be^jvQ)D#~crbbQ9_)
zf9JFq*_p)Y=52}GlxNL6)%~GkYfZ1_Wao;?2KN;V=@?CPrxeAz!18c7AVBo=k#(~*
zWUuu?Q0%kme~voWFt3Go{(UzZXv_GvYJKXMv6mzBgQ|On&2mM{DAnrWAU|vnq!{-#
z_fZP}FJW#rp$KhXHaUc%QNMh}!%;I<Yl<0fIz?Q&^?2cxJ*M}7WbRK0{>$XlBYxtw
zF^9x86Z}#%pT}mho|?7T!{Fg0`n|#xhgqrQgcjD$tuVzE16@tw{irB%+R?9-I{M7(
zJTUi@TvdiqziZkRP3RZZCwCfCBc}7qQBoR+nT<Z#2^&eZAJ6QCG^(V<CGF<Un%B&_
zX4@#n&<+n+da?@K8{AxcH|&b*CmQdh2M@xz%V}*HPf5Hjts6Cs^Kw0#zY<E}vjusj
zdaSHRWC=#0$-U&uJQn&KK!7bB!;{em#ezIq*;r*$+teGMp4qaGV`E0GAg8yDWkYv{
zq6QR)viY2hu<tJZ(qW0`g2Q!wqZ)AB!BQv-Z*4FYB`u;L+axJV?HnR7c;O0eaZyGK
zP?H;c!Wr?@tkhqzXRS)hxn22a!$0i_G}0uk&D9a#ag7f-c~o83yY~dOL)K=PUk>8p
z4z@zNKMO=B=^{cdB#}0HT&Yxi$>t${sbqBnDYkJZEUi03J2t^8-xbCrElQ}Pwn`Z^
z%o3jyxGWFuz23L!7olbdptJ>M?A2sLG+Bsmi-Y(r?1kC+hr7UFRyb>y(Ev9Al8ix`
zIb_Jb8FrTFhR|K3Tq)!Rw9Z@D5wUk7z0H^C8n=n<<6?x4RIP;k=iSziTTId$6L10s
z`wYkwb=m-e=?%gw7wnpu=_l*^#X5b2fga2Wh40PQtz(=*bM@9uAx&Q{X*#KF=f(1t
zy95T1pNPajdAV;XxOpj%i+rbKLSS``HAT{lMh*OIf5YOj^tZ6q6cjoPOZr$EW24e(
z=N)w6s;SJ>lNFE2`g{rr2{L}dl@We8fcvI?axQc&)Tl)hHYzbW(e~;R$bEAO1W#d;
zYNL&pDD*#V4FLBnF={|c2_-@ZZm+X7O0k(Mr7OZDM@!3y`IYc^)oyp-px-DnX=EBI
zx8%nWWO8wvudVr}1~~cF9Sa16xJ5kQ5tP#o9F==bkdx+<hp&SJyH1pNG&>cg)dV}e
z!C+8R&B+5cwoW2H+Nb}7RR1ctH;b)!$iiD==`;{&ATaEB@K^9(KWJ~;u&@Z((9BWx
zJ7&BYNX^Da7+#6?rlXU|oeVGK8Q=q?CP|?Uo_D<glUeG)qSpO_#1{$S&$9e#nl|*+
z`d_g9@n^$5m^qhjdEpb3dNZABKGHWuVUMWLKey2vNLK#I$fYMv{1jhZ_J^ASMAH-A
zqqdV2+7ZHE-)udp8kN-KK0YF)Pn~mp4OSWVOW_Ef(&0L_<0d`IJiG+{dzI8#jcv0Y
z{EtN8Wa{p`{$?A;vTA0!5yB)Vi+B3EpndnR?UFDZAtiuy6op=zWO6llOmW6B(pxX`
z4)gd`D>?h5VJ9qc5+hrdD_rgGrkk>7m9a^GR&W1sSI-cGV5dYQ0&eVId2CkSmS8A_
z*!ep5@sYIES3-?pK~%V`GiK(xg_)s5i^qA=oU);@EkdGm^AcG9E7(3PMezl7a~hm0
zd;EY7gtkRHY#mjFT=kn5pe&DU8C*h5E6lJ&Q~%=iS`UD&T>=~A&jb{qw>3&FuhAby
zuCaTROt+vAz#o5p2?&{;<ngFkAxC9=$k+Yw9cpA26g^hjAO)1Tzd73p`(;uj{oFlL
zI=3);-$0X{N{IQR0fxS*>d_zl#H1Bn&225lbT!!0lCkG?J52)U@a~7V>`{&vvdK?0
z3X{*9C%2&>t^~LK(xMJ*JwuG7+O2<a+vgQI>6xng(z@~?YqbbHStW?y{UgfUKnjc?
z#QWM3HqZscq0T>s`e)>LRgYE$kIqa`GQD2!sgP3&cJrGR?2I%^j@sy7G5T<$J=BxB
z_XaB%(_f<Ho$n$Y4pa2^t-4_9)FF92QjKbzKdAo7T%S!{V~1vHOKN+GS0uJ;EHX~q
zGZM;T_hOX~O}`f_Cvi8mY+k1>C((VE9O-zMaD-HhwFyJag4~Oe`6Tn>9S4M%iGU!1
zRvJDU0Ee^ef8L8faTjOp=lEi|L1NhQ;`&o$1(G@>D*oBK1e8ywYus>hG5$-~pijgh
zbW=V%s*iQ$^(aN3)F4Zzo9V5<P+Rm6Pqg2a+K=<TDJ?e!DU#!^s<T0>!HVocZEseU
z+2Y=RFpR+4YA2yajXj_oYX0+q#QS}kKPcP=9cAN(J)y=9xn{H>ezdeNH^#9p9;nih
z6$`cU%~xicELs>4(?~QM5uIo^W+Y~pGPI{rXkw2Q68G`c<HlGZ5b9u-M4{%8Xr*p%
zR4zhlM1p~hSrC-huR47$9601v>yly}5dNPE9tJtWvu$jTpfXy}vYY(WS|7P=I?^U*
zje}pIgF6;n=Au+oSnLbrQm0QYfzvYIRcS_vt21T&(2dOUE<e)t;Zim#k*IU_=+|Fz
zX6r_JFn0gZ6=MZt7iY&ouWIBFTpyX5dp=%X0R^o}L5LXosq_ywFtQF2@zJ8!XqEXn
zP>U6VRJvA3Zj2Nu3^$c21@bhA;V#Eu3C2=o$!Uxe;j$(cOG1P`e>sY^!{U=iEGHV=
zJ_m<Ivx9TcL{B09K^S-Pc^RTtTp2%=*_om?k^5^j>+A1MX!FSR6j?ks;Wn5*QVpeN
z4Gp34XDd;^`H*o7zcQ;xGdF%<7MAH=YNLJ$*fec!COceb`Uu)eLdJjbU>()yGKgr-
zj>38EFV>3^l9e3!p9gWOfxVR69MnHQ&#|ZTUMHfYb%9ajL=!ntXgY_6Q2Lo3bq=x%
zONOIZIh%Eo(fj>jJtpimz@O>1e&&n`PQJb=Xm(B~=VCa1wuPQ*jzf5vDvKp5uB`$q
zNC49qM^>W#vXUCsGc&8c>XiTdnqnu|kfT*=du?5u)tinL&pMzGQvTo@uSeYNGLK}2
zeDBbct6{IsfA%k!csH-SCe%QE;?fJAi>Qlf;3Er)HD~f{Pw6gP^+b9Kv{OdvDWSgO
zngc{Rgnz$vCRQhUb_zd`qzn~IY7PeVH^LA2;|qA}ziQsTugU7gCrEj75I*>Ppr0@I
z@Vb&DDtt)N_y9b82~_<X+s!cijmV4IT+2RnKKapZR}iZa51YIumIctFg_fF{ti9n&
zQ_>@i+k+>a2C4rp0dAM5Rk%G%Q0lLZ)A63Rgi1*(w(}EwX)g~G10(DHAh6qqOe`a%
zTdNI}(6j<Ps1yqM*puyTQ@J?BX2tD%63h4dk^&$%M>>D}h5>TliF!RS_0(9hoFbbs
zo7NdtQhuI=QKSEDkklP96f^8xq-J~)3oTnC1(|r{Zw(Fg`rfl9vstI*D7K$nf4r3r
zPk*R2u~E|2cuE3A|0PV`8<M0_yd7!f&cw<X(I-o5;=;=lPPycad3UZT^!hDd_{_re
zVy5+PWl-)ba;u?BMQsxsk!h*|m~cDpW_k++xA0{n``ypNa)p+y9<iw;En#vn5|&3I
zNu}4Bc#LN3>+Rd<*5mWR)*#%9+4zbzZFXwc-6C`|n{_P+0zn5&_WJSAn)e|`JCPXW
zb2^206`A)_AD7OSEqvBgc^KNvHPuuf=M=flZNb3yhIjjfi?duD<U_zmN@dn9w<G>M
zDHTY5gOl16#$1QgaH+s+;Ko+6rrB_-itJb5q^J~XuDsI_;qQluH@grH8CRW%n~Z7%
z2`2FqrGd4<0Z_INtk?e8zqi_L&0%79(5-2Y6kiI642<@}x`H9JN#>4pbd;Ng^A$YJ
zfJe71_npK$jS+JS?S0Aw2eGri$c0x;X|0^^ZPXi41A~1bbrIR7J&of3oXuixX#MV(
zXqD=Vw}2*0|7$sU&0%)26@qwrH+59+b0?E_<JMx;<RN}KV(P;jQ_ed!)yQju+(EwE
z8zhMn6|3fMW>fE5K@bn(wlm-$XDqWq&J%nz@4kwOzqg>GvgE<m1sn_xo`=y?z<eU*
zM~-JclBq4sm$>CTp+#LTN=&qxy!y%MM1DeK?P8Z6r32)Du`0qO4XPbpkWDuI6&4S#
z>6cQN+!#9zN*piRs}3W+B}LhMQH=GI`IwkLKwd3LCRxbeYl-J|HzK;7_bcBdaR0qy
zAEqy38<@Ol+%e$mT{0b&?R`U8v^D>%#Q^OXmfKgMd2L}pF^Kcf@;iO@mNDc2_l!vL
zub__CRVf1}NA(36YE(5N(X?FqYa>G3Mtej*R-@@6iQlXoR8;WI!}0{cJ%z$E$Ue{i
zdTMm1oJl~{QT8UmnG(HRaU#O(F{>`WW+^Grd4f8CgdKiKe~<>|4*5P;)1dvI@eZ;+
zC8WI$<N9@8@*@;;5r%89h}q^*4H={8C%?eu-899lUP#nhA6zGejk?au#4%DD_9_zs
zgQg;XF=(X#2$&pt3X|i<(1uav`o`g#I$)DcN^kl-eDKEjC5rE{6=AQ>`#QdsBdpjp
zu?HuK?@MsyzHvR;_UA(Lk}xEQ5gnKqSm9L|=DPkpB07QUH##vG+Y=f!X>@K@LM>+L
zlRm|iZ_<>M9|4-^pg6C{z>K@arObZ6+mg2ThUTQ`Evups8vB+Em*{neF|2=ow3k1@
zn|5W}f95#{9h6I4A)@i%;K4-q2Y<7!BT|s~)B}M|2b4@n>VM+iEOEwzAn>YtYSe67
z$LhJw;`=);n%;{}UC+Jek62kZ5_h)q`5IjlAph-&1!`?fV^E_27k*&PB>VC0xDJnU
z1cF7KGq+@JF~6y~-tWzs@spz`OX;zz+%?r()WnU=+19gd+J8a4fyREfxudjyq}j>U
zWU!}VKPy2V7Av?DWh=h<SXoube);rEl~1xKkHwQ-j^GQWw8hZ7meS1_JK}3}zYsHh
z89y20YZh%<HZ-()%9$BD6FTO@4%h4FTSmvImjsC9L_@L2a{t-*y>DR&A$$xBioTU<
zGPx4Dhd`rhN`F#wx%ZmHfJGxTs!yYGu8M-vv6Kf9<eb^v`dyMv4d?_)D?L;-(vp&5
z2>&B><Tn`BZdz4%sX4T=Bd5}BZC`n3A)B}<p1cVDsCffZ5-*+p?437QMJjPmu%uvz
zPMstC6uUqEA>|I+e1T|^)MQw$YwIi1r6_FZ7roI6IXK@9ve(D^js+D7(84>r$bhO{
zTmV!!n~<6u@0gU&pNG@&E$+)=7NF69|50adRmldW6yhTitKe$mFvW<YHB!j>yd(>a
zF)c-+SF!6iZx5d4etx+h`BL8IWR{UW47XchI!%iy3K-^;nm{ABNulkRKxDnP=u@8D
zBkhLw1^S81m8>4gufb@>PPoFm<r*7*e#5q1sv6%p2|wX?jsYqwRu}WRQW)gKZdDGn
zdn)s$`{V-+%K(@)#Vxi@NNO%Zez0(|VdRRiL<eKwr(r_9XVE_HX)K&WT&bU}at?b-
zyU0@A>qa9s&$85zH`^WYUeWgs;pJNW^sTD%$0_SvLb7q5aX`xM3EATAG-^KJ(8|^L
z<A#}R5FS2Zw${jp4r&xoIM}pwa^cF>T{7bM!uK@607b4w#Rn59wd6YFG3I+e>cq%C
z;+}KRo1&Ms4Yp1QNh|nlRHGH8GaAs#E3I#r4AHE9F2WN(MU_rC%lE|qtZP_Z<huX8
zoy8WPBI~q7ra4`eK~N(z*5D8F7X-Qa)Gw~S4mMY&qNCMnhkb4%hl;>~_|y5p*<pdr
z!XpZ9f?uD+&_3i#zL++c=jzU^hR!TOSpHC-o=*DFI3~Oil<n&3SB&j&WoosSa->MA
zl*MCmK8L1@ZJ)ZJ$Rd+|r>1z45iJfyKTo+ox}*g4qJ&JeRZ_VF6a+HgYD@Q?+dHgE
z?Fc!T(#@X8dhVJqg+^-tjQyO8*eYke-%G81)co0axu|}YxO=gaPlQ<jIwcS$=L=42
zuyyC?htit}j6b>ji7dIN*5%E!-jYJs?yoUp#R(CeeEVypC;H6|5=Z=;>C_FwRKjCX
zI2Ou}SKVLzk-(j-R@CdTM(ts!H!v<KJQCthTDTo*$<^<AD<Udkhzd@IND{;g!<TBN
zF$aIeZFGHi`(4$PJI@N2mgpYq6gq!bFV<DW-T$XbUdv&B)yUj6?84QNcJIU0=YH-$
zxhAey@$^UY5z;06`m2YxDARe~@`N;Rpdr}t&p|g#@lXCU_-ZQOlRpYGYJ<@3!NDaE
z)1!u(#W^>W*5_CHE_<Iod8K+D&L!k)h@NwwHxsgN_bTvA6f~J!33-hBhP$6|`(jyn
z01g{PAcB6t<y3udIu%AviVur$2@Whd?&&Ruy}G#_w`}i~r}^pI_bb<u9E6aGp2Epa
z{LT2({*!|er>dV;FMuVCLcxB8g!PyAQK?N(Fg7@FD(0<oP^EQIQQ52pdl!u68k>D!
zAh}j%Tj`lxB)Yu{{`u)95CV$#`M7~`$?Aokee_#}P6{&Fm7C+`@>{rm!Z&5-ilg4!
zZxE(1#@Xh?*u4i$Z#*LNyH};6#*&bjAfFoRltHo0Z<0cr{V<4g#0k>+zuFI%fU{IT
ziYv>5djPoT<LEjh9+clwpbV%|m@d@igr=~3q9Ji%SFC$UQKgpY7Mq20DGwbIk))ub
zN-{fMK7=Uo`#q0}ugM@?0wj5|Z(CD_H_Dcfhp`@)@TM){+2JMPoJJIV8q0-`MOwgl
zP!8F|oqT0*{<{3ySpe`niUz-hPqg`3-kzodAaT}omjK?xv)*<y&7PX?LaNu{=?mKH
zGGzOhKXb78yG1CunHx2x8EN~T^$lvrO)RnbLaG`4R5bpRBZ|sy^M9-5tJ5I*&kt|3
zOW{t|jBO@A92?{!O=cIu75XV}CYwBu<@YLq|CKo|?GbyGnv4le`^mc`en%G-{$eg7
zR*qnM8fX~cZ<M_hc8!ZTRiv?(2dYmU6;@Shv}*U#t8=m8``i-$vrvc1#E(XUtl70@
zCx7WC8n?Q&zSkG+iEwyzvp!N?p(J9EpKKbY?eaam&G(S8lSkX){RAZ_sv9)%D_r*M
zc2w^jF)xQyyT{T4%q%qGl2l`K0RH4~#QAZwtjU5O9h~(%L_*6k2@o%gNZt>Nb$!2b
zQy^Z=8a_JZ(NXBYMKFEP`|9Ix`fpZ81~nz(K7niK!x`K?7ophZx|LPJp7O1R@QCq~
zCYQjh68^A8Wo%RQ;7pmRCW9qQj)2WxN&#Ct$4}oZ&>ELeG1)<Y?ZYH8al0(PX6o5T
z$`u^R*!MKrXEW7WJp!NdjCoEoa?$jJoxfywvE6rQ<*VHwUyV|j!IRu64z;_Q$$G4~
zr!Dg84~8w~2Y)Z<%vo1<SUAn+d|5nw39qiUdQokEg4cAg6}P(4y0(`6vf9mN2b1bM
z{P}8Qj(4?5b0^zqh}4FK;!cDM*Zu|n#m<-CHWge@c2u_We&H*G)-farnVIC+)9Da3
z(XMrCr4s`BC3jF{(8Tw0VATIgA&AHd!FrYaoA_852`qFT6jF;T;pGLWb=B01B=YG8
ztx<{Ys9v*-?@vifaBEYOtqi&OXfWH{+;qGByo+n)CBQT5uh5LMBL$htZ)NxaaS^$6
zLBt~a5qoVWBi8eFl<}PggM@giNpeP(o37&TKP(7>*!mook3T}F-Y8&&^K-OLs)@$3
z{%LbQV1XoiYZH)NY@;$0Q*v7aP|%(Kq1InxA!RUp35!CO_sh96?SsVNjMT!Rs1`L^
z__=WD?o>)b<-DE;#OBG*{i;Q&o@`K({GR-$Fp(<A$VEhXAw`o_+e6N|&=)xT+h<>M
zssz*ju5?mqm_OuCsWdyK!M$j7yr<&?P!bMLk%QY$p7TlzJ*;(z)Rmadg#Ltb%+uQX
z(juc0caJNicr|Z-T|xe=Lv!g7wK>xCn(OMWz-WE(Sg+uzz66o~#;Ebu_kx#D7jA}b
z4bMT)3}V0^B_dgs9j=+KT!e1xq@qtR+_HCd3-_$lU+5Z`1>Kw>CwfHFwi}JTjx9XK
z8Y)h@FfexQ#LUI5wB|WKj3Snd(Fy%EQ&aOu3GSBr4+Lt`s;TLl#iaduxNU1_oPDv_
ztf*tKl$DX9`0?AaCc{a*o;)17`#%-%Y|=SyQb;=nccW`Ag$RUohCOqQ8j1S;MT*2y
z=23c$w^M(J?)ulWmV>T=vfn>EASo6f2L23B?2SB)Uu9!KdkaGjjON<S^**<7?CaS8
zoEM+T4^dDnXDM9qbcRd-7(0=rGwp3}TBcj2(AiuwfUqBlQqp%=n?~assI%VT!Ph75
ze^Q|{PVC<)mvY%15I4{bJN=<ce5`JGg}~TJUIw+g+IH{(C+6>p=K&c`*(sLo*pid*
zxB<RM<XqEXWl;NF13^yhB~B^{?EZ%N-r5R7j2UgVL+-od<8p6{W)YKTFFN56=LgrV
zZr+7mPt?U?TpSx`5ysJ*{{oGlb1Ms=x?o48ghb~ZY!)W{hf9rg+3(liR<&d5v;Gdn
zu{~#?G%Sb|Z&{dz;~EUdP3|8~n>q^>|Il~5*c>n6Ivx$X=ZaZ(@GG($Qt5-H6~3UN
z8W#r?jrlHtb_<gIN{(Op(vlzRB_KD65{inXNoU&_ByX-Fe;?<qbfwu_0K13E|4G(X
zWBt!4A}XhaLy=4C?Z}cRh00Y97_R2zuwv>{UpX71zcDo3!;@;KKczslb>e(Ey_(9;
zqo1pLZoEbN{gZ{Wd)}S42OO~ve$G)gMYGVqg}9(GizRcJUnoqR+*zP}bb6lYf&9)o
zF+A+(EpE;>p9<fm+$Wt*vWd^qJaJIDmq-0y@D|d6k+T~T^SzX>P3>OCbs6QVPe5z(
z52{9V-F#b~Q!6pu0-W;(Kzz1-=SbsA;QJTi@g=~ah<{o+^<Q1W_@n$*$@3~~X=$oX
z`ZICsEt^(;rA`u*(&%bI5BumRK4+dh5BywIq@rcU&kxTvez*JUhW%&}>Q0_nntJ60
z^JH{nBM1j~PgH5VP5zG}s!v@}99m>)uy=|EVW$#}CW+XoLMP4~aG-vPLtvtfpbF`L
z%zJJc3NdH^e!Y)wrciI9=@tYnG}u_79Ig*vOYKqPIRZ^A+<EOgONnLjt~pb&wDGD}
zD9G&7ekRfL{C?JTkCRxw=q2p_w)F)WR*UDcMWrB<P=}<D4VrB|kDoLYePGr;`1zN<
zvMeW)SqCS@-sEJmA|`~IP-e_2fl3a`s~GiFlM@k&dVv!=-;G;xf6NE?No?xs{t{>5
z-o<oIn*H~6b@s&v;b`_}2%2w_D)>L<&Z#3$&mb<pWdrP92B5KRCJ-Txt}sTjhsJBF
z+N0nwN^yQ6Wpc-;8N#seZ#@X419E<r<wADr72kHa{JF;Wc_}K<?%%kOw5DC+Z<wb-
zdf<Hu-x%3<eiuRH2`JR#>R?cR3Dg5b{<*yms^Nc4UUzlzlbPSDP4nANTb~3MQp#Ed
zag{t<c^X;qkw>atyi?&l9*ZlotV1CCtN`RM#fwmRl-2WDZDIO`XOi9F)QNuE=7ACa
z9CkJ>9-5sdVsHN(6fNZUrBz2eY&(~3n2J<=)fye0W@-)JBCg6EaQ+aTkZa7l?+EjD
zBoBg0)L%pxk4eYWul-rQGeTIjpSWvjw~IRv_S#$KxMFOvLX5oW!<%NgvapP|76<RU
zp|#t6|B*Er)eoxPB6FoR26uCqIHtz6z5XVopJN_t*taUNpdT{s(RriQ6d3|eX{sbL
zCHr4~w4=B>E!1}GG;qFaI5+>aPD=IDs@#&Kcqn+h`g)^NPcmmt;z1eHGDoX*5;D2j
z_Mk$*q*&G*Qd4uXZ76iWeK_jBT3|xRMr9wAq<wY%u7@{pr#M~mSsPeRPX4qIM}7oD
z>BbN3^%TEN(z{os7*lLdl`a0+{cLOJ&y9&<N$~kiz3|3kUJHdO=y1zv-|_k8*!WOP
zhSB=sDB6d~HlKBXm4G}oeKM7WWFl11()x|M7G{jcKFPaLm8561eF;ogNZU9bGiI<y
zsF*Wp^6zd@h?2LOROcU*74IA;?Xcv|>Iul%!kuy7VkwE+`P-zjitLVYLfvOKi^*#@
z!ED_SJoq%!B$ZE#Bi-C7D|s@8qg0xyeC30WUASMQBF@!y?!K)w0{rwRD`z`>evu=M
zH<8b`|Cw%>Oy+#dV_6ea)C9|OJ`+ep>M$hgglnHf+hUqQrD0N-JV#R-*^@fASiI98
zbEsJzU-gQFa(d-`F9RXd^i7?UwEVfHji=mF#b)J^GaGg6H+ywx#560stWC7c()^-S
z-F~>Ne@L!sZwag8OT@G}w41f3Z;8#Wu6#@RvS`>sqYj$GC~aI&s$MmIC?XTFc5wc$
z_^()DU2y#T>7l~H+Qh&xr`DB+49YM{BsLTsa0$?wV0r0JHt!L_{*`~nP;XVG{j?St
zfnEiITdm~xe--f|ZInowSIxuy<s51bm}_0@3SF&<tOL+P9MMuHw3#nT*6DSk0UEVN
z3cNi#(O}%nCsKA-W0Wj|SPEEryqhWU2z)kq1ty0{R{E`dQ*6+PR&3Q{(S){f&lHyD
z9DE?Rm+RC7!;#_+^|vTqifq1cjrNd}3m3|VjHNdqMm6Qq*OtPrJD*Hw&s98sVfl+d
z_>=}pG)O+3T&8lAv|5mW;Q0}9f$`q=OV1p2&dN^1wBE;WQaTiezzVs+V2H!+n%WOT
zREoNO2#Rzijp7{M#eX`^0333SCr`8xr;^Q@6#bGl#tH-uAe_R|M9oM9h!dGkYQU}M
z(rTv<4Jkt$PC{9}tt(J<#2wFlOud2K#qU?<NU2V8PvYave?I9B(B$r#Yu<c*^ff~<
zMmRXGzUuDr-;I`cr7sf`vpr@5PleHh{l?}TR|_#83x2vXK6e%!XEp$knAocfirhqO
zei2&962){h6wtMl_fz_Alxmf+@&)%}+FgBjJqvj>?BAgw7h`&Qq?QNC(q;EQi5;RN
zl3Jd&5QtouFw60AXUy`bGGP;;v{1hzF>yjt`}~Yz{pcugxC`k4y0+|*KgslpasCv4
zz%qXcd{r*#71ng|g4|@-Equ)o$?WWD2B(bP><cn|dI`K)@ZjB-go;M+wy2KXm<M63
zY9B<G`{!P>Gmg=`1DolZ&qfndr!lfel>rUc?!140Es-a7aBUhpY5ZNIPrmHfs(7nn
zZTgGlN1KO9P?pDoaBy-e8f7Z_0ZnG3AVe5ZA>D=7Y$jD)V0(X;yd{ySPu@*FABF>6
z0--J+aNk~+*FK%|W=Mx{N~(vgm>q2NH>UNM!dsezBUZT%9cjzJP2~5PO=8np6Q#AL
z>u$8Q-mP~q9$lKKt*asr8$Z18WL=(hXq5UGHL67EyLM3F=0dodu^95ZE(v@cL*FPw
zFhfCOP4$)fP;;!{lYO(iDZc&xpsXSV;3n8$mGBdLSj0VH!BJ{k2@<)Ls{JpY9SyT4
zh6n9Wm6&QWCuu;T9Q1*RH$=MuJUF+$+u>Ts=IvO;o>-UjUP)~Wx?T22){vjKp!-Wl
zrNy6k#XrEQn9)5aAoyR``tR>_9kPZy;R|W<bb-4nPXgQ8>>q7)g0Mp+iTbZUS}3EV
z2IUf;t^HpBP6M(0Q%2~}hF1;8W14wf4gtmp;*JWQG4l2ANK*<2KczH`M56@tCY$Av
z!8!dYrWo0QWd{bKlEMiY50(R=$YFqTGtc?;s;i``%`-^q;%42njAQkxQ}|a;p5a`;
z0S&k>UTYfnz#4q6<U*t$R2+YwYR0_yVHph2Go~21D0}rBeSVdPs{A?B;M!r?IR_*V
zQy3W|o}Zm_m!28bZDv1cvYs*<1nk@a`t<bgQt7q^8GO8NEI8Ol4URL|{XVsLSTanq
ztA!vD*XhCk06n|ZbDNZKJkf=a6$A0d^#1@Fts#(&^0wds>G*&3g(OIku4Lbg;E*^`
z>%~t1hBLfwVtNt+{{Wv%)|^3nwO!d$jz9q8AN_BwJ1QI&4&W{c1N!v!=}(U3a1<*i
zV5Db^`VJ2n{LM`@^e4!Do^Dva(s7ZDAE!!B?JJLO`}UvVTHZukjEb8)(y6sh6*(g#
z-{l>1RAsuBINTus2{DXy>rI#g8us6?oO|HYg|vQJj2v!mGw67$b~hIqe2y(=kwXHc
z6S!b*;|Gq^THV|TZZR<)Q^zu4N6JY#1C9qhJ*s&1NoIoDa}-F@+m~>gfF}TF8ROTC
zR;89^o!(Mk5Torq2_S!sS+JGb<fAbvCfGUbS3lCG)Aeh{MJ7z{Bpi=V{{UTVSn9VD
z7A><OM>yx2)?2wU4i}J5O0yG|10W3NrAdy|Fa%(LN4-`ya5ENFF~1)&9j3E2H<Hdp
zQ6ZU29wk*c<LOM(Vq4oMk@FE;fFn2@bKf+NB(P*fG=Xw{T;yW_{{UK&(@>g6g;`VQ
zBol+!fm*~3+j{~26&nBv1Gaz9>q=03op}EM>(Eqj$3iML`@`7(08>bR)`5;ONWQ+L
z57L_aE<H!|sbo;OIO$cSA0$Wptba;jwuRd*8sv-<k8l3HWnXAIZOn}F+aYBc3<eKe
zb*^(&@b!#V;o|dDfXDCTe!oiPZY<)CPbhBKNn$gObM5u2X>AHhsv}%yzv2Eh9QH7Y
z2mp*^3?EGY0D!3NZPC>flZO~RJJsl53dDwP5PEmT2nz)a#DoJL{d)dY46ulbx-)Js
dv*<DZ0N1HB%Xp2^%H-__B%0Ry3?7Dn|JnDN>f-<a

literal 0
HcmV?d00001

diff --git a/mozilla/webtools/bugzilla/bug_form.tcl b/mozilla/webtools/bugzilla/bug_form.tcl
new file mode 100755
index 00000000000..9e433b7f7b6
--- /dev/null
+++ b/mozilla/webtools/bugzilla/bug_form.tcl
@@ -0,0 +1,216 @@
+# -*- 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 <terry@mozilla.org>
+
+set query "
+select
+        bug_id,
+        product,
+        version,
+        rep_platform,
+        op_sys,
+        bug_status,
+        resolution,
+        priority,
+        bug_severity,
+        component,
+        assigned_to,
+        reporter,
+        bug_file_loc,
+        short_desc,
+        date_format(creation_ts,'Y-m-d')
+from bugs
+where bug_id = $FORM(id)";
+
+SendSQL $query
+set ret [FetchSQLData]
+if {$ret != ""} {
+  set count 0
+  foreach field { bug_id product version rep_platform op_sys bug_status 
+                  resolution priority bug_severity component
+                  assigned_to reporter bug_file_loc short_desc 
+                  creation_ts} {
+    if { [regexp {^\{(.*)\}$} [lindex $ret $count] junk bug($field)] == 0 } {
+      set bug($field) [lindex $ret $count]
+    }
+    incr count
+  }
+  set error "none"
+} else {
+    puts "<TITLE>Bug Splat Error</TITLE>"
+    puts "<H1>Query Error</H1>Somehow something went wrong.  Possibly if you"
+    puts "mail this page to $maintainer, he will be able to fix things.<HR>"
+    puts "Bug $FORM(id) not found<H2>Query Text</H2><PRE>$query<PRE>"
+    exit 0
+}
+
+set bug(assigned_to) [DBID_to_name $bug(assigned_to)]
+set bug(reporter) [DBID_to_name $bug(reporter)]
+set bug(long_desc) [GetLongDescription $FORM(id)]
+
+
+GetVersionTable
+
+#
+# These should be read from the database ...
+#
+set resolution_popup [make_options $legal_resolution_no_dup $bug(resolution)]
+set platform_popup [make_options $legal_platform $bug(rep_platform)]
+set priority_popup [make_options $legal_priority $bug(priority)]
+set sev_popup [make_options $legal_severity $bug(bug_severity)]
+
+
+set component_popup [make_options $components($bug(product)) $bug(component)]
+
+set cc_element "<INPUT NAME=cc SIZE=30 VALUE=\"[ShowCcList $FORM(id)]\">"
+
+
+if {$bug(bug_file_loc) != "none" && $bug(bug_file_loc) != "NULL" && $bug(bug_file_loc) != ""} {
+  set URL "<B><A HREF=\"$bug(bug_file_loc)\">URL:</A></B>"
+} else {
+  set URL "<B>URL:</B>"
+}
+
+puts "
+<HEAD><TITLE>Bug $FORM(id) -- [html_quote $bug(short_desc)]</TITLE></HEAD><BODY>
+<FORM NAME=changeform METHOD=POST ACTION=\"process_bug.cgi\">
+<INPUT TYPE=HIDDEN NAME=\"id\" VALUE=$FORM(id)>
+<INPUT TYPE=HIDDEN NAME=\"was_assigned_to\" VALUE=\"$bug(assigned_to)\">
+  <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0><TR>
+    <TD ALIGN=RIGHT><B>Bug#:</B></TD><TD>$bug(bug_id)</TD>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#rep_platform\">Platform:</A></B></TD>
+    <TD><SELECT NAME=rep_platform>$platform_popup</SELECT></TD>
+    <TD ALIGN=RIGHT><B>Version:</B></TD>
+    <TD><SELECT NAME=version>[make_options $versions($bug(product)) $bug(version)]</SELECT></TD>
+  </TR><TR>
+    <TD ALIGN=RIGHT><B>Product:</B></TD>
+    <TD><SELECT NAME=product>[make_options $legal_product $bug(product)]</SELECT></TD>
+    <TD ALIGN=RIGHT><B>OS:</B></TD><TD>$bug(op_sys)</TD>
+    <TD ALIGN=RIGHT><B>Reporter:</B></TD><TD>$bug(reporter)</TD>
+  </TR><TR>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html\">Status:</A></B></TD>
+      <TD>$bug(bug_status)</TD>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#priority\">Priority:</A></B></TD>
+      <TD><SELECT NAME=priority>$priority_popup</SELECT></TD>
+    <TD ALIGN=RIGHT><B>Cc:</B></TD>
+      <TD> $cc_element </TD>
+  </TR><TR>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html\">Resolution:</A></B></TD>
+      <TD>$bug(resolution)</TD>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#severity\">Severity:</A></B></TD>
+      <TD><SELECT NAME=bug_severity>$sev_popup</SELECT></TD>
+    <TD ALIGN=RIGHT><B>Component:</B></TD>
+      <TD><SELECT NAME=component>$component_popup</SELECT></TD>
+  </TR><TR>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#assigned_to\">Assigned&nbsp;To:
+        </A></B></TD>
+      <TD>$bug(assigned_to)</TD>
+  </TR><TR>
+    <TD ALIGN=\"RIGHT\">$URL
+    <TD COLSPAN=6>
+      <INPUT NAME=bug_file_loc VALUE=\"$bug(bug_file_loc)\" SIZE=60></TD>
+  </TR><TR>
+    <TD ALIGN=\"RIGHT\"><B>Summary:</B>
+    <TD COLSPAN=6>
+      <INPUT NAME=short_desc VALUE=\"[value_quote $bug(short_desc)]\" SIZE=60></TD>
+  </TR>
+</TABLE>
+<br>
+<B>Additional Comments:</B>
+<BR>
+<TEXTAREA WRAP=HARD NAME=comment ROWS=5 COLS=80></TEXTAREA><BR>
+<br>
+<INPUT TYPE=radio NAME=knob VALUE=none CHECKED>
+        Leave as <b>$bug(bug_status) $bug(resolution)</b><br>"
+
+# knum is which knob number we're generating, in javascript terms.
+
+set knum 1
+
+if {[cequal $bug(bug_status) NEW] || [cequal $bug(bug_status) ASSIGNED] || \
+        [cequal $bug(bug_status) REOPENED]} {
+    if {![cequal $bug(bug_status) ASSIGNED]} {
+        puts "<INPUT TYPE=radio NAME=knob VALUE=accept>
+            Accept bug (change status to <b>ASSIGNED</b>)<br>"
+        incr knum
+    }
+    if {[clength $bug(resolution)] > 0} {
+        puts "<INPUT TYPE=radio NAME=knob VALUE=clearresolution>"
+        puts "Clear the resolution (remove the current resolution of"
+        puts "<b>$bug(resolution)</b>)<br>"
+        incr knum
+    }
+    puts "<INPUT TYPE=radio NAME=knob VALUE=resolve>
+        Resolve bug, changing <A HREF=\"bug_status.html\">resolution</A> to
+        <SELECT NAME=resolution
+          ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\">
+          $resolution_popup</SELECT><br>"
+    incr knum
+    puts "<INPUT TYPE=radio NAME=knob VALUE=duplicate>
+        Resolve bug, mark it as duplicate of bug # 
+        <INPUT NAME=dup_id SIZE=6 ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\"><br>"
+    incr knum
+    set assign_element "<INPUT NAME=assigned_to SIZE=32 ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\" VALUE=$bug(assigned_to)>"
+
+    puts "<INPUT TYPE=radio NAME=knob VALUE=reassign> 
+          <A HREF=\"bug_status.html#assigned_to\">Reassign</A> bug to
+          $assign_element
+        <br>"
+    incr knum
+    puts "<INPUT TYPE=radio NAME=knob VALUE=reassignbycomponent>
+          Reassign bug to owner of selected component<br>"
+    incr knum
+} else {
+    puts "<INPUT TYPE=radio NAME=knob VALUE=reopen> Reopen bug<br>"
+    incr knum
+    if {[cequal $bug(bug_status) RESOLVED]} {
+        puts "<INPUT TYPE=radio NAME=knob VALUE=verify>
+        Mark bug as <b>VERIFIED</b><br>"
+        incr knum
+    }
+    if {![cequal $bug(bug_status) CLOSED]} {
+        puts "<INPUT TYPE=radio NAME=knob VALUE=close>
+        Mark bug as <b>CLOSED</b><br>"
+        incr knum
+    }
+}
+ 
+puts "
+<INPUT TYPE=\"submit\" VALUE=\"Commit\">
+<INPUT TYPE=\"reset\" VALUE=\"Reset\">
+<INPUT TYPE=hidden name=form_name VALUE=process_bug>
+<BR>
+<FONT size=\"+1\"><B>
+ <A HREF=\"show_activity.cgi?id=$FORM(id)\">View Bug Activity</A>
+ <A HREF=\"long_list.cgi?buglist=$FORM(id)\">Format For Printing</A>
+ <A HREF=\"edit_desc.cgi?id=$FORM(id)\">Edit Long Description</A>
+</B></FONT><BR>
+</FORM>
+<table><tr><td align=left><B>Description:</B></td><td width=100%>&nbsp;</td>
+<td align=right>Opened:&nbsp;$bug(creation_ts)</td></tr></table>
+<HR>
+<PRE>
+[html_quote $bug(long_desc)]
+</PRE>
+<HR>"
+
+navigation_header
+
+puts "</BODY>"
+flush stdout
diff --git a/mozilla/webtools/bugzilla/bug_status.html b/mozilla/webtools/bugzilla/bug_status.html
new file mode 100755
index 00000000000..fff5585583f
--- /dev/null
+++ b/mozilla/webtools/bugzilla/bug_status.html
@@ -0,0 +1,194 @@
+<HTML>
+
+<!--
+     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 <terry@mozilla.org>
+-->
+
+<TITLE>A Bug's Life Cycle</TITLE>
+
+<h1 ALIGN=CENTER>A Bug's Life Cycle</h1>
+
+The <B>status</B> and <B>resolution</B> field define and track the
+life cycle of a bug.
+
+<p>
+<TABLE BORDER=1 CELLPADDING=4>
+
+<TR ALIGN=CENTER VALIGN=TOP>
+<TD WIDTH=50%><H1>STATUS</H1> <TD><H1>RESOLUTION</H1>
+
+<TR VALIGN=TOP>
+<TD>The <B>status</B> field indicates the general health of a bug. Only
+certain status transitions are allowed.
+<TD>The <b>resolution</b> field indicates what happened to this bug.
+
+<TR VALIGN=TOP><TD>
+<DL><DT><B>NEW</B> 
+<DD> This bug has recently been added to the assignee's list of bugs
+     and must be processed. Bugs in this state may be accepted, and
+     become <B>ASSIGNED</B>, passed on to someone else, and remain
+     <B>NEW</B>, or resolved and marked <B>RESOLVED</B>.
+<DT><B>ASSIGNED</B> 
+<DD> This bug is not yet resolved, but is assigned to the proper
+     person. From here bugs can be given to another person and become
+     <B>NEW</B>, or resolved and become <B>RESOLVED</B>.
+<DT><B>REOPENED</B>
+<DD>This bug was once resolved, but the resolution was deemed
+     incorrect.  For example, a <B>WORKSFORME</B> bug is
+     <B>REOPENED</B> when more information shows up and the bug is now
+     reproducible.  From here bugs are either marked <B>ASSIGNED</B>
+     or <B>RESOLVED</B>.
+</DL>
+<TD>
+<DL>
+<DD> No resolution yet. All bugs which are <B>NEW</B> or
+     <B>ASSIGNED</B> have the resolution set to blank. All other bugs
+     will be marked with one of the following resolutions.
+</DL>
+
+<TR VALIGN=TOP><TD>
+<DL>
+<DT><B>RESOLVED</B> 
+<DD> A resolution has been taken, and it is awaiting verification by
+     QA. From here bugs are either re-opened and become
+     <B>REOPENED</B>, are marked <B>VERIFIED</B>, or are closed for good
+     and marked <B>CLOSED</B>.
+<DT><B>VERIFIED</B>
+<DD> QA has looked at the bug and the resolution and agrees that the
+     appropriate resolution has been taken.  Bugs remain in this state
+     until the product they were reported against actually ship, at
+     which point the become <B>CLOSED</B>.
+<DT><B>CLOSED</B> 
+<DD> The bug is considered dead, the resolution is correct. Any zombie
+     bugs who choose to walk the earth again must do so by becoming
+     <B>REOPENED</B>.
+</DL>
+
+<TD>
+<DL>
+<DT><B>FIXED</B>
+<DD> A fix for this bug is checked into the tree and tested.
+<DT><B>INVALID</B>
+<DD> The problem described is not a bug 
+<DT><B>WONTFIX</B>
+<DD> The problem described is a bug which will never be fixed.
+<DT><B>LATER</B>
+<DD> The problem described is a bug which will not be fixed in this
+     version of the product.
+<DT><B>REMIND</B>
+<DD> The problem described is a bug which will probably not be fixed in this
+     version of the product, but might still be.
+<DT><B>DUPLICATE</B>
+<DD> The problem is a duplicate of an existing bug. Marking a bug
+     duplicate requires the bug# of the duplicating bug and will at
+     least put that bug number in the description field.
+<DT><B>WORKSFORME</B>
+<DD> All attempts at reproducing this bug were futile, reading the
+     code produces no clues as to why this behavior would occur. If
+     more information appears later, please re-assign the bug, for
+     now, file it.
+</DL>
+</TABLE>
+
+<H1>Other Fields</H1>
+
+<table border=1 cellpadding=4><tr><td>
+<a name="severity"><h2>Severity</h2></a>
+
+This field describes the impact of a bug.
+
+<p>
+<p>
+ 
+<table>
+<tr><th>Critical</th><td>crashes, loss of data, severe memory leak 
+<tr><th>Major</th><td>major loss of function 
+<tr><th>Minor</th><td>minor loss of function, or other problem where easy workaround is present 
+<tr><th>Trivial</th><td>cosmetic problem like misspelt words or misaligned text 
+<tr><th>Enhancement</th><td>Request for enhancement
+</table> 
+
+</td><td>
+
+<a name="priority"><h2>Priority</h2></a>
+
+This field describes the importance and order in which a bug should be
+fixed.  The available priorities are:
+
+<p>
+<p>
+
+<table>
+<tr><th>P1</th><td>Most important
+<tr><th>P2</th><td>
+<tr><th>P3</th><td>
+<tr><th>P4</th><td>
+<tr><th>P5</th><td>Least important
+</table>
+</tr></table>
+
+
+<a name="area"><h2>Area</h2></a>
+This is the general area which is covered by the bug report.  This allows
+bugs to migrate over to testing, but not show up on the "daily bug list".
+Most bugs should have area set to <B>CODE</B>.  Legal values include:
+<UL>
+<LI> CODE
+<LI> JAVA
+<LI> TEST
+<LI> UI
+<LI> BUILD
+<LI> PERF
+<LI> i18n <i>(internationalization)</i>
+<LI> l10n <i>(localization)</i>
+</UL>
+<a name="rep_platform"><h2>Platform</h2></a>
+This is the platform against which the bug was reported.  Legal
+platforms include:
+
+<UL>
+<LI> All (happens on all platform; cross-platform bug)
+<LI> Macintosh
+<LI> PC
+<LI> X-Windows
+</UL>
+
+<b>Note:</b> Selecting the option "All" does not select bugs assigned against all platforms.  It
+merely selects bugs that <b>occur</b> on all platforms.
+
+<a name="assigned_to"><h2>Assigned To</h2></a>
+
+This is the person in charge of resolving the bug.  Every time this
+field changes, the status changes to <B>NEW</B> to make it easy to see
+which new bugs have appeared on a person's list.
+
+<p><A HREF="http://www.mozilla.org/owners.html">List of module owners.</a>
+<p>
+
+
+The default status for queries is set to NEW, ASSIGNED and REOPENED. When
+searching for bugs that have been resolved or verified, remember to set the
+status field appropriately. 
+
+<hr>
+<address><a href="http://home.netscape.com/people/terry/">Terry Weissman &lt;terry@netscape.com&gt;</a></address>
+<!-- hhmts start -->
+Last modified: Tue Aug 25 23:11:26 1998
+<!-- hhmts end -->
+</body> </html>
diff --git a/mozilla/webtools/bugzilla/buglist.cgi b/mozilla/webtools/bugzilla/buglist.cgi
new file mode 100755
index 00000000000..3ac68c4dfb3
--- /dev/null
+++ b/mozilla/webtools/bugzilla/buglist.cgi
@@ -0,0 +1,623 @@
+#! /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 <terry@mozilla.org>
+
+puts "Content-type: multipart/x-mixed-replace;boundary=ThisRandomString"
+puts ""
+puts "--ThisRandomString"
+
+proc InitMessage {str} {
+    global initstr
+    append initstr "$str\n"
+    puts "Content-type: text/plain"
+    puts ""
+    puts $initstr
+    puts ""
+    puts "--ThisRandomString"
+    flush stdout
+}
+
+
+# The below "if catch" stuff, if uncommented, will trap any error, and
+# mail the error messages to terry.  What a hideous, horrible
+# debugging hack.
+
+# if {[catch {
+
+
+source "CGI.tcl"
+
+ConnectToDatabase
+
+if {![info exists FORM(cmdtype)]} {
+    # This can happen if there's an old bookmark to a query...
+    set FORM(cmdtype) doit
+}
+
+switch $FORM(cmdtype) {
+    runnamed {
+        set buffer $COOKIE(QUERY_$FORM(namedcmd))
+        ProcessFormFields $buffer
+    }
+    editnamed {
+        puts "Content-type: text/html
+Refresh: 0; URL=query.cgi?$COOKIE(QUERY_$FORM(namedcmd))
+
+<TITLE>What a hack.</TITLE>
+Loading your query named <B>$FORM(namedcmd)</B>..."
+        exit
+    }
+    forgetnamed {
+        puts "Set-Cookie: QUERY_$FORM(namedcmd)= ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT
+Content-type: text/html
+
+<HTML>
+<TITLE>Forget what?</TITLE>
+OK, the <B>$FORM(namedcmd)</B> query is gone.
+<P>
+<A HREF=query.cgi>Go back to the query page.</A>"
+    exit
+    }
+    asnamed {
+        if {[regexp {^[a-zA-Z0-9_ ]+$} $FORM(newqueryname)]} {
+    puts "Set-Cookie: QUERY_$FORM(newqueryname)=$buffer ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT
+Content-type: text/html
+
+<HTML>
+<TITLE>OK, done.</TITLE>
+OK, you now have a new query named <B>$FORM(newqueryname)</B>.
+
+<P>
+
+<A HREF=query.cgi>Go back to the query page.</A>"
+        } else {
+            puts "Content-type: text/html
+
+<HTML>
+<TITLE>Picky, picky.</TITLE>
+Query names can only have letters, digits, spaces, or underbars.  You entered 
+\"<B>$FORM(newqueryname)</B>\", which doesn't cut it.
+<P>
+Click the <B>Back</B> button and type in a valid name for this query."
+        }
+        exit
+    }
+    asdefault {
+        puts "Set-Cookie: DEFAULTQUERY=$buffer ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT
+Content-type: text/html
+
+<HTML>
+<TITLE>OK, default is set.</TITLE>
+OK, you now have a new default query.
+
+<P>
+
+<A HREF=query.cgi>Go back to the query page, using the new default.</A>"
+        exit
+    }
+}
+
+proc qadd { item } {
+  global query
+  append query "$item"
+}
+
+
+proc DefCol {name k t {s ""} {q 0}} {
+    global key title sortkey needquote
+    set key($name) $k
+    set title($name) $t
+    if {![cequal $s ""]} {
+        set sortkey($name) $s
+    }
+    set needquote($name) $q
+}
+
+DefCol resolved_ts "bugs.resolved_ts" DateResolved bugs.resolved_ts
+DefCol verified_ts "bugs.verified_ts" DateVerified bugs.verified_ts
+DefCol opendate "date_format(bugs.creation_ts,'Y-m-d')" Opened bugs.creation_ts
+DefCol changeddate "date_format(bugs.delta_ts,'Y-m-d')" Changed bugs.delta_ts
+DefCol severity "substring(bugs.bug_severity, 1, 3)" Sev bugs.bug_severity
+DefCol priority "substring(bugs.priority, 1, 3)" Pri bugs.priority
+DefCol platform "substring(bugs.rep_platform, 1, 3)" Plt bugs.rep_platform
+DefCol owner "assign.login_name" Owner assign.login_name
+DefCol reporter "report.login_name" Reporter report.login_name
+DefCol status "substring(bugs.bug_status,1,4)" State bugs.bug_status
+DefCol resolution "substring(bugs.resolution,1,4)" Res bugs.resolution
+DefCol summary "substring(bugs.short_desc, 1, 60)" Summary {} 1
+DefCol summaryfull "bugs.short_desc" Summary {} 1
+DefCol component "substring(bugs.component, 1, 8)" Comp bugs.component
+DefCol product "substring(bugs.product, 1, 8)" Product bugs.product
+DefCol version "substring(bugs.version, 1, 5)" Vers bugs.version
+DefCol os "substring(bugs.op_sys, 1, 4)" OS bugs.op_sys
+DefCol status_summary "bugs.status_summary" Status_Summary {} 1
+
+if {[info exists COOKIE(COLUMNLIST)]} {
+    set collist $COOKIE(COLUMNLIST)
+} else {
+    set collist $default_column_list
+}
+
+set dotweak [info exists FORM(tweak)]
+
+if {$dotweak} {
+    confirm_login
+}
+
+
+puts "Content-type: text/plain\n"
+
+set query "
+select
+        bugs.bug_id"
+
+
+foreach c $collist {
+    append query ",
+\t$key($c)"
+}
+
+
+if {$dotweak} {
+    append query ",
+bugs.product,
+bugs.bug_status"
+}
+
+append query "
+from   bugs,
+       profiles assign,
+       profiles report,
+       versions projector
+where  bugs.assigned_to = assign.userid 
+and    bugs.reporter = report.userid
+and    bugs.product = projector.program
+and    bugs.version = projector.value
+"
+
+if {[info exists FORM(sql)]} {
+  append query "and (\n[join [url_decode $FORM(sql)] { }]\n)"
+} else {
+
+
+  set legal_fields { bug_id product version rep_platform op_sys bug_status
+                     resolution priority bug_severity assigned_to reporter
+                     bug_file_loc short_desc component
+                     status_summary resolved_ts verified_ts}
+
+  foreach field [array names FORM] {
+    if { [ lsearch $legal_fields $field ] != -1 && ![cequal $FORM($field) ""]} {
+      qadd "\tand (\n"
+      set or ""
+      if { $field == "assigned_to" || $field == "reporter" || $field == "qa_assigned_to"} {
+        foreach p [split $FORM($field) ","] {
+          qadd "\t\t${or}bugs.$field = [DBname_to_id $p]\n"
+          set or "or "
+        }
+      } elseif { $field == "resolved_ts"} {
+                        if {! [cequal $FORM(resolved_ts_2) ""]} { 
+                                qadd "\t\tbugs.resolved_ts between \n\t\t\tTO_DATE('$FORM($field)','DD-MON-YY') and\n \t\t\tTO_DATE('$FORM(resolved_ts_2)', 'DD-MON-YY')\n"
+                        } else {
+                                qadd "\t\tTO_CHAR (bugs.resolved_ts,'DD-MON-YY') = '[string toupper $FORM($field)]'\n"
+                                }
+      } elseif { $field == "verified_ts"} {
+                        if {! [cequal $FORM(verified_ts_2) ""]} {
+                                qadd "\t\tbugs.verified_ts between \n\t\t\tTO_DATE('$FORM($field)','DD-MON-YY') and\n \t\t\tTO_DATE('$FORM(verified_ts_2)', 'DD-MON-YY')\n"
+                        } else {
+                                qadd "\t\tTO_CHAR (bugs.verified_ts,'DD-MON-YY') = '[string toupper $FORM($field)]'\n"
+                                }
+      } else {
+        foreach v $MFORM($field) {
+          if {[cequal $v "(empty)"]} {
+              qadd "\t\t${or}bugs.$field is null\n"
+          } else {
+              qadd "\t\t${or}bugs.$field = '$v'\n"
+          }
+          set or "or "
+        }
+      }
+      qadd "\t)\n"
+    }
+  }
+
+  if {[lookup FORM changedin] != ""} {
+    qadd "and to_days(now()) - to_days(bugs.delta_ts) <= $FORM(changedin) "
+  }
+}
+
+if {[info exists FORM(order)]} {
+    qadd "order by "
+    switch -glob $FORM(order) {
+        *.* {}
+        *Number* {
+            set FORM(order) bugs.bug_id
+        }
+        *Import* {
+            set FORM(order) bugs.priority
+        }
+        *Assign* {
+            set FORM(order) "assign.login_name, bugs.bug_status, priorities.rank, bugs.bug_id"
+        }
+        default {
+            set FORM(order) "bugs.bug_status, priorities.rank, assign.login_name, bugs.bug_id"
+        }
+    }
+    if {[cequal [cindex $FORM(order) 0] "\{"]} {
+        # I don't know why this happens, but...
+        set FORM(order) [lindex $FORM(order) 0]
+    }
+    qadd $FORM(order)
+}
+
+puts "Please stand by ..."
+if {[info exists FORM(debug)]} {
+    puts $query
+}
+flush stdout
+set child 0
+if {[info exists FORM(keepalive)]} {
+  set child [fork]
+  if {$child == 0} {
+    while 1 {
+      puts "Still waiting ..."
+      flush stdout
+      sleep 10
+    }
+    puts "Child process died, what's up?"
+    flush stdout
+    exit 0
+  }
+}
+SendSQL $query
+
+set count 0
+set bugl ""
+proc pnl { str } {
+  global bugl
+  append bugl "$str"
+}
+
+regsub -all {[&?]order=[^&]*} $buffer {} fields
+regsub -all {[&?]cmdtype=[^&]*} $fields {} fields
+
+
+if {[info exists FORM(order)]} {
+    regsub -all { } ", $FORM(order)" "%20" oldorder
+} else {
+    set oldorder ""
+}
+
+if {$dotweak} {
+    pnl "<FORM NAME=changeform METHOD=POST ACTION=\"process_bug.cgi\">"
+}
+
+set tablestart "<TABLE CELLSPACING=0 CELLPADDING=2>
+<TR ALIGN=LEFT><TH>
+<A HREF=\"buglist.cgi?[set fields]&order=bugs.bug_id\">ID</A>"
+
+
+foreach c $collist {
+    if {$needquote($c)} {
+        append tablestart "<TH WIDTH=100% valigh=left>"
+    } else {
+        append tablestart "<TH valign=left>"
+    }
+    if {[info exists sortkey($c)]} {
+        append tablestart "<A HREF=\"buglist.cgi?[set fields]&order=$sortkey($c)$oldorder\">$title($c)</A>"
+    } else {
+        append tablestart $title($c)
+    }
+}
+
+append tablestart "\n"
+
+set dotweak [info exists FORM(tweak)]
+
+set p_true 1
+
+while { $p_true } {
+    set result [FetchSQLData]
+    set p_true [MoreSQLData]
+    if { $result != "" } { 
+        set bug_id [lvarpop result]
+        if {![info exists seen($bug_id)]} {
+            set seen($bug_id) 1
+            incr count
+            if {($count % 200) == 0} {
+                # Too big tables take too much browser memory...
+                pnl "</TABLE>$tablestart"
+            }
+            if {[info exists buglist]} {
+                append buglist ":$bug_id"
+            } else {
+                set buglist $bug_id
+            }
+            pnl "<TR VALIGN=TOP ALIGN=LEFT><TD>"
+            if {$dotweak} {
+                pnl "<input type=checkbox name=id_$bug_id>"
+            }
+            pnl "<A HREF=\"show_bug.cgi?id=$bug_id\">"
+            pnl "$bug_id</A> "
+            foreach c $collist {
+                set value [lvarpop result]
+                set nowrap {} 
+
+                #-- This cursor is used to pick the login_name to be
+                #   displayed on the query list as the field value may or
+                #   maynot have vales associated to it
+
+                if { $c == "qa_assigned_to"} {
+                     set dml_cur [ oraopen $lhandle ]
+
+                     orasql $dml_cur "select login_name 
+                                      from   profiles 
+                                      where  userid = $value"
+
+                     set cur_resultset [orafetch $dml_cur]
+
+                     if {$cur_resultset != ""} { 
+                         set  value $cur_resultset 
+                         set nowrap {nowrap}
+                     } else {
+                         set  value ""
+                     }
+
+                     oraclose $dml_cur
+
+                } 
+
+                if {$needquote($c)} {
+                    set value [html_quote $value]
+                } else {
+                    set value "<nobr>$value</nobr>"
+                }
+                pnl "<td $nowrap>$value"
+            }
+            if {$dotweak} {
+                set value [lvarpop result]
+                set prodarray($value) 1
+                set value [lvarpop result]
+                set statusarray($value) 1
+            }
+            pnl "\n"
+        }
+    }
+}
+if {$child != 0} {
+  kill $child
+}
+puts ""
+puts "--ThisRandomString"
+
+set toolong 0
+puts "Content-type: text/html"
+if { [info exists buglist] } {
+    if {[clength $buglist] < 4000} {
+        puts "Set-Cookie: BUGLIST=$buglist\n"
+    } else {
+        puts "Set-Cookie: BUGLIST=\n"
+        set toolong 1
+    }
+} else {
+  puts ""
+}
+set env(TZ) PST8PDT
+
+PutHeader "Bug List" "Bug List"
+
+puts -nonewline "
+<CENTER><H1>M<font -= 2>OZILLA</font> B<font -= 2>UGS</font></H1>
+<B>[fmtclock [getclock ]]</B>"
+if {[info exists FORM(debug)]} { puts "<PRE>$query</PRE>" }
+
+if {$toolong} {
+    puts "<h2>This list is too long for bugzilla's little mind; the"
+    puts "Next/Prev/First/Last buttons won't appear.</h2>"
+}
+
+set cdata [ split [read_file -nonewline "comments"] "\n" ]
+random seed
+puts {<HR><I><A HREF="newquip.html">}
+puts [lindex $cdata [random [llength $cdata]]]</I></A></CENTER>
+puts "<HR SIZE=10>$tablestart"
+puts $bugl
+puts "</TABLE>"
+
+switch $count {
+    0 {
+        puts "Zarro Boogs found."
+    }
+    1 {
+        puts "One bug found."
+    }
+    default {
+        puts "$count bugs found."
+    }
+}
+
+if {$dotweak} {
+    GetVersionTable
+    puts "
+<SCRIPT>
+numelements = document.changeform.elements.length;
+function SetCheckboxes(value) {
+    for (var i=0 ; i<numelements ; i++) {
+        item = document.changeform.elements\[i\];
+        item.checked = value;
+    }
+}
+document.write(\" <input type=button value=\\\"Uncheck All\\\" onclick=\\\"SetCheckboxes(false);\\\"> <input type=button value=\\\"Check All\\\" onclick=\\\"SetCheckboxes(true);\\\">\");
+</SCRIPT>"
+    set resolution_popup [make_options $legal_resolution_no_dup FIXED]
+    GetVersionTable
+    set prod_list [array names prodarray]
+    set list $prod_list
+    set legal_target_versions $versions([lvarpop list])
+    foreach p $list {
+        set legal_target_versions [intersect $legal_target_versions \
+                                       $versions($p)]
+    }
+    set version_popup [make_options \
+                              [concat "-blank-" $legal_target_versions] \
+                              $dontchange]
+    set platform_popup [make_options $legal_platform $dontchange]
+    set priority_popup [make_options $legal_priority $dontchange]
+    set sev_popup [make_options $legal_severity $dontchange]
+    if {[llength $prod_list] == 1} {
+        set prod_list [lindex $prod_list 0 ]
+        set legal_component [linsert $components($prod_list) 0 { }]
+    } else {
+        set legal_component { }
+    }
+
+    set component_popup [make_options $legal_component $dontchange]
+
+    set product_popup [make_options $legal_product $dontchange]
+
+
+    puts "
+<hr>
+<TABLE>
+<TR>
+    <TD ALIGN=RIGHT><B>Product:</B></TD>
+    <TD><SELECT NAME=product>$product_popup</SELECT></TD>
+    <TD ALIGN=RIGHT><B>Version:</B></TD>
+    <TD><SELECT NAME=version>$version_popup</SELECT></TD>
+<TR>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#rep_platform\">Platform:</A></B></TD>
+    <TD><SELECT NAME=rep_platform>$platform_popup</SELECT></TD>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#priority\">Priority:</A></B></TD>
+    <TD><SELECT NAME=priority>$priority_popup</SELECT></TD>
+</TR>
+<TR>
+    <TD ALIGN=RIGHT><B>Component:</B></TD>
+    <TD><SELECT NAME=component>$component_popup</SELECT></TD>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#severity\">Severity:</A></B></TD>
+    <TD><SELECT NAME=bug_severity>$sev_popup</SELECT></TD>
+</TR>
+</TABLE>
+
+<INPUT NAME=multiupdate value=Y TYPE=hidden>
+
+<B>Additional Comments:</B>
+<BR>
+<TEXTAREA WRAP=HARD NAME=comment ROWS=5 COLS=80></TEXTAREA><BR>"
+
+    # knum is which knob number we're generating, in javascript terms.
+
+    set knum 0
+    puts "
+<INPUT TYPE=radio NAME=knob VALUE=none CHECKED>
+        Do nothing else<br>"
+    incr knum
+    puts "
+<INPUT TYPE=radio NAME=knob VALUE=accept>
+        Accept bugs (change status to <b>ASSIGNED</b>)<br>"
+    incr knum
+    if {![info exists statusarray(CLOSED)] && \
+            ![info exists statusarray(VERIFIED)] && \
+            ![info exists statusarray(RESOLVED)]} {
+        puts "
+<INPUT TYPE=radio NAME=knob VALUE=clearresolution>
+        Clear the resolution<br>"
+        incr knum
+        puts "
+<INPUT TYPE=radio NAME=knob VALUE=resolve>
+        Resolve bugs, changing <A HREF=\"bug_status.html\">resolution</A> to
+        <SELECT NAME=resolution
+          ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\">
+          $resolution_popup</SELECT><br>"
+        incr knum
+    }
+    if {![info exists statusarray(NEW)] && \
+            ![info exists statusarray(ASSIGNED)] && \
+            ![info exists statusarray(REOPENED)]} {
+        puts "
+<INPUT TYPE=radio NAME=knob VALUE=reopen> Reopen bugs<br>"
+        incr knum
+    }
+    if {[llength [array names statusarray]] == 1} {
+        if {[info exists statusarray(RESOLVED)]} {
+            puts "
+<INPUT TYPE=radio NAME=knob VALUE=verify>
+        Mark bugs as <b>VERIFIED</b><br>"
+            incr knum
+        }
+        if {[info exists statusarray(VERIFIED)]} {
+            puts "
+<INPUT TYPE=radio NAME=knob VALUE=close>
+        Mark bugs as <b>CLOSED</b><br>"
+            incr knum
+        }
+    }
+    puts "
+<INPUT TYPE=radio NAME=knob VALUE=reassign> 
+        <A HREF=\"bug_status.html#assigned_to\">Reassign</A> bugs to
+        <INPUT NAME=assigned_to SIZE=32
+          ONCHANGE=\"document.changeform.knob\[$knum\].checked=true\"
+          VALUE=\"$COOKIE(Bugzilla_login)\"><br>"
+    incr knum
+    puts "<INPUT TYPE=radio NAME=knob VALUE=reassignbycomponent>
+          Reassign bugs to owner of selected component<br>"
+    incr knum
+
+    puts "
+<p>
+<font size=-1>
+To make changes to a bunch of bugs at once:
+<ol>
+<li> Put check boxes next to the bugs you want to change.
+<li> Adjust above form elements.  (It's <b>always</b> a good idea to add some
+     comment explaining what you're doing.)
+<li> Click the below \"Commit\" button.
+</ol></font>
+<INPUT TYPE=SUBMIT VALUE=Commit>
+</FORM><hr>"
+}
+
+
+if {$count > 0} {
+  puts "<FORM METHOD=POST ACTION=\"long_list.cgi\">
+<INPUT TYPE=HIDDEN NAME=buglist VALUE=$buglist>
+<INPUT TYPE=SUBMIT VALUE=\"Long Format\">
+<A HREF=\"query.cgi\">Query Page</A>
+<A HREF=\"colchange.cgi?$buffer\">Change columns</A>
+</FORM>"
+    if {!$dotweak && $count > 1} {
+        puts "<A HREF=\"buglist.cgi?[set fields]&tweak=1\">Make changes to several of these bugs at once.</A>"
+    }
+}
+puts "--ThisRandomString--"
+flush stdout
+
+#
+# Below is second part of hideous "if catch" stuff from above. 
+#
+#
+# 
+# }]} {
+#     exec /usr/lib/sendmail -t << "To: terry
+# 
+# 
+# $query
+# 
+# $errorInfo
+# "
+# }
diff --git a/mozilla/webtools/bugzilla/changepassword.cgi b/mozilla/webtools/bugzilla/changepassword.cgi
new file mode 100755
index 00000000000..2e0a4f06a05
--- /dev/null
+++ b/mozilla/webtools/bugzilla/changepassword.cgi
@@ -0,0 +1,74 @@
+#! /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 <terry@mozilla.org>
+source "CGI.tcl"
+
+confirm_login
+
+if {![info exists FORM(pwd1)]} {
+    puts "Content-type: text/html
+
+<H1>Change your password</H1>
+<form method=post>
+<table>
+<tr>
+<td align=right>Please enter the new password for <b>$COOKIE(Bugzilla_login)</b>:</td>
+<td><input type=password name=pwd1></td>
+</tr>
+<tr>
+<td align=right>Re-enter your new password:</td>
+<td><input type=password name=pwd2></td>
+</table>
+<input type=submit value=Submit>"
+    exit
+}
+
+if {![cequal $FORM(pwd1) $FORM(pwd2)]} {
+    puts "Content-type: text/html
+
+<H1>Try again.</H1>
+The two passwords you entered did not match.  Please click <b>Back</b> and try again."
+    exit
+}
+
+
+set pwd $FORM(pwd1)
+
+
+if {![regexp {^[a-zA-Z0-9-_]*$} $pwd] || [clength $pwd] < 3 || [clength $pwd] > 15} {
+    puts "Content-type: text/html
+
+<H1>Sorry; we're picky.</H1>
+Please choose a password that is between 3 and 15 characters long, and that
+contains only numbers, letters, hyphens, or underlines.
+<p>
+Please click <b>Back</b> and try again."
+    exit
+}
+
+
+puts "Content-type: text/html\n"
+
+SendSQL "update profiles set password='$pwd' where login_name='[SqlQuote $COOKIE(Bugzilla_login)]'"
+
+puts "<H1>OK, done.</H1>
+Your new password has been set.
+<p>
+<a href=query.cgi>Back to query page.</a>"
diff --git a/mozilla/webtools/bugzilla/colchange.cgi b/mozilla/webtools/bugzilla/colchange.cgi
new file mode 100755
index 00000000000..3adc475f36d
--- /dev/null
+++ b/mozilla/webtools/bugzilla/colchange.cgi
@@ -0,0 +1,88 @@
+#! /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 <terry@mozilla.org>
+
+source "CGI.tcl"
+
+puts "Content-type: text/html"
+
+# The master list not only says what fields are possible, but what order
+# they get displayed in.
+
+set masterlist {opendate changeddate severity priority platform owner reporter status
+    resolution component product version project os summary summaryfull status_summary resolved_ts verified_ts}
+
+
+if {[info exists FORM(rememberedquery)]} {
+    if {[info exists FORM(resetit)]} {
+        set collist $default_column_list
+    } else {
+        set collist {}
+        foreach i $masterlist {
+            if {[info exists FORM(column_$i)]} {
+                lappend collist $i
+            }
+        }
+    }
+    puts "Set-Cookie: COLUMNLIST=$collist ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT"
+    puts "Refresh: 0; URL=buglist.cgi?$FORM(rememberedquery)"
+    puts ""
+    puts "<TITLE>What a hack.</TITLE>"
+    puts "Resubmitting your query with new columns..."
+    exit
+}
+
+if {[info exists COOKIE(COLUMNLIST)]} {
+    set collist $COOKIE(COLUMNLIST)
+} else {
+    set collist $default_column_list
+}
+
+foreach i $masterlist {
+    set desc($i) $i
+}
+
+set desc(summary) "Summary (first 60 characters)"
+set desc(summaryfull) "Full Summary"
+
+
+puts ""
+puts "Check which columns you wish to appear on the list, and then click on"
+puts "submit."
+puts "<p>"
+puts "<FORM ACTION=colchange.cgi>"
+puts "<INPUT TYPE=HIDDEN NAME=rememberedquery VALUE=$buffer>"
+
+foreach i $masterlist {
+    if {[lsearch $collist $i] >= 0} {
+        set c CHECKED
+    } else {
+        set c ""
+    }
+    puts "<INPUT TYPE=checkbox NAME=column_$i $c>$desc($i)<br>"
+}
+puts "<P>"
+puts "<INPUT TYPE=\"submit\" VALUE=\"Submit\">"
+puts "</FORM>"
+puts "<FORM ACTION=colchange.cgi>"
+puts "<INPUT TYPE=HIDDEN NAME=rememberedquery VALUE=$buffer>"
+puts "<INPUT TYPE=HIDDEN NAME=resetit VALUE=1>"
+puts "<INPUT TYPE=\"submit\" VALUE=\"Reset to Bugzilla default\">"
+puts "</FORM>"
diff --git a/mozilla/webtools/bugzilla/doclosebug.cgi b/mozilla/webtools/bugzilla/doclosebug.cgi
new file mode 100755
index 00000000000..cfb353976ab
--- /dev/null
+++ b/mozilla/webtools/bugzilla/doclosebug.cgi
@@ -0,0 +1,53 @@
+#! /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 <terry@mozilla.org>
+
+source "CGI.tcl"
+puts "Content-type: text/plain\n"
+
+set query "update bugs\nset 
+bug_status=RESOLVED,
+bug_resolution=FIXED
+where bug_id = $FORM(id)"
+
+set newcomment "Fixed by changes in $FORM(directory):"
+foreach i $FORM(fileversions) {
+    lassign $i file version
+    append newcomment "\n  $file ($version)"
+}
+
+puts "Query is $query"
+puts "Comment is $newcomment"
+
+exit
+
+ConnectToDatabase
+
+SendSQL $query
+
+while {[MoreSQLData]} {
+  FetchSQLData
+  set result [MoreSQLData]
+}
+
+AppendComment $FORM(id) $FORM(who) $newcomment
+
+
+exec ./processmail $FORM(id) < /dev/null > /dev/null 2> /dev/null &
diff --git a/mozilla/webtools/bugzilla/edit_desc.cgi b/mozilla/webtools/bugzilla/edit_desc.cgi
new file mode 100755
index 00000000000..7f386b89487
--- /dev/null
+++ b/mozilla/webtools/bugzilla/edit_desc.cgi
@@ -0,0 +1,112 @@
+#! /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 <terry@mozilla.org>
+
+source "CGI.tcl"
+confirm_login
+
+puts "Content-type: text/html\n"
+ConnectToDatabase
+if {[info exists FORM(commit)]} {
+  puts "<TITLE>Changing Long Description for bug [FormData id]</TITLE>"
+  set tmpfile [TmpName ldesc.[pid]]
+  SendSQL "select rowid from bugs where bug_id = [FormData id]"
+  set r [FetchSQLData]
+  set lfile [open $tmpfile w]
+  puts -nonewline $lfile [FormData long_desc]
+  close $lfile
+  orawritelong $oc [lindex $r 0] bugs long_desc $tmpfile
+  unlink $tmpfile
+  oracommit $oc
+  puts "<H1>Long Description Changed</H1>"
+  puts "<UL><LI>"
+  puts "<A HREF=\"show_bug.cgi?id=[FormData id]\">Show Bug #[FormData id]</A>"
+  puts "<LI><A HREF=\"query.cgi\">Query Page</A>"
+  exec ./processmail [FormData id] < /dev/null > /dev/null 2> /dev/null &
+  exit 0
+}
+
+
+puts "<TITLE>Editing Long Description for bug [FormData id]</TITLE>"
+
+puts "<H2>Be Careful</H2>"
+puts "Many people think that the ability to edit the full long description
+is a bad thing and that developers should not be allowed to do this,
+because information can get lost.  Please do not use this feature casually.
+<P><HR>"
+
+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.bug_file_loc,
+  bugs.short_desc
+from bugs,profiles assign,profiles report,priorities
+where assign.userid = bugs.assigned_to and report.userid = bugs.reporter and
+}
+
+
+SendSQL "$generic_query bugs.bug_id = [FormData id]"
+set result [ FetchSQLData ]
+puts "<TABLE WIDTH=100%>"
+puts "<TD COLSPAN=4><TR><DIV ALIGN=CENTER><B><FONT =\"+3\">[html_quote [lindex $result 13]]</B></FONT></DIV>"
+puts "<TR><TD><B>Bug#:</B> [lindex $result 0]"
+puts "<TD><B>Product:</B> [lindex $result 1]"
+puts "<TD><B>Version:</B> [lindex $result 2]"
+puts "<TD><B>Platform:</B> [lindex $result 3]"
+puts "<TR><TD><B>OS/Version:</B> [lindex $result 4]"
+puts "<TD><B>Status:</B> [lindex $result 5]"
+puts "<TD><B>Severity:</B> [lindex $result 6]"
+puts "<TD><B>Priority:</B> [lindex $result 7]"
+puts "</TD><TD><B>Resolution:</B> [lindex $result 8]</TD>"
+puts "<TD><B>Assigned To:</B> [lindex $result 9]"
+puts "<TD><B>Reported By:</B> [lindex $result 10]"
+puts "<TR><TD COLSPAN=6><B>URL:</B> [html_quote [lindex $result 11]]"
+puts "<TR><TD><B>Description:</B>\n</TABLE>"
+
+set ldesc [GetLongDescription [FormData id]]
+set lines [llength [split $ldesc "\n"]]
+incr lines 10
+if {$lines > 100} {
+  set lines 100
+}
+if {[regexp {Macintosh} $env(HTTP_USER_AGENT)]} {
+  set cols 160
+} else {
+  set cols 80
+}
+
+puts "<FORM METHOD=POST ACTION=\"edit_desc.cgi\">
+<INPUT TYPE=HIDDEN NAME=\"id\" VALUE=$FORM(id)>
+<INPUT TYPE=HIDDEN NAME=\"commit\" VALUE=yes>
+<TEXTAREA NAME=long_desc WRAP=HARD COLS=$cols ROWS=$lines>
+[html_quote $ldesc]
+</TEXTAREA>
+<INPUT TYPE=SUBMIT VALUE=\"Change Description\">
+</FORM>"
diff --git a/mozilla/webtools/bugzilla/enter_bug.cgi b/mozilla/webtools/bugzilla/enter_bug.cgi
new file mode 100755
index 00000000000..f6fdb7dbf2e
--- /dev/null
+++ b/mozilla/webtools/bugzilla/enter_bug.cgi
@@ -0,0 +1,227 @@
+#! /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 <terry@mozilla.org>
+
+
+source CGI.tcl
+confirm_login
+
+puts "Content-type: text/html\n"
+
+
+
+proc pickplatform {} {
+    global env FORM
+    if {[formvalue rep_platform] != ""} {
+        return [formvalue rep_platform]
+    }
+    switch -regexp $env(HTTP_USER_AGENT) {
+        {Mozilla.*\(X11} {return "X-Windows"}
+        {Mozilla.*\(Windows} {return "PC"}
+        {Mozilla.*\(Macintosh} {return "Macintosh"}
+        {Mozilla.*\(Win} {return "PC"}
+        default {return "PC"}
+    }
+}
+
+proc pickproduct {} {
+    global FORM env COOKIE product versions
+    set product missingProductSoPickDefault
+    
+    set product [formvalue product]
+    if {$product == ""} {
+        if {[info exists COOKIE(PRODUCT)]} {
+            set product $COOKIE(PRODUCT)
+        } else {
+            switch -regexp $env(HTTP_USER_AGENT) {
+                {2.0Gold}       {set product "Hearst"}
+                {4\.0.*; *Nav} { set product "Ratbert"}
+                {4\.0}  {set product "Communicator"}
+                {3\.0}  {set product "Akbar"}
+                {2\.0}  {set product "Cheddar"}
+            }
+        }
+    }
+    if {![info exists versions($product)]} { set product "Communicator" }
+    return $product
+}
+
+proc pickversion {} {
+    global env versions product FORM
+    
+    set version [formvalue version]
+    if {$version == ""} {
+        regexp {Mozilla[ /]([^ ]*) } $env(HTTP_USER_AGENT) foo version
+ 
+        switch -regexp $env(HTTP_USER_AGENT) {
+            {4\.09} { set version "4.5" }
+        }
+    }
+    
+    if {[lsearch -exact $versions($product) $version] >= 0} {
+        return $version
+    } else {
+        if {[info exists COOKIE(VERSION-$product)]} {
+            if {[lsearch -exact $versions($product) $COOKIE(VERSION-$Product)] >= 0} {
+                return $COOKIE(VERSION-$Product)
+            }
+        }
+    }
+    return [lindex $versions($product) 0]
+}
+
+
+proc pickcomponent {} {
+    global components product FORM
+    set result [formvalue component]
+    if {![cequal $result ""] && \
+            [lsearch -exact $components($product) $result] < 0} {
+        set result ""
+    }
+    return $result
+}
+
+
+proc pickos {} {
+    global env FORM
+    if {[formvalue op_sys] != ""} {
+        return [formvalue op_sys]
+    }
+    switch -regexp $env(HTTP_USER_AGENT) {
+        {Mozilla.*\(.*;.*; IRIX.*\)}    {return "IRIX"}
+        {Mozilla.*\(.*;.*; 32bit.*\)}   {return "Windows 95"}
+        {Mozilla.*\(.*;.*; 16bit.*\)}   {return "Windows 3.1"}
+        {Mozilla.*\(.*;.*; 68K.*\)}     {return "System 7.5"}
+        {Mozilla.*\(.*;.*; PPC.*\)}     {return "System 7.5"}
+        {Mozilla.*\(.*;.*; OSF.*\)}     {return "OSF/1"}
+        {Mozilla.*\(.*;.*; Linux.*\)}   {return "Linux"}
+        {Mozilla.*\(.*;.*; SunOS 5.*\)} {return "Solaris"}
+        {Mozilla.*\(.*;.*; SunOS.*\)}   {return "SunOS"}
+        {Mozilla.*\(.*;.*; SunOS.*\)}   {return "SunOS"}
+        {Mozilla.*\(Win16.*\)}          {return "Windows 3.1"}
+        {Mozilla.*\(Win95.*\)}          {return "Windows 95"}
+        {Mozilla.*\(WinNT.*\)}          {return "Windows NT"}
+        default {return "other"}
+    }
+}
+
+proc formvalue {name {default ""}} {
+    global FORM
+    if {[info exists FORM($name)]} {
+        return [FormData $name]
+    }
+    return $default
+}
+
+GetVersionTable
+pickproduct
+
+set assign_element [GeneratePersonInput assigned_to 1 [formvalue assigned_to]]
+set cc_element [GeneratePeopleInput cc [formvalue cc ""]]
+
+
+set priority_popup [make_popup priority $legal_priority [formvalue priority "P2"] 0]
+set sev_popup [make_popup bug_severity $legal_severity [formvalue bug_severity "normal"] 0]
+set platform_popup [make_popup rep_platform $legal_platform [pickplatform] 0]
+set opsys_popup [make_popup op_sys $legal_opsys [pickos] 0]
+
+set component_popup [make_popup component $components($product) \
+                         [formvalue component] 1]
+
+PutHeader "Enter Bug" "Enter Bug"
+
+puts "
+<FORM NAME=enterForm METHOD=POST ACTION=\"post_bug.cgi\">
+<INPUT TYPE=HIDDEN NAME=bug_status VALUE=NEW>
+<INPUT TYPE=HIDDEN NAME=reporter VALUE=$COOKIE(Bugzilla_login)>
+  <TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0>
+  <TR>
+    <td ALIGN=right valign=top><B>Product:</B></td>
+    <td>[Product_element $product]</td>
+    <td ALIGN=right valign=top><B>Version:</B></td>
+    <td>[Version_element [pickversion] $product]</td>
+    <td align=right valign=top><b>Component:</b></td>
+    <td>$component_popup</td>
+  </TR>
+  <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+  <TR>
+    <td align=right><b><B><A HREF=\"bug_status.html#rep_platform\">Platform:</A></B></td>
+    <TD>$platform_popup</TD>
+    <TD ALIGN=RIGHT><B>OS:</B></TD>
+    <TD>$opsys_popup</TD>
+    <td align=right valign=top></td>
+    <td rowspan=3></td>
+    <td></td>
+  </TR>
+  <TR>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#priority\">Priority</A>:</B></TD>
+    <TD>$priority_popup</TD>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#severity\">Severity</A>:</B></TD>
+    <TD>$sev_popup</TD>
+    <td></td>
+    <td></td>
+  </TR>
+  <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+  <tr>
+    <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#assigned_to\">Assigned To:
+        </A></B></TD>
+    <TD colspan=5>$assign_element
+    (Leave blank to assign to default owner for component)</td>
+  </tr>
+  <tr>
+    <TD ALIGN=RIGHT ><B>Cc:</B></TD>
+    <TD colspan=5>$cc_element</TD>
+  </tr>
+  <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+  <TR>
+    <TD ALIGN=RIGHT><B>URL:</B>
+    <TD COLSPAN=5>
+      <INPUT NAME=bug_file_loc SIZE=60 value=\"[value_quote [formvalue bug_file_loc]]\"></TD>
+  </TR>
+  <TR>
+    <TD ALIGN=RIGHT><B>Summary:</B>
+    <TD COLSPAN=5>
+      <INPUT NAME=short_desc SIZE=60 value=\"[value_quote [formvalue short_desc]]\"></TD>
+  </TR>
+  <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+  <tr>
+    <td aligh=right valign=top><B>Description:</b>
+    <td colspan=5><TEXTAREA WRAP=HARD NAME=comment ROWS=10 COLS=80>[value_quote [formvalue comment]]</TEXTAREA><BR></td>
+  </tr>
+  <tr>
+    <td></td>
+    <td colspan=5>
+       <INPUT TYPE=\"submit\" VALUE=\"    Commit    \">
+       &nbsp;&nbsp;&nbsp;&nbsp;
+       <INPUT TYPE=\"reset\" VALUE=\"Reset\">
+       &nbsp;&nbsp;&nbsp;&nbsp;
+       <INPUT TYPE=\"submit\" NAME=maketemplate VALUE=\"Remember values as bookmarkable template\">
+    </td>
+  </tr>
+  </TABLE>
+  <INPUT TYPE=hidden name=form_name VALUE=enter_bug>
+</FORM>
+
+Some fields initialized from your user-agent, <b>$env(HTTP_USER_AGENT)</b>.
+If you think it got it wrong, please tell $maintainer what it should have been.
+
+</BODY></HTML>"
+
+flush stdout
diff --git a/mozilla/webtools/bugzilla/globals.tcl b/mozilla/webtools/bugzilla/globals.tcl
new file mode 100644
index 00000000000..b30137c21ca
--- /dev/null
+++ b/mozilla/webtools/bugzilla/globals.tcl
@@ -0,0 +1,435 @@
+# -*- 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 <terry@mozilla.org>
+
+# Contains some global variables and routines used throughout bugzilla.
+
+set maintainer "<a href=mailto:terry@netscape.com>terry@netscape.com</a>"
+
+if { ! [info exists oradbname] } {
+  set oradbname "SCOPPROD"
+}
+
+set dontchange "--do_not_change--"
+set chooseone "--Choose_one:--"
+
+set tmp_dir ""
+proc TmpName { tail } {
+  global tmp_dir
+  if { $tmp_dir == "" } {
+    set tmp_dir "/var/tmp/bugzilla"
+    if {! [file isdirectory $tmp_dir]} {
+      mkdir $tmp_dir
+    }
+  }
+  return "$tmp_dir/$tail"
+}
+
+proc ConnectToDatabase {} {
+    global mysqlhandle
+    if {![info exists mysqlhandle]} {
+        set mysqlhandle [mysqlconnect]
+        mysqluse $mysqlhandle "bugs"
+    }
+}
+
+# Useful for my stand-alone debugging
+proc DebugConnect {} {
+    global COOKIE
+    set COOKIE(Bugzilla_login) terry
+    set COOKIE(Bugzilla_password) terry
+    ConnectToDatabase
+}
+
+
+proc SendSQL { str } {
+    global mysqlhandle
+    mysqlsel $mysqlhandle $str
+    return 0
+}
+
+proc MoreSQLData {} {
+    global mysqlhandle
+    set result [mysqlresult $mysqlhandle "rows?"]
+    return [expr ![cequal $result ""] && $result > 0]
+}
+
+proc FetchSQLData {} {
+    global mysqlhandle
+    return [mysqlnext $mysqlhandle]
+}
+
+proc Disconnect {} {
+    global mysqlhandle
+    mysqlclose $mysqlhandle
+    unset mysqlhandle
+}
+
+
+set legal_opsys { "Windows 3.1" "Windows 95" "Windows NT" "System 7" "System 7.5"
+               "7.1.6" "AIX" "BSDI" "HP-UX" "IRIX" "Linux" "OSF/1" "Solaris" "SunOS"
+               "other" }
+
+
+set default_column_list {severity priority platform owner status resolution summary}
+
+set env(TZ) PST8PDT
+
+proc AppendComment {bugid who comment} {
+    regsub -all "\r\n" $comment "\n" comment
+    if {[cequal $comment "\n"] || [clength $comment] == 0} {
+        return
+    }
+    SendSQL "select long_desc from bugs where bug_id = $bugid"
+    set desc [lindex [FetchSQLData] 0]
+    append desc "\n\n------- Additional Comments From $who  [fmtclock [getclock] "%D %H:%M"] -------\n"
+    append desc $comment
+    SendSQL "update bugs set long_desc='[SqlQuote $desc]' where bug_id=$bugid"
+}
+
+proc SortIgnoringCase {a b} {
+    return [string compare [string tolower $a] [string tolower $b]]
+}
+
+
+proc make_popup { name src default listtype {onchange {}}} {
+    set last ""
+    set popup "<SELECT NAME=$name"
+    if {$listtype > 0} {
+        append popup " SIZE=5"
+        if {$listtype == 2} {
+            append popup " MULTIPLE"
+        }
+    }
+    if {$onchange != ""} {
+        append popup " onchange=$onchange"
+    }
+    append popup ">"
+    append popup [make_options $src $default [expr {$listtype == 2 && $default != ""}]]
+    append popup "</SELECT>"
+    return $popup
+}
+
+proc Product_element { prod {onchange {}} } {
+    global versions
+    return [make_popup product [lsort [array names versions]] $prod 1 \
+                $onchange]
+}
+
+proc Component_element { comp prod {onchange {}} } {
+    global components
+    if {![info exists components($prod)]} {
+        set componentlist {}
+    } else {
+        set componentlist $components($prod)
+    }
+        
+    if {![cequal $comp ""] && [lsearch $componentlist $comp] >= 0} {
+        set defcomponent $comp
+    } else {
+        set defcomponent [lindex $componentlist 0]
+    }
+    return [make_popup component $componentlist $defcomponent 1 ""]
+}
+
+proc Version_element { vers prod {onchange {}} } {
+  global versions
+  if {![info exists versions($prod)]} {
+    set versionlist {}
+  } else {
+    set versionlist $versions($prod)
+  }
+
+  set defversion [lindex $versionlist 0]
+
+  if {[lsearch $versionlist $vers] >= 0} {
+    set defversion $vers
+  }
+  return [make_popup version $versionlist $defversion 1 $onchange]
+}
+
+proc GenerateVersionTable {} {
+    ConnectToDatabase
+    SendSQL "select value, program from versions order by value"
+    while { [ MoreSQLData ] } {
+        set line [FetchSQLData]
+        if {$line != ""} {
+            set v [lindex $line 0]
+            set p1 [lindex $line 1]
+            lappend versions($p1) $v
+            set varray($v) 1
+            set parray($p1) 1
+        }
+    }
+
+    SendSQL "select value, program from components"
+    while { [ MoreSQLData ] } {
+        set line [FetchSQLData]
+        if {$line != ""} {
+            lassign $line c p
+            lappend components($p) $c
+            set carray($c) 1
+            set parray($p) 1
+        }
+    }
+
+    LearnAboutColumns bugs cols
+    set log_columns $cols(-list-)
+    foreach i {bug_id creation_ts delta_ts long_desc} {
+        set w [lsearch $log_columns $i]
+        if {$w >= 0} {
+            set log_columns [lreplace $log_columns $w $w]
+        }
+    }
+    set legal_priority [SplitEnumType $cols(priority,type)]
+    set legal_severity [SplitEnumType $cols(bug_severity,type)]
+    set legal_platform [SplitEnumType $cols(rep_platform,type)]
+    set legal_bug_status [SplitEnumType $cols(bug_status,type)]
+    set legal_resolution [SplitEnumType $cols(resolution,type)]
+    set legal_resolution_no_dup $legal_resolution
+    set w [lsearch $legal_resolution_no_dup "DUPLICATE"]
+    if {$w >= 0} {
+        set legal_resolution_no_dup [lreplace $legal_resolution_no_dup $w $w]
+    }
+
+    set list [lsort -command SortIgnoringCase [array names versions]]
+    
+    set tmpname "versioncache.[id process]"
+
+    set fid [open $tmpname "w"]
+    puts $fid [list set log_columns $log_columns]
+    foreach i $list {
+        puts $fid [list set versions($i) $versions($i)]
+        if {![info exists components($i)]} {
+            set components($i) {}
+        }
+    }
+
+    puts $fid [list set legal_versions [lsort -command SortIgnoringCase \
+                                            [array names varray]]]
+    foreach i [lsort -command SortIgnoringCase [array names components]] {
+        puts $fid [list set components($i) $components($i)]
+    }
+    puts $fid [list set legal_components [lsort -command SortIgnoringCase \
+                                              [array names carray]]]
+    puts $fid [list set legal_product $list]
+    puts $fid [list set legal_priority $legal_priority]
+    puts $fid [list set legal_severity $legal_severity]
+    puts $fid [list set legal_platform $legal_platform]
+    puts $fid [list set legal_bug_status $legal_bug_status]
+    puts $fid [list set legal_resolution $legal_resolution]
+    puts $fid [list set legal_resolution_no_dup $legal_resolution_no_dup]
+    close $fid
+    frename $tmpname "versioncache"
+    catch {chmod 0666 "versioncache"}
+}
+
+# This proc must be called before using legal_product or the versions array.
+
+proc GetVersionTable {} {
+    global versions
+    set mtime 0
+    catch {set mtime [file mtime versioncache]}
+    if {[getclock] - $mtime > 3600} {
+        GenerateVersionTable
+    }
+    uplevel #0 {source versioncache}
+    if {![info exists versions]} {
+        GenerateVersionTable
+        uplevel #0 {source versioncache}
+        if {![info exists versions]} {
+            error "Can't generate version info; tell terry."
+        }
+    }
+}
+
+
+
+proc GeneratePersonInput { field required def_value {extraJavaScript {}} } {
+    if {![cequal $extraJavaScript ""]} {
+        set $extraJavaScript "onChange=\" $extraJavaScript \""
+    }
+    return "<INPUT NAME=\"$field\" SIZE=32 $extraJavaScript VALUE=\"$def_value\">"
+}
+
+proc GeneratePeopleInput { field def_value } {
+  return "<INPUT NAME=\"$field\" SIZE=45 VALUE=\"$def_value\">"
+}
+
+
+
+set cachedNameArray() ""
+
+proc InsertNewUser {username} {
+    random seed
+    set pwd ""
+    loop i 0 8 {
+        append pwd [cindex "abcdefghijklmnopqrstuvwxyz" [random 26]]
+    }
+    SendSQL "insert into profiles (login_name, password) values ('[SqlQuote $username]', '$pwd')"
+    return $pwd
+}
+
+
+proc DBID_to_name { id } {
+    global cachedNameArray
+
+    if {![info exists cachedNameArray($id)]} {
+
+        SendSQL "select login_name from profiles where userid = $id"
+        set r [FetchSQLData]
+        if {$r == ""} { set r "__UNKNOWN__" }
+        set cachedNameArray($id) $r
+    }
+    return $cachedNameArray($id)
+}
+
+proc DBname_to_id { name } {
+    SendSQL "select userid from profiles where login_name = '[SqlQuote $name]'"
+    set r [FetchSQLData]
+    if {[cequal $r ""]} {
+        return 0
+    }
+    return $r
+}
+
+proc DBNameToIdAndCheck {name {forceok 0}} {
+    set result [DBname_to_id $name]
+    if {$result > 0} {
+        return $result
+    }
+    if {$forceok} {
+        InsertNewUser $name
+        set result [DBname_to_id $name]
+        if {$result > 0} {
+            return $result
+        }
+        puts "Yikes; couldn't create user $name.  Please report problem to"
+        puts "$maintainer."
+    } else {
+        puts "The name <TT>$name</TT> is not a valid username.  Please hit the"
+        puts "<B>Back</B> button and try again."
+    }
+    exit 0
+}
+
+proc GetLongDescription { id } {
+    SendSQL "select long_desc from bugs where bug_id = $id"
+    return [lindex [FetchSQLData] 0]
+}
+
+proc ShowCcList {num} {
+    set cclist ""
+    set comma ""
+    SendSQL "select who from cc where bug_id = $num"
+    set ccids ""
+    while {[MoreSQLData]} {
+        lappend ccids [lindex [FetchSQLData] 0]
+    }
+    set result ""
+    foreach i $ccids {
+        lappend result [DBID_to_name $i]
+    }
+
+    return [join $result ","]
+}
+
+proc make_options_new { src default {isregexp 0} } {
+    set last "" ; set popup "" ; set found 0
+    foreach item $src {
+        if { $item == "-blank-" } { set item "" } {
+            if {$isregexp ? [regexp $default $item] : [cequal $default $item]} {
+                append popup "<OPTION SELECTED VALUE=\"$item\">$item"
+                set found 1
+            } else {
+                append popup "<OPTION VALUE=\"$item\">$item"
+            }
+        }
+    }
+    if {!$found && $default != ""} {
+        append popup "<OPTION SELECTED>$default"
+    }
+    return $popup
+}
+
+
+proc Shell {} {
+    ConnectToDatabase
+    while (1) {
+        puts -nonewline "> "
+        if {[gets stdin line] < 0} {
+            break
+        }
+        if {[catch {SendSQL $line} errorinfo]} {
+            puts "Error -- $errorinfo"
+        } else {
+            while {[MoreSQLData]} {
+                puts [FetchSQLData]
+            }
+        }
+    }
+}
+
+
+
+
+# Fills in the given array with info about the columns.  The array gets
+# the following entries:
+#   -list-  the list of column names
+#   <name>,type  the type for the given name
+
+proc LearnAboutColumns {table arrayname} {
+    upvar $arrayname a
+    catch (unset a)
+    SendSQL "show columns from $table"
+    set list {}
+    while {[MoreSQLData]} {
+        lassign [FetchSQLData] name type
+        set a($name,type) $type
+        lappend list $name
+    }
+    set a(-list-) $list
+}
+
+# If the above returned a enum type, take that type and parse it into the
+# list of values.  Assumes that enums don't ever contain an apostrophe!
+
+proc SplitEnumType {str} {
+    set result {}
+    if {[regexp {^enum\((.*)\)$} $str junk guts]} {
+        append guts ","
+        while {[regexp {^'([^']*)',(.*)$} $guts junk first guts]} {
+            lappend result $first
+        }
+    }
+    return $result
+}
+
+
+proc SqlQuote {str} {
+    regsub -all "'" $str "''" str
+    # 
+    # This next line is quoting hell.  One level of quoting comes from
+    # the TCL interpreter, and another level comes from TCL's regular
+    # expression parser.  It really works out to "change every
+    # backslash to two backslashes".
+    regsub -all "\\\\" $str "\\\\\\\\" str
+
+    return $str
+}
diff --git a/mozilla/webtools/bugzilla/help.html b/mozilla/webtools/bugzilla/help.html
new file mode 100644
index 00000000000..0d7244df252
--- /dev/null
+++ b/mozilla/webtools/bugzilla/help.html
@@ -0,0 +1,55 @@
+<HTML>
+<!--
+     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 <terry@mozilla.org>
+-->
+
+<TITLE>Clue</TITLE>
+<H1>A Clue</H1>
+This form will allow you to call up a subset of the bug list.
+You should be able to add the URL of the resulting list to
+your bookmark file in order to preserve queries.
+<p>
+The way the query works, if you have nothing checked in a box,
+then all values for that field are legal, for example if you checked nothing
+in any of the boxes, you would get the entire bug list.
+<p>
+The default value of this form should correspond roughly to a "personal"
+bug list.
+<HR>
+<H2>Running queries not supported by the pretty boxes</H2>
+There is a hacky way to do some searches that aren't supported by the
+form.  The buglist script will build queries based on the URL, so
+you can add other criteria.
+<P>
+For example, if you wanted to see all bugs reported against the X platform
+and assigned to jwz, you could ask for all bugs assign to jwz, then
+edit the URL in the "Location" box, adding the clause "&rep_platform=X-Windows"
+to the URL.
+<P>
+Here is a list of some of the field names you could use for additional
+unsupported searches ...
+
+<PRE>
+version
+rep_platform
+op_sys
+reporter area
+bug_file_loc
+short_desc
+</PRE>
diff --git a/mozilla/webtools/bugzilla/how_to_mail.html b/mozilla/webtools/bugzilla/how_to_mail.html
new file mode 100644
index 00000000000..6b43bca75c4
--- /dev/null
+++ b/mozilla/webtools/bugzilla/how_to_mail.html
@@ -0,0 +1,80 @@
+<HTML>
+
+<!--
+     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 <terry@mozilla.org>
+-->
+
+
+<TITLE>How to Mail to bugzilla</TITLE>
+
+<H1>THIS DOESN'T WORK RIGHT NOW.  Coming someday.</H1>
+
+Mailing to "bugzilla" will be piped through a script which examines
+your message, stripping out control lines, and passing the rest of the
+message in as the description of a new bug.  The control lines look like: <P>
+
+<PRE>
+@FIELD-LABEL VALUE
+        LABEL           Legal Values
+        Priority        critical major normal minor trivial
+        Type            BUG RFE
+        Product         Cheddar
+        Platform        PC X-Windows Macintosh All
+        Area            CODE JAVA TEST BUILD UI PERF
+        Version version 2.0b1 2.0b2 2.0b2 2.0b4 2.1a0 2.1a1 2.1b0 2.1b1 2.1b2
+        OS              Windows 3.1 Windows 95 Windows NT System 7 System 7.5
+                        AIX BSDI HP-UX IRIX Linux OSF/1 Solaris SunOS other
+        Summary         -anything-
+        URL             -anything-
+        Assign          someone in eng
+
+
+and
+
+@description
+        This tells the bug parse to stop looking for control lines,
+        allowing the bug description to contain lines which start with @
+</PRE>
+
+There are default values for all these fields.  If you don't specify a
+Summary, the subject of the mail message is used. <P>
+
+If you specify an illegal value, the default value is used, the
+bug is assigned to you, and the answerback message will describe
+the error. <P>
+
+After the bug is posted, you will get mail verifying the posting
+and informing you of the bug number if you wish to fix any
+mistakes made by the auto-processor. <P>
+
+EXAMPLE: <P>
+
+
+<PRE>
+    % Mail bugzilla
+    Subject: WinFE crashes with GPF when I pour beer on my keyboard
+    @priority critical
+    @platform PC
+    @assign troy
+
+    After the beer bash I emptied the rest of the keg onto my keyboard
+    and my sharp build of Navigator got a GPF.
+    .
+
+</PRE>
diff --git a/mozilla/webtools/bugzilla/index.html b/mozilla/webtools/bugzilla/index.html
new file mode 100644
index 00000000000..68155a075e0
--- /dev/null
+++ b/mozilla/webtools/bugzilla/index.html
@@ -0,0 +1,76 @@
+<HTML>
+<!--
+     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 <terry@mozilla.org>
+-->
+<HEAD><TITLE>Bugzilla Main Page</TITLE></HEAD>
+<BODY   BGCOLOR="#FFFFFF" TEXT="#000000"
+LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
+<TABLE BGCOLOR="#000000" WIDTH="100%" BORDER=0 CELLPADDING=0 CELLSPACING=0>
+<TR><TD><A HREF="http://www.mozilla.org/"><IMG
+ SRC="http://www.mozilla.org/images/mozilla-banner.gif" ALT=""
+ BORDER=0 WIDTH=600 HEIGHT=58></A></TD></TR></TABLE>
+<TABLE BORDER=0 CELLPADDING=12 CELLSPACING=0 WIDTH="100%">
+ <TR>
+
+  <TD>
+
+   <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=2>
+
+    <TR><TD VALIGN=TOP ALIGN=CENTER NOWRAP>
+
+     <FONT SIZE="+3"><B><NOBR>Main Page</NOBR></B></FONT>
+
+    </TD></TR><TR><TD VALIGN=TOP ALIGN=CENTER>
+
+     <B></B>
+
+    </TD></TR>
+
+   </TABLE>
+
+  </TD>
+
+  <TD>
+
+   This is <B>Bugzilla</B>: the Mozilla bug system.  For more 
+   information about what Bugzilla is and what it can do, see 
+   <A HREF="http://www.mozilla.org/">mozilla.org</A>'s
+   <A HREF="http://www.mozilla.org/bugs/"><B>bug pages</B></A>.
+</TD></TR></TABLE>
+
+
+<body>
+
+<img align=right width=329 height=220 src=ant.jpg>
+
+
+This is where we put in lots of nifty words explaining all about
+bugzilla.
+
+<p>
+
+But it all boils down to a choice of:
+<br>
+<a href="query.cgi">Go to the query page to start.</a><br>
+<a href="enter_bug.cgi">Enter a new bug</a>
+<FORM METHOD=GET ACTION=show_bug.cgi><INPUT TYPE=SUBMIT VALUE="Find"> bug
+# <INPUT NAME=id SIZE=6></FORM></TD>
+
+</BODY>
+</HTML>
diff --git a/mozilla/webtools/bugzilla/long_list.cgi b/mozilla/webtools/bugzilla/long_list.cgi
new file mode 100755
index 00000000000..3d575cf77a0
--- /dev/null
+++ b/mozilla/webtools/bugzilla/long_list.cgi
@@ -0,0 +1,78 @@
+#! /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 <terry@mozilla.org>
+
+
+source "CGI.tcl"
+puts "Content-type: text/html\n"
+puts "<TITLE>Full Text Bug Listing</TITLE>"
+
+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.target_fix_version,
+  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 "<IMG SRC=\"1x1.gif\" WIDTH=1 HEIGHT=80 ALIGN=LEFT>"
+    puts "<TABLE WIDTH=100%>"
+    puts "<TD COLSPAN=4><TR><DIV ALIGN=CENTER><B><FONT =\"+3\">[html_quote [lindex $result 15]]</B></FONT></DIV>"
+    puts "<TR><TD><B>Bug#:</B> <A HREF=\"show_bug.cgi?id=[lindex $result 0]\">[lindex $result 0]</A>"
+    puts "<TD><B>Product:</B> [lindex $result 1]"
+    puts "<TD><B>Version:</B> [lindex $result 2]"
+    puts "<TD><B>Platform:</B> [lindex $result 3]"
+    puts "<TR><TD><B>OS/Version:</B> [lindex $result 4]"
+    puts "<TD><B>Status:</B> [lindex $result 5]"
+    puts "<TD><B>Severity:</B> [lindex $result 6]"
+    puts "<TD><B>Priority:</B> [lindex $result 7]"
+    puts "<TR><TD><B>Resolution:</B> [lindex $result 8]</TD>"
+    puts "<TD><B>Assigned To:</B> [lindex $result 9]"
+    puts "<TD><B>Reported By:</B> [lindex $result 10]"
+    puts "<TR><TD><B>Component:</B> [lindex $result 11]"
+    puts "<TD><B>Target Fix Version:</B> [lindex $result 12]"
+    puts "<TR><TD COLSPAN=6><B>URL:</B> [html_quote [lindex $result 13]]"
+    puts "<TR><TD COLSPAN=6><B>Summary&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:</B> [html_quote [lindex $result 14]]"
+    puts "<TR><TD><B>Description&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:</B>\n</TABLE>"
+    puts "<PRE>[html_quote [GetLongDescription $bug]]</PRE>"
+    puts "<HR>"
+  }
+}
+puts "<h6>Mozilla Communications Corporation, Company Confidential, read and eat.</h6>"
diff --git a/mozilla/webtools/bugzilla/makeactivitytable.sh b/mozilla/webtools/bugzilla/makeactivitytable.sh
new file mode 100755
index 00000000000..047d81e7e3e
--- /dev/null
+++ b/mozilla/webtools/bugzilla/makeactivitytable.sh
@@ -0,0 +1,47 @@
+#!/bin/sh
+#
+# 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 <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table bugs_activity
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table bugs_activity (
+        bug_id mediumint not null,
+        who mediumint not null,
+        when datetime not null,
+        field varchar(64) not null,
+        oldvalue tinytext,
+        newvalue tinytext,
+
+        index (bug_id),
+        index (when)
+);
+
+
+
+show columns from bugs_activity;
+show index from bugs_activity;
+
+OK_ALL_DONE
diff --git a/mozilla/webtools/bugzilla/makebugtable.sh b/mozilla/webtools/bugzilla/makebugtable.sh
new file mode 100755
index 00000000000..ff0cc78c17a
--- /dev/null
+++ b/mozilla/webtools/bugzilla/makebugtable.sh
@@ -0,0 +1,69 @@
+#!/bin/sh
+#
+# 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 <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table bugs;
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table bugs (
+bug_id mediumint not null auto_increment primary key,
+assigned_to mediumint not null, # This is a comment.
+bug_file_loc text,
+bug_severity enum("critical", "major", "normal", "minor", "trivial", "enhancement") not null,
+bug_status enum("NEW", "ASSIGNED", "REOPENED", "RESOLVED", "VERIFIED", "CLOSED") not null,
+creation_ts datetime,
+delta_ts timestamp,
+short_desc mediumtext,
+long_desc mediumtext,
+op_sys tinytext,
+priority enum("P1", "P2", "P3", "P4", "P5") not null,
+product varchar(16) not null,
+rep_platform enum("All", "DEC", "HP", "Macintosh", "PC", "SGI", "Sun", "X-Windows", "Other"),
+reporter mediumint not null,
+version varchar(16) not null,
+area enum("BUILD", "CODE", "CONTENT", "DOC", "PERFORMANCE", "TEST", "UI", "i18n", "l10n") not null,
+component varchar(50) not null,
+resolution enum("", "FIXED", "INVALID", "WONTFIX", "LATER", "REMIND", "DUPLICATE", "WORKSFORME") not null,
+
+
+index (assigned_to),
+index (delta_ts),
+index (bug_severity),
+index (bug_status),
+index (priority),
+index (product),
+index (reporter),
+index (version),
+index (area),
+index (component),
+index (resolution)
+
+);
+
+show columns from bugs;
+show index from bugs;
+
+
+OK_ALL_DONE
diff --git a/mozilla/webtools/bugzilla/makecctable.sh b/mozilla/webtools/bugzilla/makecctable.sh
new file mode 100755
index 00000000000..44c50ca925a
--- /dev/null
+++ b/mozilla/webtools/bugzilla/makecctable.sh
@@ -0,0 +1,40 @@
+#!/bin/sh
+#
+# 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 <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table cc
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table cc (
+        bug_id mediumint not null,
+        who mediumint not null
+);
+
+
+
+show columns from cc;
+show index from cc;
+
+OK_ALL_DONE
diff --git a/mozilla/webtools/bugzilla/makecomponenttable.sh b/mozilla/webtools/bugzilla/makecomponenttable.sh
new file mode 100755
index 00000000000..2d0e360986e
--- /dev/null
+++ b/mozilla/webtools/bugzilla/makecomponenttable.sh
@@ -0,0 +1,102 @@
+#!/bin/sh
+#
+# 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 <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table components
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table components (
+value tinytext,
+program tinytext,
+initialowner tinytext           # Should arguably be a mediumint!
+);
+
+
+
+
+insert into components (value, program, initialowner) values ("Macintosh FE", "Communicator", "sdagley@netscape.com");
+insert into components (value, program, initialowner) values ("Windows FE", "Communicator", "blythe@netscape.com");
+insert into components (value, program, initialowner) values ("XFE", "Communicator", "ramiro@netscape.com");
+insert into components (value, program, initialowner) values ("StubFE", "Communicator", "toshok@netscape.com");
+insert into components (value, program, initialowner) values ("Aurora/RDF FE", "Communicator", "don@netscape.com");
+insert into components (value, program, initialowner) values ("Aurora/RDF BE", "Communicator", "guha@netscape.com");
+insert into components (value, program, initialowner) values ("Berkeley DB", "Communicator", "montulli@netscape.com");
+insert into components (value, program, initialowner) values ("Browser Hooks", "Communicator", "ebina@netscape.com");
+insert into components (value, program, initialowner) values ("Build Config", "Communicator", "briano@netscape.com");
+insert into components (value, program, initialowner) values ("Composer", "Communicator", "brade@netscape.com");
+insert into components (value, program, initialowner) values ("Compositor Library", "Communicator", "vidur@netscape.com");
+insert into components (value, program, initialowner) values ("Dialup", "Communicator", "selmer@netscape.com");
+insert into components (value, program, initialowner) values ("FontLib", "Communicator", "dp@netscape.com");
+insert into components (value, program, initialowner) values ("HTML Dialogs", "Communicator", "nisheeth@netscape.com");
+insert into components (value, program, initialowner) values ("HTML to Text/PostScript Translation", "Communicator", "brendan@netscape.com");
+insert into components (value, program, initialowner) values ("ImageLib", "Communicator", "pnunn@netscape.com");
+insert into components (value, program, initialowner) values ("JPEG Image Handling", "Communicator", "tgl@sss.pgh.pa.us");
+insert into components (value, program, initialowner) values ("PNG Image Handling", "Communicator", "png@wco.com");
+insert into components (value, program, initialowner) values ("Image Conversion Library", "Communicator", "mjudge@netscape.com");
+insert into components (value, program, initialowner) values ("I18N Library", "Communicator", "bobj@netscape.com");
+insert into components (value, program, initialowner) values ("Java Stubs", "Communicator", "warren@netscape.com");
+insert into components (value, program, initialowner) values ("JavaScript", "Communicator", "mccabe@netscape.com");
+insert into components (value, program, initialowner) values ("JavaScript Debugger", "Communicator", "jband@netscape.com");
+insert into components (value, program, initialowner) values ("JavaScript/Java Reflection", "Communicator", "fur@netscape.com");
+insert into components (value, program, initialowner) values ("Layout", "Communicator", "djw@netscape.com");
+insert into components (value, program, initialowner) values ("LibMocha", "Communicator", "chouck@netscape.com");
+insert into components (value, program, initialowner) values ("MIMELib", "Communicator", "terry@netscape.com");
+insert into components (value, program, initialowner) values ("NetLib", "Communicator", "gagan@netscape.com");
+insert into components (value, program, initialowner) values ("NSPR", "Communicator", "wtc@netscape.com");
+insert into components (value, program, initialowner) values ("Password Cache", "Communicator", "montulli@netscape.com");
+insert into components (value, program, initialowner) values ("PICS", "Communicator", "montulli@netscape.com");
+insert into components (value, program, initialowner) values ("Plugins", "Communicator", "byrd@netscape.com");
+insert into components (value, program, initialowner) values ("Preferences", "Communicator", "aoki@netscape.com");
+insert into components (value, program, initialowner) values ("Progress Window", "Communicator", "atotic@netscape.com");
+insert into components (value, program, initialowner) values ("Registry", "Communicator", "dveditz@netscape.com");
+insert into components (value, program, initialowner) values ("Scheduler", "Communicator", "aoki@netscape.com");
+insert into components (value, program, initialowner) values ("Security Stubs", "Communicator", "jsw@netscape.com");
+insert into components (value, program, initialowner) values ("SmartUpdate", "Communicator", "dveditz@netscape.com");
+insert into components (value, program, initialowner) values ("XML", "Communicator", "guha@netscape.com");
+insert into components (value, program, initialowner) values ("XP-COM", "Communicator", "scullin@netscape.com");
+insert into components (value, program, initialowner) values ("XP File Handling", "Communicator", "atotic@netscape.com");
+insert into components (value, program, initialowner) values ("XP Miscellany", "Communicator", "brendan@netscape.com");
+insert into components (value, program, initialowner) values ("XP Utilities", "Communicator", "toshok@netscape.com");
+insert into components (value, program, initialowner) values ("Zlib", "Communicator", "pnunn@netscape.com");
+
+
+
+insert into components (value, program, initialowner) values ("Platform: Lesstif on Linux", "Communicator", "ramiro@netscape.com");
+insert into components (value, program, initialowner) values ("Platform: OS/2", "Communicator", "law@netscape.com");
+insert into components (value, program, initialowner) values ("Platform: MacOS/PPC", "Communicator", "sdagley@netscape.com");
+insert into components (value, program, initialowner) values ("Platform: Rhapsody", "Communicator", "mcafee@netscape.com");
+insert into components (value, program, initialowner) values ("Platform: MFC/Win32 on Windows", "Communicator", "blythe@netscape.com");
+
+
+insert into components (value, program, initialowner) values ("UI", "Bugzilla", "terry@netscape.com");
+insert into components (value, program, initialowner) values ("Database", "Bugzilla", "terry@netscape.com");
+
+
+select * from components;
+
+show columns from components;
+show index from components;
+
+OK_ALL_DONE
diff --git a/mozilla/webtools/bugzilla/makeprofilestable.sh b/mozilla/webtools/bugzilla/makeprofilestable.sh
new file mode 100755
index 00000000000..2780d61345e
--- /dev/null
+++ b/mozilla/webtools/bugzilla/makeprofilestable.sh
@@ -0,0 +1,42 @@
+#!/bin/sh
+#
+# 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 <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table profiles
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table profiles (
+userid mediumint not null auto_increment primary key,
+login_name varchar(255) not null,
+password varchar(16),
+realname varchar(255),
+index(login_name)
+);
+
+
+show columns from profiles;
+show index from profiles;
+
+OK_ALL_DONE
diff --git a/mozilla/webtools/bugzilla/makeversiontable.sh b/mozilla/webtools/bugzilla/makeversiontable.sh
new file mode 100755
index 00000000000..111b6d19089
--- /dev/null
+++ b/mozilla/webtools/bugzilla/makeversiontable.sh
@@ -0,0 +1,51 @@
+#!/bin/sh
+#
+# 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 <terry@mozilla.org>
+
+mysql > /dev/null 2>/dev/null << OK_ALL_DONE
+
+use bugs;
+
+drop table versions
+OK_ALL_DONE
+
+mysql << OK_ALL_DONE
+use bugs;
+create table versions (
+value tinytext,
+program tinytext
+);
+
+
+
+insert into versions (value, program) values ("other", "Communicator");
+insert into versions (value, program) values ("1998-03-31", "Communicator");
+insert into versions (value, program) values ("1998-04-08", "Communicator");
+insert into versions (value, program) values ("1998-04-29", "Communicator");
+insert into versions (value, program) values ("1998-06-03", "Communicator");
+insert into versions (value, program) values ("1998-07-28", "Communicator");
+insert into versions (value, program) values ("1.0", "Bugzilla");
+insert into versions (value, program) values ("other", "Bugzilla");
+
+select * from versions;
+
+show columns from versions;
+show index from versions;
+
+OK_ALL_DONE
diff --git a/mozilla/webtools/bugzilla/new_comment.cgi b/mozilla/webtools/bugzilla/new_comment.cgi
new file mode 100755
index 00000000000..b57caff4641
--- /dev/null
+++ b/mozilla/webtools/bugzilla/new_comment.cgi
@@ -0,0 +1,41 @@
+#!/usr/bonsaitools/bin/perl
+# -*- Mode: perl; 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 <terry@mozilla.org>
+
+if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; }
+else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
+# Split the name-value pairs
+@pairs = split(/&/, $buffer);
+foreach $pair (@pairs)
+{
+    ($name, $value) = split(/=/, $pair);
+
+    $value =~ tr/+/ /;
+    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+    $FORM{$name} = $value;
+}
+open(COMMENTS, ">>comments");
+$c=$FORM{"comment"};
+print COMMENTS $FORM{"comment"} . "\n";
+close(COMMENTS);
+print "Content-type: text/html\n\n";
+print "<TITLE>The Word Of Confirmation</TITLE>";
+print "<H1>Done</H1>";
+print $c;
diff --git a/mozilla/webtools/bugzilla/newquip.html b/mozilla/webtools/bugzilla/newquip.html
new file mode 100644
index 00000000000..dbb2fb1cfc9
--- /dev/null
+++ b/mozilla/webtools/bugzilla/newquip.html
@@ -0,0 +1,34 @@
+<HTML>
+
+<!--
+     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 <terry@mozilla.org>
+-->
+
+<TITLE>I'm So Pretty and Witty And Wise</TITLE>
+<H2>Add your own clever headline.</h2>
+The buglist picks a random quip for the headline, and 
+you can extend the quip list.  Type in something clever or
+funny or boring and bonk on the button.
+<HR>
+<FORM METHOD=POST ACTION="new_comment.cgi">
+<INPUT SIZE=80 NAME="comment"><BR>
+<INPUT TYPE="submit" VALUE="Add This Quip"></FORM>
+</HR>
+For the impatient, you can
+<A HREF="comments">view the whole quip list</A>.
diff --git a/mozilla/webtools/bugzilla/post_bug.cgi b/mozilla/webtools/bugzilla/post_bug.cgi
new file mode 100755
index 00000000000..94878d3bb4a
--- /dev/null
+++ b/mozilla/webtools/bugzilla/post_bug.cgi
@@ -0,0 +1,137 @@
+#! /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 <terry@mozilla.org>
+
+
+source "CGI.tcl"
+confirm_login
+
+puts "Set-Cookie: PLATFORM=$FORM(product) ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT"
+puts "Set-Cookie: VERSION-$FORM(product)=$FORM(version) ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT"
+puts "Content-type: text/html\n"
+
+if {[info exists FORM(maketemplate)]} {
+    puts "<TITLE>Bookmarks are your friend.</TITLE>"
+    puts "<H1>Template constructed.</H1>"
+    
+    set url "enter_bug.cgi?$buffer"
+
+    puts "If you put a bookmark <a href=\"$url\">to this link</a>, it will"
+    puts "bring up the submit-a-new-bug page with the fields initialized"
+    puts "as you've requested."
+    exit
+}
+
+PutHeader "Posting Bug -- Please wait" "Posting Bug" "One moment please..."
+
+flush stdout
+umask 0
+ConnectToDatabase
+
+if {![info exists FORM(component)] || [cequal $FORM(component) ""]} {
+    puts "You must choose a component that corresponds to this bug.  If"
+    puts "necessary, just guess.  But please hit the <B>Back</B> button and"
+    puts "choose a component."
+    exit 0
+}
+    
+
+set forceAssignedOK 0
+if {[cequal "" $FORM(assigned_to)]} {
+    SendSQL "select initialowner from components
+where program='[SqlQuote $FORM(product)]'
+and value='[SqlQuote $FORM(component)]'"
+    set FORM(assigned_to) [lindex [FetchSQLData] 0]
+    set forceAssignedOK 1
+}
+
+set FORM(assigned_to) [DBNameToIdAndCheck $FORM(assigned_to) $forceAssignedOK]
+set FORM(reporter) [DBNameToIdAndCheck $FORM(reporter)]
+
+
+set bug_fields { reporter product version rep_platform bug_severity \
+                     priority op_sys assigned_to bug_status bug_file_loc \
+                     short_desc component }
+set query "insert into bugs (\n"
+
+foreach field $bug_fields {
+  append query "$field,\n"
+}
+
+append query "creation_ts, long_desc )\nvalues (\n"
+
+
+foreach field $bug_fields {
+    if {$field == "qa_assigned_to"} {
+
+        set valin [DBname_to_id $FORM($field)]
+        if {$valin == "__UNKNOWN__"} {
+            append query "null,\n"
+        } else {
+            append query "$valin,\n"
+        }
+
+    } else {
+        regsub -all "'" [FormData $field] "''" value
+        append query "'$value',\n"
+    }
+}
+
+append query "now(), "
+append query "'[SqlQuote [FormData comment]]' )\n"
+
+
+set ccids(zz) 1
+unset ccids(zz)
+
+
+if {[info exists FORM(cc)]} {
+    foreach person [split $FORM(cc) " ,"] {
+        if {![cequal $person ""]} {
+            set ccids([DBNameToIdAndCheck $person]) 1
+        }
+    }
+}
+
+
+# puts "<PRE>$query</PRE>"
+
+SendSQL $query
+while {[MoreSQLData]} { set ret [FetchSQLData] }
+
+SendSQL "select LAST_INSERT_ID()"
+set id [FetchSQLData]
+
+foreach person [array names ccids] {
+    SendSQL "insert into cc (bug_id, who) values ($id, $person)"
+    while { [ MoreSQLData ] } { FetchSQLData }
+}
+
+# Now make sure changes are written before we run processmail...
+Disconnect
+
+puts "<H2>Changes Submitted</H2>"
+puts "<A HREF=\"show_bug.cgi?id=$id\">Show BUG# $id</A>"
+puts "<BR><A HREF=\"query.cgi\">Back To Query Page</A>"
+
+flush stdout
+
+exec ./processmail $id < /dev/null > /dev/null 2> /dev/null &
+exit
diff --git a/mozilla/webtools/bugzilla/process_bug.cgi b/mozilla/webtools/bugzilla/process_bug.cgi
new file mode 100755
index 00000000000..27b54de94f0
--- /dev/null
+++ b/mozilla/webtools/bugzilla/process_bug.cgi
@@ -0,0 +1,309 @@
+#! /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 <terry@mozilla.org>
+
+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 "<H1>Changing product means changing version and component.</H1>"
+        puts "You have chosen a new product, and now the version and/or"
+        puts "component fields are not correct.  Please set them now.<p>"
+        puts "<form>"
+        puts "<table>"
+        puts "<tr>"
+        puts "<td align=right><b>Product:</b></td>"
+        puts "<td>$prod</td>"
+        puts "</tr><tr>"
+        puts "<td align=right><b>Version:</b></td>"
+        puts "<td>[Version_element [FormData version] $prod]</td>"
+        puts "</tr><tr>"
+        puts "<td align=right><b>Component:</b></td>"
+        puts "<td>[Component_element [FormData component] $prod]</td>"
+        puts "</tr>"
+        puts "</table>"
+        foreach i [array names FORM] {
+            if {[lsearch -exact {version component} $i] < 0} {
+                puts "<input type=hidden name=$i value=\"[value_quote $FORM($i)]\">"
+            }
+        }
+        puts "<input type=submit value=Commit>"
+        puts "</form>"
+        puts "</hr>"
+        puts "<a href=query.cgi>Cancel all this and go back to the query page.</a>"
+        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 "<TITLE>Update Bug $idlist</TITLE>"
+if {[info exists FORM(id)]} {
+    navigation_header
+}
+puts "<HR>"
+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 \
+                   status_summary 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 "<p>Click <b>Back</b> 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 "<p>Click <b>Back</b> 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 "<PRE>$query</PRE>"
+
+    if {![cequal $comma ""]} {
+        if { [SendSQL $query] != 0 } {
+          puts "<H1>Error -- Changes not applied</H1>"
+          puts "OK, the database rejected the changes for some reason"
+          puts "which bugzilla can't deal with.  The error string returned"
+          puts "was:<PRE>$oramsg(errortxt)</PRE>"
+          puts "Here is the query which caused the error:"
+          puts "<PRE>$query</PRE>"
+        }
+        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 id [DBNameToIdAndCheck $person]
+                set ccids($id) 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 "<pre>$q</pre>"
+            SendSQL $q
+        }
+    }
+    
+    puts "<TABLE BORDER=1><TD><H1>Changes Submitted</H1>"
+    puts "<TD><A HREF=\"show_bug.cgi?id=$id\">Back To BUG# $id</A></TABLE>"
+    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 "<HR>"
+
+    navigation_header
+    source "bug_form.tcl"
+} else {
+  puts "<BR><A HREF=\"query.cgi\">Back To Query Page</A>"
+}
diff --git a/mozilla/webtools/bugzilla/processmail b/mozilla/webtools/bugzilla/processmail
new file mode 100755
index 00000000000..7992b0153de
--- /dev/null
+++ b/mozilla/webtools/bugzilla/processmail
@@ -0,0 +1,238 @@
+#! /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 <terry@mozilla.org>
+
+
+# To recreate the shadow database, nuke all the entires and then run
+# processmail regenerate <last>, where <last> is the biggest bug number
+# currently used.
+
+
+source "globals.tcl"
+
+umask 0
+
+proc Different {file1 file2} {
+    if {[file size $file1] != [file size $file2]} {
+        return 1
+    }
+    set f1 [open $file1 "r"]
+    set f2 [open $file2 "r"]
+    set d1 [read $f1]
+    set d2 [read $f2]
+    close $f1
+    close $f2
+    return [expr ![cequal $d1 $d2]]
+}
+
+
+proc DescCC {cclist} {
+    if {[lempty $cclist]} return ""
+    return "Cc: [join $cclist ", "]\n"
+}
+
+proc DescFixVersion {v} {
+    if {[cequal $v ""]} return ""
+    return "Fix-Version: $v\n"
+}
+
+
+proc GetBugText {id} {
+    global bug
+    catch {unset bug}
+set query "
+select
+        bug_id,
+        product,
+        version,
+        rep_platform,
+        op_sys,
+        bug_status,
+        resolution,
+        priority,
+        bug_severity,
+        area,
+        assigned_to,
+        reporter,
+        bug_file_loc,
+        target_fix_version,
+        short_desc,
+        component
+from bugs
+where bug_id = $id";
+
+    SendSQL $query
+
+    set ret [FetchSQLData]
+    
+    if {$ret == ""} {
+        return ""
+    }
+    set count 0
+    foreach field { bug_id product version rep_platform op_sys bug_status
+                  resolution priority bug_severity area assigned_to
+                  reporter bug_file_loc target_fix_version short_desc
+                  component } {
+      set bug($field) [lindex $ret $count]
+      incr count
+    }
+
+    set bug(assigned_to) [DBID_to_name $bug(assigned_to)]
+    set bug(reporter) [DBID_to_name $bug(reporter)]
+
+    set bug(long_desc) [GetLongDescription $id]
+
+    set bug(cclist) [split [ShowCcList $id] ","]
+
+
+    return "Bug\#: $id
+Product: $bug(product)
+Version: $bug(version)
+Platform: $bug(rep_platform)
+OS/Version: $bug(op_sys)
+Status: $bug(bug_status)   
+Resolution: $bug(resolution)
+Severity: $bug(bug_severity)
+Priority: $bug(priority)
+Component: $bug(component)
+Area: $bug(area)
+AssignedTo: $bug(assigned_to)                            
+ReportedBy: $bug(reporter)               
+URL: $bug(bug_file_loc)
+[DescCC $bug(cclist)][DescFixVersion $bug(target_fix_version)]Summary: $bug(short_desc)
+
+$bug(long_desc)"
+
+}
+
+
+
+proc fixaddresses {list} {
+    global nomail
+    set result {}
+    foreach i [lrmdups $list] {
+        if {![info exists nomail($i)]} {
+            lappend result $i
+        }
+    }
+    return [join $result ", "]
+}
+
+
+proc Log {str} {
+    set lockfid [open "maillock" "w"]
+    flock -write $lockfid
+    set fid [open "maillog" "a"]
+    puts $fid "[fmtclock [getclock] "%D %H:%M"] $str"
+    close $fid
+    close $lockfid
+}
+    
+
+set COOKIE(Bugzilla_login) terry
+set COOKIE(Bugzilla_password) terry
+
+ConnectToDatabase
+
+
+
+set template "From: bugzilla-daemon
+To: terry@netscape.com
+X-Real-To: %s
+X-Real-Cc: %s
+Subject: \[Bug %s\] %s - %s
+
+http://bugzilla.mozilla.org/bugzilla/show_bug.cgi?id=%s
+
+%s"
+
+
+set lockfid [open "maillock" "r"]
+flock -read $lockfid
+
+# foreach i [split [read_file -nonewline "okmail"] "\n"] {
+#     set okmail($i) 1
+# }
+
+foreach i [split [read_file -nonewline "nomail"] "\n"] {
+    if {[info exists okmail($i)]} {
+        unset okmail($i)
+    }
+    set nomail($i) 1
+}
+
+
+close $lockfid
+
+
+set regenerate 0
+if {[cequal [lindex $argv 0] "regenerate"]} {
+    set regenerate 1
+    set last [lindex $argv 1]
+    set argv ""
+    loop i 1 [expr $last + 1] {
+        lappend argv $i
+    }
+}
+
+foreach i $argv {
+    if {[lempty $i]} continue
+    set old shadow/$i
+    set new shadow/$i.tmp.[id process]
+    set diffs shadow/$i.diffs.[id process]
+    set verb "Changed"
+    if {![file exists $old]} {
+        close [open $old "w"]
+        set verb "New"
+    }
+    set text [GetBugText $i]
+    if {$text == ""} {
+        if {$regenerate} {
+            continue
+        }
+        error "Couldn't find bug $i."
+    }
+    set fid [open $new "w"]
+    puts $fid $text
+    close $fid
+    if {[Different $old $new]} {
+        catch {exec diff -c $old $new > $diffs}
+        set tolist [fixaddresses [list $bug(assigned_to) $bug(reporter)]]
+        set cclist [fixaddresses $bug(cclist)]
+        set logstr "Bug $i changed"
+        if {![lempty $tolist] || ![lempty $cclist]} {
+            set msg [format $template $tolist $cclist $i $verb \
+                         $bug(short_desc) $i [read_file $diffs]]
+            if {!$regenerate || ![cequal $verb "New"]} {
+                exec /usr/lib/sendmail -t << $msg
+                set logstr "$logstr; mail sent to $tolist $cclist"
+            }
+        }
+        unlink $diffs
+        Log $logstr
+    }
+    frename $new $old
+    catch {chmod 0666 $old}
+    if {$regenerate} {
+        puts -nonewline "$i "
+    }
+}
+
+exit
diff --git a/mozilla/webtools/bugzilla/query.cgi b/mozilla/webtools/bugzilla/query.cgi
new file mode 100755
index 00000000000..432620bbe5b
--- /dev/null
+++ b/mozilla/webtools/bugzilla/query.cgi
@@ -0,0 +1,242 @@
+#! /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 <terry@mozilla.org>
+
+source "CGI.tcl"
+
+if {[catch {
+
+
+
+if {[info exists FORM(GoAheadAndLogIn)]} {
+    # We got here from a login page, probably from relogin.cgi.  We better
+    # make sure the password is legit.
+    confirm_login
+}
+
+
+if {![info exists COOKIE(DEFAULTQUERY)]} {
+    set COOKIE(DEFAULTQUERY) "bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&product=Communicator&order=%22Importance%22"
+}
+
+if {![info exists buffer] || $buffer == ""} {
+    set buffer $COOKIE(DEFAULTQUERY)
+}
+
+foreach name {bug_status resolution assigned_to rep_platform priority \
+                  bug_severity product reporter op_sys component  \
+                  version} {
+    set default($name) ""
+    set type($name) 0
+}
+
+foreach item [split $buffer "&"] {
+    set el [ split $item = ]
+    set value [url_decode [lindex $el 1]]
+    set name [lindex $el 0]
+    if {[info exists default($name)]} {
+        if {$default($name) != ""} {
+            append default($name) "|$value"
+            set type($name) 1
+        } else {
+            set default($name) $value
+        }
+    }
+}
+
+foreach i [lsort [array names COOKIE]] {
+    switch -glob $i {
+        QUERY_* {
+            if {$COOKIE($i) != ""} {
+                set name [crange $i 6 end]
+                append namelist "<OPTION>$name"
+            }
+        }
+    }
+}
+        
+puts "Set-Cookie: BUGLIST=
+Content-type: text/html\n"
+
+GetVersionTable
+set who [GeneratePeopleInput assigned_to $default(assigned_to)]
+set reporter [GeneratePeopleInput reporter $default(reporter)]
+set qa_assigned_to_who [GeneratePeopleInput qa_assigned_to ""]
+
+
+# Muck the "legal product" list so that the default one is always first (and
+# is therefore visibly selected.
+
+# Commented out, until we actually have enough products for this to matter.
+
+# set w [lsearch $legal_product $default(product)]
+# if {$w >= 0} {
+#    set legal_product [concat $default(product) [lreplace $legal_product $w $w]]
+# }
+
+PutHeader "Bugzilla Query Page" "Query Page"
+
+puts "
+<FORM NAME=queryForm METHOD=GET ACTION=\"buglist.cgi\">
+
+<table>
+<tr>
+<th align=left><A HREF=\"bug_status.html\">Status</a>:</th>
+<th align=left><A HREF=\"bug_status.html\">Resolution</a>:</th>
+<th align=left><A HREF=\"bug_status.html#rep_platform\">Platform</a>:</th>
+<th align=left><A HREF=\"bug_status.html#priority\">Priority</a>:</th>
+<th align=left><A HREF=\"bug_status.html#severity\">Severity</a>:</th>
+</tr>
+<tr>
+<td align=left valign=top>
+<SELECT NAME=\"bug_status\" MULTIPLE SIZE=7>
+[make_options $legal_bug_status $default(bug_status) $type(bug_status)]
+</SELECT>
+</td>
+<td align=left valign=top>
+<SELECT NAME=\"resolution\" MULTIPLE SIZE=7>
+[make_options $legal_resolution $default(resolution) $type(resolution)]
+</SELECT>
+</td>
+<td align=left valign=top>
+<SELECT NAME=\"rep_platform\" MULTIPLE SIZE=7>
+[make_options $legal_platform $default(rep_platform) $type(rep_platform)]
+</SELECT>
+</td>
+<td align=left valign=top>
+<SELECT NAME=\"priority\" MULTIPLE SIZE=7>
+[make_options $legal_priority $default(priority) $type(priority) ]
+</SELECT>
+</td>
+<td align=left valign=top>
+<SELECT NAME=\"bug_severity\" MULTIPLE SIZE=7>
+[make_options $legal_severity $default(bug_severity) $type(bug_severity)]
+</SELECT>
+</tr>
+</table>
+
+<p>
+<TABLE>
+<TR><TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#assigned_to\">Assigned To:</a></B><TD>$who
+
+<p>
+<TR><TD ALIGN=RIGHT><B>Reporter:</B><TD>$reporter
+</TABLE>
+<NOBR>Changed in the last <INPUT NAME=changedin SIZE=2> days.</NOBR>
+
+
+<P>
+
+<table>
+<tr>
+<TH ALIGN=LEFT>Program:</th>
+<TH ALIGN=LEFT>Version:</th>
+<TH ALIGN=LEFT>Component:</th>
+</tr>
+<tr>
+
+<td align=left valign=top>
+<SELECT NAME=\"product\" MULTIPLE SIZE=5>
+[make_options $legal_product $default(product) $type(product)]
+</SELECT>
+</td>
+
+<td align=left valign=top>
+<SELECT NAME=\"version\" MULTIPLE SIZE=5>
+[make_options $legal_versions $default(version) $type(version)]
+</SELECT>
+</td>
+
+<td align=left valign=top>
+<SELECT NAME=\"component\" MULTIPLE SIZE=5>
+[make_options $legal_components $default(component) $type(component)]
+</SELECT>
+</td>
+
+</tr>
+</table>
+
+<table border=0><tr><td align=right>
+<b><A HREF=\"bug_status.html#resolved_ts\">Date Resolved</a>:</b> </td>
+<td align=left><INPUT NAME=resolved_ts SIZE=9> (to <INPUT NAME=resolved_ts_2 SIZE=9>, optional)</td>
+</tr>
+<tr>
+<td align=right><b><A HREF=\"bug_status.html#resolved_ts\">Date Verified</a>:</b> </td>
+<td align=left><INPUT NAME=verified_ts SIZE=9> (to <INPUT NAME=verified_ts_2 SIZE=9>, optional)
+<font size=-1>&nbsp;&nbsp;date format: 24-FEB-98</font>
+</td>
+</tr>
+</table>
+
+<p>
+
+
+
+<BR>
+<INPUT TYPE=radio NAME=cmdtype VALUE=doit CHECKED> Run this query
+<BR>"
+
+if {[info exists namelist]} {
+    puts "
+<table cellspacing=0 cellpadding=0><tr>
+<td><INPUT TYPE=radio NAME=cmdtype VALUE=editnamed> Load the remembered query:</td>
+<td rowspan=3><select name=namedcmd>$namelist</select>
+</tr><tr>
+<td><INPUT TYPE=radio NAME=cmdtype VALUE=runnamed> Run the remembered query:</td>
+</tr><tr>
+<td><INPUT TYPE=radio NAME=cmdtype VALUE=forgetnamed> Forget the remembered query:</td>
+</tr></table>"
+}
+
+puts "
+<INPUT TYPE=radio NAME=cmdtype VALUE=asdefault> Remember this as the default query
+<BR>
+<INPUT TYPE=radio NAME=cmdtype VALUE=asnamed> Remember this query, and name it:
+<INPUT TYPE=text NAME=newqueryname>
+<BR>
+
+<NOBR><B>Sort By:</B>
+<SELECT NAME=\"order\">
+  <OPTION>Bug Number
+  <OPTION SELECTED>\"Importance\"
+  <OPTION>Assignee
+</SELECT></NOBR>
+<INPUT TYPE=\"submit\" VALUE=\"Submit\">
+<INPUT TYPE=\"reset\" VALUE=\"Reset back to the default query\">
+<INPUT TYPE=hidden name=form_name VALUE=query>
+<BR>Give me a <A HREF=\"help.html\">clue</A> about how to use this form.
+</CENTER>
+</FORM>
+
+"
+
+
+if {[info exists COOKIE(Bugzilla_login)]} {
+    puts "
+<a href=relogin.cgi>Log in as someone besides <b>$COOKIE(Bugzilla_login)</b></a><br>
+<a href=changepassword.cgi>Change my password.</a><br>"
+}
+
+puts "<a href=\"enter_bug.cgi\">Create a new bug.</a><br>"
+
+}]} {
+    puts "\n\nQuery Page Error\n$errorInfo"
+    # exec /usr/lib/sendmail -t << "To: terry\n\n$errorInfo\n"
+}
diff --git a/mozilla/webtools/bugzilla/relogin.cgi b/mozilla/webtools/bugzilla/relogin.cgi
new file mode 100755
index 00000000000..e5694960404
--- /dev/null
+++ b/mozilla/webtools/bugzilla/relogin.cgi
@@ -0,0 +1,52 @@
+#! /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 <terry@mozilla.org>
+
+source CGI.tcl
+
+
+
+
+
+puts "Set-Cookie: Bugzilla_login= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT
+Set-Cookie: Bugzilla_password= ; path=/; expires=Sun, 30-Jun-80 00:00:00 GMT
+Content-type: text/html
+
+<H1>Your login has been forgotten.</H1>
+The cookie that was remembering your login is now gone.  The next time you
+do an action that requires a login, you will be prompted for it.
+<p>
+<a href=query.cgi>Back to the query page.</a>
+"
+
+exit
+
+# The below was a different way, that prompted you for a login right then.
+
+catch {unset COOKIE(Bugzilla_login)}
+catch {unset COOKIE(Bugzilla_password)}
+confirm_login
+
+puts "Content-type: text/html\n"
+puts "<H1>OK, logged in.</H1>"
+puts "You are now logged in as <b>$COOKIE(Bugzilla_login)</b>."
+puts "<p>"
+puts "<a href=query.cgi>Back to the query page.</a>"
+
diff --git a/mozilla/webtools/bugzilla/show_activity.cgi b/mozilla/webtools/bugzilla/show_activity.cgi
new file mode 100755
index 00000000000..835b740b6d1
--- /dev/null
+++ b/mozilla/webtools/bugzilla/show_activity.cgi
@@ -0,0 +1,58 @@
+#! /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 <terry@mozilla.org>
+
+source "CGI.tcl"
+puts "Content-type: text/html\n"
+
+puts "<HTML>
+<H1>Changes made to bug $FORM(id)</H1>
+"
+set query "
+        select bugs_activity.field, bugs_activity.when,
+                bugs_activity.oldvalue, bugs_activity.newvalue,
+                profiles.login_name
+        from bugs_activity,profiles
+        where bugs_activity.bug_id = $FORM(id)
+        and profiles.userid = bugs_activity.who
+        order by bugs_activity.when"
+
+ConnectToDatabase
+SendSQL $query
+
+puts "<table border cellpadding=4>"
+puts "<tr>"
+puts "    <th>Who</th><th>What</th><th>Old value</th><th>New value</th><th>When</th>"
+puts "</tr>"
+
+while { [MoreSQLData] } {
+    set value [FetchSQLData]
+    lassign $value field when old new who
+
+    puts "<tr>"
+    puts "<td>$who</td>"
+    puts "<td>$field</td>"
+    puts "<td>[value_quote $old]</td>"
+    puts "<td>[value_quote $new]</td>"
+    puts "<td>$when</td>"
+    puts "</tr>"
+}
+puts "</table>"
+puts "<hr><a href=show_bug.cgi?id=$FORM(id)>Back to bug $FORM(id)</a>"
diff --git a/mozilla/webtools/bugzilla/show_bug.cgi b/mozilla/webtools/bugzilla/show_bug.cgi
new file mode 100755
index 00000000000..5228ed3944b
--- /dev/null
+++ b/mozilla/webtools/bugzilla/show_bug.cgi
@@ -0,0 +1,44 @@
+#! /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 <terry@mozilla.org>
+
+source "CGI.tcl"
+puts "Content-type: text/html"
+puts ""
+
+
+if {[lookup FORM id] == ""} {
+  puts "<H2>Search By Bug Number</H2>"
+  puts "<FORM METHOD=GET ACTION=\"show_bug.cgi\">"
+  puts "You may find a single bug by entering its bug id here: "
+  puts "<INPUT NAME=id>"
+  puts "<INPUT TYPE=\"submit\" VALUE=\"Show Me This Bug\">"
+  puts "</FORM>"
+  exit 0
+}
+ConnectToDatabase
+
+GetVersionTable
+
+PutHeader "Bugzilla bug $FORM(id)" "Bugzilla Bug" $FORM(id)
+navigation_header
+
+puts "<HR>"
+source "bug_form.tcl"