os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

When creating the "Submit Followup" link, be more aggressive about

Browse source 
url-encoding unsafe characters.  Instead of a comparing against a list
of unsafe characters, compare against an inverted list of safe characters.
Specifically fixes " " spaces in urls, but probably others, too.

Make the url-encoding that did already exist work.
This commit is contained in:
Tim Vanderhoek 1999-08-06 05:58:14 +00:00
parent af25585d88
commit 90816a2088
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=5331
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
en/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.15 1998-07-01 10:30:47 wosch Exp $
# $Id: query-pr.cgi,v 1.16 1999-08-06 05:58:14 hoek Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -157,10 +157,10 @@ close(Q);
print "$trailer\n" unless ($blank);
print "</dl>";
$origsyn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$origsyn =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg;
$email =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg;
print "<A HREF=\"mailto:freebsd-gnats-submit\@freebsd.org,${email}?subject=Re: ${cat}/${number}: $origsyn\">Submit Followup</A>\n";
print "<A HREF=\"mailto:freebsd-gnats-submit\@freebsd.org,${email}?subject=Re:%20${cat}/${number}:%20$origsyn\">Submit Followup</A>\n";
print &html_footer;