UPS: apcupsd clean sources
[tomato.git] / release / src / router / apcupsd / examples / gui / events.tcl
blob4d96883871591185bae4637d82c16e07a710638e
1 proc GetEvents {} {
2 .events.text delete 0.0 end
3 set fd [open "| ./client localhost:7000 events" "r"]
4 while {[gets $fd line] > 0} {
5 .events.text insert end "\n"
6 .events.text insert end $line
7 }
8 catch {close $fd}
9 .events.text delete 0.0 2.0