From 7a364a46d72a3f078f3ca44b8da2f39e67b02bd2 Mon Sep 17 00:00:00 2001 From: Thomas Mangin Date: Thu, 21 May 2020 22:04:37 +0100 Subject: nat: T2460: add src/op_mode/show_nat_translations.py --- debian/control | 1 + 1 file changed, 1 insertion(+) (limited to 'debian/control') diff --git a/debian/control b/debian/control index a30b80b7a..001ea1802 100644 --- a/debian/control +++ b/debian/control @@ -33,6 +33,7 @@ Depends: python3, python3-netaddr, python3-zmq, python3-jmespath, + python3-xmltodict, bsdmainutils, cron, systemd, -- cgit v1.2.3 From 62b86071c6b549ca13c828ecf2619e2ba7750d7b Mon Sep 17 00:00:00 2001 From: Christian Poessinger Date: Fri, 22 May 2020 13:28:25 +0200 Subject: nat: T2460: migrate to new Python implementation --- debian/control | 1 - op-mode-definitions/nat.xml | 196 +++++++-------- src/op_mode/show_nat_translations.py | 6 +- .../to_be_migrated/vyatta-nat-translations.pl | 267 --------------------- 4 files changed, 101 insertions(+), 369 deletions(-) delete mode 100755 src/op_mode/to_be_migrated/vyatta-nat-translations.pl (limited to 'debian/control') diff --git a/debian/control b/debian/control index 001ea1802..1312d9462 100644 --- a/debian/control +++ b/debian/control @@ -95,7 +95,6 @@ Depends: python3, pmacct (>= 1.6.0), python3-certbot-nginx, pppoe, - libxml-simple-perl, salt-minion, vyos-utils, nftables (>= 0.9.3), diff --git a/op-mode-definitions/nat.xml b/op-mode-definitions/nat.xml index ffaa2cba3..f6c0fa748 100644 --- a/op-mode-definitions/nat.xml +++ b/op-mode-definitions/nat.xml @@ -1,98 +1,98 @@ - - - - - - - Show Network Address Translation (NAT) information - - - - - Show source Network Address Translation (NAT) information - - - - - Show configured source NAT rules - - echo To be migrated to Python - https://phabricator.vyos.net/T2459 - - - - Show statistics for configured source NAT rules - - ${vyos_op_scripts_dir}/show_nat_statistics.py --source - - - - Show active source NAT translations - - - - - Show active source NAT translations for an IP address - - <x.x.x.x> - - - ${vyos_op_scripts_dir}/to_be_migrated/vyatta-nat-translations.pl --type=source --verbose --ipaddr="$6" - - - - Show active source NAT translations detail - - ${vyos_op_scripts_dir}/to_be_migrated/vyatta-nat-translations.pl --type=source --verbose - - - ${vyos_op_scripts_dir}/to_be_migrated/vyatta-nat-translations.pl --type=source - - - - - - Show destination Network Address Translation (NAT) information - - - - - Show configured destination NAT rules - - echo To be migrated to Python - https://phabricator.vyos.net/T2459 - - - - Show statistics for configured destination NAT rules - - ${vyos_op_scripts_dir}/show_nat_statistics.py --destination - - - - Show active destination NAT translations - - - - - Show active NAT destination translations for an IP address - - <x.x.x.x> - - - ${vyos_op_scripts_dir}/to_be_migrated/vyatta-nat-translations.pl --type=destination --verbose --ipaddr="$6" - - - - Show active destination NAT translations detail - - ${vyos_op_scripts_dir}/to_be_migrated/vyatta-nat-translations.pl --type=destination --verbose - - - ${vyos_op_scripts_dir}/to_be_migrated/vyatta-nat-translations.pl --type=destination - - - - - - - - + + + + + + + Show Network Address Translation (NAT) information + + + + + Show source Network Address Translation (NAT) information + + + + + Show configured source NAT rules + + echo To be migrated to Python - https://phabricator.vyos.net/T2459 + + + + Show statistics for configured source NAT rules + + ${vyos_op_scripts_dir}/show_nat_statistics.py --source + + + + Show active source NAT translations + + + + + Show active source NAT translations for an IP address + + <x.x.x.x> + + + ${vyos_op_scripts_dir}/show_nat_translations.py --type=source --verbose --ipaddr="$6" + + + + Show active source NAT translations detail + + ${vyos_op_scripts_dir}/show_nat_translations.py --type=source --verbose + + + ${vyos_op_scripts_dir}/show_nat_translations.py --type=source + + + + + + Show destination Network Address Translation (NAT) information + + + + + Show configured destination NAT rules + + echo To be migrated to Python - https://phabricator.vyos.net/T2459 + + + + Show statistics for configured destination NAT rules + + ${vyos_op_scripts_dir}/show_nat_statistics.py --destination + + + + Show active destination NAT translations + + + + + Show active NAT destination translations for an IP address + + <x.x.x.x> + + + ${vyos_op_scripts_dir}/show_nat_translations.py --type=destination --verbose --ipaddr="$6" + + + + Show active destination NAT translations detail + + ${vyos_op_scripts_dir}/show_nat_translations.py --type=destination --verbose + + + ${vyos_op_scripts_dir}/show_nat_translations.py --type=destination + + + + + + + + diff --git a/src/op_mode/show_nat_translations.py b/src/op_mode/show_nat_translations.py index db3d2bf0a..e888f3509 100755 --- a/src/op_mode/show_nat_translations.py +++ b/src/op_mode/show_nat_translations.py @@ -1,6 +1,6 @@ #!/usr/bin/env python3 # -# Copyright (C) 2018 VyOS maintainers and contributors +# Copyright (C) 2020 VyOS maintainers and contributors # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License version 2 or later as @@ -84,7 +84,7 @@ def pipe(): def process(data, stats, protocol, pipe, verbose, flowtype=''): if not data: return - + parsed = xmltodict.parse(data) print(headers(verbose, pipe)) @@ -104,7 +104,7 @@ def process(data, stats, protocol, pipe, verbose, flowtype=''): timeout, use = 0, 0 rule_type = rule.get('type', '') - + for meta in rule['meta']: # print(meta) direction = meta['@direction'] diff --git a/src/op_mode/to_be_migrated/vyatta-nat-translations.pl b/src/op_mode/to_be_migrated/vyatta-nat-translations.pl deleted file mode 100755 index 94ed74bad..000000000 --- a/src/op_mode/to_be_migrated/vyatta-nat-translations.pl +++ /dev/null @@ -1,267 +0,0 @@ -#!/usr/bin/perl -# -# Module: vyatta-nat-translate.pl -# -# **** License **** -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License version 2 as -# published by the Free Software Foundation. -# -# 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. -# -# This code was originally developed by Vyatta, Inc. -# Portions created by Vyatta are Copyright (C) 2007 Vyatta, Inc. -# All Rights Reserved. -# -# Author: Stig Thormodsrud -# Date: July 2008 -# Description: Script to display nat translations -# -# **** End License **** -# - -use Getopt::Long; -use XML::Simple; -use Data::Dumper; -use POSIX; - -use warnings; -use strict; - -my $dump = 0; -my ($xml_file, $verbose, $proto, $stats, $ipaddr, $pipe); -my $type; -my $verbose_format = "%-20s %-18s %-20s %-18s\n"; -my $format = "%-20s %-20s %-4s %-8s"; - -sub add_xml_root { - my $xml = shift; - - $xml = '' . $xml . ''; - return $xml; -} - - -sub read_xml_file { - my $file = shift; - - local($/, *FD); # slurp mode - open FD, "<", $file or die "Couldn't open $file\n"; - my $xml = ; - close FD; - return $xml; -} - -sub print_xml { - my $data = shift; - print Dumper($data); -} - -sub guess_snat_dnat { - my ($src, $dst) = @_; - - if ($src->{original} eq $dst->{reply}) { - return "dnat"; - } - if ($dst->{original} eq $src->{reply}) { - return "snat"; - } - return "unkn"; -} - -sub nat_print_xml { - my ($data, $type) = @_; - - my $flow = 0; - - my %flowh; - while (1) { - my $meta = 0; - last if ! defined $data->{flow}[$flow]; - my $flow_ref = $data->{flow}[$flow]; - my $flow_type = $flow_ref->{type}; - my (%src, %dst, %sport, %dport, %proto); - my (%packets, %bytes); - my $timeout = undef; - my $uses = undef; - while (1) { - my $meta_ref = $flow_ref->{meta}[$meta]; - last if ! defined $meta_ref; - my $dir = $meta_ref->{direction}; - if ($dir eq 'original' or $dir eq 'reply') { - my $l3_ref = $meta_ref->{layer3}[0]; - my $l4_ref = $meta_ref->{layer4}[0]; - my $count_ref = $meta_ref->{counters}[0]; - if (defined $l3_ref) { - $src{$dir} = $l3_ref->{src}[0]; - $dst{$dir} = $l3_ref->{dst}[0]; - if (defined $l4_ref) { - $sport{$dir} = $l4_ref->{sport}[0]; - $dport{$dir} = $l4_ref->{dport}[0]; - $proto{$dir} = $l4_ref->{protoname}; - } - } - if (defined $stats and defined $count_ref) { - $packets{$dir} = $count_ref->{packets}[0]; - $bytes{$dir} = $count_ref->{bytes}[0]; - } - } elsif ($dir eq 'independent') { - $timeout = $meta_ref->{timeout}[0]; - $uses = $meta_ref->{'use'}[0]; - } - $meta++; - } - my ($proto, $in_src, $in_dst, $out_src, $out_dst); - $proto = $proto{original}; - $in_src = "$src{original}"; - $in_src .= ":$sport{original}" if defined $sport{original}; - $in_dst = "$dst{original}"; - $in_dst .= ":$dport{original}" if defined $dport{original}; - $out_src = "$dst{reply}"; - $out_src .= ":$dport{reply}" if defined $dport{reply}; - $out_dst = "$src{reply}"; - $out_dst .= ":$sport{reply}" if defined $sport{reply}; - if (defined $verbose) { - printf($verbose_format, $in_src, $in_dst, $out_src, $out_dst); - } -# if (! defined $type) { -# $type = guess_snat_dnat(\%src, \%dst); -# } - if (defined $type) { - my ($from, $to); - if ($type eq 'source') { - $from = "$src{original}"; - $to = "$dst{reply}"; - if (defined $sport{original} and defined $dport{reply}) { - if ($sport{original} ne $dport{reply}) { - $from .= ":$sport{original}"; - $to .= ":$dport{reply}"; - } - } - } else { - $from = "$dst{original}"; - $to = "$src{reply}"; - if (defined $dport{original} and defined $sport{reply}) { - if ($dport{original} ne $sport{reply}) { - $from .= ":$dport{original}"; - $to .= ":$sport{reply}"; - } - } - } - if (defined $verbose) { - print " $proto: $from ==> $to"; - } else { - my $timeout2 = ""; - if (defined $timeout) { - $timeout2 = $timeout; - } - printf($format, $from, $to, $proto, $timeout2); - print " $flow_type" if defined $flow_type; - print "\n"; - } - } - if (defined $verbose) { - print " timeout: $timeout" if defined $timeout; - print " use: $uses " if defined $uses; - print " type: $flow_type" if defined $flow_type; - print "\n"; - } - if (defined $stats) { - foreach my $dir ('original', 'reply') { - if (defined $packets{$dir}) { - printf(" %-8s: packets %s, bytes %s\n", - $dir, $packets{$dir}, $bytes{$dir}); - } - } - } - $flow++; - } - return $flow; -} - - -# -# main -# -GetOptions("verbose" => \$verbose, - "proto=s" => \$proto, - "file=s" => \$xml_file, - "stats" => \$stats, - "type=s" => \$type, - "ipaddr=s" => \$ipaddr, - "pipe" => \$pipe, -); - -my $conntrack = '/usr/sbin/conntrack'; -if (! -f $conntrack) { - die "Package [conntrack] not installed"; -} - -die "Must specify NAT type!" if !defined($type); -die "Unknown NAT type!" if (($type ne 'source') && ($type ne 'destination')); - -my $xs = XML::Simple->new(ForceArray => 1, KeepRoot => 0); -my ($xml, $data); - -# flush stdout after every write for pipe mode -$| = 1 if defined $pipe; - -if (defined $verbose) { - printf($verbose_format, 'Pre-NAT src', 'Pre-NAT dst', - 'Post-NAT src', 'Post-NAT dst'); -} else { - printf($format, 'Pre-NAT', 'Post-NAT', 'Prot', 'Timeout'); - print " Type" if defined $pipe; - print "\n"; -} - -if (defined $xml_file) { - $xml = read_xml_file($xml_file); - $data = $xs->XMLin($xml); - if ($dump) { - print_xml($data); - exit; - } - nat_print_xml($data, 'snat'); - -} elsif (defined $pipe) { - while ($xml = ) { - $xml =~ s/\<\?xml version=\"1\.0\" encoding=\"utf-8\"\?\>//; - $xml =~ s/\//; - $xml = add_xml_root($xml); - $data = $xs->XMLin($xml); - nat_print_xml($data, $type); - } -} else { - if (defined $proto) { - $proto = "-p $proto" - } else { - $proto = ""; - } - if ($type eq 'source') { - my $ipopt = ""; - if (defined $ipaddr) { - $ipopt = "--orig-src $ipaddr"; - } - $xml = `sudo $conntrack -L -n $ipopt -o xml $proto 2>/dev/null`; - chomp $xml; - $data = undef; - $data = $xs->XMLin($xml) if ! $xml eq ''; - } - if ($type eq 'destination') { - my $ipopt = ""; - if (defined $ipaddr) { - $ipopt = "--orig-dst $ipaddr"; - } - $xml = `sudo $conntrack -L -g $ipopt -o xml $proto 2>/dev/null`; - chomp $xml; - $data = undef; - $data = $xs->XMLin($xml) if ! $xml eq ''; - } - nat_print_xml($data, $type) if defined $data; -} - -# end of file -- cgit v1.2.3