X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=results2html;h=a5a7688e5a8b040e534be21267409628eb6f635b;hb=91958b98fac5f791b0009314e09773d21e550b4b;hp=4e3224fca3ba9589f147706469845ed5692612e0;hpb=9869b64641f5197bd495a5e62cdbb3f985adbeee;p=pspp diff --git a/results2html b/results2html index 4e3224fca3..a5a7688e5a 100755 --- a/results2html +++ b/results2html @@ -4,9 +4,13 @@ use strict; use warnings; use File::Spec; -use HTML::Entities; +use HTML::Entities qw(); use URI::Escape; +sub encode_entities { + return HTML::Entities::encode_entities($_[0], "<&>'\""); +} + my $gitweb_url = 'http://benpfaff.org/cgi-bin/gitweb.cgi?p=pspp;a=blob;f=[FILE];hb=[BRANCH]#l[LINE]'; open (LOG, '<', "LOG"); @@ -15,6 +19,7 @@ open (LOG_HTML, '>', "log.html"); print LOG_HTML < +