System

[TerraChat]

Código [Seleccionar] Expandir

set cpu [exec grep "cpu MHz"    /proc/cpuinfo]
set model [exec grep "model name" /proc/cpuinfo]
set vendor [exec grep "vendor_id" /proc/cpuinfo]
set cache [exec grep "cache size"    /proc/cpuinfo]

bind pub - !sys system

set kanaladi "#Eggdrops"

proc system {nick host hand chan text} {

if {[string match -nocase $chan $::kanaladi]} {
putquick "privmsg $chan :\t\002SYSTEM INFO"
putquick "privmsg $chan :------------------------------"
putquick "privmsg $chan :\0034Vendor ID :\003[string map {"vendor_id    " ""} $::vendor]"
putquick "privmsg $chan :\0034Model Name :\003[string map {"model name    " "" "     " "" } $::model]"
putquick "privmsg $chan :\0034CPU Mhz :\003[string map {"cpu MHz    " ""} $::cpu]"
putquick "privmsg $chan :\0034Cache Size :\003[string map {"cache size    " ""} $::cache]"
putquick "privmsg $chan :\0034OS Version :\0031:\003\003 $::tcl_platform(os) $::tcl_platform(osVersion) / $::tcl_platform(machine)"
putquick "privmsg $chan :\0034TCL Version :\0031:\003\003 $::tcl_patchLevel"
putquick "privmsg $chan :\0034Eggdrop Version :\0031:\003\003 [lindex $::version 0]"
putquick "privmsg $chan :\0034Bot Uptime :\0031:\003\003 [duration [expr {[clock seconds] - $::uptime}]]"
putquick "privmsg $chan :\0034Host :\0031:\003\003 [info hostname]"
putquick "privmsg $chan :\0034Date :\0031:\003\003 [ctime [unixtime]] $::timezone"
putquick "privmsg $chan :------------------------------"
}
}