* content-type charset method

svn path=/trunk/; revision=16841
2010-09-15 07:47:19 +00:00
parent d8ca1db8e4
commit a1eebf3fd3
2 changed files with 9 additions and 1 deletions
--- a/cgi-bin/pdfcontest.pl
+++ b/cgi-bin/pdfcontest.pl
@@ -90,4 +90,4 @@ my $output = <<'EOF';
 EOF

 $content->content ($output);
-$content->render
+$content->render_utf8
--- a/tools/WebBuild/DynamicContent.pm
+++ b/tools/WebBuild/DynamicContent.pm
@@ -73,5 +73,13 @@ sub render {
  print "\n";
 }

+sub render_utf8 {
+  my $self = shift;
+
+  print "Content-type: text/html; charset=utf-8\n\n";
+  print $self->{output};
+  print "\n";
+}
+
 1;