#!/usr/bin/perl -n
BEGIN {
- ($topdir=$0) =~ s{doclib/.*$}{};
- print $topdir,"\n";
+ ($libdir=$0) =~ s{/[^/]*$}{};
}
s/\s*$//;
$i=length($1) if /^(\s*)<pre class="fragment">$/;
print substr($_,$i),"\n";
}
+elsif (/\\diaimage\s+(\S+)/) {
+ $dia=$1;
+ ($png=$dia)=~s/\.dia$/.png/;
+ system("python $libdir/makeDiaImageMap.py $dia");
+}
else {
print $_,"\n";
}