# end of main
sub display {
- print "Content-type: text/xml; charset=iso-8859-1\n\n";
+ print $form->create_http_response('content_type' => 'text/xml',
+ 'charset' => 'iso-8859-1');
print qq|<?xml version="1.0" encoding="iso-8859-1"?>\n|;
print qq|<?xml-stylesheet href="xslt/xulmenu.xsl" type="text/xsl"?>\n|;
print qq|<!DOCTYPE doc [
<!ENTITY szlig "ß">
+<!ENTITY auml "ä">
+<!ENTITY uuml "ü">
+<!ENTITY ouml "ö">
]>|;
print qq|<doc>|;
- print qq|<login>|;
- print $form->{login};
- print qq|</login>|;
- print qq|<password>|;
- print $form->{password};
- print qq|</password>|;
print qq|<name>|;
print %myconfig->{name};
print qq|</name>|;