Re: [Expectperl-discuss] expired passwd in AIX

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Hi Roland,
Thanks for the response! I have run with "$new_pwd\n\n" and
"\n$new_pwd\n" and both work fine. I tried \r and \r\r and it failed
with both. I have spent a lot of time with countless other combinations
as well (\r\r and \n\r come to mind). I even went as far as to attempt
to use Net::SSH::Expect which appeared to work fine until it encountered
the same issue on the expired password. I was thinking it may have been
due to my setting $exp->raw_pty(1) after login but I am doing that prior
to spawning.

Below is the debug with some of the superfluous output removed. 
$exp->internal(1) is set.
I have sent the old password twice, the new password twice and when it
asks for the new password again I have sent it once, then timeout.
Sending any of the three produces the same results as you can see when
the new password is sent the second time.
Let me know if you have an idea on this wierdness.

Thanks,
Ed

Script started on Fri 18 Apr 2008 09:40:16 AM EDT
Old password:bizbot
New password:qwerty
New password again:qwerty
connecting to host [anpkhsw21]
Spawned 'ssh es1724@anpkhsw21'
        spawn id(3)
        Pid: 17376
        Tty: /dev/pts/4
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 181
        Expect::spawn('Expect=GLOB(0xb405c0)', 'ssh es1724@anpkhsw21')
called at ./elpaso.pl line 619
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 561
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb71b60)',
'ARRAY(0xb71b50)', 'ARRAY(0xb53c70)', 'ARRAY(0xb53d50)',
'ARRAY(0xb53dc0)', 'ARRAY(0xb53e30)', 'ARRAY(0xb53f00)', ...) called at
./elpaso.pl line 347
        main::exp_login('Expect=GLOB(0xb405c0)', 'bizbot') called at
./elpaso.pl line 629
spawn id(3): list of patterns:
  #1: -re `(?-xism:\(yes/no\)\?\s*$)'
  #2: -re `(?-xism:Your password has expired)'
  #3: -re `(?-xism:[Pp]assword.*?:|[Pp]assphrase.*?:)'
  #4: -re `(?-xism:ogin:\s*$)'
  #5: -re `(?-xism:Permission denied)'
  #6: -re `(?-xism:REMOTE HOST IDEN)'
  #7: -re `(?-xism:>$|# $|\$ $)'

es1724@anpkhsw21's password:
spawn id(3): Does `es1724@anpkhsw21\'s password: '
match:
  pattern #1: -re `(?-xism:\(yes/no\)\?\s*$)'? No.
  pattern #2: -re `(?-xism:Your password has expired)'? No.
  pattern #3: -re `(?-xism:[Pp]assword.*?:|[Pp]assphrase.*?:)'? YES!!
    Before match string: `es1724@anpkhsw21\'s '
    Match string: `password:'
    After match string: ` '
    Matchlist: ()
Calling hook CODE(0xb53bf0)...
Sending 'bizbot\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1264
        Expect::print('Expect=GLOB(0xb405c0)', 'bizbot\x{a}') called at
./elpaso.pl line 312
        main::__ANON__('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 760
        Expect::_multi_expect(20, 'ARRAY(0xb75620)', 'ARRAY(0xb75360)')
called at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 565
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb71b60)',
'ARRAY(0xb71b50)', 'ARRAY(0xb53c70)', 'ARRAY(0xb53d50)',
'ARRAY(0xb53dc0)', 'ARRAY(0xb53e30)', 'ARRAY(0xb53f00)', ...) called at
./elpaso.pl line 347
        main::exp_login('Expect=GLOB(0xb405c0)', 'bizbot') called at
./elpaso.pl line 629
Continuing expect, restarting timeout...

spawn id(3): Does ` \n --> output abbreviated<-- \nWARNING: Your
password has expired.\nYou must change your password now and login
again!\n'
match:
  pattern #1: -re `(?-xism:\(yes/no\)\?\s*$)'? No.
  pattern #2: -re `(?-xism:Your password has expired)'? YES!!
    Before match string: ` \n --> abbreviated<-- \n'
    Match string: `Your password has expired'
    After match string: `.\nYou must change your password now and login
again!\n'
    Matchlist: ()
Calling hook CODE(0xb53ba0)...
304: Expired password detected!
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 561
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb51630)',
'ARRAY(0xb51600)', 'ARRAY(0xb53c60)', 'ARRAY(0xb53d80)',
'ARRAY(0xb53f00)', 'ARRAY(0xb75350)', 'ARRAY(0xb75400)', ...) called at
./elpaso.pl line 454
        main::change_password('Expect=GLOB(0xb405c0)', 'bizbot',
'qwerty') called at ./elpaso.pl line 661
spawn id(3): list of patterns:
  #1: -re `(?-xism:.*BAD PASSWORD.*$|Authentication token manipulation
error.*$)'
  #2: -re `(?i-xsm:New password:|New.*password:)'
  #3: -re `(?i-xsm:gain:)'
  #4: -re `(?i-xsm:password:\s?$)'
  #5: -re `(?-xism:>$|# $|\$ $)'
  #6: -re `(?i-xsm:Connection to.*closed)'
  #7: -re `(?i-xsm:Permission denied)'

