memory.tcl
Добавлено: 30 апр 2009 23:46Скрипт показывает версию бота, tcl, используемую память и объем на диске.
Результат работы:
- Код: Выделить всё
bind pub -|- !memory pub_usememory
proc pub_usememory {nick host hand chan arg} {
global version
putserv "privmsg $chan :\002$nick,\002\00314 Моя версия \00304[lindex $version 0]\00314, версия TCL \00304[info patchlevel]\00314, я использую\00304 [exec ps -orss= -p [exec cat $::pidfile]] \00314Кб памяти и занимаю\00304 [format %.2f [expr {[lindex [split [exec du -s [exec pwd]]""] 0]} / 1024.0]] \00314Мб места на диске.\003"
return 0
}
putlog "[info script] v1.0 by Xam loaded."
Результат работы:
[23:44:08] <@tvrsh> !memory
[23:44:09] <+seen> tvrsh, Моя версия 1.6.19, версия TCL 8.4.11, я использую 5600 Кб памяти и занимаю 9.49 Мб места на диске.