#!/usr/bin/expect -- ## # $Id: mac.exp 500 2005-02-10 02:19:46Z dun $ # by Chris Dunlap <cdunlap@llnl.gov> ## set env(PATH) "/bin:/usr/bin:/usr/local/bin" source /usr/share/conman/conman.exp source /usr/share/conman/alpha.exp log_user 0 proc print_mac_addrs {spawn_id output_id console} { # set macs [alpha_get_mac_addrs $spawn_id $output_id $console err] if {[llength $macs] == 0} { exp_send -i $output_id "ERROR: $err.\n" return } foreach mac $macs { exp_send -i $output_id "[join $mac]\n" } } conman_run 256 $argv print_mac_addrs