From 1798c4aeca70ac8d0a243684d6a798fbc65735f8 Mon Sep 17 00:00:00 2001
From: V3n3RiX <venerix@redcorelinux.org>
Date: Sat, 14 Jul 2018 20:57:42 +0100
Subject: gentoo resync : 14.07.2018

---
 ...Net-Telnet-Cisco-1.11-no-interactive-test.patch | 125 ---------------------
 1 file changed, 125 deletions(-)
 delete mode 100644 dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch

(limited to 'dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch')

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
deleted file mode 100644
index 7ab7b2ad20ab..000000000000
--- a/dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch
+++ /dev/null
@@ -1,125 +0,0 @@
-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
-
-- 
cgit v1.2.3