Hi all!
I'm programming a tunnelbroker with perl. We are already able to create tunnels by
means of a telnet session using a telnet library of perl,
but, when I try to delete the tunnel (delete -r tunnel tb-008, for example) logouts
the telnet session and the tunnel wasn't removed.
The following is my code:
$t->open('10.0.0.4');
$t->login('XXXXXX', 'XXXXXX');
$t->print('admin');
$t->waitfor('/Password/');
$t->print('XXXXXX');
$t->waitfor('/CONSULINTEL/');
$t->cmd('config');
$t->cmd('delete -r tunnel tb-004');
$t->waitfor('/Are you sure? (y/n):.*$/');
$t->print('y');
$t->waitfor('/CONSULINTEL/');
$t->cmd('save');
After the 'delete' command, the router asks about if you are sure, but I'm not able to
answer this question. I try to waitfor the question and then $t->print('y'); but it
doesn't work. Could anybody help me? I'm desperate.
Thanks is advance,
Miguel Angel
*****************************
Madrid 2003 Global IPv6 Summit
Presentations and videos on-line at:
http://www.ipv6-es.com
