diff options
Diffstat (limited to 'dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch')
-rw-r--r-- | dev-perl/Net-Telnet-Cisco/files/Net-Telnet-Cisco-1.11-no-interactive-test.patch | 125 |
1 files changed, 0 insertions, 125 deletions
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 - |