Version 6 of Monitor CPU RAM SWAP HD
Updated 2006-10-10 20:17:55
RJT Monitor usage process with cygwin
wm title . "Cliente Monitor CPU"
wm geometry . 400x300+[expr [winfo screenwidth .]/3]+[expr [winfo screenheight .]/3]
wm maxsize . 1024 768
wm minsize . 550 320
wm attributes . -alpha .65
wm protocol . WM_DELETE_WINDOW {rerun}
set varlog 1
set hc 0
set tiempo 1000
set colores {red green blue yellow violet cyan orange pink gold grey white black}
set color [lindex $colores [expr int(rand()*[llength $colores])]]
if {[lindex $::tcl_platform(platform)]=="unix"} {
set path "./"
} else {
set path ".\\"
}
global $path
destroy .m
set alto [winfo height .]
set ancho [winfo width .]
set fuente "arial [expr (($ancho/$alto)*16)] bold"
pack [frame .m -relief raised -borderwidth 0 -bg grey -height 30 ] -expand no -fill both -side top
pack [frame .m.s -relief raised -borderwidth 0 -bg grey -height 30 ] -expand no -fill x -side top
pack [label .m.s.l3 -text "Refresco (ms):"]\
[entry .m.s.e3 -textvariable tiempo -width 5 -bg white]\
[button .m.s.top -text "TOP" -command {alltop} ]\
[button .m.s.shade -text "SHADE" -command {shade} ]\
[button .m.s.run -text "RUN" -command {run} ]\
[button .m.s.bye -text "BYE" -command {bye} ]\
[button .m.s.quit -text "QUIT" -command {exit} ]\
-expand yes -fill x -side left
foreach objeto {top shade run bye quit} {
.m.s.$objeto configure -activebackground red
}
pack [frame .m.b -relief groove -borderwidth 2 -bg grey] -expand no -fill x -side top
pack [button .m.b.cpu -text "CPU" -command {set varlog 1} ]\
[button .m.b.ram -text "RAM" -command {set varlog 2} ]\
[button .m.b.swp -text "SWAP" -command {set varlog 3} ]\
[button .m.b.hdd -text "DISK" -command {set varlog 4} ]\
[button .m.b.pro -text "PROC" -command {set varlog 5} ]\
[button .m.b.sys -text "SYS" -command {set varlog 6} ]\
-expand yes -fill x -side left
foreach objeto {cpu ram swp hdd pro sys} {
.m.b.$objeto configure -activebackground yellow -relief groove
}
pack [canvas .m.g -background white ] -expand yes -fill both -side top
bind . <Motion> {wm title . "Monitor de CPU: Rolando José Torres Sánchez" }
bind . <B1-Motion> {wm title . "Monitor de CPU: %x %y" }
bind . <B2-Motion> {
set ancho [winfo width .]
set alto [winfo height .]
set posimouse [expr (%x+%y)]
set sumacoor [expr ($ancho+$alto)]
if {$posimouse <= $sumacoor} {
set trans [expr 0.1+(1.0* $posimouse / $sumacoor)]
if {($trans > 0.1) & ($trans < 2)} {
wm attributes . -alpha $trans
}
}
}
bind . <B3-Motion> {wm title . "Objeto: %W %x %y" }
proc Update { } {
global varlog servidor puerto ancho alto fuente path tiempo
set alto [winfo height .]
set ancho [winfo width .]
set fuentesize [expr int(double($alto/40))]
if {$fuentesize ==0} { incr fuentesize }
if {$tiempo <= 500} { set tiempo 500 }
set fuente "arial $fuentesize bold"
.m.g configure -width $ancho -height [expr $alto-70]
if {($varlog>=1)&($varlog<=6)} {
if {$varlog == 1 } {
.m.g delete all
set hc 0
if {[lindex $::tcl_platform(platform)]=="unix"} {
set estado [split [exec vmstat 1 2] \n]
set cpulog [lindex [lindex $estado 3]]
.m.g create text [expr ($ancho*.125)] [expr $alto-100] -text "Users: [lindex $cpulog 12]" -fill black -font $fuente
.m.g create text [expr ($ancho*.375)] [expr $alto-100] -text "System: [lindex $cpulog 13]" -fill black -font $fuente
.m.g create text [expr ($ancho*.625)] [expr $alto-100] -text "Idle: [lindex $cpulog 14]" -fill black -font $fuente
.m.g create text [expr ($ancho*.875)] [expr $alto-100] -text "Wait: [lindex $cpulog 15]" -fill black -font $fuente
.m.g create rectangle [expr ($ancho*.00)] [expr $alto-120] [expr ($ancho*.25)] [expr ($alto-120)-[expr [lindex $cpulog 12]*($alto-145)*0.01]] -fill orange
.m.g create rectangle [expr ($ancho*.25)] [expr $alto-120] [expr ($ancho*.50)] [expr ($alto-120)-[expr [lindex $cpulog 13]*($alto-145)*0.01]] -fill red
.m.g create rectangle [expr ($ancho*.50)] [expr $alto-120] [expr ($ancho*.75)] [expr ($alto-120)-[expr [lindex $cpulog 14]*($alto-145)*0.01]] -fill green
.m.g create rectangle [expr ($ancho*.75)] [expr $alto-120] [expr ($ancho* 1.)] [expr ($alto-120)-[expr [lindex $cpulog 15]*($alto-145)*0.01]] -fill blue
} else {
set estado [split [exec vmstat 1 2] \n]
set cpulog [lindex [lindex $estado 3]]
.m.g create text [expr ($ancho*1./6)] [expr $alto-100] -text "Users: [lindex $cpulog 13]" -fill black -font $fuente
.m.g create text [expr ($ancho*3./6)] [expr $alto-100] -text "System: [lindex $cpulog 14]" -fill black -font $fuente
.m.g create text [expr ($ancho*5./6)] [expr $alto-100] -text "Idle: [lindex $cpulog 15]" -fill black -font $fuente
.m.g create rectangle [expr ($ancho*.00)] [expr $alto-120] [expr ($ancho*2./6)] [expr ($alto-120)-[expr [lindex $cpulog 13]*($alto-145)*0.01]] -fill orange
.m.g create rectangle [expr ($ancho*2./6)] [expr $alto-120] [expr ($ancho*4./6)] [expr ($alto-120)-[expr [lindex $cpulog 14]*($alto-145)*0.01]] -fill red
.m.g create rectangle [expr ($ancho*4./6)] [expr $alto-120] [expr ($ancho* 1.)] [expr ($alto-120)-[expr [lindex $cpulog 15]*($alto-145)*0.01]] -fill green
}
}
if {$varlog == 2 } {
.m.g delete all
set hc 0
set estado [split [exec free] \n]
set allmem [lindex [lindex $estado 1] 1]
set usomem [lindex [lindex $estado 1] 2]
set fremem [lindex [lindex $estado 1] 3]
set usobuf [lindex [lindex $estado 2] 2]
set frebuf [lindex [lindex $estado 2] 3]
.m.g create text [expr ($ancho*.1)] [expr $alto-100] -text "RAM:\n$allmem" -fill black -font $fuente -justify center
.m.g create text [expr ($ancho*.3)] [expr $alto-100] -text "RAM Usada:\n$usomem" -fill black -font $fuente -justify center
.m.g create text [expr ($ancho*.5)] [expr $alto-100] -text "RAM Libre:\n$fremem" -fill black -font $fuente -justify center
.m.g create text [expr ($ancho*.7)] [expr $alto-100] -text "Buffer Usado:\n$usobuf" -fill black -font $fuente -justify center
.m.g create text [expr ($ancho*.9)] [expr $alto-100] -text "Buffer Libre:\n$frebuf" -fill black -font $fuente -justify center
.m.g create rectangle [expr ($ancho*.0)] [expr $alto-120] [expr ($ancho*.2)] [expr ($alto-120)-[expr ($allmem./$allmem.)*($alto-140)]] -fill cyan
.m.g create rectangle [expr ($ancho*.2)] [expr $alto-120] [expr ($ancho*.4)] [expr ($alto-120)-[expr ($usomem./$allmem.)*($alto-140)]] -fill red
.m.g create rectangle [expr ($ancho*.4)] [expr $alto-120] [expr ($ancho*.6)] [expr ($alto-120)-[expr ($fremem./$allmem.)*($alto-140)]] -fill {dark green}
.m.g create rectangle [expr ($ancho*.6)] [expr $alto-120] [expr ($ancho*.8)] [expr ($alto-120)-[expr ($usobuf./$allmem.)*($alto-140)]] -fill orange
.m.g create rectangle [expr ($ancho*.8)] [expr $alto-120] [expr ($ancho*1.)] [expr ($alto-120)-[expr ($frebuf./$allmem.)*($alto-140)]] -fill yellow
}
if {$varlog == 3 } {
.m.g delete all
set hc 0
set estado [split [exec free] \n]
set allswpmem [lindex [lindex $estado 3] 1]
set usoswpmem [lindex [lindex $estado 3] 2]
set freswpmem [lindex [lindex $estado 3] 3]
.m.g create text [expr ($ancho*.166)] [expr $alto-100] -text "SWAP $allswpmem" -fill black -font $fuente
.m.g create text [expr ($ancho*.500)] [expr $alto-100] -text "SWAP Usada $usoswpmem" -fill black -font $fuente
.m.g create text [expr ($ancho*.833)] [expr $alto-100] -text "SWAP Libre $freswpmem" -fill black -font $fuente
.m.g create rectangle [expr ($ancho*0.00)] [expr $alto-120] [expr ($ancho*.333)] [expr ($alto-120)-[expr ($allswpmem./$allswpmem.)*($alto-140)]] -fill cyan
.m.g create rectangle [expr ($ancho*.333)] [expr $alto-120] [expr ($ancho*.666)] [expr ($alto-120)-[expr ($usoswpmem./$allswpmem.)*($alto-140)]] -fill red
.m.g create rectangle [expr ($ancho*.666)] [expr $alto-120] [expr ($ancho*1.00)] [expr ($alto-120)-[expr ($freswpmem./$allswpmem.)*($alto-140)]] -fill {dark green}
}
if {$varlog == 4 } {
.m.g delete all
set estado [split [exec df -P -k ] \n]
set filas [llength $estado]
for {set i 0 } {$i<$filas} {incr i} {
set particion [lindex [lindex $estado $i] 0]
set size [lindex [lindex $estado $i] 1]
set uso [lindex [lindex $estado $i] 2]
if {$i >0 } {
set porcenta [expr ($uso*100/$size)]
} else {
set porcenta 0
}
destroy .m.g.f$i
set altofila 20
pack [frame .m.g.f$i -height $altofila] -fill x -side top
pack [label .m.g.f$i.c1 -text $particion -width 20 -relief raised -bg white -justify right -font $fuente ]\
[label .m.g.f$i.c2 -text $size -width 10 -relief raised -bg white -justify right -font $fuente ]\
[label .m.g.f$i.c3 -text $uso -width 10 -relief raised -bg white -justify right -font $fuente]\
[label .m.g.f$i.c4 -text $porcenta -width 10 -relief raised -bg white -justify right -font $fuente] -fill x -side left
pack [canvas .m.g.f$i.c5 -width [expr ($porcenta*2)] -height $altofila -bg red -relief flat -bd 0]\
[canvas .m.g.f$i.c6 -width [expr (200-($porcenta*2))] -height $altofila -bg "green" -relief flat -bd 0] -fill x -side left
}
set varlog 0
stop
}
if {$varlog == 5 } {
.m.g delete all
set hc 0
set estado [split [exec vmstat 1 2] \n]
set cpulog [lindex [lindex $estado 3]]
.m.g create text [expr ($ancho*.125)] [expr $alto-100] -text "Read: [lindex $cpulog 0]" -fill black -font $fuente
.m.g create text [expr ($ancho*.485)] [expr $alto-100] -text "Block: [lindex $cpulog 1]" -fill black -font $fuente
.m.g create text [expr ($ancho*.815)] [expr $alto-100] -text "Write: [lindex $cpulog 2]" -fill black -font $fuente
.m.g create rectangle [expr ($ancho*.00)] [expr $alto-120] [expr ($ancho*.33)] [expr ($alto-120)-[expr [lindex $cpulog 0]*($alto-145)*1]] -fill red
.m.g create rectangle [expr ($ancho*.33)] [expr $alto-120] [expr ($ancho*.66)] [expr ($alto-120)-[expr [lindex $cpulog 1]*($alto-145)*1]] -fill yellow
.m.g create rectangle [expr ($ancho*.66)] [expr $alto-120] [expr ($ancho*.99)] [expr ($alto-120)-[expr [lindex $cpulog 2]*($alto-145)*1]] -fill green
}
if {$varlog == 6 } {
.m.g delete all
set hc 0
set estado [split [exec vmstat 1 2] \n]
set cpulog [lindex [lindex $estado 3]]
set inter [expr [lindex $cpulog 11]]
set block [expr [lindex $cpulog 12]]
if {$inter >= $block} {
set mayor [expr $inter]
} else {
set mayor [expr $block]
}
.m.g create text [expr ($ancho*.25)] [expr $alto-100] -text "Interrup: $inter " -fill black -font $fuente
.m.g create text [expr ($ancho*.75)] [expr $alto-100] -text "Block: $block" -fill black -font $fuente
.m.g create rectangle [expr ($ancho*.0)] [expr $alto-120] [expr ($ancho*.5)] [expr ($alto-120)-[expr double(($inter+0.0)/$mayor)*($alto-145) ]] -fill blue
.m.g create rectangle [expr ($ancho*.5) ] [expr $alto-120] [expr ($ancho*1)] [expr ($alto-120)-[expr double(($block+0.0)/$mayor)*($alto-145) ]] -fill yellow
}
after $tiempo Update
}
}
proc alltop {} {
wm attributes . -topmost yes
.m.s.top configure -text "NORMAL" -command {subtop}
}
proc subtop {} {
wm attributes . -topmost no
.m.s.top configure -text "TOP" -command {alltop}
}
proc shade {} {
wm overrideredirect . yes
.m.s.shade configure -text "UNSHADE" -command {unshade}
}
proc unshade {} {
wm overrideredirect . no
.m.s.shade configure -text "SHADE" -command {shade}
}
proc bye {} {
global tiempo
wm withdraw .
after $tiempo
wm deiconify .
.m.s.bye configure -text "HI" -command {
.m.s.bye configure -text "BYE"
after 1500
bye
}
}
proc rerun {} {
wm withdraw .
after 5000
wm deiconify .
}
proc run {} {
global varlog
.m.s.run configure -text "STOP " -command {stop}
set varlog 1
if { [winfo exists .m.g.f1] } {
catch {
destroy .m.g
pack [canvas .m.g -background white ] -expand yes -fill both -side top
.m.g delete all
}
}
Update
}
proc stop {} {
global varlog
.m.s.run configure -text "RUN" -command {run}
set varlog 0
}
alltop
shade
run