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

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-13 11:02:03.000000000 -0700
+++ mezzanine_patched_e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm  2007-01-13 11:01:10.000000000 -0700
@@ -506,21 +506,18 @@
     if ($self->cgi->param('action') eq 'create') {
         if ($h->new_record($hostname, \%props)) {
             if (system("/sbin/e-smith/signal-event", "host-create", $hostname) == 0) {
-
-                $self->set_status_message('SUCCESSFULLY_CREATED');
-                return;
+                return $self->success('SUCCESSFULLY_CREATED');
             }
         }
-        $self->set_status_message('ERROR_WHILE_CREATING_HOST');
+        return $self->error('ERROR_WHILE_CREATING_HOST');
     } else {
         my $record = $h->get($hostname);
         if ($record->merge_props(%props)) {
             if (system("/sbin/e-smith/signal-event", "host-modify", $hostname) == 0) {
-                $self->set_status_message('SUCCESSFULLY_MODIFIED');
-                return;
+                return $self->success('SUCCESSFULLY_MODIFIED');
             }
         }
-        $self->set_status_message('ERROR_WHILE_MODIFYING_HOST');
+        $self->error('ERROR_WHILE_MODIFYING_HOST');
     }
 }
 
@@ -558,11 +555,10 @@
     my $record = $h->get($hostname);
     if ($record->delete()) {
         if (system("/sbin/e-smith/signal-event", "host-delete", $hostname) == 0) {
-            $self->set_status_message('SUCCESSFULLY_DELETED');
-            return;
+            return $self->success('SUCCESSFULLY_DELETED');
         }
     }
-    $self->set_status_message('ERROR_WHILE_DELETING_HOST');
+    return $self->error('ERROR_WHILE_DELETING_HOST');
 }
 
 =head2 lexicon_params()
1	slords	1.1	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
2			--- e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2007-01-13 11:02:03.000000000 -0700
3			+++ mezzanine_patched_e-smith-hosts-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/hostentries.pm 2007-01-13 11:01:10.000000000 -0700
4			@@ -506,21 +506,18 @@
5			if ($self->cgi->param('action') eq 'create') {
6			if ($h->new_record($hostname, \%props)) {
7			if (system("/sbin/e-smith/signal-event", "host-create", $hostname) == 0) {
8			-
9			- $self->set_status_message('SUCCESSFULLY_CREATED');
10			- return;
11			+ return $self->success('SUCCESSFULLY_CREATED');
12			}
13			}
14			- $self->set_status_message('ERROR_WHILE_CREATING_HOST');
15			+ return $self->error('ERROR_WHILE_CREATING_HOST');
16			} else {
17			my $record = $h->get($hostname);
18			if ($record->merge_props(%props)) {
19			if (system("/sbin/e-smith/signal-event", "host-modify", $hostname) == 0) {
20			- $self->set_status_message('SUCCESSFULLY_MODIFIED');
21			- return;
22			+ return $self->success('SUCCESSFULLY_MODIFIED');
23			}
24			}
25			- $self->set_status_message('ERROR_WHILE_MODIFYING_HOST');
26			+ $self->error('ERROR_WHILE_MODIFYING_HOST');
27			}
28			}
29
30			@@ -558,11 +555,10 @@
31			my $record = $h->get($hostname);
32			if ($record->delete()) {
33			if (system("/sbin/e-smith/signal-event", "host-delete", $hostname) == 0) {
34			- $self->set_status_message('SUCCESSFULLY_DELETED');
35			- return;
36			+ return $self->success('SUCCESSFULLY_DELETED');
37			}
38			}
39			- $self->set_status_message('ERROR_WHILE_DELETING_HOST');
40			+ return $self->error('ERROR_WHILE_DELETING_HOST');
41			}
42
43			=head2 lexicon_params()