e-smith-hosts/sme8/e-smith-hosts-2.2.0-fix-speechmarks2.patch

diff -up e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.fix-speechmark e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
--- e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.fix-speechmark      2010-11-29 18:05:49.000000000 +0100
+++ e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm     2010-11-29 18:10:36.000000000 +0100
@@ -33,6 +33,7 @@ use File::Basename;
 use Exporter;
 use Carp;
 use Net::IPv4Addr;
+use HTML::Entities;
 
 our @ISA = qw(esmith::FormMagick Exporter);
 
@@ -245,7 +246,7 @@ sub print_host_row 
     $self->print_td($self->localise($host_record->prop('HostType')) || "&nbsp;");
     $self->print_td($ip);
     $self->print_td($host_record->prop('MACAddress') || "&nbsp;");
-    $self->print_td($host_record->prop('Comment') || "&nbsp;");
+    $self->print_td(encode_entities($host_record->prop('Comment')) || "&nbsp;");
     my $static = $host_record->prop('static') || "no";
     if ($static ne 'yes') {
         my $propstring = $self->build_host_cgi_params($host_record->key(), $host_record->props());
@@ -289,7 +290,7 @@ sub build_host_cgi_params {
         global_ip        => $oldprops{ExternalIP},
         ethernet_address => $oldprops{MACAddress},
         hosttype         => $oldprops{HostType},
-        comment          => $oldprops{Comment},
+        comment          => encode_entities($oldprops{Comment}),
     );
 
     return $self->props_to_query_string(\%props);
1	diff -up e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.fix-speechmark e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
2	--- e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm.fix-speechmark 2010-11-29 18:05:49.000000000 +0100
3	+++ e-smith-hosts-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2010-11-29 18:10:36.000000000 +0100
4	@@ -33,6 +33,7 @@ use File::Basename;
5	use Exporter;
6	use Carp;
7	use Net::IPv4Addr;
8	+use HTML::Entities;
9
10	our @ISA = qw(esmith::FormMagick Exporter);
11
12	@@ -245,7 +246,7 @@ sub print_host_row
13	$self->print_td($self->localise($host_record->prop('HostType')) \|\| " ");
14	$self->print_td($ip);
15	$self->print_td($host_record->prop('MACAddress') \|\| " ");
16	- $self->print_td($host_record->prop('Comment') \|\| " ");
17	+ $self->print_td(encode_entities($host_record->prop('Comment')) \|\| " ");
18	my $static = $host_record->prop('static') \|\| "no";
19	if ($static ne 'yes') {
20	my $propstring = $self->build_host_cgi_params($host_record->key(), $host_record->props());
21	@@ -289,7 +290,7 @@ sub build_host_cgi_params {
22	global_ip => $oldprops{ExternalIP},
23	ethernet_address => $oldprops{MACAddress},
24	hosttype => $oldprops{HostType},
25	- comment => $oldprops{Comment},
26	+ comment => encode_entities($oldprops{Comment}),
27	);
28
29	return $self->props_to_query_string(\%props);