bdedit

Arbor.pm

@@ -0,0 +1,100 @@
+package CFG2JSON::Arbor;
+use strict;
+use NetAddr::IP;
+use Data::Dumper;
+my $gbics;
+
+sub new{
+  $gbics=();
+  my $class = shift;
+  my $args = { @_ };
+  my $config=$args->{config};
+  my $dev=getinfo($config);
+  #print Dumper $gbics;
+  my $interfaces=getinterfaces($config);
+  #my $interfaces={};
+  $dev->{interfaces}=$interfaces;
+  my $self = bless {device=>$dev}, $class;
+}
+
+sub getinfo{
+  my @config=split("\n",$_[0]);
+  my $obj={};
+  for(@config){
+    $obj->{model}=$1 if $_=~/# System Board Model: (.*)/i;
+    $obj->{version}=$1 if $_=~/# Version: Peakflow SP (.*)/i;
+    $obj->{serial}=$1 if $_=~/# Chassis Serial Number: (.*)/i;
+    $obj->{processor}=$1 if $_=~/# Processor: (.*)/i;
+    if($_=~/# (Slot [\d]+): (.*?): (.*)/i){
+      my $slot=lc($1);
+      my $key=lc($2);
+      my $val=lc($3);
+      $key=~s/serial number/serial/;
+      $key=~s/model/part_id/;
+      $slot=~s/\s+//;
+      if($key=~/firmware|type/){
+        $obj->{slots}{$slot}{description}=$obj->{slots}{$slot}{description}." $val";
+      }else{
+        $obj->{slots}{$slot}{$key}=$val;
+      }
+      $obj->{slots}{$slot}{name}=$slot;
+      #$obj->{slots}{$slot}{manufacturer}='arbor';
+    }elsif($_=~/# Memory Device: ([\d]+.*)\s(DIM.*)/i){
+      $obj->{dimms}{$2}{description}=$1;
+      $obj->{dimms}{$2}{name}=$2;
+      #$obj->{memory}{$2}{manufacturer}='arbor';
+    }
+  }
+  $obj->{model}=$obj->{slots}{slot1}{model} if $obj->{slots} && $obj->{model} eq 'Not Specified';
+  return $obj;
+}
+
+sub getinterfaces{
+  my ($intchunk,$ints);
+  for(split("\n",$_[0])){
+    $intchunk.=$1."<nl>" if $_=~/^#INT:(.*)/i;
+  }
+  $intchunk=~s/\s+(eth|tms|mgt)/<interface>$1/g;
+  my @i_arr=split(/<interface>/,$intchunk);
+  shift @i_arr;
+  for(@i_arr){
+    my @intinfo=split("<nl>",$_);
+    my $intbase=shift @intinfo;
+    #print "intbase:$intbase \n";
+    my ($int,$inttype,$status,$mtu)=($1,$3,$4,$5) if $intbase=~/((eth|tms|mgt)[\d\.]+)\s(.*), Interface is (.*), mtu ([\d]+)/i;
+    $inttype=~s/\s+//g;
+    $ints->{$int}{mtu}=$mtu;
+    $ints->{$int}{status}=$status;
+    if($int=~/.*\..*/){
+      $ints->{$int}{formfactor}='virtual';
+    }else{
+      $ints->{$int}{formfactor}=getFF($inttype);
+    }
+    for(@intinfo){
+      $ints->{$int}{localmac}=lc($1) if $_=~/.*Hardware: ([\w\:]+)/;
+      if($_=~/Inet: ([\d\.]+) netmask ([\d\.]+) .*/){
+        my ($ip,$bits)=_getCIDR($1,$2);
+        push(@{$ints->{$int}{ipaddress}},{ip=>$ip,bits=>$bits,type=>'interface',version=>'4'})  if $ip ne '0.0.0.0';
+      }elsif($_=~/Inet6: (.*) prefixlen ([\d]+)/){
+        push(@{$ints->{$int}{ipaddress}},{ip=>$1,bits=>$2,type=>'interface',version=>'6'});
+      }
+    }
+  }
+  return $ints;
+}
+sub getFF{
+  my $ff->{TenGigabitEthernet}='SFP+10G-SR';
+  $ff->{TenGigabitFiber}='SFP+10G-SR';
+  $ff->{GigabitFiber}='SFP1000BASE-SX';
+  $ff->{GigabitEthernet}='10/100/1000BASETX';
+  return $ff->{$_[0]};
+}
+
+sub _getCIDR{
+  my ($ip,$mask)=@_;
+  my $ninet = new NetAddr::IP "$ip $mask";
+  my $bits=$ninet->masklen;
+  return ($ip,$bits);
+}
+
+1

Arista.pm

@@ -1,13 +1,20 @@
-package Arista;
+package CFG2JSON::Arista;
 use strict;
