From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Fri, 14 Aug 2020 15:22:20 +0000 (+0100)
Subject: history reporting (nfc): Break out $url_ok_chars
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=409ab9af0d3d7dd52bbd667eb4a7a8530f0a4ff8;p=osstest.git

history reporting (nfc): Break out $url_ok_chars

We will want this in a moment.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---

diff --git a/Osstest/HistoryReport.pm b/Osstest/HistoryReport.pm
index f8a4995..75ec75f 100644
--- a/Osstest/HistoryReport.pm
+++ b/Osstest/HistoryReport.pm
@@ -45,6 +45,8 @@ BEGIN {
 
 use POSIX;
 
+our $url_ok_chars = '-+=/~:;_.,\w';
+
 our @key_cols;
 
 our $taskprint='';
@@ -163,7 +165,7 @@ sub url_unquote ($) {
 
 sub url_quote ($) {
     local ($_) = "$_[0]";
-    s{[^-+=/~:;_.,\w]}{ sprintf "%%%02x", ord $& }ge;
+    s{[^$url_ok_chars]}{ sprintf "%%%02x", ord $& }ge;
     $_;
 }