Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Thursday, March 28, 2024

Diff for scripts/shell/firewall/fw-universal.sh between version 2.121 and 2.122

version 2.121, 2019/10/08 22:25:30 version 2.122, 2020/09/17 18:58:29
Line 22 
Line 22 
 # Licensed under terms of GNU General Public License.  # Licensed under terms of GNU General Public License.
 # All rights reserved.  # All rights reserved.
 #  #
 # $Platon: scripts/shell/firewall/fw-universal.sh,v 2.120 2019/02/14 23:14:32 nepto Exp $  # $Platon: scripts/shell/firewall/fw-universal.sh,v 2.121 2019/10/08 22:25:30 nepto Exp $
 #  #
 # Changelog:  # Changelog:
 # 2003-10-24 - created  # 2003-10-24 - created
Line 269  unload_modules()
Line 269  unload_modules()
 print_iface_status()  print_iface_status()
 { # {{{  { # {{{
         # Print interfaces:          # Print interfaces:
         print_info "$(pad7 "# iface") | $(pad15 "IP address") | $(pad15 "Gateway") | $(pad15 "Broadcast") | $(pad15 "Netmask") | HW address";          print_info "$(pad15 "# iface") | $(pad15 "IP address") | $(pad15 "Gateway") | $(pad15 "Broadcast") | $(pad15 "Netmask") | HW address";
         for iface in $interfaces; do          for iface in $interfaces; do
                 IPS="IP_$iface";                  IPS="IP_$iface";
                 for IP in ${!IPS}; do                  for IP in ${!IPS}; do
Line 277  print_iface_status()
Line 277  print_iface_status()
                         Bcast="Bcast_$iface";                          Bcast="Bcast_$iface";
                         Mask="Mask_$iface";                          Mask="Mask_$iface";
                         HWaddr="HWaddr_$iface";                          HWaddr="HWaddr_$iface";
                         print_info "$(pad7 $iface) | $(pad15 ${IP}) | $(pad15 ${!Gateway}) | $(pad15 ${!Bcast}) | $(pad15 ${!Mask}) | ${!HWaddr}";                          print_info "$(pad15 $iface) | $(pad15 ${IP}) | $(pad15 ${!Gateway}) | $(pad15 ${!Bcast}) | $(pad15 ${!Mask}) | ${!HWaddr}";
                 done                  done
         done          done
 } # }}}  } # }}}
Line 509  masquerade()
Line 509  masquerade()
                 return;                  return;
         fi          fi
   
         print_info -en "NAT: Masquerading local subnet: $NAT_SUBNET_IFACE --> $NAT_LAN_IFACE"          print_info -en "NAT: Masquerading local subnet: $NAT_SUBNET_IFACE -> $NAT_LAN_IFACE"
   
         if [ "X$XEN_MODE" = "Xon" ]; then          if [ "X$XEN_MODE" = "Xon" ]; then
                 if [ -n "$NAT_SUBNET_SRC" ]; then                  if [ -n "$NAT_SUBNET_SRC" ]; then
Line 1758  my (%ip, %ifname, %ip6, %scope6, %bcast,
Line 1758  my (%ip, %ifname, %ip6, %scope6, %bcast,
   
 while (my $line = <STDIN>) {  while (my $line = <STDIN>) {
         chomp $line;          chomp $line;
         if ($line =~ m/^([a-z0-9:]+)\s+.*?([a-z0-9:]+)\s*$/i) { # Linux interface          if ($line =~ m/^([a-z0-9:-]+)\s+.*?([a-z0-9:]+)\s*$/i) { # Linux interface
                 $iface  = $1;                  $iface  = $1;
                 my $iface_hwaddr = $2;                  my $iface_hwaddr = $2;
                 my $x_iface     = $iface;                  my $x_iface     = $iface;
                 $iface  =~ s/:$//g;                  $iface  =~ s/:$//g;
                 $iface  =~ s/:/_/g; # convert "eth0:0" --> "eth0_0"                  $iface  =~ s/:/_/g; # convert "eth0:0" -> "eth0_0"
                 $x_iface                = [ $x_iface =~ m/^([a-z0-9]+)/i ]->[0]; # convert "eth0:0" --> "eth0"                  $iface  =~ s/-/_/g; # convert "br-a97b1d2fbcc4" -> "br_a97b1d2fbcc4" (Docker)
                   $x_iface                = [ $x_iface =~ m/^([a-z0-9]+)/i ]->[0]; # convert "eth0:0" -> "eth0"
                 $ifname{$iface} = $x_iface;                  $ifname{$iface} = $x_iface;
                 $ipcount{$iface}++;                  $ipcount{$iface}++;
                 $hwaddr{$iface} = $iface_hwaddr;                  $hwaddr{$iface} = $iface_hwaddr;
Line 1815  printf "interfaces=\"%s\";     export inter
Line 1816  printf "interfaces=\"%s\";     export inter
                 my @vals = split(/\s+/, $line);                  my @vals = split(/\s+/, $line);
                 foreach my $key (@columns) {                  foreach my $key (@columns) {
                         $iface->{$key} = shift @vals;                          $iface->{$key} = shift @vals;
                           if ($key eq "Iface") {
                                   # convert "br-a97b1d2fbcc4" -> "br_a97b1d2fbcc4" (Docker)
                                   $iface->{$key} =~ s/-/_/g;
                           }
                 }                  }
   
                 foreach my $key (qw( Gateway Destination )) {                  foreach my $key (qw( Gateway Destination )) {

Legend:
Removed from v.2.121  
changed lines
  Added in v.2.122

Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS
Go to Top