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

Diff for scripts/shell/firewall/fw-universal.sh between version 2.49 and 2.50

version 2.49, 2006/10/04 09:23:25 version 2.50, 2007/08/29 14:43:55
Line 9 
Line 9 
 # 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.48 2006-09-30 21:55:28 rajo Exp $  # $Platon: scripts/shell/firewall/fw-universal.sh,v 2.49 2006-10-04 09:23:25 rajo Exp $
 #  #
 # Changelog:  # Changelog:
 # 2003-10-24 - created  # 2003-10-24 - created
Line 54  DEPMOD="${DEPMOD:=/sbin/depmod}"
Line 54  DEPMOD="${DEPMOD:=/sbin/depmod}"
 MODPROBE="${MODPROBE:=/sbin/modprobe}"  MODPROBE="${MODPROBE:=/sbin/modprobe}"
 RMMOD="${RMMOD:=/sbin/rmmod}"  RMMOD="${RMMOD:=/sbin/rmmod}"
 AWK="${AWK:=/usr/bin/awk}"  AWK="${AWK:=/usr/bin/awk}"
   PERL="${PERL:=/usr/bin/perl}"
   
 # loopback interface  # loopback interface
 LO_IFACE="${LO_IFACE:=lo}"  LO_IFACE="${LO_IFACE:=lo}"
Line 362  masquerade()
Line 363  masquerade()
                 done                  done
   
                 for redirect in $NAT_TCP_PORT_REDIRECT; do                  for redirect in $NAT_TCP_PORT_REDIRECT; do
                         eval `echo $redirect | $AWK -v FS=: '{ printf "remote_port=%s; local_port=%s;", $1, $2; }'`                          #eval `echo $redirect | $AWK -v FS=: '{ printf "remote_port=%s; local_port=%s;", $1, $2; }'`
                         echo -en " $remote_port:$local_port"                          eval `echo $redirect | \
                                   $AWK -v FS=: '  (NF == 2) { remote_ip = "$lan_ip"; remote_port = $1; local_port = $2; } \
                                                                   (NF == 3) { remote_ip = $2;        remote_port = $1; local_port = $3; } \
                                                                   END { printf "remote_ip=%s; remote_port=%s; local_port=%s;", remote_ip, remote_port, local_port; }'`
                           echo -en " $remote_port>>$remote_ip:$local_port(udp)"
                         $IPTABLES -t nat -A PREROUTING -p TCP \                          $IPTABLES -t nat -A PREROUTING -p TCP \
                                 -i ! $NAT_LAN_IFACE -d ! $lan_ip \                                  -i ! $NAT_LAN_IFACE -d ! $lan_ip \
                                 --dport $remote_port -j REDIRECT --to-port $local_port                                  --dport $remote_port -j REDIRECT --to-port $local_port
                 done                  done
                   for redirect in $NAT_UDP_PORT_REDIRECT; do
                           #eval `echo $redirect | $AWK -v FS=: '{ printf "remote_port=%s; local_port=%s;", $1, $2; }'`
                           eval `echo $redirect | \
                                   $AWK -v FS=: '  (NF == 2) { dnat = "no"  ; remote_ip = "X"; remote_port = $1; local_port = $2; } \
                                                                   (NF == 3) { dnat = "yes" ; remote_ip = $2;  remote_port = $1; local_port = $3; } \
                                                                   END { printf "dnat=%s; remote_ip=%s; remote_port=%s; local_port=%s;", dnat, remote_ip, remote_port, local_port; }'`
                           echo -en " $remote_port>>$remote_ip:$local_port(udp)"
                           if [ "x$dnat" = "xyes" ]; then
                                   $IPTABLES -t nat -A PREROUTING -p UDP -i $NAT_SUBNET_IFACE -d ! $ip \
                                   --dport $local_port -j DNAT --to $remote_ip:$remote_port
                                   $IPTABLES -A FORWARD -p UDP -i $NAT_SUBNET_IFACE -d ! $ip --dport $local_port -j ACCEPT
                           else
                                   $IPTABLES -t nat -A PREROUTING -p UDP \
                                           -i ! $NAT_LAN_IFACE -d ! $lan_ip \
                                           --dport $remote_port -j REDIRECT --to-port $local_port
                           fi
                   done
   
                 #$IPTABLES -t nat -A POSTROUTING -s $localnet -o $NAT_LAN_IFACE -j MASQUERADE                  #$IPTABLES -t nat -A POSTROUTING -s $localnet -o $NAT_LAN_IFACE -j MASQUERADE
                 $IPTABLES -t nat -A POSTROUTING -o $NAT_LAN_IFACE -j MASQUERADE                  $IPTABLES -t nat -A POSTROUTING -o $NAT_LAN_IFACE -j MASQUERADE
