From 6a64cd597b36411fa01d681c693786750b68c92c Mon Sep 17 00:00:00 2001
From: "myk%mozilla.org" <>
Date: Tue, 5 Nov 2002 09:53:59 +0000
Subject: Fix for bug 156548: XUL implementation of duplicates report.

---
 duplicates.cgi | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'duplicates.cgi')

diff --git a/duplicates.cgi b/duplicates.cgi
index 643a54423..e95d4b02c 100755
--- a/duplicates.cgi
+++ b/duplicates.cgi
@@ -32,6 +32,18 @@ use lib qw(.);
 require "globals.pl";
 require "CGI.pl";
 
+use vars qw($buffer);
+
+# Go directly to the XUL version of the duplicates report (duplicates.xul)
+# if the user specified ctype=xul.  Adds params if they exist, and directs
+# the user to a signed copy of the script in duplicates.jar if it exists.
+if ($::FORM{'ctype'} eq "xul") {
+    my $params = CanonicaliseParams($::buffer, ["format", "ctype"]);
+    print "Location: " . (-e "duplicates.jar" ? "duplicates.jar!/" : "") . 
+          "duplicates.xul" . ($params ? "?$params" : "") . "\n\n";
+    exit;
+}
+
 # Use global templatisation variables.
 use vars qw($template $vars);
 
-- 
cgit v1.2.3-24-g4f1b