diff --git a/config/rootfiles/common/web-user-interface b/config/rootfiles/common/web-user-interface index e0d8d6531..5f4b7fe5e 100644 --- a/config/rootfiles/common/web-user-interface +++ b/config/rootfiles/common/web-user-interface @@ -92,6 +92,7 @@ srv/web/ipfire/cgi-bin/wlanap.cgi srv/web/ipfire/cgi-bin/zoneconf.cgi srv/web/ipfire/cgi-bin/ddos.cgi srv/web/ipfire/cgi-bin/loxilb.cgi +srv/web/ipfire/cgi-bin/loxilbconfig.cgi #srv/web/ipfire/html srv/web/ipfire/html/blob.gif #srv/web/ipfire/html/captive diff --git a/html/cgi-bin/loxilbconfig.cgi b/html/cgi-bin/loxilbconfig.cgi new file mode 100644 index 000000000..9e543d58b --- /dev/null +++ b/html/cgi-bin/loxilbconfig.cgi @@ -0,0 +1,554 @@ +#!/usr/bin/perl +############################################################################### +# # +# IPFire.org - A linux based firewall # +# Copyright (C) 2007-2011 IPFire Team # +# Copyright (C) 2024 BPFire Team # +# # +# This program is free software: you can redistribute it and/or modify # +# it under the terms of the GNU General Public License as published by # +# the Free Software Foundation, either version 3 of the License, or # +# (at your option) any later version. # +# # +# This program is distributed in the hope that it will be useful, # +# but WITHOUT ANY WARRANTY; without even the implied warranty of # +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # +# GNU General Public License for more details. # +# # +# You should have received a copy of the GNU General Public License # +# along with this program. If not, see . # +# # +############################################################################### + +use strict; + +# enable only the following on debugging purpose +use warnings; +#use CGI::Carp 'fatalsToBrowser'; + +require '/var/ipfire/general-functions.pl'; +require "${General::swroot}/lang.pl"; +require "${General::swroot}/header.pl"; + +#workaround to suppress a warning when a variable is used only once +my @dummy = ( ${Header::colouryellow} ); +undef (@dummy); + +# Files used +my $setting = "${General::swroot}/main/settings"; +our $datafile = "${General::swroot}/loxilb/lbconfig"; #(our: used in subroutine) + +my %color = (); +my %mainsettings = (); +&General::readhash("${General::swroot}/main/settings", \%mainsettings); +&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color); + +our %settings = (); + +$settings{'EN'} = ''; # reuse for dummy field in position zero +$settings{'NAME'} = ''; +$settings{'EXTIP'} = ''; +$settings{'PORT'} = ''; +$settings{'PROTO'} = ''; +$settings{'SEL'} = ''; +$settings{'MODE'} = ''; +$settings{'ENDPOINTS'} = ''; +$settings{'EPORT'} = ''; +my @nosaved=('EN','NAME','EXTIP','PORT','PROTO','SEL','MODE','ENDPOINTS','EPORT'); # List here ALL setting2 fields. Mandatory + +$settings{'ACTION'} = ''; # add/edit/remove +$settings{'KEY1'} = ''; # point record for ACTION + +#Define each field that can be used to sort columns +my $sortstring='^NAME'; +$settings{'SORT_NAMELIST'} = 'NAME'; +my $errormessage = ''; +my $warnmessage = ''; + +&Header::showhttpheaders(); + +#Get GUI values +&Header::getcgihash(\%settings); + +############### +# DEBUG DEBUG +#&Header::openbox('100%', 'left', 'DEBUG'); +#my $debugCount = 0; +#foreach my $line (sort keys %settings) { +#print "$line = $settings{$line}
\n"; +# $debugCount++; +#} +#print " Count: $debugCount\n"; +#&Header::closebox(); +# DEBUG DEBUG +############### + +# Load multiline data +our @current = (); +if (open(FILE, "$datafile")) { + @current = ; + close (FILE); +} + +## Settings1 Box not used... +&General::readhash("${General::swroot}/main/settings", \%settings); + + +## Now manipulate the multi-line list with Settings2 +# Basic actions are: +# toggle the check box +# add/update a new line +# begin editing a line +# remove a line + + +# Toggle enable/disable field. Field is in second position +if ($settings{'ACTION'} eq $Lang::tr{'toggle enable disable'}) { + #move out new line + chomp(@current[$settings{'KEY1'}]); + my @temp = split(/\,/,@current[$settings{'KEY1'}]); + + $temp[0] = $temp[0] ne '' ? '' : 'on'; # Toggle the field + @current[$settings{'KEY1'}] = join (',',@temp)."\n"; + $settings{'KEY1'} = ''; # End edit mode + + &General::log($Lang::tr{'loxilb lb config changed'}); + + #Save current + open(FILE, ">$datafile") or die 'loxilb lbconfig datafile error'; + print FILE @current; + close(FILE); + + # Rebuild configuration file + #&BuildConfiguration; +} + +if ($settings{'ACTION'} eq $Lang::tr{'add'}) { + # Validate inputs + if (!&General::validip($settings{'EXTIP'})){ + $errormessage = $Lang::tr{'invalid ip'}; + } + + if ($settings{'EXTIP'} =~ /^0\.0\.0\.0/){ + $errormessage = $Lang::tr{'invalid ip'}." - 0.0.0.0"; + } + + # Escape input in REMARK field + $settings{'NAME'} = &Header::escape($settings{'NAME'}); + + #Check for already existing routing entry + foreach my $line (@current) { + chomp($line); # remove newline + my @temp=split(/\,/,$line); + $temp[2] ='' unless defined $temp[2]; # not always populated + $temp[3] ='' unless defined $temp[2]; # not always populated + $temp[4] ='' unless defined $temp[3]; # not always populated + $temp[5] ='' unless defined $temp[4]; # not always populated + $temp[6] ='' unless defined $temp[5]; # not always populated + $temp[7] ='' unless defined $temp[6]; # not always populated + $temp[8] ='' unless defined $temp[7]; # not always populated + #Same ip already used? + if($temp[1] eq $settings{'NAME'} && $settings{'KEY1'} eq ''){ + $errormessage = $Lang::tr{'ccd err loxilbconfigeexist'}; + last; + } + } + + unless ($errormessage) { + if ($settings{'KEY1'} eq '') { #add or edit ? + unshift (@current, "$settings{'EN'},$settings{'NAME'},$settings{'EXTIP'},$settings{'PORT'},$settings{'PROTO'},$settings{'SEL'},$settings{'MODE'},$settings{'ENDPOINTS'},$settings{'EPORT'}\n"); + &General::log($Lang::tr{'loxilb lb config added'}); + } else { + @current[$settings{'KEY1'}] = "$settings{'EN'},$settings{'NAME'},$settings{'EXTIP'},$settings{'PORT'},$settings{'PROTO'},$settings{'SEL'},$settings{'MODE'},$settings{'ENDPOINTS'},$settings{'EPORT'}\n"; + $settings{'KEY1'} = ''; # End edit mode + &General::log($Lang::tr{'loxilb lb config changed'}); + } + + if ($settings{'EN'} eq 'on') { + &CreateLB(%settings); + } + + # Write changes to config file. + &SortDataFile; # sort newly added/modified entry + + #map ($settings{$_}='' ,@nosaved); # Clear fields + } +} + +if ($settings{'ACTION'} eq $Lang::tr{'edit'}) { + #move out new line + my $line = @current[$settings{'KEY1'}]; # KEY1 is the index in current + chomp($line); + my @temp = split(/\,/, $line); + $settings{'EN'}=$temp[0]; # Prepare the screen for editing + $settings{'NAME'}=$temp[1]; + $settings{'EXTIP'}=$temp[2]; + $settings{'PORT'}=$temp[3]; + $settings{'PROTO'}=$temp[4]; + $settings{'SEL'}=$temp[5]; + $settings{'MODE'}=$temp[6]; + $settings{'ENDPOINTS'}=$temp[7]; + $settings{'EPORT'}=$temp[8]; + if ($settings{'EN'} eq 'on') { + &CreateLB(%settings); + } +} + +if ($settings{'ACTION'} eq $Lang::tr{'remove'}) { + + my $line = @current[$settings{'KEY1'}]; # KEY1 is the index in current + chomp($line); + my @temp = split(/\,/, $line); + $settings{'EN'}=$temp[0]; # Prepare the screen for editing + $settings{'NAME'}=$temp[1]; + $settings{'EXTIP'}=$temp[2]; + $settings{'PORT'}=$temp[3]; + $settings{'PROTO'}=$temp[4]; + $settings{'SEL'}=$temp[5]; + $settings{'MODE'}=$temp[6]; + $settings{'ENDPOINTS'}=$temp[7]; + $settings{'EPORT'}=$temp[8]; + &DeleteLB(%settings); + + splice (@current,$settings{'KEY1'},1); # Delete line + open(FILE, ">$datafile") or die 'route datafile error'; + print FILE @current; + close(FILE); + $settings{'KEY1'} = ''; # End remove mode + &General::log($Lang::tr{'loxilb lb config changed'}); + + #&BuildConfiguration; # then re-build conf which use new data +} + +## Check if sorting is asked +# If same column clicked, reverse the sort. +if ($ENV{'QUERY_STRING'} =~ /$sortstring/ ) { + my $newsort=$ENV{'QUERY_STRING'}; + my $actual=$settings{'SORT_NAMELIST'}; + #Reverse actual sort ? + if ($actual =~ $newsort) { + my $Rev=''; + if ($actual !~ 'Rev') { + $Rev='Rev'; + } + $newsort.=$Rev; + } + $settings{'SORT_NAMELIST'}=$newsort; + map (delete ($settings{$_}) ,(@nosaved,'ACTION','KEY1'));# Must never be saved + &General::writehash($setting, \%settings); + &SortDataFile; + $settings{'ACTION'} = 'SORT'; # Create an 'ACTION' + map ($settings{$_} = '' ,@nosaved,'KEY1'); # and reinit vars to empty +} + +if ($settings{'ACTION'} eq '' ) { # First launch from GUI + # Place here default value when nothing is initialized + $settings{'EN'} = 'on'; + $settings{'NAME'} = ''; + $settings{'EXTIP'} = ''; + $settings{'PORT'} = ''; + $settings{'PROTO'} = ''; + $settings{'SEL'} = ''; + $settings{'MODE'} = ''; + $settings{'ENDPOINTS'} = ''; + $settings{'EPORT'} = ''; +} + +&Header::openpage($Lang::tr{'loxilb lb config entries'}, 1, ''); +&Header::openbigbox('100%', 'left', '', $errormessage); +my %checked=(); # Checkbox manipulations + +if ($errormessage) { + &Header::openbox('100%', 'left', $Lang::tr{'error messages'}); + print "$errormessage "; + &Header::closebox(); +} + +# + +$checked{'EN'}{'on'} = ($settings{'EN'} eq '' ) ? '' : "checked='checked'"; + +my $buttontext = $Lang::tr{'add'}; +if ($settings{'KEY1'} ne '') { + $buttontext = $Lang::tr{'update'}; + &Header::openbox('100%', 'left', $Lang::tr{'loxilb lb edit'}); +} else { + &Header::openbox('100%', 'left', $Lang::tr{'loxilb lb add'}); +} + +#Edited line number (KEY1) passed until cleared by 'save' or 'remove' or 'new sort order' +print < + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
$Lang::tr{'loxilb lb name'}: 
$Lang::tr{'loxilb lb extip'}: $Lang::tr{'enabled'}
$Lang::tr{'loxilb lb port'}: 
$Lang::tr{'loxilb lb proto'}: 
$Lang::tr{'loxilb lb sel'}: 
$Lang::tr{'loxilb lb mode'}: 
$Lang::tr{'loxilb lb endpoints'}: 
$Lang::tr{'loxilb lb eport'}: 
+
+ + + + +
+ +END +; +&Header::closebox(); + +&Header::openbox('100%', 'left', $Lang::tr{'loxilb lb config entries'}); +print < + + $Lang::tr{'loxilb lb name'} + $Lang::tr{'loxilb lb extip'} + $Lang::tr{'loxilb lb port'} + $Lang::tr{'loxilb lb proto'} + $Lang::tr{'loxilb lb sel'} + $Lang::tr{'loxilb lb mode'} + $Lang::tr{'loxilb lb endpoints'} + $Lang::tr{'loxilb lb eport'} + $Lang::tr{'action'} + +END +; + +# +# Print each line of @current list +# + +my $key = 0; +my $col=""; +foreach my $line (@current) { + chomp($line); # remove newline + my @temp=split(/\,/,$line); + $temp[2] ='' unless defined $temp[2]; # not always populated + $temp[3] ='' unless defined $temp[2]; # not always populated + $temp[4] ='' unless defined $temp[3]; # not always populated + $temp[5] ='' unless defined $temp[4]; # not always populated + $temp[6] ='' unless defined $temp[5]; # not always populated + $temp[7] ='' unless defined $temp[6]; # not always populated + $temp[8] ='' unless defined $temp[7]; # not always populated + + #Choose icon for checkbox + my $gif = ''; + my $gdesc = ''; + if ($temp[0] ne '' ) { + $gif = 'on.gif'; + $gdesc = $Lang::tr{'click to disable'}; + } else { + $gif = 'off.gif'; + $gdesc = $Lang::tr{'click to enable'}; + } + + #Colorize each line + if ($settings{'KEY1'} eq $key) { + print ""; + } elsif ($key % 2) { + print ""; + $col="bgcolor='$color{'color20'}'"; + } else { + print ""; + $col="bgcolor='$color{'color22'}'"; + } + print <$temp[1] +$temp[2] +$temp[3] +$temp[4] +$temp[5] +$temp[6] +$temp[7] +$temp[8] + +
+ + + +
+ + + +
+ + + +
+ + + +
+ + + +
+ + +END +; + $key++; +} +print ""; + +# If table contains entries, print 'Key to action icons' +if ($key) { +print < + +  $Lang::tr{'legend'}:  + $Lang::tr{ + $Lang::tr{'click to disable'} +    + $Lang::tr{ + $Lang::tr{'click to enable'} +    + $Lang::tr{ + $Lang::tr{'edit'} +    + $Lang::tr{ + $Lang::tr{'remove'} + + +END +; +} + +&Header::closebox(); + +&Header::closebigbox(); +&Header::closepage(); + +## Ouf it's the end ! + +# Sort the "current" array according to choices +sub SortDataFile +{ + our %entries = (); + + # Sort pair of record received in $a $b special vars. + # When IP is specified use numeric sort else alpha. + # If sortname ends with 'Rev', do reverse sort. + # + sub fixedleasesort { + my $qs=''; # The sort field specified minus 'Rev' + if (rindex ($settings{'SORT_NAMELIST'},'Rev') != -1) { + $qs=substr ($settings{'SORT_NAMELIST'},0,length($settings{'SORT_NAMELIST'})-3); + if ($qs eq 'NAME') { + my @a = split(/\./,$entries{$a}->{$qs}); + my @b = split(/\./,$entries{$b}->{$qs}); + ($b[0]<=>$a[0]) || + ($b[1]<=>$a[1]) || + ($b[2]<=>$a[2]) || + ($b[3]<=>$a[3]); + } else { + $entries{$b}->{$qs} cmp $entries{$a}->{$qs}; + } + } else { #not reverse + $qs=$settings{'SORT_NAMELIST'}; + if ($qs eq 'NAME') { + my @a = split(/\./,$entries{$a}->{$qs}); + my @b = split(/\./,$entries{$b}->{$qs}); + ($a[0]<=>$b[0]) || + ($a[1]<=>$b[1]) || + ($a[2]<=>$b[2]) || + ($a[3]<=>$b[3]); + } else { + $entries{$a}->{$qs} cmp $entries{$b}->{$qs}; + } + } + } + + #Use an associative array (%entries) + my $key = 0; + foreach my $line (@current) { + chomp( $line); #remove newline because can be on field 5 or 6 (addition of REMARK) + my @temp = ( '','','', ''); + @temp = split (',',$line); + + # Build a pair 'Field Name',value for each of the data dataline. + # Each SORTABLE field must have is pair. + # Other data fields (non sortable) can be grouped in one + + my @record = ('KEY',$key++,'EN',$temp[0],'NAME',$temp[1],'EXTIP',$temp[2],'PORT',$temp[3],'PROTO',$temp[4],'SEL',$temp[5],'MODE',$temp[6],'ENDPOINTS',$temp[7],'EPORT',$temp[8]); + my $record = {}; # create a reference to empty hash + %{$record} = @record; # populate that hash with @record + $entries{$record->{KEY}} = $record; # add this to a hash of hashes + } + + open(FILE, ">$datafile") or die 'routing datafile error'; + + # Each field value is printed , with the newline ! Don't forget separator and order of them. + foreach my $entry (sort fixedleasesort keys %entries) { + print FILE "$entries{$entry}->{EN},$entries{$entry}->{NAME},$entries{$entry}->{EXTIP},$entries{$entry}->{PORT},$entries{$entry}->{PROTO},$entries{$entry}->{SEL},$entries{$entry}->{MODE},$entries{$entry}->{ENDPOINTS},$entries{$entry}->{EPORT}\n"; + } + + close(FILE); + # Reload sorted @current + open (FILE, "$datafile"); + @current = ; + close (FILE); +} + +# +# Build the configuration file +# +sub CreateLB { + + my (%settings) = @_; + my @loxicmd_options; + my $command = 'loxicmd'; + my $name = "--name=" . "$settings{'NAME'}"; + my $proto = "--" . "$settings{'PROTO'}" . "=" . "$settings{'PORT'}" . ":" . "$settings{'EPORT'}"; + my $tmp = $settings{'ENDPOINTS'}; + $tmp =~ s/\|/,/g; + my $endpoints = "--endpoints=$tmp"; + push(@loxicmd_options, "create", "lb"); + push(@loxicmd_options, "$settings{'EXTIP'}"); + push(@loxicmd_options, "$name"); + push(@loxicmd_options, "$proto"); + push(@loxicmd_options, "$endpoints"); + &General::system($command, @loxicmd_options); +} + +sub DeleteLB { + + my (%settings) = @_; + my @loxicmd_options; + my $command = 'loxicmd'; + my $proto = "--" . "$settings{'PROTO'}" . "=" . "$settings{'PORT'}"; + push(@loxicmd_options, "delete", "lb"); + push(@loxicmd_options, "$settings{'EXTIP'}"); + push(@loxicmd_options, "$proto"); + &General::system($command, @loxicmd_options); +} diff --git a/langs/en/cgi-bin/en.pl b/langs/en/cgi-bin/en.pl index 5ff486e59..41f16cc9e 100644 --- a/langs/en/cgi-bin/en.pl +++ b/langs/en/cgi-bin/en.pl @@ -611,6 +611,7 @@ 'ccd err invalidnet' => 'Invalid IP address. Format: 192.168.0.0/24 or 192.168.0.0/255.255.255.0.', 'ccd err iroute' => 'Network address for route is invalid.', 'ccd err irouteexist' => 'This route is already in use.', +'ccd err loxilbconfigeexist' => 'This lb is already in use.', 'ccd err isipsecnet' => 'The given subnet address is already used by an IPsec network.', 'ccd err isipsecrw' => 'The given subnet address is already used by the IPsec rw network.', 'ccd err isovpnn2n' => 'The subnet address is already in use for an OpenVPN net-to-net connection.', @@ -2455,6 +2456,19 @@ 'loxilb' => 'eBPF LoxiLB Load Balancer', 'loxilb status' => 'Status', 'loxilb enable' => 'Enable Load Balancer', +'loxilb lb config changed' => 'LoxiLB LB configuration is changed', +'loxilb lb config added' => 'LoxiLB LB configuration is added', +'loxilb lb config entries' => 'LoxiLB Loadbalaner configuration entries', +'loxilb lb edit' => 'Edit existing lb entry', +'loxilb lb add' => 'Add lb entry', +'loxilb lb name' => 'Name', +'loxilb lb extip' => 'EXTIP', +'loxilb lb port' => 'PORT', +'loxilb lb proto' => 'PROTO', +'loxilb lb sel' => 'SEL', +'loxilb lb mode' => 'MODE', +'loxilb lb endpoints' => 'ENDPOINTS', +'loxilb lb eport' => 'EPORT', 'status' => 'Status', 'status information' => 'Status information', 'status ovpn' => 'OpenVPN', diff --git a/langs/zh/cgi-bin/zh.pl b/langs/zh/cgi-bin/zh.pl index 40b9f8bb3..8f283fc60 100644 --- a/langs/zh/cgi-bin/zh.pl +++ b/langs/zh/cgi-bin/zh.pl @@ -2423,6 +2423,19 @@ 'loxilb' => 'eBPF LoxiLB 负载均衡', 'loxilb status' => '负载均衡启用状态', 'loxilb enable' => '启用负载均衡', +'loxilb lb config changed' => 'LoxiLB 负载均衡 配置修改', +'loxilb lb config added' => 'LoxiLB 负载均衡 配置添加', +'loxilb lb config entries' => 'LoxiLB 负载均衡配置', +'loxilb lb edit' => '修改负载均衡配置', +'loxilb lb add' => '添加负载均衡配置', +'loxilb lb name' => '名字', +'loxilb lb extip' => 'IP地址', +'loxilb lb port' => '后端端口', +'loxilb lb proto' => '协议', +'loxilb lb sel' => '负载算法', +'loxilb lb mode' => '模式', +'loxilb lb endpoints' => '后端服务器', +'loxilb lb eport' => '前端端口', 'status' => '状态', 'status information' => '状态信息', 'status ovpn' => 'OpenVPN',