Query all interfaces

Question

Hi,
Would really appreciate some assistance in what I 'thought' is a simple task
This is what I want to do via TCL / EEM :
1.)  Enumerate all interfaces on the switch or just query the running config
2.)  Query each interface config
3.)  If the interface config doesn't contain the sting 'authentication port-control auto' - send an email with the resulting interface name etc
I'm starting to lose my mind trying to do this 
Thanks and regards,
Bill

Answer 1

Try this:
event manager applet intf-auth
event none
action 001  cli command "enable"
action 002  cli command "show ip int brie"
action 003  set output "$_cli_result"
action 004  set intfs ""
action 005  foreach line "$output" "\n"
action 006   string trim $line
action 007   set line $_string_result
action 008   string length $line
action 009   if $_string_result eq 0
action 010    continue
action 011   end
action 012   regexp "^Interface" "$line"
action 013   if $_regexp_result eq "1"
action 014    continue
action 015   end
action 016   regexp "#" "$line"
action 017   if $_regexp_result eq "1"
action 018    continue
action 019   end
action 020   regexp "^([^[:space:]]+)" "$line" match intf
action 021   cli command "show run interface $intf"
action 022   regexp "authentication port-control auto" "$_cli_result"
action 023   if $_regexp_result eq "0"
action 024    append intfs " $intf"
action 025   end
action 026  end
action 027  string length "$intfs"
action 028  if $_string_result gt "0"
action 029   mail from "[email protected]" to "[email protected]" server "10.1.1.1" subject "Interfaces missing auth port-control" body "The following interfaces are missing 'auth port-control auto': $intfs"
action 030  end