fix url of dtd

diff --git a/export_bug.cgi b/export_bug.cgi
index bc086a6164cb2eeaa013a0d915f16947f1ce881f..d7421c3213c5d0ff893680e014605df529835be5 100755 (executable)
--- a/export_bug.cgi
+++ b/export_bug.cgi
@@ -25,7 +25,7 @@ use diagnostics;
 use strict;
 use RelationSet;
 use XML::Dumper;
-#use vars %::COOKIE;
+use vars %::COOKIE;
 require "CGI.pl";
 
 #$::lockcount = 0;
@@ -277,12 +277,17 @@ sub Unlock {
 }
 
 my $xml;
+my $urlbase = Param("urlbase");
 $xml = "<?xml version=\"1.0\" standalone=\"no\"?>\n";
-$xml .= "<!DOCTYPE bugzilla SYSTEM \"" . Param("urlbase") . "\">\n";
+$xml .= "<!DOCTYPE bugzilla SYSTEM \"$urlbase";
+if (! ($urlbase =~ /.+\/$/)) {
+  $xml .= "/";
+}
+$xml .= "bugzilla.dtd\">\n";
 $xml .= "<bugzilla";
 $xml .= " exporter=\"$exporter\"";
 $xml .= " version=\"$::param{'version'}\"";
-$xml .= " urlbase=\"" . Param("urlbase") . "\"";
+$xml .= " urlbase=\"$urlbase\"";
 $xml .= " maintainer=\"" . Param("maintainer") ."\">\n";
 $xml .= "<bug>\n";