Line 414  masquerade()
Line 436  masquerade()
   
                 # Port forwarding to local machines                  # Port forwarding to local machines
                 if [ ! -z "$NAT_TCP_PORT_FORWARD" ]; then                  if [ ! -z "$NAT_TCP_PORT_FORWARD" ]; then
                         echo -en "\tForwarding ports to local machines:"                          echo -en "\tForwarding TCP ports to local machines:"
                         for redirect in $NAT_TCP_PORT_FORWARD; do                          for redirect in $NAT_TCP_PORT_FORWARD; do
                                 eval `echo $redirect | $AWK -v FS=: '{ printf "src_port=%s; local_machine=%s; dest_port=%s;", $1, $2, $3; }'`                                  eval `echo $redirect | $AWK -v FS=: '{ printf "src_port=%s; local_machine=%s; dest_port=%s;", $1, $2, $3; }'`
                                 echo -en " $src_port -> $local_machine:$dest_port"                                  echo -en " $src_port -> $local_machine:$dest_port"
Line 424  masquerade()
Line 446  masquerade()
                         done                          done
                         echo " done."                          echo " done."
                 fi                  fi
                   if [ ! -z "$NAT_UDP_PORT_FORWARD" ]; then
                           echo -en "\tForwarding UDP ports to local machines:"
                           for redirect in $NAT_UDP_PORT_FORWARD; do
                                   eval `echo $redirect | $AWK -v FS=: '{ printf "src_port=%s; local_machine=%s; dest_port=%s;", $1, $2, $3; }'`
                                   echo -en " $src_port -> $local_machine:$dest_port"
                                   $IPTABLES -t nat -A PREROUTING -p UDP -i $NAT_LAN_IFACE -d $lan_ip \
                                   --dport $src_port -j DNAT --to $local_machine:$dest_port
                                   $IPTABLES -A FORWARD -p UDP -i $NAT_LAN_IFACE -d $local_machine --dport $dest_port -j ACCEPT
                           done
                           echo " done."
                   fi
   
                 # Keep state of connections from private subnets                  # Keep state of connections from private subnets
                 $IPTABLES -A OUTPUT  -m state --state NEW -o $NAT_LAN_IFACE -j ACCEPT                  $IPTABLES -A OUTPUT  -m state --state NEW -o $NAT_LAN_IFACE -j ACCEPT
