[192059] in North American Network Operators' Group
Re: A perl script to convert Cisco IOS/Nexus/ASA configurations to
daemon@ATHENA.MIT.EDU (Jason Hellenthal)
Thu Oct 13 09:34:48 2016
X-Original-To: nanog@nanog.org
From: Jason Hellenthal <jhellenthal@dataix.net>
In-Reply-To: <590522cc-6a52-f152-50eb-e13d7e2442f7@gmail.com>
Date: Thu, 13 Oct 2016 08:32:40 -0500
To: Jesse McGraw <jlmcgraw@gmail.com>
Cc: nanog@nanog.org
Errors-To: nanog-bounces+nanog.discuss=bloom-picayune.mit.edu@nanog.org
Thanks for chiming in Jesse.
> On Oct 13, 2016, at 08:08, Jesse McGraw <jlmcgraw@gmail.com> wrote:
>=20
> Lee,
>=20
> Check out the setup.sh script, hopefully it does everything necessary =
to get the script working on a Debian-derived Linux system
>=20
> I've attempted to make the only globally-installed dependencies be =
cpanm and carton. Once those are installed it uses carton to install =
the dependencies locally
>=20
>=20
> On 10/12/2016 07:59 PM, Lee wrote:
>> On 10/12/16, Jason Hellenthal <jhellenthal@dataix.net> wrote:
>>> Give these a shot. https://github.com/jlmcgraw/networkUtilities
>>>=20
>>> I know J could use a little feedback on those as well but all in all =
they
>>> are pretty solid.
>> Where does one get Modern/Perl.pm ?
>>=20
>> Can't locate Modern/Perl.pm in @INC (you may need to install the
>> Modern::Perl module) (@INC contains: /tmp/local/lib/perl5
>> /usr/lib/perl5/site_perl/5.22/i686-cygwin-threads-64int
>> /usr/lib/perl5/site_perl/5.22
>> /usr/lib/perl5/vendor_perl/5.22/i686-cygwin-threads-64int
>> /usr/lib/perl5/vendor_perl/5.22
>> /usr/lib/perl5/5.22/i686-cygwin-threads-64int /usr/lib/perl5/5.22 .)
>> at /tmp/iosToHtml.pl line 87.
>> BEGIN failed--compilation aborted at /tmp/iosToHtml.pl line 87.
>>=20
>> Lee
>>=20
>>=20
>>=20
>>>> On Oct 11, 2016, at 08:48, Lee <ler762@gmail.com> wrote:
>>>>=20
>>>> On 10/10/16, Jay Hennigan <jay@west.net> wrote:
>>>>> On 10/6/16 1:26 PM, Jesse McGraw wrote:
>>>>>> Nanog,
>>>>>>=20
>>>>>> (This is me scratching an itch of my own and hoping that =
sharing it
>>>>>> might be useful to others on this list. Apologies if it isn't)
>>>>>>=20
>>>>>> When I'm trying to comprehend a new or complicated Cisco router,
>>>>>> switch or firewall configuration an old pet-peeve of mine is how
>>>>>> needlessly difficult it is to follow deeply nested logic in =
route-maps,
>>>>>> ACLs, QoS policy-maps etc etc
>>>>>>=20
>>>>>> To make this a bit simpler I=E2=80=99ve been working on a perl =
script to
>>>>>> convert
>>>>>> these text-based configuration files into HTML with links between =
the
>>>>>> different elements (e.g. To an access-list from the interface =
where
>>>>>> it=E2=80=99s
>>>>>> applied, from policy-maps to class-maps etc), hopefully making it
>>>>>> easier
>>>>>> to to follow the chain of logic via clicking links and using the
>>>>>> forward
>>>>>> and back buttons in your browser to go back and forth between =
command
>>>>>> and referenced list.
>>>>> Way cool. Now to hook it into RANCID....
>>>> It looks like what I did in 2.3.8 should still work - =
control_rancid
>>>> puts the diff output into $TMP.diff so add this bit:
>>>> grep "^Index: " $TMP.diff | awk '/^Index: configs/{
>>>> if ( ! got1 ) { printf("/usr/local/bin/myscript.sh "); got1=3D1; }
>>>> printf("%s ", $2)
>>>> }
>>>> END{ printf("\n") }
>>>> ' >$TMP.doit
>>>> /bin/sh $TMP.doit >$TMP.out
>>>> if [ -s $TMP.out ] ; then
>>>> .. send mail / whatever
>>>> rm $TMP.doit $TMP.out
>>>> fi
>>>>=20
>>>> Regards,
>>>> Lee
>>>=20
>>> --
>>> Jason Hellenthal
>>> JJH48-ARIN
>> .
>>=20
>=20
--=20
Jason Hellenthal
JJH48-ARIN
