This queue is for tickets about the Cisco-CopyConfig CPAN distribution.

Report information
The Basics
Id:
97770
Status:
new
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
jsherwood0 [...] gmail.com
Cc:
AdminCc:

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



Subject: Cisco-CopyConfig does not work with IPv6 addresses
Date: Tue, 5 Aug 2014 22:32:05 -0400
To: bug-Cisco-CopyConfig@rt.cpan.org
From: John Sherwood <jsherwood0@gmail.com>
Hello, I have recently been doing some security work with some IPv6 systems, and found that the Cisco-CopyConfig module doesn't seem to accept IPv6 addresses. The problem seems to be that Net::SNMP requires the '-domain' (or 'Domain') property to be set to 'udp/ipv6' in order for it to handle IPv6 addresses. I'm not sure if you have a github account set up, if so I can submit a pull request for my fix. If not, below I have included a diff that shows the four lines that I had to change. The issue can be demonstrated by running copy-router-config.pl (part of the default kali install) against a Cisco device with a known RW community string. Please let me know if you have any questions that I haven't answered here. Regards, -John == Details about my version == It is straight out of a default install of Kali Linux with all packages updated. CopyConfig.pm - v 1.3 2004/11/04 22:23:19 Perl Version - perl 5, version 14, subversion 2 (v5.14.2) built for x86_64-linux-gnu-thread-multi (with 88 registered patches) OS - Linux audit 3.12-kali1-amd64 #1 SMP Debian 3.12.6-2kali1 (2014-01-06) x86_64 GNU/Linux == Diff below == --- /usr/share/perl5/Cisco/CopyConfig.pm 2004-11-21 17:11:31.000000000 -0500 +++ CopyConfig.pm 2014-08-05 21:42:24.894187437 -0400 @@ -21,7 +21,8 @@ 'host' => '', ## - Default host 'comm' => '', ## - Default community 'tmout' => 2, ## - Default timeout - 'retry' => 2 ## - Default retries + 'retry' => 2, ## - Default retries + 'domain' => 'udp/ipv4' ## - Default protocol domain }, $class; $self->_newarg(@_); ## - Parse arguments srand(time() ^ ($$ + ($$ << 15))); ## - Seed random number @@ -41,6 +42,7 @@ return undef; } $self->{'snmp'} = Net::SNMP->session( ## - Create SNMP object + Domain => $self->{'domain'}, Hostname => $self->{'host'}, Community => $self->{'comm'}, Timeout => $self->{'tmout'}, @@ -126,6 +128,7 @@ $self->{'tmout'} = $arg{$_}, next if /^tmout$/oi; ## - SNMP timeout $self->{'retry'} = $arg{$_}, next if /^Retry$/oi; ## - SNMP timeout } + $self->{'domain'} = 'udp/ipv6' if $self->{'host'} =~ /:/; } sub _cktftp {


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.