+use Data::Dumper;
+my $modules;
 
 sub new{
-  my ($class,$args)=@_;
+  $modules=();
+  my $class = shift;
+  my $args = { @_ };
   my $config=$args->{config};
+  $modules=buildModuleHash($config);
+  addGBICS() if $modules->{mods};
   my $dev=getinfo($config);
   my $interfaces=getinterfaces($config);
   #my $interfaces={};
   $dev->{interfaces}=$interfaces;
+  $dev->{modules}=$modules->{mods};
   my $self = bless {device=>$dev}, $class;
 }
 
@@ -18,34 +25,162 @@ sub getinfo{
     $obj->{serial}=$1 if $_=~/!Serial number:\s+(.*)/i;
     $obj->{model}=$1 if $_=~/!Model: Arista\s+(.*)/i;
     $obj->{version}=$1 if $_=~/!Software image version:\s+(.*)/i;
+    $obj->{taaccounting}=$1 if $_=~/aaa accounting commands (.*)/i;
+    push(@{$obj->{syslog}},$2) if $_=~/logging( vrf MGMT)? host ([\d\.]+)/i;
+    push(@{$obj->{snmp}},$1) if $_=~/snmp-server host ([\d\.]+)( vrf MGMT)? version/i;
+    push(@{$obj->{tacacs}},$1) if $_=~/!tacacs-server host ([\d\.]+)/i;
+    if($_=~/!(.*)\.swix\s+([\d\.\/]+)\\\s+([\w]+),\s([\w]+)\s+.*/i){
+      my $patch;
+      $patch->{file}=$1;
+      $patch->{version}=$2;
+      $patch->{status}=$3.'-'.$4;
+      push(@{$obj->{patch}},$patch);
+    }
   }
   return $obj;
 }
 
