diff --git a/html/cgi-bin/loxilb.cgi b/html/cgi-bin/loxilb.cgi index 01723ab30..e50ac5b1f 100644 --- a/html/cgi-bin/loxilb.cgi +++ b/html/cgi-bin/loxilb.cgi @@ -457,13 +457,24 @@ sub manageIP { } +sub SaveIP { + my @save_options; + my $command = 'loxicmd'; + my $dir="/var/ipfire/loxilb/"; + push(@save_options, "save", "--ip", "-c", $dir); + &General::system_output($command, @save_options); + #my @output = &General::system_output($command, @save_options); + #$errormessage = join('', @output); +} + sub CreateIP { my (%settings) = @_; manageIP("create", %settings); + &SaveIP; } sub DeleteIP { my (%settings) = @_; manageIP("delete", %settings); + &SaveIP; } - diff --git a/html/cgi-bin/loxilbconfig.cgi b/html/cgi-bin/loxilbconfig.cgi index eafd3b80d..4fd466379 100644 --- a/html/cgi-bin/loxilbconfig.cgi +++ b/html/cgi-bin/loxilbconfig.cgi @@ -650,6 +650,16 @@ sub SortDataFile close (FILE); } +sub SaveLB { + my @save_options; + my $command = 'loxicmd'; + my $dir="/var/ipfire/loxilb/"; + push(@save_options, "save", "--lb", "-c", $dir); + &General::system_output($command, @save_options); + #my @output = &General::system_output($command, @save_options); + #$errormessage = join('', @output); +} + # # Build the configuration file # @@ -686,6 +696,7 @@ sub CreateLB { push(@loxicmd_options, "--monitor"); } &General::system($command, @loxicmd_options); + &SaveLB; } sub DeleteLB { @@ -696,4 +707,5 @@ sub DeleteLB { push(@loxicmd_options, "delete", "lb"); push(@loxicmd_options, "$name"); &General::system($command, @loxicmd_options); + &SaveLB; } diff --git a/html/cgi-bin/loxilbfw.cgi b/html/cgi-bin/loxilbfw.cgi index 04dd56464..b595a71d7 100644 --- a/html/cgi-bin/loxilbfw.cgi +++ b/html/cgi-bin/loxilbfw.cgi @@ -630,13 +630,24 @@ sub manageFW { } } +sub SaveFW { + my @save_options; + my $command = 'loxicmd'; + my $dir="/var/ipfire/loxilb/"; + push(@save_options, "save", "--firewall", "-c", $dir); + &General::system_output($command, @save_options); + #my @output = &General::system_output($command, @save_options); + #$errormessage = join('', @output); +} + sub CreateFW { my (%settings) = @_; manageFW("create", %settings); + &SaveFW; } sub DeleteFW { my (%settings) = @_; manageFW("delete", %settings); + &SaveFW; } -