memory.tcl

Решение вопросов при работе с TCL скриптами.

Модератор: Модераторы

memory.tcl

Сообщение tvrsh » 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 Мб места на диске.
Have fun.
-
Получить помощь можно на каналах #egghelp в сети IrcNet.ru и #eggdrop в сети RusNet(Ключ канала eggdrop).
Перед созданием новой темы внимательно читайте Правила оформления топиков.
Аватара пользователя
tvrsh
 
Сообщения: 1230
Зарегистрирован: 19 авг 2008 16:55
Откуда: Russian Federation, Podolsk
Благодарил (а): 6 раз.
Поблагодарили: 130 раз.
Версия бота: Eggdrop 1.6.20+suzi

Вернуться в TCL скрипты

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10

cron