Drop base64 encoding for SVGs.

[remoteglot] / clean-svg.pl

diff --git a/clean-svg.pl b/clean-svg.pl
index c74321db4104f643237db8fd35047792e6ce145c..e102edb49bb739ba8c90d71009b1d9153c1aa36f 100644 (file)
--- a/clean-svg.pl
+++ b/clean-svg.pl
@@ -17,3 +17,10 @@ $x =~ s/<svg/\n<svg/;   # Add back newline after DOCTYPE.
 
 print $x, "\n";
 print MIME::Base64::encode_base64($x, ""), "\n";
+
+my $z = $x;
+$z =~ s/%/%25/g;
+$z =~ s/\n/%0A/g;
+$z =~ s/"/%22/g;
+$z =~ s/#/%23/g;
+print $z, "\n";