r4027 bugfix: fixed telnet session hanging in NX-OS4 connector
authorAlexey Andriyanov <alan@al-an.info>
Tue, 30 Nov 2010 08:21:28 +0000 (08:21 +0000)
committerAlexey Andriyanov <alan@al-an.info>
Tue, 30 Nov 2010 08:21:28 +0000 (08:21 +0000)
nxos4.connector: fixed prompt regexp (main enhancement was adding EOL($) to the end)

ChangeLog
gateways/deviceconfig/nxos4.connector

index 3712dc2..702b269 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,7 @@
        update: enhance rackspace click helpers (by Jeroen Benda)
 0.18.7
        bugfix: adjust 802.1Q command generation
+       bugfix: fixed telnet session hanging in NX-OS4 connector
 0.18.6 2010-11-26
        bugfix: draw administrator's attention to missing LDAP extension (by Matt Mills)
        bugfix: minor issues on LiveCDP/LLDP tab
index e07d0f7..5b3c6cf 100755 (executable)
@@ -41,8 +41,9 @@ if (!defined($username)) {
 }
 
 my $session = Net::Telnet::Cisco->new('Host' => $endpoint, 
-  Prompt => ' /(?m:^\015?\000?[\w.-]+(?:\(config[^\)]*\))?\s?[\$#>]\s?)/'
+  Prompt => ' /(?:^|[\x0a\x0d0\0]+)[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$/',
 );
+$session->more_prompt('/(?:^|[\x0a\x0d\0]+)\s*(?:\x1b\S{1,3})?\s*--More--/');
 $session->login($username, $password);
 if ($enable_password ne "-") {
     $session->enable($enable_password);