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	bytegw	1.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 )