1

Passing multiple arguments to perl script from expect/tcl

view story
linux-howto

http://stackoverflow.com – I have some troubles with the below script. proc checkUser {userip} { set search "show users | include " set search_cmd [concat $search $userip] exp_send "$search_cmd\r" expect { -re "Vi.*" { set oui "uei.opennms.org/services/passiveServiceStatus" set host "localhost" set iface "--interface $userip" set service "--service Test" set parm1 "--parm 'passiveNodeLabel [getNodeName $userip]'" set parm2 "--parm 'passiveIpAddr $userip'" set parm3 "--parm 'passiveServiceName Test'" (HowTos)