From 43947610c2a08c927d0a0dfde3323ba09562d92c Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Wed, 14 Oct 1998 05:27:11 +0000 Subject: Removed some files that aren't used by anything. --- edit_desc.cgi | 112 ---------------------------------------------------------- 1 file changed, 112 deletions(-) delete mode 100755 edit_desc.cgi (limited to 'edit_desc.cgi') 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 - -source "CGI.tcl" -confirm_login - -puts "Content-type: text/html\n" -ConnectToDatabase -if {[info exists FORM(commit)]} { - puts "Changing Long Description for bug [FormData id]" - 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 "

Long Description Changed

" - puts "