From 30b736f4c67d275b2e828da4543e65ee459786c3 Mon Sep 17 00:00:00 2001
From: hunz <hunz>
Date: Sat, 22 Mar 2003 01:21:20 +0000
Subject: [PATCH] jop

---
 parse.pl | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/parse.pl b/parse.pl
index d5695f2..a25052f 100755
--- a/parse.pl
+++ b/parse.pl
@@ -5,11 +5,18 @@ chomp @content;
 
 @slide=();
 
-print "<?xml version='1.0'?>\n";
-print "<slides effect=\"slide top left, blend\"
-        bgcolor=\"#000000\" fgcolor=\"#FFFFFF\" 
+@actions=( "slide top",
+				"slide top right",
+				"slide top left",
+				"slide bottom",
+				"slide bottom left",
+				"slide bottom right",
+				"slide left",
+				"slide right");
+
+print "<?xml version='1.0' encoding='iso-8859-1'?>\n";
+print "<slides bgcolor=\"#222266\" fgcolor=\"#9999ff\" 
         face=\"../ttf/decker.ttf\" size=\"15\"
-        bgimage=\"../img/bg.png\"
         bullet=\"../img/bullet.png\"
         screen_width=\"1024\" screen_height=\"768\">\n";
 
@@ -20,12 +27,20 @@ foreach(@content) {
 	s/&/&amp;/g;
 	s/</&lt;/;
 	s/>/&gt;/;
+	
+	#s/ue/ü/g;
+	#s/ae/ä/g;
+	#s/oe/ö/g;
+	
+	s/Ue/Ü/g;
+	s/Ae/Ä/g;
+	s/Oe/Ö/g;
 	# unterpunkt
 	if(/^ \d/) {
 		if(@slide) {
 			print "<slide>\n";
 			pop(@slide);
-			print "<header size=\"20\">$topic</header>\n<text></text>\n";
+			print "<header size=\"20\" fgcolor=\"#22FF22\">$topic</header>\n<text></text>\n";
 			foreach(@slide) {
 				if(/ \+ /) {
 					s/\+//;
-- 
2.20.1