| immortaL | 14 Haziran 2016 22:55 |
Sistem.TCL
Shell makinanızın donanımsal ve yazılımsal bir kaç özelliğini size aktarır.. Kod:
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 "#kanal"
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 :------------------------------"
}
}
| 