es1724's Old password:
spawn id(3): Does `Changing password for \"es1724\"\nes1724\'s Old
password: '
match:
  pattern #1: -re `(?-xism:.*BAD PASSWORD.*$|Authentication token
manipulation error.*$)'? No.
  pattern #2: -re `(?i-xsm:New password:|New.*password:)'? No.
  pattern #3: -re `(?i-xsm:gain:)'? No.
  pattern #4: -re `(?i-xsm:password:\s?$)'? YES!!
    Before match string: `Changing password for \"es1724\"\nes1724\'s
Old '
    Match string: `password: '
    After match string: `'
    Matchlist: ()
Calling hook CODE(0xb53cc0)...
Sending 'bizbot\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1264
        Expect::print('Expect=GLOB(0xb405c0)', 'bizbot\x{a}') called at
./elpaso.pl line 427
        main::__ANON__('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 760
        Expect::_multi_expect(20, 'undef', 'ARRAY(0xb75450)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 565
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb51630)',
'ARRAY(0xb51600)', 'ARRAY(0xb53c60)', 'ARRAY(0xb53d80)',
'ARRAY(0xb53f00)', 'ARRAY(0xb75350)', 'ARRAY(0xb75400)', ...) called at
./elpaso.pl line 454
        main::change_password('Expect=GLOB(0xb405c0)', 'bizbot',
'qwerty') called at ./elpaso.pl line 661
Sending 'bizbot\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1264
        Expect::print('Expect=GLOB(0xb405c0)', 'bizbot\x{a}') called at
./elpaso.pl line 428
        main::__ANON__('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 760
        Expect::_multi_expect(20, 'undef', 'ARRAY(0xb75450)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 565
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb51630)',
'ARRAY(0xb51600)', 'ARRAY(0xb53c60)', 'ARRAY(0xb53d80)',
'ARRAY(0xb53f00)', 'ARRAY(0xb75350)', 'ARRAY(0xb75400)', ...) called at
./elpaso.pl line 454
        main::change_password('Expect=GLOB(0xb405c0)', 'bizbot',
'qwerty') called at ./elpaso.pl line 661
Continuing expect, restarting timeout...

sword:
spawn id(3): Does `\nes1724\'s New password: '
match:
  pattern #1: -re `(?-xism:.*BAD PASSWORD.*$|Authentication token
manipulation error.*$)'? No.
  pattern #2: -re `(?i-xsm:New password:|New.*password:)'? YES!!
    Before match string: `\nes1724\'s '
    Match string: `New password:'
    After match string: ` '
    Matchlist: ()
Calling hook CODE(0xb71b90)...
Sending 'qwerty\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1264
        Expect::print('Expect=GLOB(0xb405c0)', 'qwerty', '\x{a}') called
at ./elpaso.pl line 415
        main::__ANON__('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 760
        Expect::_multi_expect(20, 'undef', 'ARRAY(0xb75450)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 565
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb51630)',
'ARRAY(0xb51600)', 'ARRAY(0xb53c60)', 'ARRAY(0xb53d80)',
'ARRAY(0xb53f00)', 'ARRAY(0xb75350)', 'ARRAY(0xb75400)', ...) called at
./elpaso.pl line 454
        main::change_password('Expect=GLOB(0xb405c0)', 'bizbot',
'qwerty') called at ./elpaso.pl line 661
Sending 'qwerty\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1264
        Expect::print('Expect=GLOB(0xb405c0)', 'qwerty', '\x{a}') called
at ./elpaso.pl line 416
        main::__ANON__('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 760
        Expect::_multi_expect(20, 'undef', 'ARRAY(0xb75450)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 565
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb51630)',
'ARRAY(0xb51600)', 'ARRAY(0xb53c60)', 'ARRAY(0xb53d80)',
'ARRAY(0xb53f00)', 'ARRAY(0xb75350)', 'ARRAY(0xb75400)', ...) called at
./elpaso.pl line 454
        main::change_password('Expect=GLOB(0xb405c0)', 'bizbot',
'qwerty') called at ./elpaso.pl line 661
Continuing expect, restarting timeout...

ssword again:
spawn id(3): Does ` \nEnter the new password again:'
match:
  pattern #1: -re `(?-xism:.*BAD PASSWORD.*$|Authentication token
