Quote URLs and email addresses in the long description of bugs.

diff --git a/CHANGES b/CHANGES
index 7128e0ebb26a07dfee7f983a6248589d1d7cb414..961b9682ff7eaba9e2350046ef0f91ec7a7a6b6c 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -10,6 +10,11 @@ query the CVS tree.  For example,
 will tell you what has been changed in the last week.
 
 
+3/24/99 Added quoting of URLs and email addresses in bug descriptions.  This
+requires the use of the HTML::FromText CPAN module, which can be downloaded
+from ftp://ftp.cpan.org/pub/perl/CPAN/modules/by-module/HTML/.
+
+
 3/22/99 Added the ability to query by fields which have changed within a date
 range.  To make this perform a bit better, we need a new index:
 

diff --git a/README b/README
index 8aab09394d08898903a6e5d89682e317fe389312..30c5c0cb6c54f5da32e00b75b52ad7975a4c038d 100644 (file)
--- a/README
+++ b/README
@@ -161,7 +161,12 @@ It can be installed in the usual fashion after it has been fetched from
 CPAN where it is found as the Chart-x.x... tarball in a directory to be
 listed in Appendix A.
 
-1.9. HTTP server
+1.9.  HTML::FromText Perl module (1.001 or greater)
+
+This module does conversion from plaintext to html, doing the right
+things with URLs and stuff.  You can find it on CPAN (link in Appendix A).
+
+1.10. HTTP server
 
    You have a freedom of choice here - Apache, Netscape or any other server on
 UNIX would do. The only thing - to make configuration easier you'd better run
@@ -370,6 +375,8 @@ GD Perl module: ftp://ftp.cpan.org/pub/perl/CPAN/modules/by-module/GD/
 Chart::Base module:
        ftp://ftp.cpan.org/pub/perl/CPAN/modules/by-module/Chart/
 
+HTML::FromText module:
+       ftp://ftp.cpan.org/pub/perl/CPAN/modules/by-module/HTML/
 
 Appendix B. Modifying Your Running System
 

diff --git a/bug_form.pl b/bug_form.pl
index cd2ff0e331ae14139c9aa7499fb752f80feb6861..e8bc30ec3fba47de67f66a6661d9d9808cdf43f6 100644 (file)
--- a/bug_form.pl
+++ b/bug_form.pl
@@ -21,6 +21,8 @@
 use diagnostics;
 use strict;
 
+use HTML::FromText;
+
 quietly_check_login();
 
 my $query = "
@@ -306,7 +308,9 @@ print "
 <td align=right>Opened:&nbsp;$bug{'creation_ts'}</td></tr></table>
 <HR>
 <PRE>
-" . html_quote($bug{'long_desc'}) . "
+";
+print text2html($bug{'long_desc'}, email=>1, urls=>1);
+print "
 </PRE>
 <HR>\n";