botnetinfo.tcl by: CyberpunkZ

#####################
# botnetinfo script #
# by: CyberpunkZ    #
#####################


#set this to "-" if you want everyone to use the !botuptime & !sysinfo command

set userflag "-"

#set this to any word you want to type if you want to see the botnet infomation

#channel botnet uptime
set trig "!botuptime"
#channel botnet system information (you need sysinfo script just ask me)
set trig2 "!sysinfo"

#####DONT EDIT IF YOU DONT UNDERSTAND ANY OF THE STUFF BELOW######

bind PUB $userflag $trig main_func
bind PUB $userflag $trig2 main_func2

proc main_func {nick uhost hand chan arg} {show_botnetinfo $nick $uhost $hand $chan $arg}

proc show_botnetinfo {nick uhost hand chan arg} {
catch {exec uptime} shelluptime
#catch {exec uname -a} shellver
#catch {exec inxi -c 12 -v 0} inxiv0

putserv "PRIVMSG $chan : --»\0034 \037Raspberry Pi 2 Botnet Uptime\037 \003«--"
putserv "PRIVMSG $chan :"
puthelp "PRIVMSG $chan : --»\0034 Botnet Uptime: [duration [expr [clock seconds] - $::uptime]]\002\003"
#puthelp "PRIVMSG $chan : --»\0034 Shell Uptime:$shelluptime running on\003 \0034$shellver\003"
#putserv "PRIVMSG $chan : --» $inxiv0"
}

proc main_func2 {nick uhost hand chan arg} {show_sysinfo $nick $uhost $hand $chan $arg}

proc show_sysinfo {nick uhost hand chan arg} {
catch {exec sysinfo} shellinfo

putserv "PRIVMSG $chan : --»\0034 \037Full Raspberry Pi 2 System Information\037 \003«--"
puthelp "PRIVMSG $chan : --»\0034 System Info: $shellinfo \003"
}

############################################################
putlog "Botnetinfo by: CyberpunkZ is now loaded."