#!/usr/bin/perl

@content=<STDIN>;
chomp @content;

@slide=();

@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\"
        bullet=\"../img/bullet.png\"
        screen_width=\"1024\" screen_height=\"768\">\n";

push(@content," 23");

foreach(@content) {
	s/\#.*//;
	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\" fgcolor=\"#22FF22\">$topic</header>\n<text></text>\n";
			foreach(@slide) {
				if(/^  \+ /) {
					s/\+//;
					print "<text></text>\n<listitem fgcolor=\"#ff00cc\" size=\"20\">$_</listitem>\n";
				}
				elsif(/ \+ /) {
					s/\+//;
					print "<text></text>\n<listitem size=\"20\">$_</listitem>\n";
				}
				else {
					print "<text>$_</text>\n";
				}
			}
			print "</slide>\n\n";
		}
		@slide=();
		#push(@slide,$_);
		$topic=$_;
	}
	# ueberpunkt
	elsif (/^\d/) {
		#$topic=$_;
	}
	# normaler content
	else {
		push(@slide,$_);
	}
}

print "</slides>\n";