e-smith-lib/sme7/e-smith-lib-1.18.0-UTF8.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm       2007-01-26 18:51:29.000000000 -0700
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm     2008-03-10 18:32:38.000000000 -0600
@@ -80,7 +80,7 @@
 {
     my ($q, $confref, $title, $expiry, $checkpassword) = @_;
 
-    print $q->header (-EXPIRES => $expiry);
+    print $q->header (-EXPIRES => $expiry, charset => 'UTF-8');
 
     genHeaderStartHTML ($q, "panel_main");
 
@@ -97,7 +97,7 @@
 {
     my ($q, $num) = @_;
 
-    print $q->header (-EXPIRES => '-20y');
+    print $q->header (-EXPIRES => '-20y', charset => 'UTF-8');
 
     genHeaderStartHTML ($q, "panel_nav", $num);
 }
@@ -112,7 +112,7 @@
 {
     my ($q) = @_;
 
-    print $q->header (-EXPIRES => '-20y');
+    print $q->header (-EXPIRES => '-20y', charset => 'UTF-8');
     genHeaderStartHTML ($q, "panel_main");
 }
 
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm
2			--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm 2007-01-26 18:51:29.000000000 -0700
3			+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/cgi.pm 2008-03-10 18:32:38.000000000 -0600
4			@@ -80,7 +80,7 @@
5			{
6			my ($q, $confref, $title, $expiry, $checkpassword) = @_;
7
8			- print $q->header (-EXPIRES => $expiry);
9			+ print $q->header (-EXPIRES => $expiry, charset => 'UTF-8');
10
11			genHeaderStartHTML ($q, "panel_main");
12
13			@@ -97,7 +97,7 @@
14			{
15			my ($q, $num) = @_;
16
17			- print $q->header (-EXPIRES => '-20y');
18			+ print $q->header (-EXPIRES => '-20y', charset => 'UTF-8');
19
20			genHeaderStartHTML ($q, "panel_nav", $num);
21			}
22			@@ -112,7 +112,7 @@
23			{
24			my ($q) = @_;
25
26			- print $q->header (-EXPIRES => '-20y');
27			+ print $q->header (-EXPIRES => '-20y', charset => 'UTF-8');
28			genHeaderStartHTML ($q, "panel_main");
29			}
30