Bug 201816 - use CGI.pm for header output

r=joel, a=justdave

1 files changed, 6 insertions, 2 deletions

diff --git a/describecomponents.cgi b/describecomponents.cgi
index bdb824b82..ff7f46ac8 100755
--- a/describecomponents.cgi
+++ b/describecomponents.cgi
@@ -31,6 +31,8 @@ use strict;
 
 use lib qw(.);
 
+use Bugzilla;
+
 require "CGI.pl";
 
 ConnectToDatabase();
@@ -38,6 +40,8 @@ quietly_check_login();
 
 GetVersionTable();
 
+my $cgi = Bugzilla->cgi;
+
 if (!defined $::FORM{'product'}) {
     # Reference to a subset of %::proddesc, which the user is allowed to see
     my %products;
@@ -63,7 +67,7 @@ if (!defined $::FORM{'product'}) {
         $::vars->{'proddesc'} = \%products;
         $::vars->{'target'} = "describecomponents.cgi";
 
-        print "Content-type: text/html\n\n";
+        print $cgi->header();
         $::template->process("global/choose-product.html.tmpl", $::vars)
           || ThrowTemplateError($::template->error());
         exit;
@@ -118,7 +122,7 @@ while (MoreSQLData()) {
 $::vars->{'product'} = $product;
 $::vars->{'components'} = \@components;
 
-print "Content-type: text/html\n\n";
+print $cgi->header();
 $::template->process("reports/components.html.tmpl", $::vars)
   || ThrowTemplateError($::template->error());