[Trilug-ontopic] yet another perl/expect question, round 2

[Greg Brown]

Ok, this is annoying.. my script works perfectly until the last line.. here
are the last couple of lines:

Primary DNS Server:    192.168.124.221
Optional DNS Server:    192.168.134.29
Is the above information correct (Y/N)?Y
You must reboot the sensor to take the setting effects
Do you want to reboot now(Y/N)?

An oc -d of the last three lines looks like this:

0000000   I   s       t   h   e       a   b   o   v   e       i   n   f
0000020   o   r   m   a   t   i   o   n       c   o   r   r   e   c   t
0000040       (   Y   /   N   )   ?   Y  \n   Y   o   u       m   u   s
0000060   t       r   e   b   o   o   t       t   h   e       s   e   n
0000100   s   o   r       t   o       t   a   k   e       t   h   e
0000120   s   e   t   t   i   n   g       e   f   f   e   c   t   s  \n
0000140   D   o       y   o   u       w   a   n   t       t   o       r
0000160   e   b   o   o   t       n   o   w   (   Y   /   N   )   ?  \n
0000200  \n
0000201


I have tried *EVERYTHING* to match that last line including:

        # now it tells us we must reboot (which we just told it we wanted to
do).. so send another Y
        my($which, $why, $match, $before, $after) =
$ssh->expect(30,'-re','You.*');

        # now it tells us we must reboot (which we just told it we wanted to
do).. so send another Y
        my($which, $why, $match, $before, $after) = $ssh->expect(30,'*');

        # now it tells us we must reboot (which we just told it we wanted to
do).. so send another Y
        my($which, $why, $match, $before, $after) =
$ssh->expect(30,'-re','You.*(Y/N)?');

I've even tossed out the "You" and started with "Do"... and I've tried to
take the "magic match any darn thing" too.

And a thousand other combinations and nothing works.  Does anyone have any
ideas?  this is really giving me a headache..  The line above ends much the
same, but not exactly, but I've matched that and using the line below and it
works fine... ugh.  Any ideas would be very welcomed at this point...

# now it wants to know if you want to reboot (and we do)
my($which, $why, $match, $before, $after) =
$ssh->expect(30,'-re','The.*(Y/N)?');

Greg
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.trilug.org/pipermail/trilug-ontopic/attachments/20100121/c4c81fcf/attachment.htm>