e-smith-hosts/sme7/e-smith-hosts-1.14.0-comment.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries
--- e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries    2006-03-15 14:33:31.000000000 -0700
+++ mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries  2007-01-10 09:55:32.000000000 -0700
@@ -462,4 +462,8 @@
         <trans>Error: This IP address is not on any of our local
             networks.</trans>
     </entry>
+    <entry>
+        <base>COMMENT</base>
+        <trans>Comment</trans>
+    </entry>
 </lexicon>
diff -Nur -x '*.orig' -x '*.rej' e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries
--- e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries     2006-03-15 14:33:31.000000000 -0700
+++ mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries   2007-01-10 09:54:54.000000000 -0700
@@ -87,6 +87,11 @@
         <title>CREATE_TITLE</title>
         <subroutine src="print_hostname_field()" />
         <subroutine src="print_domain_field()" />
+        <field  
+            type="text" size="30"
+            id="comment" >
+            <label>COMMENT</label>
+        </field> 
         <field type="select" 
             id="hosttype" 
             options="'Self' => 'SELF', 'Local' => 'LOCAL', 'Remote' => 'REMOTE'" 
diff -Nur -x '*.orig' -x '*.rej' e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm mezzanine_patched_e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
--- e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm    2007-01-10 09:56:07.000000000 -0700
+++ mezzanine_patched_e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm  2007-01-10 09:53:49.000000000 -0700
@@ -153,6 +153,7 @@
             esmith::cgi::genSmallCell($q, $self->localise('LOCATION'),"header"),
             esmith::cgi::genSmallCell($q, $self->localise('IP_ADDRESS'),"header"),
             esmith::cgi::genSmallCell($q, $self->localise('ETHERNET_ADDRESS'),"header"),
+            esmith::cgi::genSmallCell($q, $self->localise('COMMENT'),"header"),
             esmith::cgi::genSmallCell($q, $self->localise('ACTION'),"header",2));
             $self->print_host_row($_) foreach @hosts;
             print $q->end_table, "\n";
@@ -202,6 +203,7 @@
     $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;");
     my $static = $host_record->prop('static') || "no";
     if ($static ne 'yes') {
         my $propstring = $self->build_host_cgi_params($host_record->key(), $host_record->props());
@@ -245,6 +247,7 @@
         global_ip        => $oldprops{ExternalIP},
         ethernet_address => $oldprops{MACAddress},
         hosttype         => $oldprops{HostType},
+        comment          => $oldprops{Comment},
     );
 
     return $self->props_to_query_string(\%props);
@@ -438,7 +441,7 @@
     }
 
     foreach my $f (qw( name domain hosttype local_ip global_ip
-    ethernet_address) ) {
+    ethernet_address comment) ) {
         my $val = $self->cgi->param($f) || '';
         $self->debug_msg("looping on param $f, val is $val");
         print $q->Tr (esmith::cgi::genSmallCell($q, $self->localise(uc($f)),"normal"),
@@ -497,6 +500,7 @@
         ExternalIP  => $self->cgi->param('global_ip') || "",
         InternalIP  => $self->cgi->param('local_ip') || "",
         MACAddress  => $self->cgi->param('ethernet_address') || "",
+        Comment     => $self->cgi->param('comment') || "",
     );
 
     if ($self->cgi->param('action') eq 'create') {
1	slords	1.1	diff -Nur -x '.orig' -x '.rej' e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries
2			--- e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries 2006-03-15 14:33:31.000000000 -0700
3			+++ mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/locale/en-us/etc/e-smith/web/functions/hostentries 2007-01-10 09:55:32.000000000 -0700
4			@@ -462,4 +462,8 @@
5			<trans>Error: This IP address is not on any of our local
6			networks.</trans>
7			</entry>
8			+ <entry>
9			+ <base>COMMENT</base>
10			+ <trans>Comment</trans>
11			+ </entry>
12			</lexicon>
13			diff -Nur -x '.orig' -x '.rej' e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries
14			--- e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries 2006-03-15 14:33:31.000000000 -0700
15			+++ mezzanine_patched_e-smith-hosts-1.14.0/root/etc/e-smith/web/functions/hostentries 2007-01-10 09:54:54.000000000 -0700
16			@@ -87,6 +87,11 @@
17			<title>CREATE_TITLE</title>
18			<subroutine src="print_hostname_field()" />
19			<subroutine src="print_domain_field()" />
20			+ <field
21			+ type="text" size="30"
22			+ id="comment" >
23			+ <label>COMMENT</label>
24			+ </field>
25			<field type="select"
26			id="hosttype"
27			options="'Self' => 'SELF', 'Local' => 'LOCAL', 'Remote' => 'REMOTE'"
28			diff -Nur -x '.orig' -x '.rej' e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm mezzanine_patched_e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm
29			--- e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2007-01-10 09:56:07.000000000 -0700
30			+++ mezzanine_patched_e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2007-01-10 09:53:49.000000000 -0700
31			@@ -153,6 +153,7 @@
32			esmith::cgi::genSmallCell($q, $self->localise('LOCATION'),"header"),
33			esmith::cgi::genSmallCell($q, $self->localise('IP_ADDRESS'),"header"),
34			esmith::cgi::genSmallCell($q, $self->localise('ETHERNET_ADDRESS'),"header"),
35			+ esmith::cgi::genSmallCell($q, $self->localise('COMMENT'),"header"),
36			esmith::cgi::genSmallCell($q, $self->localise('ACTION'),"header",2));
37			$self->print_host_row($_) foreach @hosts;
38			print $q->end_table, "\n";
39			@@ -202,6 +203,7 @@
40			$self->print_td($self->localise($host_record->prop('HostType')) \|\| " ");
41			$self->print_td($ip);
42			$self->print_td($host_record->prop('MACAddress') \|\| " ");
43			+ $self->print_td($host_record->prop('Comment') \|\| " ");
44			my $static = $host_record->prop('static') \|\| "no";
45			if ($static ne 'yes') {
46			my $propstring = $self->build_host_cgi_params($host_record->key(), $host_record->props());
47			@@ -245,6 +247,7 @@
48			global_ip => $oldprops{ExternalIP},
49			ethernet_address => $oldprops{MACAddress},
50			hosttype => $oldprops{HostType},
51			+ comment => $oldprops{Comment},
52			);
53
54			return $self->props_to_query_string(\%props);
55			@@ -438,7 +441,7 @@
56			}
57
58			foreach my $f (qw( name domain hosttype local_ip global_ip
59			- ethernet_address) ) {
60			+ ethernet_address comment) ) {
61			my $val = $self->cgi->param($f) \|\| '';
62			$self->debug_msg("looping on param $f, val is $val");
63			print $q->Tr (esmith::cgi::genSmallCell($q, $self->localise(uc($f)),"normal"),
64			@@ -497,6 +500,7 @@
65			ExternalIP => $self->cgi->param('global_ip') \|\| "",
66			InternalIP => $self->cgi->param('local_ip') \|\| "",
67			MACAddress => $self->cgi->param('ethernet_address') \|\| "",
68			+ Comment => $self->cgi->param('comment') \|\| "",
69			);
70
71			if ($self->cgi->param('action') eq 'create') {