| 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 ) |
Parent Directory
| 
Revision Log
| 
Revision Graph
