Re: tcl/tk

[Alexander Danilov <alex@fssg.st-oskol.ru>]

Sergey Jusupov wrote:
> Плз. пните в нужную сторону.
> 
> Задача такая, мне нужно что-либо выполнить, посмотреть результат,
> записать в лог, вывести на экран (графически). Все это можно реализовать.
> Например, пингануть тачку, посмотреть результат, показать, что она
> пингуется и записать в лог.
> 
> Не охота писать с нуля. Может уже кто-то видел нечто готовое?
> 
> ЗЫ Т.к. сейчас упорно изучаю tcl/tk, то именно на нем хочу реализовать.
> 

Там писать нечего,

# возвращает 1 в случае успешного выполнения, иначе - 0
proc ping {address} {
	catch {[exec ping -q -c 5 $address]}
	return [expr {[lindex $::errorCode 0] eq "NONE" ? 1 : 0}]
}

proc makePing {address timeout} {
	if {[ping $address]} {
		# отпинговать удалось
	} else {
		# отпинговать не удалось
	}
	after $timeout [info level 0] $address $timeout
}

а остальное интерфейс :)

Но это не вопрос данного списка рассылки, правильный список рассылки
находился на 45.free.net, не уверен что он еще жив.