Subversion Repositories sysadmin_scripts

Rev

Rev 25 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 25 Rev 33
Line 31... Line 31...
31 
# 20190407 RWR
 31 
# 20190407 RWR
32 
# converted to use external config file in YAML format
 32 
# converted to use external config file in YAML format
33 
# added the ability to ignore ports on the switches
 33 
# added the ability to ignore ports on the switches
34 
# 20190514 RWR
 34 
# 20190514 RWR
35 
# Added port aliases
 35 
# Added port aliases
- 
 
 36 
# 20190526 RWR
- 
 
 37 
# fixed mapSwitchCSV.pl to output in various delimited format (see README)
36 
 
 38 
 
37 
use strict;
 39 
use strict;
38 
use warnings;
 40 
use warnings;
39 
use Data::Dumper; # only used for debugging
 41 
use Data::Dumper; # only used for debugging
40 
use Socket; # for reverse dns entries
 42 
use Socket; # for reverse dns entries
41 
use YAML::Tiny; # apt-get libyaml-tiny-perl under debian
 43 
use YAML::Tiny; # apt-get libyaml-tiny-perl under debian
42 
use File::Spec; # find location of script so we can put storage in same directory
 44 
use File::Spec; # find location of script so we can put storage in same directory
43 
use File::Basename;
 45 
use File::Basename;
44 
 
 46 
 
45 
our $VERSION = '1.1';
 47 
our $VERSION = '1.2';
46 
 
 48 
 
47 
my %config;
 49 
my %config;
48 
 
 50 
 
49 
# where the script is located
 51 
# where the script is located
50 
my $scriptDir = dirname( File::Spec->rel2abs( __FILE__ ) );
 52 
my $scriptDir = dirname( File::Spec->rel2abs( __FILE__ ) );