Setting up a gateway on Cisco Routers: Difference between revisions
No edit summary |
No edit summary |
||
Line 103: | Line 103: | ||
Because the route info of the gateways (the encap file) changes periodically | Because the route info of the gateways (the encap file) changes periodically | ||
mainly because alot of gateway sit on dynamic ip | mainly because alot of gateway sit on dynamic ip | ||
and because the tunnel ip as a result change you may loose the tunnel to these gateways | and because the tunnel ip as a result change you may loose the tunnel to these gateways | ||
In order to be "updated" it is needed to take the new encap file periodically and put it into the cisco router | |||
Because the encap file lines are not a format of commands that Cisco "understand" a fomat conversion need to be made in order to convert route info in the encap file to commands that cisco can "understand" | |||
So a Script that take the encap file and make a new file of Cisco commands must be run | |||
There are two scripts that do it available one is Perl and other is VBS | |||
The example will give the results of the Perl Script | |||
The Perl Script for the Cisco enclosed | |||
#!/usr/bin/perl | |||
#encapconvert.pl V0.1 10-31-12 | |||
#Script created by Jason Begley KY9J ky9j.com ky9j@arrl.net | |||
#This script is used for converting the encap.txt file from the AMPR net | |||
#into a loadable config file for use on cisco routers. It is advised to use | |||
#this on a 2600 or better router due to interface limits. | |||
# | |||
my ($line); | |||
my %nets = (); | |||
my $net = undef; | |||
my $mask = undef; | |||
##### | |||
#Below are user defined varibles | |||
my $loop = "Ethernet0"; #LOOPBACK INT CHANGE IF ALREADY IN USE | |||
my $outip = "10.0.0.180"; #YOUR PUBLIC IP ADDRESS | |||
my $loopip = "44.138.1.1"; #YOUR AMPR IP ADDRESS | |||
#EO user defined varibles | |||
##### | |||
my $file = $ARGV[0]; | |||
my $debug = $ARGV[1]; | |||
if(!$file) { usage(); exit; } | |||
if($file =~ /--help/) { usage(); exit; } | |||
open (MYFILE, '>cisco-config.txt'); | |||
print MYFILE "!\ninterface $loop\nip address $loopip 255.255.255.255\n!\n"; | |||
close (MYFILE); | |||
open(ENCAP, $file); | |||
@line = <ENCAP>; | |||
close (ENCAP); | |||
@line = grep (!/^\s*$/,@line); | |||
@line = grep (!/^#/,@line); | |||
chomp(@line); | |||
foreach $line(@line) | |||
{ | |||
$n1 = $n2 = $n3 = $n4 = undef; | |||
@ln = (split(/ +/, $line)); | |||
($n, $s) = (split(/\//, $ln[2])); | |||
($n1, $n2, $n3, $n4) = split(/\./, $n); | |||
$gw = $ln[4]; | |||
$gw =~ s/\s*$//; | |||
if ($n1 == '') { $n1='0'}; | |||
if ($n2 == '') { $n2='0'}; | |||
if ($n3 == '') { $n3='0'}; | |||
if ($n4 == '') { $n4='0'}; | |||
if ($s == '1') { $mask='128.0.0.0'}; | |||
if ($s == '2') { $mask='192.0.0.0'}; | |||
if ($s == '3') { $mask='224.0.0.0'}; | |||
if ($s == '4') { $mask='240.0.0.0'}; | |||
if ($s == '5') { $mask='248.0.0.0'}; | |||
if ($s == '6') { $mask='252.0.0.0'}; | |||
if ($s == '7') { $mask='254.0.0.0'}; | |||
if ($s == '8') { $mask='255.0.0.0'}; | |||
if ($s == '9') { $mask='255.128.0.0'}; | |||
if ($s == '10') { $mask='255.192.0.0'}; | |||
if ($s == '11') { $mask='255.224.0.0'}; | |||
if ($s == '12') { $mask='255.240.0.0'}; | |||
if ($s == '13') { $mask='255.248.0.0'}; | |||
if ($s == '14') { $mask='255.252.0.0'}; | |||
if ($s == '15') { $mask='255.254.0.0'}; | |||
if ($s == '16') { $mask='255.255.0.0'}; | |||
if ($s == '17') { $mask='255.255.128.0'}; | |||
if ($s == '18') { $mask='255.255.192.0'}; | |||
if ($s == '19') { $mask='255.255.224.0'}; | |||
if ($s == '20') { $mask='255.255.240.0'}; | |||
if ($s == '21') { $mask='255.255.248.0'}; | |||
if ($s == '22') { $mask='255.255.252.0'}; | |||
if ($s == '23') { $mask='255.255.254.0'}; | |||
if ($s == '24') { $mask='255.255.255.0'}; | |||
if ($s == '25') { $mask='255.255.255.128'}; | |||
if ($s == '26') { $mask='255.255.255.192'}; | |||
if ($s == '27') { $mask='255.255.255.224'}; | |||
if ($s == '28') { $mask='255.255.255.240'}; | |||
if ($s == '29') { $mask='255.255.255.248'}; | |||
if ($s == '30') { $mask='255.255.255.252'}; | |||
if ($s == '31') { $mask='255.255.255.254'}; | |||
if ($s == '32') { $mask='255.255.255.255'}; | |||
if ($s == '') { $mask='255.255.255.255'}; | |||
$net = "$n1.$n2.$n3.$n4"; | |||
$ifid = cipdec(1, $net); | |||
$wmask = do_subtract($mask); | |||
print "*ip info*\n"; | |||
print "NET:$n\nBITS:$s MASK:$mask-$wmask\nGW:$gw\nIF:$ifid\n\n"; | |||
open (MYFILE, '>>cisco-config.txt'); | |||
if ($debug != NULL) { | |||
print "LINE:$line"; | |||
print "\n!\n"; | |||
print "interface tunnel $ifid\n"; | |||
print "description Link to $net\n"; | |||
print "ip unnumbered $loop\n"; | |||
print "tunnel source $outip\n"; | |||
print "tunnel destination $gw\n"; | |||
print "tunnel mode ipip\n!\n"; | |||
} | |||
if ($gw != $outip) { | |||
print MYFILE "!\n"; | |||
print MYFILE "interface tunnel $ifid\n"; | |||
print MYFILE "description Link to $net\n"; | |||
print MYFILE "ip unnumbered $loop\n"; | |||
print MYFILE "tunnel source $outip\n"; | |||
print MYFILE "tunnel destination $gw\n"; | |||
print MYFILE "ip tcp adjust-mss 1436\n"; | |||
print MYFILE "ip access-group acl_44 in\n!\n"; | |||
print MYFILE "tunnel mode ipip\n!\n"; | |||
print MYFILE "ip route $net $mask tunnel$ifid\n!\n"; | |||
} | |||
print MYFILE "ip route $gw 255.255.255.255 Eth0 10.0.0.138\n"; | |||
} | |||
print MYFILE "!\nend\n!\n"; | |||
close (MYFILE); | |||
sub usage | |||
{ | |||
print << "EOT"; | |||
*** This script is for creating a loadable config (copy tftp run) for cisco routers *** | |||
*** Please note that this was tested to work on 2651XM or better, expect poor resp- *** | |||
*** -onse on smaller/slower platforms. *** | |||
*** Edit this file and change varibles as noted to your values. *** | |||
*** File \"cisco-config.txt\" will be generated in this directory for tftp upload *** | |||
*** Run as follows: *** | |||
*** perl encapconvert.pl encap.txt *** | |||
EOT | |||
} | |||
######################################################## | |||
# Sub cipdec | |||
# USAGE: For converting IP to DEC values and reverse | |||
# | |||
# my ($err, $ret) = cipdec(1, $ip); #1 =from ip to dec, 2 = from dec to ip | |||
# if($err != 0) { print "MAIN: ERR ON \"$ret\"\n"; next; } | |||
# | |||
sub cipdec | |||
{ | |||
my $debug = 0; | |||
my (@oct, $opt, $var, $err, $ret, $errmsg); | |||
my ($oct1, $oct2, $oct3, $oct4); | |||
my ($dec1, $dec2, $dec3); | |||
$opt = shift(@_); #1 =from ip to dec, 2 = from dec to ip | |||
$var = shift(@_); # IP or a DEC | |||
$err = 0; | |||
$ret = 0; | |||
if($debug == 1) | |||
{ | |||
print "SUB TEST: OPT=\"$opt\"\n"; | |||
print "SUB TEST: VAR=\"$var\"\n"; | |||
} | |||
if($opt == 1) #1 =from ip to dec | |||
{ | |||
my $ip = $var; | |||
if(!($ip) || ($ip eq "") || !($ip =~ /\./)) | |||
{ | |||
if($debug == 1) { print "NO . in IP.. Next\n"; } | |||
$err = 1; | |||
$ret = "ERR: IP WITH NO \".\""; | |||
return($err, $ret); | |||
} | |||
@oct = split(/\./, $ip); | |||
my $numoct = @oct; | |||
if($numoct != 4) | |||
{ | |||
if($debug == 1) { print "--INVALID IP: \"$ip\"\n"; } | |||
$err = 1; | |||
$ret = "ERR: OCT CT \"$ip\""; | |||
return($err, $ret); | |||
} | |||
foreach my $val (@oct) | |||
{ | |||
if(!(defined $val) || ($val eq "") || ($val =~ /\D/) || ($val > 255) || ($val < 0)) | |||
{ | |||
if($debug == 1) { print "--INVALID IP: \"$ip\"\n"; } | |||
$err = 1; | |||
$ret = "ERR: OCT SIZE \"$ip:$val\""; | |||
return($err, $ret); | |||
} # EO IF oct container | |||
} #EO FOREACH OCT | |||
$ret += ($oct[0] * (256**3)); #Convert 1st octet to decimal and add | |||
$ret += ($oct[1] * (256**2)); #Convert 2nd octet to decimal and add | |||
$ret += $oct[2] * 256; #Convert 3rd octet to decimal and add | |||
$ret += $oct[3]; #Add the 4th octet to decimal | |||
if(($ret < 0) || ($ret > 4294967296)) #0.0.0.0 or 255.255.255.255 = Err | |||
{ | |||
if($debug == 1) { print "--INVALID IP: \"$ip\"\n"; } | |||
$err = 1; | |||
$ret = "ERR: DEC SIZE \"$ip\""; | |||
return($err, $ret); | |||
} #EO DEC Size | |||
return($err, $ret); | |||
} #EO OPT == 1 | |||
if($opt == 2) #1 = dec to ip | |||
{ | |||
$oct1 = 0; $oct2 = 0; $oct3 = 0; $oct4 = 0; | |||
my $dec = $var; | |||
if($debug == 1) { print "SUB TEST: DEC=\"$dec\"\n"; } | |||
if(!(defined $dec) || ($dec eq "") || ($dec < 1) || ($dec > 4294967295)) #0.0.0.0 or 255.255.255.255 = Err | |||
{ | |||
if($debug == 1) { print "--INVALID DEC: \"$dec\"\n"; } | |||
$err = 1; | |||
$ret = "ERR: DEC SIZE \"$dec\""; | |||
return($err, $ret); | |||
} #EO DEC Size | |||
if($dec >= 256**3) | |||
{ | |||
$oct1 = ($dec / 256**3); | |||
my @num = split(/\./, $oct1); | |||
$oct1 = $num[0]; | |||
if($debug == 1) { print "OCT1: \"$oct1\"\n"; } | |||
$dec1 = ($oct1 * 256**3); | |||
$dec = $dec - $dec1; | |||
} | |||
if($dec >= 256**2) | |||
{ | |||
$oct2 = ($dec / 256**2); | |||
my @num = split(/\./, $oct2); | |||
$oct2 = $num[0]; | |||
if($debug == 1) { print "OCT2: \"$oct2\"\n"; } | |||
$dec2 = ($oct2 * 256**2); | |||
$dec = $dec - $dec2; | |||
} | |||
if($dec >= 256) | |||
{ | |||
$oct3 = ($dec / 256); | |||
my @num = split(/\./, $oct3); | |||
$oct3 = $num[0]; | |||
if($debug == 1) { print "OCT3: \"$oct3\"\n"; } | |||
$dec3 = $oct3 * 256; | |||
$dec = $dec - $dec3; | |||
} | |||
$oct4 = $dec; | |||
if($debug == 1) { print "OCT4: \"$oct4\"\n"; } | |||
$ret = "$oct1.$oct2.$oct3.$oct4"; | |||
return($err, $ret); | |||
} #EO If $opt == 2 | |||
$err = 1; | |||
$ret = "I'm lost and sent to leftovers"; | |||
return($err, $ret); | |||
} | |||
################### EO SUB CIPDEC################################# | |||
### wildcard sub ### | |||
sub do_subtract( ) { | |||
local($ip) = @_; | |||
# break up the bytes of the incoming IP address | |||
$_ = $ip; | |||
($a, $b, $c, $d) = split(/\./); | |||
if ($a > 255 || $b > 255 || $c > 255 || $d > 255 || /[^0-9.]/) { | |||
print "invalid input mask or wildcard\n"; | |||
exit( ); | |||
} | |||
$a = 255 - $a; | |||
$b = 255 - $b; | |||
$c = 255 - $c; | |||
$d = 255 - $d; | |||
return ($a . "." . $b . "." . $c . "." . $d); | |||
} | |||
### EO wildcard sub ### | |||
Before you run the script make sure to take the line of your gateway from the encap file | |||
The result of the script is set of commands that look like that | |||
interface tunnel 748306432 | |||
description Link to 44.154.64.0 | |||
ip unnumbered Ethernet0 | |||
tunnel source 10.0.0.180 | |||
tunnel destination 79.107.164.191 | |||
ip tcp adjust-mss 1436 | |||
ip access-group acl_44 in | |||
! | |||
tunnel mode ipip | |||
! | |||
ip route 44.154.64.0 255.255.255.0 tunnel748306432 | |||
! | |||
ip route 79.107.164.191 255.255.255.255 Ethernet0 10.0.0.138 | |||
! | |||
This section return (with different IP , destination and route IPs's ) as the encap file lines | |||
While the file is ready (after running the perl script you can copy it with editor and send it to the cisco or by terminal (with the config t command) or by TFTP | |||
The Encap file can be taken automatically from the Portal using the API | |||
and you can push the commands to the cisco (after the encap convert to cisco commands after running perl) with TFTP |
Revision as of 20:50, 1 March 2016
You can setup gateway on Cisco routers
Cisco support IPIP tunneling and that's what needed
First of all you must have a Cisco Router (preferred from series 2600 and above)
Preferred with two Ethernet cards (but can be done also with one Ethernet card)
I will give example of one Ethernet card
You have to assign the router Ethernet card the Commercial IP
The command is :
int eth0 ip add <and here you give the ip of the commercial ip the router sit on > (it can be also IP of a network the router sit on (as long as this IP is accessible to the outside world))> <The NetMask of the network>
Then you have to assign the 44 Net IP
The command for router with 0ne ethernet card is:
int eth0 ip add <the AMPR IP > <the netmask of the network > secondary
Now you have to add some tunneling command to redirect your outgoing traffic (via tunnel) to the main AMPRNET router , you do it because every ISP block outgoing IP's which is not a part of his network (and 44 net is not belong to any ISP) so in order to allow the 44 Net Packet to gain access to the outside world you need to do a tunnel to the AMPR.ORG Router also to the outgoing traffic (traffic that intend to reach the internet (all other IP's that are not part of the 44 NET))
To open a tunnel command you have to put the tunnel Source address (from where the tunnel is established) and to where the tunnel establish to (tunnel destination) it is a few commands here they are
interface tunnel0 tunnel source <here you put the router commercial IP> tunnel destination <here you put the AMPR.ORG main tunnel router IP> tunnel mode ipip (this command is to tell the tunnel (cisco support lot of tunneling types) which mode to use)
In addition you must tell the router to pass all the outgoing 44 Net Traffic to the tunnel interface and not to route it just like that to the Internet (because as explained they will be probably blocked by the closest ISP you are connecting to )
The command to do it is
ip route 0.0.0.0 0.0.0.0 Tunnel0 <the ip address of the AMPR.ORG main tunnel router >
(0.0.0.0 0.0.0.0 mean "everything") (will be explained latter)
Another important command is a command to let the traffic from the router to the main ampr.org router to pass their IP not via a tunnel (this important to establish tunnel)
This command is more specific then the "everything" route command described before and say to the router pass the traffic belong to the other side of the tunnel
The Command is :
ip route <the ampr.org main tunnel IP > 255.255.255.255 Ethernet0 <your router commercial IP>
This are the minimum Commands to be able to route your inside 44 Net ip to the outside world (but not to any other 44 net networks worldwide)
In order to route your traffic to other 44 net gateways you need to build a tunnel interface to every gateway (unlike JNOS that one tunnel deal with all tunnels) and the tunnel have to have a tunnel source tunnel destination (as explained above ) and tunnel mode
In addition two route lines have to be added
One is route command to route the specific 44 network of the gateway this tunnel deal into this tunnel
And another is to allow the tunnel traffic to go thorough the internet
Enclosed is example from router that is doing tunnel to the main AMPR router and to one gateway somewhere in the world
The tunnel0 interface is the Main AMPR.ORG router and the tunnel with 741916672 is one tunnel to a gateway
The section of tunnel74xxx have to duplicated to every 44 net gateway (of course with the corresponding ip of the specific gateway) (currently about 400 times)
Later on we will deal of how to create these tunnels lines configuration using a script that takes the info from the ENCAP.TXT file and convert it to Cisco config
interface Tunnel0 ip unnumbered Ethernet0 no ip directed-broadcast tunnel source Ethernet0 tunnel destination 169.228.66.251 tunnel mode ipip ! interface Tunnel741916672 description Link to 44.56.192.0 ip unnumbered Ethernet0 ip access-group acl_44 in no ip directed-broadcast tunnel source 10.0.0.180 tunnel destination 24.229.88.253 tunnel mode ipip
interface Ethernet0 description connected to EthernetLAN_HAIFA ip address 44.138.1.1 255.255.255.0 secondary ip address 10.0.0.180 255.255.255.0 no ip directed-broadcast
ip classless ip route 0.0.0.0 0.0.0.0 Tunnel0 169.228.66.251 ip route 169.228.66.251 255.255.255.255 Ethernet0 10.0.0.138 ip route 44.56.192.0 255.255.255.0 Tunnel741916672 ip route 24.229.88.253 255.255.255.255 Ethernet0 10.0.0.138
Making the roue commands automaticly
Because the route info of the gateways (the encap file) changes periodically mainly because alot of gateway sit on dynamic ip
and because the tunnel ip as a result change you may loose the tunnel to these gateways
In order to be "updated" it is needed to take the new encap file periodically and put it into the cisco router
Because the encap file lines are not a format of commands that Cisco "understand" a fomat conversion need to be made in order to convert route info in the encap file to commands that cisco can "understand"
So a Script that take the encap file and make a new file of Cisco commands must be run
There are two scripts that do it available one is Perl and other is VBS
The example will give the results of the Perl Script
The Perl Script for the Cisco enclosed
#!/usr/bin/perl
- encapconvert.pl V0.1 10-31-12
- Script created by Jason Begley KY9J ky9j.com ky9j@arrl.net
- This script is used for converting the encap.txt file from the AMPR net
- into a loadable config file for use on cisco routers. It is advised to use
- this on a 2600 or better router due to interface limits.
my ($line); my %nets = (); my $net = undef; my $mask = undef;
- Below are user defined varibles
my $loop = "Ethernet0"; #LOOPBACK INT CHANGE IF ALREADY IN USE my $outip = "10.0.0.180"; #YOUR PUBLIC IP ADDRESS my $loopip = "44.138.1.1"; #YOUR AMPR IP ADDRESS
- EO user defined varibles
my $file = $ARGV[0];
my $debug = $ARGV[1];
if(!$file) { usage(); exit; }
if($file =~ /--help/) { usage(); exit; }
open (MYFILE, '>cisco-config.txt'); print MYFILE "!\ninterface $loop\nip address $loopip 255.255.255.255\n!\n"; close (MYFILE);
open(ENCAP, $file); @line = <ENCAP>; close (ENCAP); @line = grep (!/^\s*$/,@line); @line = grep (!/^#/,@line); chomp(@line);
foreach $line(@line) {
$n1 = $n2 = $n3 = $n4 = undef; @ln = (split(/ +/, $line)); ($n, $s) = (split(/\//, $ln[2])); ($n1, $n2, $n3, $n4) = split(/\./, $n); $gw = $ln[4]; $gw =~ s/\s*$//; if ($n1 == ) { $n1='0'}; if ($n2 == ) { $n2='0'}; if ($n3 == ) { $n3='0'}; if ($n4 == ) { $n4='0'};
if ($s == '1') { $mask='128.0.0.0'}; if ($s == '2') { $mask='192.0.0.0'}; if ($s == '3') { $mask='224.0.0.0'}; if ($s == '4') { $mask='240.0.0.0'}; if ($s == '5') { $mask='248.0.0.0'}; if ($s == '6') { $mask='252.0.0.0'}; if ($s == '7') { $mask='254.0.0.0'}; if ($s == '8') { $mask='255.0.0.0'}; if ($s == '9') { $mask='255.128.0.0'}; if ($s == '10') { $mask='255.192.0.0'}; if ($s == '11') { $mask='255.224.0.0'}; if ($s == '12') { $mask='255.240.0.0'}; if ($s == '13') { $mask='255.248.0.0'}; if ($s == '14') { $mask='255.252.0.0'}; if ($s == '15') { $mask='255.254.0.0'}; if ($s == '16') { $mask='255.255.0.0'}; if ($s == '17') { $mask='255.255.128.0'}; if ($s == '18') { $mask='255.255.192.0'}; if ($s == '19') { $mask='255.255.224.0'}; if ($s == '20') { $mask='255.255.240.0'}; if ($s == '21') { $mask='255.255.248.0'}; if ($s == '22') { $mask='255.255.252.0'}; if ($s == '23') { $mask='255.255.254.0'}; if ($s == '24') { $mask='255.255.255.0'}; if ($s == '25') { $mask='255.255.255.128'}; if ($s == '26') { $mask='255.255.255.192'}; if ($s == '27') { $mask='255.255.255.224'}; if ($s == '28') { $mask='255.255.255.240'}; if ($s == '29') { $mask='255.255.255.248'}; if ($s == '30') { $mask='255.255.255.252'}; if ($s == '31') { $mask='255.255.255.254'}; if ($s == '32') { $mask='255.255.255.255'}; if ($s == ) { $mask='255.255.255.255'};
$net = "$n1.$n2.$n3.$n4"; $ifid = cipdec(1, $net); $wmask = do_subtract($mask); print "*ip info*\n"; print "NET:$n\nBITS:$s MASK:$mask-$wmask\nGW:$gw\nIF:$ifid\n\n"; open (MYFILE, '>>cisco-config.txt');
if ($debug != NULL) {
print "LINE:$line"; print "\n!\n"; print "interface tunnel $ifid\n"; print "description Link to $net\n"; print "ip unnumbered $loop\n"; print "tunnel source $outip\n"; print "tunnel destination $gw\n"; print "tunnel mode ipip\n!\n";
}
if ($gw != $outip) {
print MYFILE "!\n"; print MYFILE "interface tunnel $ifid\n"; print MYFILE "description Link to $net\n"; print MYFILE "ip unnumbered $loop\n"; print MYFILE "tunnel source $outip\n"; print MYFILE "tunnel destination $gw\n"; print MYFILE "ip tcp adjust-mss 1436\n"; print MYFILE "ip access-group acl_44 in\n!\n"; print MYFILE "tunnel mode ipip\n!\n"; print MYFILE "ip route $net $mask tunnel$ifid\n!\n";
}
print MYFILE "ip route $gw 255.255.255.255 Eth0 10.0.0.138\n";
}
print MYFILE "!\nend\n!\n"; close (MYFILE);
sub usage
{ print << "EOT";
- This script is for creating a loadable config (copy tftp run) for cisco routers ***
- Please note that this was tested to work on 2651XM or better, expect poor resp- ***
- -onse on smaller/slower platforms. ***
- Edit this file and change varibles as noted to your values. ***
- File \"cisco-config.txt\" will be generated in this directory for tftp upload ***
- Run as follows: ***
- perl encapconvert.pl encap.txt ***
EOT
}
- Sub cipdec
- USAGE: For converting IP to DEC values and reverse
- my ($err, $ret) = cipdec(1, $ip); #1 =from ip to dec, 2 = from dec to ip
- if($err != 0) { print "MAIN: ERR ON \"$ret\"\n"; next; }
sub cipdec
{ my $debug = 0; my (@oct, $opt, $var, $err, $ret, $errmsg); my ($oct1, $oct2, $oct3, $oct4); my ($dec1, $dec2, $dec3); $opt = shift(@_); #1 =from ip to dec, 2 = from dec to ip $var = shift(@_); # IP or a DEC $err = 0; $ret = 0; if($debug == 1) { print "SUB TEST: OPT=\"$opt\"\n"; print "SUB TEST: VAR=\"$var\"\n"; } if($opt == 1) #1 =from ip to dec { my $ip = $var;
if(!($ip) || ($ip eq "") || !($ip =~ /\./)) { if($debug == 1) { print "NO . in IP.. Next\n"; } $err = 1; $ret = "ERR: IP WITH NO \".\""; return($err, $ret); } @oct = split(/\./, $ip); my $numoct = @oct; if($numoct != 4) { if($debug == 1) { print "--INVALID IP: \"$ip\"\n"; } $err = 1; $ret = "ERR: OCT CT \"$ip\""; return($err, $ret); } foreach my $val (@oct) { if(!(defined $val) || ($val eq "") || ($val =~ /\D/) || ($val > 255) || ($val < 0)) { if($debug == 1) { print "--INVALID IP: \"$ip\"\n"; } $err = 1; $ret = "ERR: OCT SIZE \"$ip:$val\""; return($err, $ret); } # EO IF oct container } #EO FOREACH OCT $ret += ($oct[0] * (256**3)); #Convert 1st octet to decimal and add $ret += ($oct[1] * (256**2)); #Convert 2nd octet to decimal and add $ret += $oct[2] * 256; #Convert 3rd octet to decimal and add $ret += $oct[3]; #Add the 4th octet to decimal if(($ret < 0) || ($ret > 4294967296)) #0.0.0.0 or 255.255.255.255 = Err { if($debug == 1) { print "--INVALID IP: \"$ip\"\n"; } $err = 1; $ret = "ERR: DEC SIZE \"$ip\""; return($err, $ret); } #EO DEC Size return($err, $ret); } #EO OPT == 1
if($opt == 2) #1 = dec to ip { $oct1 = 0; $oct2 = 0; $oct3 = 0; $oct4 = 0; my $dec = $var; if($debug == 1) { print "SUB TEST: DEC=\"$dec\"\n"; } if(!(defined $dec) || ($dec eq "") || ($dec < 1) || ($dec > 4294967295)) #0.0.0.0 or 255.255.255.255 = Err { if($debug == 1) { print "--INVALID DEC: \"$dec\"\n"; } $err = 1; $ret = "ERR: DEC SIZE \"$dec\""; return($err, $ret); } #EO DEC Size if($dec >= 256**3) { $oct1 = ($dec / 256**3); my @num = split(/\./, $oct1); $oct1 = $num[0]; if($debug == 1) { print "OCT1: \"$oct1\"\n"; } $dec1 = ($oct1 * 256**3); $dec = $dec - $dec1; } if($dec >= 256**2) { $oct2 = ($dec / 256**2); my @num = split(/\./, $oct2); $oct2 = $num[0]; if($debug == 1) { print "OCT2: \"$oct2\"\n"; } $dec2 = ($oct2 * 256**2); $dec = $dec - $dec2; }
if($dec >= 256) { $oct3 = ($dec / 256); my @num = split(/\./, $oct3); $oct3 = $num[0]; if($debug == 1) { print "OCT3: \"$oct3\"\n"; } $dec3 = $oct3 * 256; $dec = $dec - $dec3; } $oct4 = $dec; if($debug == 1) { print "OCT4: \"$oct4\"\n"; } $ret = "$oct1.$oct2.$oct3.$oct4"; return($err, $ret); } #EO If $opt == 2 $err = 1; $ret = "I'm lost and sent to leftovers"; return($err, $ret); }
- EO SUB CIPDEC#################################
- wildcard sub ###
sub do_subtract( ) {
local($ip) = @_;
# break up the bytes of the incoming IP address $_ = $ip; ($a, $b, $c, $d) = split(/\./);
if ($a > 255 || $b > 255 || $c > 255 || $d > 255 || /[^0-9.]/) { print "invalid input mask or wildcard\n"; exit( ); }
$a = 255 - $a; $b = 255 - $b; $c = 255 - $c; $d = 255 - $d;
return ($a . "." . $b . "." . $c . "." . $d);
}
- EO wildcard sub ###
Before you run the script make sure to take the line of your gateway from the encap file
The result of the script is set of commands that look like that
interface tunnel 748306432 description Link to 44.154.64.0 ip unnumbered Ethernet0 tunnel source 10.0.0.180 tunnel destination 79.107.164.191 ip tcp adjust-mss 1436 ip access-group acl_44 in ! tunnel mode ipip ! ip route 44.154.64.0 255.255.255.0 tunnel748306432 ! ip route 79.107.164.191 255.255.255.255 Ethernet0 10.0.0.138 !
This section return (with different IP , destination and route IPs's ) as the encap file lines
While the file is ready (after running the perl script you can copy it with editor and send it to the cisco or by terminal (with the config t command) or by TFTP
The Encap file can be taken automatically from the Portal using the API and you can push the commands to the cisco (after the encap convert to cisco commands after running perl) with TFTP