+sub buildModuleHash{
+  my $c = shift;
+  $c =~ s/\n/<nl>/g;
+  my $ret;
+  for(split(/!System has/,$c)){
+    if($_=~/.*(transceiver slots)|(card slots)/){
+      for(split(/<nl>/,$_)){
+        if($_=~/!\s+([\d\/]+.*)/){
+          my @list=split(/\s+/,$1);
+          if($list[1] eq 'Not'){
+            $ret->{gbics}->{$list[0]}{vendor}='none';
+            $ret->{gbics}->{$list[0]}{model}='none';
+            $ret->{gbics}->{$list[0]}{serial}='none';
+          }else{
+            $ret->{gbics}->{$list[0]}{description}='vendor:'.$list[1];
+            $ret->{gbics}->{$list[0]}{part_id}=$list[-3];
+            $ret->{gbics}->{$list[0]}{serial}=$list[-2];
+            $ret->{gbics}->{$list[0]}{name}=$list[0];
+          }
+        }elsif($_=~/!\s+(Linecard([\d]+).*)/){
+          my $lcn=$2;
+          my @list=split(/\s+/,$1);
+          if($list[1] ne 'Not'){
+            $ret->{mods}->{$list[0]}{cardname}=$list[0];
+            $ret->{mods}->{$list[0]}{cardnumber}=$lcn;
+            $ret->{mods}->{$list[0]}{model}=$list[1];
+            $ret->{mods}->{$list[0]}{partnumber}=$list[1];
+            $ret->{mods}->{$list[0]}{version}=$list[2];
+            $ret->{mods}->{$list[0]}{serial}=$list[3];
+            $ret->{mods}->{$list[0]}{vendor}='Arista';
+            $ret->{mods}->{$list[0]}{devicerole}='LineCard';
+          }
+        }
+      }
+    }
+  }
+  return $ret;
+}
+
+sub addGBICS{
+  my $c = shift;
+  for my $m (keys %{$modules->{mods}}){
+    my $card=$modules->{mods}{$m}->{cardnumber};;
+    for my $gb (keys %{$modules->{gbics}}){
+      my @gbns=split('/',$gb);
+      if($card eq $gbns[0] && $modules->{gbics}{$gb}{serial} ne 'none'){
+        my $gbic=$modules->{gbics}{$gb};
+        $gbic->{port}=$gb;
+        $modules->{mods}{$m}{gbics}{$gb}=$gbic;
+      }
+    }
+  }
+}
+
 sub getinterfaces{
   my $c = shift;
   my $ints;
   $c =~ s/\n/<nl>/g;
-  $c =~ s/\n/<nl>/ig;
   $c =~ s/\s+!//ig;
   $c =~ s/([\w])!/$1/ig;
   my @ints_arr=split("!",$c);
   shift @ints_arr;
   for(@ints_arr){
     my $int=$_;
-    if(lc($int)=~/<nl>interface\s+([fskpmvlgibrtortchanel\d\-\/\.]+[\d])\s?<nl>\s?(.*)/ig){
+    if($int=~/<nl>interface\s+([fskpmvlgibrtortchanel\d\-\/\.]+[\d])\s?<nl>\s?(.*)/ig){
       my $i=$1;
       my $rc=$2;
+      $ints->{$i}{rawconfig}=$rc;
+      push(@{$ints->{$i}{vlans}},$1) if $i=~/Vlan([\d]+)/;
+      if($i=~/(Vlan|Loop)/i){
+        $ints->{$i}{formfactor}='virtual';
+      }elsif($i=~/port-/i){
+        $ints->{$i}{formfactor}='lag';
+      }elsif($i=~/.*\.[\d]+$/){
+        #print "match:$i\n";
+        $ints->{$i}{formfactor}='virtual';
+      }else{
+        my $bi=$i;
+        $bi=~s/Ethernet//;
+        $bi=~s/\/1$//;
+        #print "i:$i bi:$bi\n";
+        if($modules->{gbics}->{$bi}{model}){
+          $ints->{$i}{formfactor}=$modules->{gbics}->{$bi}{model};
+          $ints->{$i}{serial}=$modules->{gbics}->{$bi}{serial};
+        }elsif($i=~/management/){
+          $ints->{$i}{formfactor}='1000BaseTX';
+        }else{
+          $ints->{$i}{formfactor}='physical';
+        }
+      }
+      $ints->{$i}{mtu}='1500';
       $rc=~s/!<nl>router$//i;
       for(split/<nl>/,$rc){
         my $l=$_;
         $ints->{$i}{description}=$1 if $l=~/\s+description\s([!\"\'():,\@.&\w\s\/\-]+).*$/i;
-        $ints->{$i}{ipaddress}=$1 if $l=~/\s+ip\saddress\s([.\d]+\/[\d]+).*$/i;
+        push(@{$ints->{$i}{ipaddress}},{ip=>$1,bits=>$2,type=>'interface',version=>'4'}) if $l=~/\s+ip\saddress\s([\d]+\..*)\/([\d]+)$/;
         $ints->{$i}{vrf}=$1 if $l=~/\s+vrf forwarding (.*)/i;
+        $ints->{$i}{mtu}=$1 if $l=~/\s+mtu\s([\d]+)/i;
+        if($l=~/encapsulation dot1q vlan ([\d]+)/i){
+          push(@{$ints->{$i}{vlans}},$1);
+          $ints->{$i}{mode}='sub';
+        }
+        if($l =~ m/\s+switchport\saccess\svlan\s([\d]+.*)$/){
+          push(@{$ints->{$i}{vlans}},$1);
+          $ints->{$i}{mode}='access';
+        }
+        if($l =~ /\sswitchport\strunk\sallowed\svlan\s(add\s)?([-,\d.*]+)$/){
+          $ints->{$i}=addGroups($ints->{$i},$2);
+          $ints->{$i}{mode}='tagged';
+        }
+        if($l=~/\s+channel-group\s([\d]+)\smode active/){
+          $ints->{$i}{parent}='Port-Channel'.$1;
+          push(@{$ints->{'Port-Channel'.$1}{children}},$i);
+        }
+      }
+    }
+  }
+  $ints->{console}{formfactor}='NONE';
+  return $ints;
+}
+
+sub addGroups{
+  my ($int,$info)=@_;
+  my @p_arr;
+  for(split(/,/,$info)){
+    my $pn=$_;
+    if($pn=~/([\d]+\/)?([\d]+)-([\d]+\/)?([\d]+)/){
+      my $i1s=$1;
+      my $i1p=$2;
+      my $i2s=$3;
+      my $i2p=$4;
+      for($i1p...$i2p){
+        my $p=$i1s.'/'.$_;
+        $p=$_ if !$i1s;
+        push(@{$int->{vlans}},$_)
       }
+    }else{
+      push(@{$int->{vlans}},$pn)
     }
   }
-  return $ints
+  return $int;
 }
 
 1

BuildList.pm

@@ -0,0 +1,31 @@
+package CFG2JSON::BuildList;
+use strict;
+use FindBin;
+use lib $FindBin::Bin;
+use File::Slurp;
+
+sub new{
+  my ($class,$args) = @_;
+  my ($devlist,$sitelist)=_buildList($args->{rancidpath},$args->{custhash});
+  $args->{devlist}=$devlist;
+  $args->{sitelist}=$sitelist;
+  my $self = bless $args , $class;
+}
+
+sub _buildList{
+  my ($path,$custhash)=@_;
+  my ($devlist,$sitelist);
+  for(split("\n",`ls -1 $path`)){
+    my $site=$_;
+    my $cust='default';
+    $cust=$custhash->{$site} if $custhash->{$site};
+    push(@{$sitelist->{$cust}},{sitename=>$site,rancidpath=>$path});
+    for(split("\n",`cat $path/$_/router.db`)){
+      my $hn=lc($1) if $_=~/(.*?);.*/i;
+      push(@{$devlist->{$cust}},{sitename=>$site,rancidpath=>$path,hostname=>$hn})
+    }
+  }
+  return ($devlist,$sitelist);
+}
+
+1;