bagder: curl-www curl.pm,1.9,1.10

Update of /cvsroot/curl/curl-www
In directory labb:/tmp/cvs-serv24859

Modified Files:
	curl.pm 
Log Message:
fix html escaping in precatfile()


Index: curl.pm
===================================================================
RCS file: /cvsroot/curl/curl-www/curl.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- curl.pm	16 Oct 2004 19:15:53 -0000	1.9
+++ curl.pm	12 May 2005 12:59:06 -0000	1.10
@@ -1,4 +1,6 @@
 
+require "CGI.pm";
+
 our $root="/userdir/dast/curl_html";
 
 sub stitle {
@@ -55,9 +57,7 @@
     open (CAT, $_[0]);
     print "<pre>\n";
     while(<CAT>) {
-        $_ =~ s/</&lt;/g;
-        $_ =~ s/>/&gt;/g;
-        print "$_";
+        print CGI::escapeHTML($_);
     }
     close(CAT);
     print "</pre>\n";

_______________________________________________
http://cool.haxx.se/mailman/listinfo/curl-www-commits