[Expectperl-discuss] perl expect not prompting for password, after sending username

[jaimini b. <jai...@gm...>]

Hi  Everybody,

I am trying to automate login/password, to a storage box,  Manually I am
able to perform the operation successfully.  Using my script I am able to
check that  username is asked, and when I send username I do not get the
prompt for  password, I tried sending username by succeeding it with "\r",
"\n", "\r\n" but nothing works.

Highly appriciate if some body can give me some clue on where am I going
wrong.  Please find below, debug output from the script.

Thanks in advace.
Jaimin.

==========================================
INFO: Executing delete command
Sending 'delete\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.10/Expect.pm line 1264
        Expect::print('Expect=GLOB(0x102ce260)', 'delete\x{a}') called at
./testpsm.pl line 912
        main::psm_delete('manage', '!manage', 'jaimin') called at
./testpsm.pl line 885
        main::manage(16.83.140.45, 'manage', '!manage', 'delete', 'jaimin')
called at ./testpsm.pl line 985
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.10/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x102ce260)', 1, 'No user login details
available\x{d}\x{a}Enter username and password ...') called at ./testpsm.pl
line 921
        main::psm_delete('manage', '!manage', 'jaimin') called at
./testpsm.pl line 885
        main::manage(16.83.140.45, 'manage', '!manage', 'delete', 'jaimin')
called at ./testpsm.pl line 985
spawn id(3): list of patterns:
  #1: -ex `No user login details available\r\nEnter username and password of
MSA device to proceed\r\n* Username: '


spawn id(3): Does `'
match:
  pattern #1: -ex `No user login details available\r\nEnter username and
password of MSA device to proceed\r\n* Username: '? No.

No user login details available
Enter username and password of MSA device to proceed
* Username:
spawn id(3): Does `No user login details available\r\nEnter username and
password of MSA device to proceed\r\n* Username: '
match:
  pattern #1: -ex `No user login details available\r\nEnter username and
password of MSA device to proceed\r\n* Username: '? YES!!
    Before match string: `'
    Match string: `No user login details available\r\nEnter username and
password of MSA device to proceed\r\n* Username: '
    After match string: `'
    Matchlist: ()
Sending 'manage\r\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.10/Expect.pm line 1264
        Expect::print('Expect=GLOB(0x102ce260)', 'manage\x{d}\x{a}') called
at ./testpsm.pl line 942
        main::psm_delete('manage', '!manage', 'jaimin') called at
./testpsm.pl line 885
        main::manage(16.83.140.45, 'manage', '!manage', 'delete', 'jaimin')
called at ./testpsm.pl line 985
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.10/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x102ce260)', 1, '* Password: ') called
at ./testpsm.pl line 952
        main::psm_delete('manage', '!manage', 'jaimin') called at
./testpsm.pl line 885
        main::manage(16.83.140.45, 'manage', '!manage', 'delete', 'jaimin')
called at ./testpsm.pl line 985
spawn id(3): list of patterns:
  #1: -ex `* Password: '


spawn id(3): Does `'
match:
  pattern #1: -ex `* Password: '? No.

ERROR: psm_delete: Did not prompt for password
debug : should have propmt for password.
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.10/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x102ce260)', 0) called at ./testpsm.pl
line 254
        main::syncup() called at ./testpsm.pl line 51
        main::cleanup() called at ./testpsm.pl line 1040
spawn id(3): list of patterns:
============================================