Line 861  parse_ifconfig()
Line 894  parse_ifconfig()
 { # {{{  { # {{{
         # Parse output from ifconfig:          # Parse output from ifconfig:
         parsed_interfaces=`$IFCONFIG | \          parsed_interfaces=`$IFCONFIG | \
                 $AWK '                  $PERL -e '
 BEGIN {  my $iface_count = 0;
         iface_count = 0;  my $iface;
 }  my (%ip6, %scope6, %bcast, %mask, %hwaddr, %ipcount);
   
 /^[a-zA-Z0-9:]+[ \t]+/ { # Linux interface  while (my $line = <STDIN>) {
         split($1, fields, ":");          chomp $line;
         iface = fields[1];          if ($line =~ m/^([a-z0-9:]+)\s+.*?([a-z0-9:]+)\s*$/i) { # Linux interface
         ipcount[iface]++;                  $iface  = $1;
         hwaddr[iface] = $NF;                  my $iface_hwaddr = $2;
         iface_count++;                  $iface  = [ $iface =~ m/^([a-z0-9]+)/i ]->[0]; # convert "eth0:0" --> "eth0"
 }                  $ipcount{$iface}++;
                   $hwaddr{$iface} = $iface_hwaddr;
 /^[ \t]+inet addr:/ { # Linux IP address                  $iface_count++;
         split($0, fields, "[ \t:]+");          }
         ip[iface, ipcount[iface]] = fields[4];          elsif ($line =~ m/^[ \t]+inet addr:/) { # Linux IP address
         bcast[iface] = fields[6]; # bad for loopback interface, but we don t need this                  die unless defined $iface;
         # try to upgrade gawk (3.1.4-2.0.1 => 3.1.5-1) if you experience problem on the next line                  my @fields = split(/[\s:]+/, $line);
         # awk: cmd. line:17: (FILENAME=- FNR=2) fatal: attempt to use array "fields" in a scalar context                  push @{$ip{$iface}}, $fields[3];
         idx = length(fields);                  $bcast{$iface} = $fields[5]     || ""; # invalid for loopback interface lo, but we don t need this
         mask[iface] = fields[idx];                  $mask{$iface} = $fields[7]      || $fields[5]; # for loopback interface lo
 }          }
           elsif($line =~ m/^[ \t]+inet6 addr:/) { # Linux IPv6 address
                   die unless defined $iface;
                   my @fields = split(/\s+/, $line);
                   push @{$ip6{$iface}}, $fields[3];
                   $scope6{$iface} = [ $fields[4] =~ m/Scope:(.*)$/i ]->[0];
           }
   
 /^[ \t]+inet6 addr:/ { # Linux IPv6 address  
         split($0, fields, "[ \t]+");  
         ip6[iface] = fields[4];  
         scope6[iface] = fields[5];  
 }  }
   
 END {  map { printf "IP_%s=\"%s\";                     export IP_%s;\n",               $_, join(" ", @{$ip{$_}}),      $_; } keys %ip;
         for (i in ip6)          { printf "IFACE_6_%s=\"%s\";    export IFACE_6_%s;\n",  i, ip6[i],              i; }  map { printf "IFACE_6_%s=\"%s\";        export IFACE_6_%s;\n",  $_, join(" ", @{$ip6{$_}}),     $_; } keys %ip6;
         for (i in scope6)       { printf "SCOPE_6_%s=\"%s\";    export SCOPE_6_%s;\n",  i, scope6[i],   i; }  map { printf "SCOPE_6_%s=\"%s\";        export SCOPE_6_%s;\n",  $_, $scope6{$_},        $_; } keys %scope6;
         for (i in bcast)        { printf "Bcast_%s=\"%s\";              export Bcast_%s;\n",    i, bcast[i],    i; }  map { printf "Bcast_%s=\"%s\";          export Bcast_%s;\n",    $_, $bcast{$_}, $_; } keys %bcast;
         for (i in mask)         { printf "Mask_%s=\"%s\";               export Mask_%s;\n",             i, mask[i],             i; }  map { printf "Mask_%s=\"%s\";           export Mask_%s;\n",             $_, $mask{$_},  $_; } keys %mask;
         for (i in hwaddr)       { printf "HWaddr_%s=\"%s\";             export HWaddr_%s;\n",   i, hwaddr[i],   i; }  map { printf "HWaddr_%s=\"%s\";         export HWaddr_%s;\n",   $_, $hwaddr{$_},        $_; } keys %hwaddr;
         for (i in ipcount)      { printf "IPcount_%s=\"%s\";    export IPcount_%s;\n",  i, ipcount[i],  i; }  map { printf "IPcount_%s=\"%s\";        export IPcount_%s;\n",  $_, $ipcount{$_},       $_; } keys %ipcount;
         for (i in ipcount) {  printf "interfaces=\"%s\";      export interfaces;\n", join(" ", keys %ip);
                 printf "IP_%s=\"", i;  
                 for (n = 1; n <= ipcount[i]; n++) {  
                         printf "%s ", ip[i, n];  
                 }  
                 printf "\";     export IP_%s;\n", i;  
         }  
         printf "interfaces=\"";  
         for (i in ipcount) { printf "%s ", i; }  
         printf "\";     export interfaces;\n";  
 }  
         '`          '`
         eval "$parsed_interfaces";          eval "$parsed_interfaces";
   
         parsed_routes=`perl -e '          parsed_routes=`$PERL -e '
         $\ = "\n";          $\ = "\n";
         open(FILE, "/proc/net/route") or die "Can not open /proc/net/route: $!";          open(FILE, "/proc/net/route") or die "Can not open /proc/net/route: $!";
         my @columns = split(/\s+/, <FILE>);          my @columns = split(/\s+/, <FILE>);

Legend:
Removed from v.2.49  
changed lines
  Added in v.2.50

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