[Expectperl-discuss] Returning control to the script following interact call

[Mark N. <ma...@li...>]

Hi,

This is my first post ever to a mailing list, so I apologise in advance
for any bad netiquette!

I have a script that connects to a firewall when run via setuid root.

I'm trying to write a second script which calls this first one for several
different firewalls, runs a couple of commands on them, then quits.

The first script returns control back to the user via a call to
$firewall->interact($stdin).

My question is - is there any way to get control back, following a system
call to the first script?

I have this, and it works as expected, but I can't continue...

#Connect to each firewall in turn and execute commands
foreach $firewall (@firewalls) {
  system ("s0", "fwconnect", $firewall);
  #do command here!
}

running it leaves me in control at the firewall's prompt for each firewall
- typing 'exit' moves onto the next one in the list.

Thanks in advance,
Mark