added header support

[lectures/dfb-slides.git] / parse.pl

diff --git a/parse.pl b/parse.pl
index fb51509..ff374bc 100755 (executable)
--- a/parse.pl
+++ b/parse.pl
@@ -21,6 +21,12 @@ print "\n<slides bgcolor=\"#222266\" fgcolor=\"#9999ff\"
         bullet=\"../img/bullet.png\"
         screen_width=\"1024\" screen_height=\"768\">\n";
 
+open(IN,"../head2xml header|") or die "no head2xml / header!!\n";
+while(<IN>) {
+       print $_;
+}
+close(IN);
+
 @topics=();
 
 foreach(@content) {