Re: Tcl (Cisco) ping program.....

Thanks everyone......espeicially for the example code. That really
helps.
Any other comments are welcome, since I am basically starting Tcl from
scratch.

-Lag.


Uwe Klein wrote:
Earl Greida wrote:
"Lag" <clfarris@xxxxxxxxx> wrote in message
news:1164728844.824942.173070@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

I'm completely new to Tcl. I'm trying to come up with a program that
will be feed a list of IP addresses on the screen, one at a time (i.e.
192.168.1.20 - 192.168.1.55) and ping each IP. The program needs to
output the success or failure of the ping. This program will be
running on Cisco equipment! I really could use some help, please. And
if anyone knows any good links or books on Tcl Programming (besides
cisco.com, I've downloaded everything they have...LOL) it would be
appreciated.

Sample Output:

-----------------------------------------------------
IP Successful Ping?
-----------------------------------------------------
192.168.1.20 YES
192.168.1.21 YES
192.168.1.22 NO
192.168.1.23 YES
......

------------------------------------------------------



This program will be a fun exercise and give you good experience. You need
to use Expect and Tcl. Download/install Activestate since it includes
Expect. Buy "Exploring Expect" by Don Libes and "Practicle Programming in
Tcl/Tk" by Brent Welch.
He should be able to write a plain tclsh script for this functionality
if the cisco IOS provides a unix compatible ping command.
#################################################################

proc processinput fd {
set destip [ gets $fd ]
puts stderr xxx$destip

switch -glob -- $destip \
*q* {
exit
} default {
# exec ping with 1 packet sent and 2 sec timeout
if {[catch {exec ping -c1 -W2 $destip } res]} {
puts [format "%20s % 3s" $destip NO ]
} else {
puts [format "%20s % 3s" $destip YES ]
}
}
}
fileevent stdin readable {processinput stdin}
puts [format "%20s %s" IP RESULT]
vwait forever


#################################################################
fancy terminal handling left ....


uwe

.

Relevant Pages

  • Re: Dr. Dobbs Tcl-URL! - weekly Tcl news and links (Sep 20)
    ... Uwe Klein wrote: ... I only managed to include this new feature for three weeks but I still think it was a good idea. ... I think if every week we saw a new company name that uses Tcl it would help reinforce the fact that Tcl continues to be used in a production environment in many diverse ways. ...
    (comp.lang.tcl)
  • Re: Tcl size (Re: tclsh integration in busybox)
    ... Uwe Klein wrote: ... for a 2MB Flash System there is no room for an additional tcl interpreter. ... way that it could have been overloaded onto the 32bit basic expr stuff? ...
    (comp.lang.tcl)
  • Re: Cant access serial port with Tcl and FreeBSD
    ... Uwe Klein wrote: ... > means that tcl is certain this is not a serial device ... Prev by Date: ...
    (comp.lang.tcl)
  • Tcl (Cisco) ping program.....
    ... I'm completely new to Tcl. ... output the success or failure of the ping. ... if anyone knows any good links or books on Tcl Programming (besides ... Sample Output: ...
    (comp.lang.tcl)
  • Re: is tcl/tk dying out?!
    ... Uwe Klein wrote: ... The irony here is so few people have even heard of Tcl that if it was ... thats it! ...
    (comp.lang.tcl)