manipulation error.*$)'? No.
  pattern #2: -re `(?i-xsm:New password:|New.*password:)'? No.
  pattern #3: -re `(?i-xsm:gain:)'? YES!!
    Before match string: ` \nEnter the new password a'
    Match string: `gain:'
    After match string: `'
    Matchlist: ()
Calling hook CODE(0xb71b20)...
Sending 'qwerty\n' to spawn id(3)
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1264
        Expect::print('Expect=GLOB(0xb405c0)', 'qwerty', '\x{a}') called
at ./elpaso.pl line 422
        main::__ANON__('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 760
        Expect::_multi_expect(20, 'undef', 'ARRAY(0xb75450)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 565
        Expect::expect('Expect=GLOB(0xb405c0)', 20, 'ARRAY(0xb51630)',
'ARRAY(0xb51600)', 'ARRAY(0xb53c60)', 'ARRAY(0xb53d80)',
'ARRAY(0xb53f00)', 'ARRAY(0xb75350)', 'ARRAY(0xb75400)', ...) called at
./elpaso.pl line 454
        main::change_password('Expect=GLOB(0xb405c0)', 'bizbot',
'qwerty') called at ./elpaso.pl line 661
Continuing expect, restarting timeout...

spawn id(3): Does `'
match:
  pattern #1: -re `(?-xism:.*BAD PASSWORD.*$|Authentication token
manipulation error.*$)'? No.
  pattern #2: -re `(?i-xsm:New password:|New.*password:)'? No.
  pattern #3: -re `(?i-xsm:gain:)'? No.
  pattern #4: -re `(?i-xsm:password:\s?$)'? No.
  pattern #5: -re `(?-xism:>$|# $|\$ $)'? No.
  pattern #6: -re `(?i-xsm:Connection to.*closed)'? No.
  pattern #7: -re `(?i-xsm:Permission denied)'? No.

Closing spawn id(3).
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1431
        Expect::hard_close('Expect=GLOB(0xb405c0)') called at
./elpaso.pl line 670
spawn id(3) closed.
Pid 17376 of spawn id(3) terminated, Status: 0x01
Closing spawn id(3).
 at /usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1431
        Expect::hard_close('Expect=GLOB(0xb405c0)') called at
/usr/lib/perl5/site_perl/5.8.5/Expect.pm line 1621
        Expect::DESTROY('Expect=GLOB(0xb405c0)') called at ./elpaso.pl
line 670
        eval {...} called at ./elpaso.pl line 670
password change for [anpkhsw21] failed. old pwd [bizbot] new pwd
[qwerty]

Script done on Fri 18 Apr 2008 09:43:30 AM EDT
[es1724@wxgcpw200 elpaso]$

-----Original Message-----
From: Roland Giersig [mailto:rgi...@cp...] 
Sent: Friday, April 18, 2008 6:54 AM
To: Smith, Edward (IT TECH OPS)
Cc: exp...@li...
Subject: Re: [Expectperl-discuss] expired passwd in AIX

Hmm, very strange.

Have you tried other things? Sending double linefeeds "$new_pwd\n\n" or 
"\n$new_pwd\n"? Using "\r" instead of "\n"?

Yes, please send debug output for the case with password expired and 
sending only one $new_pwd with $Expect::Internal = 1;

Regards, Roland