From b9cbb5f37093ec07716d26247b8f744214ed978e Mon Sep 17 00:00:00 2001
From: Arnaud Legrand <arnaud.legrand@imag.fr>
Date: Thu, 21 Mar 2019 16:06:25 +0100
Subject: [PATCH] Fix relative url images so that they point to gitlab origin.

---
 bin/pandoc_fixer.pl | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/bin/pandoc_fixer.pl b/bin/pandoc_fixer.pl
index d6eb187..1cd010f 100755
--- a/bin/pandoc_fixer.pl
+++ b/bin/pandoc_fixer.pl
@@ -20,6 +20,12 @@ $input =~ s/.md/.html/;
 
 open INPUT, $input or die;
 
+my($input_path)=$input;
+$input_path =~ s|/[^/]*$||g;
+# print $input."\n\n";
+my($url_path) = "https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/blob/master/".$input_path;
+
+
 while(defined($line=<INPUT>)) {
     $line =~ s|https://gitlab.inria.fr/learninglab/|https://learninglab.gitlabpages.inria.fr/|g; ## Not such a good idea!
     if($input=~ /_fr.html/) {
@@ -31,7 +37,14 @@ while(defined($line=<INPUT>)) {
     $line =~ s|Date:.*<br|<i>Date: $gitdate</i><br|g;
     $line =~ s|<p>TITLE:\(.*\)<br|<b>TITLE:$1</b><br|g;
     $line =~ s|href=" ---</p>|<hr/>|g;
-    
+
+    $line =~ s|img src="http|img src="%|g;
+    $line =~ s|img src="([^%][^"]*)"|img src="$url_path/$1"|g;
+    $line =~ s|img src="%|img src="http|g;
+
+    # if($line =~ /img src="([^%][^"]*)"/) {
+    # 	$line = "\t".$line;
+    # }
     if($line =~ /<p>AUTHOR:/) { next; }
     print $line;
 }
-- 
2.18.1