Subversion Repositories sysadmin_scripts

#! /usr/bin/env perl

# just a simple script for people more familiar with
# perl syntax than YAML. Modify %config below, then run
# this script. It will create the configuration file for
# you.
use strict;
use warnings;

use YAML::Tiny; # apt-get libyaml-tiny-perl under debian
use File::Spec; # find location of script so we can put storage in same directory
use File::Basename;


my %config = (
      # one or more switches and their corresponding
      # community name. Use v1 snmp only
      'switches' => {
         'DNS or IP' => { # enter a DNS name or an IP address to be scanned.
            'community' => 'snmp community name',
            # the following list can be used to ignore ports on this switch. Note that these are the port numbers
            # returned by OID iso.3.6.1.2.1.2.2.1.8
            'portsToIgnore' => [port,numbers,to,ignore]
         },
         'DNS or IP' => {
            'community' => 'snmp community name',
            'portsToIgnore' => [port,numbers,to,ignore]
         }
      },
      # You must include at least one router.
      # this will be queried to resolve IP's to MAC 
      # using its arp table
      # put IP and community name into the hash
      'routers' =>  {
            'DNS or IP' => {
               'community' => 'snmp community name',
            },
            'DNS or IP' => {
               'community' => 'snmp community name',
            }
      }
   );

my $scriptDir = dirname( File::Spec->rel2abs( __FILE__ ) );
my $CONFIGFILE = $scriptDir . '/mapSwitches.config.yaml';

my $yaml = YAML::Tiny->new( \%config );
$yaml->write( $CONFIGFILE );