2011-06-07 13:26:45 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
2011-06-07 14:45:01 +00:00
|
|
|
if {[os.gethostname] eq "hosting"} {
|
|
|
|
set size "1TB"
|
|
|
|
set used "100GB"
|
|
|
|
set perc "10"
|
|
|
|
} else {
|
|
|
|
foreach df [split [exec df -h] "\n\r"] {
|
2011-06-16 03:10:41 +00:00
|
|
|
if [string match *sd*2* $df] {
|
2011-06-07 14:45:01 +00:00
|
|
|
regsub -all -- {[[:space:]]+} $df " " df
|
|
|
|
set fields [split $df]
|
|
|
|
set size [lindex $fields 1]
|
|
|
|
set used [lindex $fields 2]
|
|
|
|
set perc [string trimright [lindex $fields 4] "%"]
|
|
|
|
}
|
2011-06-07 13:26:45 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
set file [format "%02d" [expr {$perc * 25 / 100 + 1}]]
|
|
|
|
|
|
|
|
puts "<div style=\"float: right; background:url('/images/345_1_27_ST_USB_BG.png')\">"
|
|
|
|
puts "<img src=/images/345_2_14_ST_HDD_$file.png>"
|
|
|
|
puts "</div>"
|
|
|
|
puts "<span style=\"float: right\">"
|
|
|
|
puts "<br>"
|
|
|
|
puts "Total space: $size<br>"
|
|
|
|
puts "Used: $used ($perc%)"
|
|
|
|
puts "</span>"
|
|
|
|
|
|
|
|
|