summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKent Fredric <kentnl@gentoo.org>2017-12-13 19:40:50 +1300
committerKent Fredric <kentnl@gentoo.org>2017-12-13 20:58:28 +1300
commitc7a7dac46ea577c87c327edef6f8912df2065238 (patch)
tree395c6a3a20c49ae7ca641b8485375ef4b7a8a07f /dev-perl/Net-Telnet-Cisco
parentnet-libs/miniupnpc: Drop old (diff)
downloadgentoo-c7a7dac46ea577c87c327edef6f8912df2065238.tar.gz
gentoo-c7a7dac46ea577c87c327edef6f8912df2065238.tar.bz2
gentoo-c7a7dac46ea577c87c327edef6f8912df2065238.zip
dev-perl/Net-Telnet-Cisco: Bump to version 1.110.0
- EAPI6 - Enable tests - Patch out interactive steps in tests - Add network-test plans Upstream: - Fix handling of warnings leading to crash - Override Net::Telnet::fhopen to do the right thing - Fix autopage handling in constructor - Fix bad splitting and useless modifier in split - Remove hard requirement of Term::ReadKey Package-Manager: Portage-2.3.18, Repoman-2.3.6
Diffstat (limited to 'dev-perl/Net-Telnet-Cisco')
-rw-r--r--dev-perl/Net-Telnet-Cisco/Manifest1
-rw-r--r--dev-perl/Net-Telnet-Cisco/Net-Telnet-Cisco-1.110.0.ebuild31
-rw-r--r--dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch125
3 files changed, 157 insertions, 0 deletions
diff --git a/dev-perl/Net-Telnet-Cisco/Manifest b/dev-perl/Net-Telnet-Cisco/Manifest
index 9b502326e0c4..8e5501b4bf62 100644
--- a/dev-perl/Net-Telnet-Cisco/Manifest
+++ b/dev-perl/Net-Telnet-Cisco/Manifest
@@ -1 +1,2 @@
DIST Net-Telnet-Cisco-1.10.tar.gz 17579 BLAKE2B 0fd21fcb58d7d0b8474df3e04b28cc8e2ae978f1d02f2c050bc9974b39f1b531ff159f9282aec9d17ddae309ff902a0a5eeacdf9903acfd5ee503f803d9cdb00 SHA512 1fcae8e54425a2ddf2e32c772886af97d308421eb664abb296ec16e97531c2eb6727ea4607d48fa957e9a926dc5b88bfffdfa75da10793f4f0247fa3b1f45672
+DIST Net-Telnet-Cisco-1.11.tar.gz 19282 BLAKE2B 39925b96a8d709f58012c12ec368c48a54549a324ae0fbcdc4cf97daed034b6cb76639b3fda1c3b77824e5c702f6b8e5abc4093558888788ce6cac19342575c4 SHA512 b12da84517df470d40d56a54e8d8c7b331bed87c3c330da7fc1efb7d078805e6f7348f0b52971d3c1b4e3d39014d76bbe7535c40ad3afa7efcf567521ddf0c4b
diff --git a/dev-perl/Net-Telnet-Cisco/Net-Telnet-Cisco-1.110.0.ebuild b/dev-perl/Net-Telnet-Cisco/Net-Telnet-Cisco-1.110.0.ebuild
new file mode 100644
index 000000000000..238f2c98ec18
--- /dev/null
+++ b/dev-perl/Net-Telnet-Cisco/Net-Telnet-Cisco-1.110.0.ebuild
@@ -0,0 +1,31 @@
+# Copyright 1999-2017 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=6
+
+DIST_AUTHOR=VINSWORLD
+DIST_VERSION=1.11
+inherit perl-module
+
+DESCRIPTION="Automate telnet sessions w/ routers&switches"
+
+SLOT="0"
+KEYWORDS="~alpha ~amd64 ~hppa ~ia64 ~mips ~ppc ~ppc64 ~sparc ~x86"
+IUSE="test"
+
+RDEPEND=">=dev-perl/Net-Telnet-3.20.0"
+DEPEND="${RDEPEND}
+ virtual/perl-ExtUtils-MakeMaker
+ test? ( dev-perl/TermReadKey )
+"
+PATCHES=( "${FILESDIR}/${PN}-1.11-no-interactive-test.patch" )
+PERL_RM_FILES=( "t/02-pod-coverage.t" )
+
+src_test() {
+ if [[ -z $CISCO_TEST_ROUTER ]]; then
+ elog "Comprehensive testing requires a configured, network accessible Cisco Router"
+ elog "to test against. For details, see:"
+ elog "https://wiki.gentoo.org/wiki/Project:Perl/maint-notes/${CATEGORY}/${PN}"
+ fi
+ perl-module_src_test
+}
diff --git a/dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch b/dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch
new file mode 100644
index 000000000000..7ab7b2ad20ab
--- /dev/null
+++ b/dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch
@@ -0,0 +1,125 @@
+From 60d93af35887e53677be5a0f95591489c2683c73 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Wed, 13 Dec 2017 18:42:56 +1300
+Subject: Remove test interactivity
+
+Pass configuration by enviroment variables and don't prompt.
+---
+ test.pl | 82 ++++++++++++++++-------------------------------------------------
+ 1 file changed, 20 insertions(+), 62 deletions(-)
+
+diff --git a/test.pl b/test.pl
+index 369bc30..e9f7ae2 100644
+--- a/test.pl
++++ b/test.pl
+@@ -5,14 +5,8 @@
+
+ use Test::More tests => 32;
+ #use Test::More qw/no_plan/;
+-use ExtUtils::MakeMaker qw/prompt/;
+ use Carp;
+ use Cwd;
+-my $HAVE_Term_ReadKey = 0;
+-eval "use Term::ReadKey";
+-if(!$@) {
+- $HAVE_Term_ReadKey = 1
+-}
+
+ use vars qw/$ROUTER $PASSWD $LOGIN $S $EN_PASS $PASSCODE/;
+
+@@ -161,18 +155,9 @@ END { cleanup() };
+
+ sub cleanup {
+ return unless -f "input.log" || -f "dump.log";
+-
+- print <<EOB;
+-
+-Would you like to delete the test logs? They will contain
+-security info like your login and passwords. If you ran
+-into problems and wish to investigate, you can save them
+-and manually delete them later.
+-EOB
+-
+ my $dir = cwd();
+
+- my $ans = prompt("Delete logs", "y");
++ my $ans = "y";
+ if ($ans eq "y") {
+ print "Deleting logs in $dir...";
+ unlink "input.log" or warn "Can't delete input.log! $!";
+@@ -183,53 +168,26 @@ EOB
+ }
+ }
+
+-sub get_login {
+- print <<EOB;
+-
+-Net::Telnet::Cisco needs to log into a router to
+-perform it\'s full suite of tests. To log in, we
+-need a test router, a login, a password, an
+-optional enable password, and an optional
+-SecurID/TACACS PASSCODE.
+-
+-To skip these tests, hit "return".
+-
+-EOB
+-
+- $ROUTER = prompt("Router:", $ROUTER) or return;
+- $LOGIN = prompt("Login:", $LOGIN) or return;
+- $PASSWD = passprompt("Password:", $PASSWD) or return;
+- $EN_PASS = passprompt("Enable password [optional]:", $EN_PASS);
+- $PASSCODE = passprompt("SecurID/TACACS PASSCODE [optional]:", $PASSCODE);
++sub maskpass {
++ return 'not set' unless defined $_[0];
++ return ( '*' x ( length $_[0] ) ) . ' [masked]';
+ }
+
++sub get_login {
++ $ROUTER = $ENV{CISCO_TEST_ROUTER} or return;
++ $LOGIN = $ENV{CISCO_TEST_LOGIN} or return;
++ $PASSWD = $ENV{CISCO_TEST_PASSWORD} or return;
++ $EN_PASS = $ENV{CISCO_TEST_ENABLE_PASSWORD};
++ $PASSCODE = $ENV{CISCO_TEST_PASSCODE};
++
++ printf STDERR
++ <<EOB, $ROUTER, $LOGIN, maskpass($PASSWD), maskpass($EN_PASS), maskpass($PASSCODE);
++Using the following configuration for testing:
++ Router: %s
++ Login: %s
++ Password: %s
++ Enable Password: %s
++ SecureID/TACACS PASSCODE: %s
+
+-# Lifted from ExtUtils::MakeMaker.
+-#
+-# If the user has Term::ReadKey, we can hide any passwords
+-# they type from shoulder-surfing attacks.
+-#
+-# Args: "Question for user", "optional default answer"
+-sub passprompt ($;$) {
+- my($mess,$def)=@_;
+- $ISA_TTY = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ; # Pipe?
+- Carp::confess("prompt function called without an argument") unless defined $mess;
+- my $dispdef = defined $def ? "[$def] " : " ";
+- $def = defined $def ? $def : "";
+- my $ans;
+- local $|=1;
+- print "$mess $dispdef";
+- if ($ISA_TTY) {
+- if ( $Term::ReadKey::VERSION ) {
+- ReadMode( 'noecho' );
+- chomp($ans = ReadLine(0));
+- ReadMode( 'normal' );
+- print "\n";
+- } else {
+- chomp($ans = <STDIN>);
+- }
+- } else {
+- print "$def\n";
+- }
+- return ($ans ne '') ? $ans : $def;
++EOB
+ }
+--
+2.14.3
+