e-smith-domains/sme7/e-smith-domains-1.4.0-delete_forwarder.patch3

diff -Nur -x '*.orig' -x '*.rej' e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm mezzanine_patched_e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm
--- e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm       2007-10-26 18:45:51.000000000 -0400
+++ mezzanine_patched_e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm     2007-10-26 18:45:37.000000000 -0400
@@ -306,25 +306,26 @@
 
     my $forwarder = $q->param('Forwarder') || '';
     my $forwarder2 = $q->param('Forwarder2') || '';
+    my $dnscache = $db->get('dnscache');
 
     ($forwarder, $forwarder2) = ($forwarder2, '')
         if ($forwarder2 and not $forwarder);
 
     if ($forwarder)
     {
-       $db->set_prop('dnscache', 'Forwarder', $forwarder);
+       $dnscache->set_prop('Forwarder', $forwarder);
     }
     else
     {
-       $db->delete_prop('dnscache', 'Forwarder');
+       $dnscache->delete_prop('Forwarder');
     }
     if ($forwarder2)
     {
-       $db->set_prop('dnscache', 'Forwarder2', $forwarder2);
+       $dnscache->set_prop('Forwarder2', $forwarder2);
     }
     else
     {
-       $db->delete_prop('dnscache', 'Forwarder2');
+       $dnscache->delete_prop('Forwarder2');
     }
 
     unless ( system( "/sbin/e-smith/signal-event", "dns-update" ) == 0 )
1	diff -Nur -x '.orig' -x '.rej' e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm mezzanine_patched_e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm
2	--- e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm 2007-10-26 18:45:51.000000000 -0400
3	+++ mezzanine_patched_e-smith-domains-1.4.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/domains.pm 2007-10-26 18:45:37.000000000 -0400
4	@@ -306,25 +306,26 @@
5
6	my $forwarder = $q->param('Forwarder') \|\| '';
7	my $forwarder2 = $q->param('Forwarder2') \|\| '';
8	+ my $dnscache = $db->get('dnscache');
9
10	($forwarder, $forwarder2) = ($forwarder2, '')
11	if ($forwarder2 and not $forwarder);
12
13	if ($forwarder)
14	{
15	- $db->set_prop('dnscache', 'Forwarder', $forwarder);
16	+ $dnscache->set_prop('Forwarder', $forwarder);
17	}
18	else
19	{
20	- $db->delete_prop('dnscache', 'Forwarder');
21	+ $dnscache->delete_prop('Forwarder');
22	}
23	if ($forwarder2)
24	{
25	- $db->set_prop('dnscache', 'Forwarder2', $forwarder2);
26	+ $dnscache->set_prop('Forwarder2', $forwarder2);
27	}
28	else
29	{
30	- $db->delete_prop('dnscache', 'Forwarder2');
31	+ $dnscache->delete_prop('Forwarder2');
32	}
33
34	unless ( system( "/sbin/e-smith/signal-event", "dns-update" ) == 0 )