diff options
author | terry%netscape.com <> | 1998-10-14 07:27:11 +0200 |
---|---|---|
committer | terry%netscape.com <> | 1998-10-14 07:27:11 +0200 |
commit | 43947610c2a08c927d0a0dfde3323ba09562d92c (patch) | |
tree | 077a384ebe98c09715322bfd257acada5df6fa78 /edit_desc.cgi | |
parent | 6c945024aa55250af7337e5cc04bcfecdc5147e9 (diff) | |
download | bugzilla-43947610c2a08c927d0a0dfde3323ba09562d92c.tar.gz bugzilla-43947610c2a08c927d0a0dfde3323ba09562d92c.tar.xz |
Removed some files that aren't used by anything.
Diffstat (limited to 'edit_desc.cgi')
-rwxr-xr-x | edit_desc.cgi | 112 |
1 files changed, 0 insertions, 112 deletions
diff --git a/edit_desc.cgi b/edit_desc.cgi deleted file mode 100755 index 7f386b894..000000000 --- a/edit_desc.cgi +++ /dev/null @@ -1,112 +0,0 @@ -#! /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>" |