From 7eb3e626e9d7680ff5598fc7fdb30a801bb10e2b Mon Sep 17 00:00:00 2001
From: Bill Fenner <fenner@FreeBSD.org>
Date: Wed, 19 Mar 1997 21:25:29 +0000
Subject: [PATCH] Properly quote the synopsis and email address to create a
 legal 	mtailto: URL.

---
 data/cgi/query-pr.cgi | 7 +++++--
 en/cgi/query-pr.cgi   | 7 +++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/data/cgi/query-pr.cgi b/data/cgi/query-pr.cgi
index 6c57fffb08..4b9b0eb204 100755
--- a/data/cgi/query-pr.cgi
+++ b/data/cgi/query-pr.cgi
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: query-pr.cgi,v 1.3 1996-12-17 17:12:00 fenner Exp $
+# $Id: query-pr.cgi,v 1.4 1997-03-19 21:25:29 fenner Exp $
 
 $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
 
@@ -122,7 +122,10 @@ close(Q);
 
 print "$trailer\n</dl>";
 
-print "<A HREF=\"mailto:freebsd-gnats-submit@freebsd.org,${email}?subject=Re: ${cat}/${number}: $syn\">Submit Followup</A>";
+$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
+$email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg;
+
+print "<A HREF=\"mailto:freebsd-gnats-submit@freebsd.org,${email}?subject=Re: ${cat}/${number}: $syn\">Submit Followup</A>\n";
 
 print &html_footer;
 
diff --git a/en/cgi/query-pr.cgi b/en/cgi/query-pr.cgi
index 6c57fffb08..4b9b0eb204 100755
--- a/en/cgi/query-pr.cgi
+++ b/en/cgi/query-pr.cgi
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: query-pr.cgi,v 1.3 1996-12-17 17:12:00 fenner Exp $
+# $Id: query-pr.cgi,v 1.4 1997-03-19 21:25:29 fenner Exp $
 
 $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
 
@@ -122,7 +122,10 @@ close(Q);
 
 print "$trailer\n</dl>";
 
-print "<A HREF=\"mailto:freebsd-gnats-submit@freebsd.org,${email}?subject=Re: ${cat}/${number}: $syn\">Submit Followup</A>";
+$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
+$email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg;
+
+print "<A HREF=\"mailto:freebsd-gnats-submit@freebsd.org,${email}?subject=Re: ${cat}/${number}: $syn\">Submit Followup</A>\n";
 
 print &html_footer;