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. --- defparams.pl | 4 +++ doclosebug.cgi | 53 --------------------------- edit_desc.cgi | 112 --------------------------------------------------------- 3 files changed, 4 insertions(+), 165 deletions(-) delete mode 100755 doclosebug.cgi delete mode 100755 edit_desc.cgi diff --git a/defparams.pl b/defparams.pl index 807e51310..97ef398df 100644 --- a/defparams.pl +++ b/defparams.pl @@ -36,7 +36,11 @@ sub WriteParams { chmod 0777, "data"; my $tmpname = "data/params.$$"; open(FID, ">$tmpname") || die "Can't create $tmpname"; + my $v = $::param{'version'}; + undef $::param{'version'}; # Don't write the version number out to + # the params file. print FID GenerateCode('%::param'); + $::param{'version'} = $v; print FID "1;\n"; close FID; rename $tmpname, "data/params" || die "Can't rename $tmpname to data/params"; diff --git a/doclosebug.cgi b/doclosebug.cgi deleted file mode 100755 index cfb353976..000000000 --- a/doclosebug.cgi +++ /dev/null @@ -1,53 +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" -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/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 "