Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.

####################################################
# Descri��o: Diz Quanto tempo a maquina que esta   # 
# rodando o eggdrop Esta ligada!                   #
# Comandos: !up ou .up na PL     #
####################################################

# Coloque o Comando Inicial que deseja usar ! ou @ etc...
set comando "!"

# Coloque a Flags que a pessoa deve ter para poder usar o comando :P
set flags "m"

## n�o edite nada abaixo dessa linha!! ##
## n�o edite nada abaixo dessa linha!! ##

set up(version) "1.0"
set autoruptime(autor) "IRCMania"

bind pub $flags ${comando}up pub:up
bind pubm $flags "*${botnet-nick} ${comando}up*" pub:up

proc up2 { } {
	if {[catch {exec uptime} uptime]} { set uptime "Uptime no disponible" }
	if {[catch {exec uname -s} machine]} { set machine [unames] }
	if {[catch {exec hostname} hostname]} {	set hostname [info hostname] }
	return "Uptime: $uptime"
}

proc pub:up { nick host hand chan arg } {
	putserv "PRIVMSG $chan :[up2]"
}

bind dcc $flags up dcc:dccshell

proc dcc:dccshell { hand idx arg } {
	putdcc $idx "[up2]"
}
	

putlog "ShellUptime.tcl vers�o$up(version) Carregada by $autoruptime(autor)"

Explorando: ./tcl

Vista previa de: up.tcl