From 211022b110ff8aaea0da5519a40cc870266867e9 Mon Sep 17 00:00:00 2001
From: Arnaud Legrand <arnaud.legrand@imag.fr>
Date: Thu, 2 Aug 2018 15:22:40 +0200
Subject: [PATCH] Convenient script to inline images in html files.

---
 module2/ressources/Makefile            |  2 +-
 module2/ressources/html_png_inliner.pl | 17 +++++++++++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100755 module2/ressources/html_png_inliner.pl
diff --git a/module2/ressources/Makefile b/module2/ressources/Makefile
index 1c863bd..566e2cc 100644
--- a/module2/ressources/Makefile
+++ b/module2/ressources/Makefile
@@ -8,5 +8,5 @@ NLINES=10000000
 	       -e 's/<li>/<li style="margin-bottom:0;">/g' \
 	       -e 's/<ul>/<ul style="margin:0 0;">/g' $@
 	mv $@ $@.bak
-	cat $@.bak | grep -A $(NLINES) -e '<body>' | grep -B $(NLINES) -e '<div id="postamble" class="status">' | grep -v -e '<body>' -e '<div id="postamble" class="status">' > $@
+	html_png_inliner.pl < $@.bak | grep -A $(NLINES) -e '<body>' | grep -B $(NLINES) -e '<div id="postamble" class="status">' | grep -v -e '<body>' -e '<div id="postamble" class="status">' > $@
 	rm $@.bak
diff --git a/module2/ressources/html_png_inliner.pl b/module2/ressources/html_png_inliner.pl
new file mode 100755
index 0000000..2dcbe1f
--- /dev/null
+++ b/module2/ressources/html_png_inliner.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+use strict;
+
+my($line);
+while(defined($line=<STDIN>)) {
+     if($line =~ /^(.*)<img *src="([^"]*)"(.*)$/g) {
+        my($pre,$image,$post) = ($1,$2,$3);
+	$image =~ s|file://||;
+#        print "$image\n";
+        my $base64=`base64 -w 0 $image`;
+        my $format=$image;
+        $format =~ s/.*\.//g;
+        print $pre."<img src=\"data:image/$format;base64,".$base64.'"'.$post;
+     } else {
+        print $line;
+     }
+}
-- 
2.18.1

