bind dcc - acesso dcc_acesso
proc dcc_acesso {hand idx arg} {
set usuario [lindex $arg 0]
if {[validuser $usuario]} {
set ultimo "[ctime [getuser $usuario laston]]"
if {[lindex $ultimo 0] == "Sun"} { set dia "Domingo" }
if {[lindex $ultimo 0] == "Mon"} { set dia "Segunda-Feira" }
if {[lindex $ultimo 0] == "Tue"} { set dia "Terca-Feira" }
if {[lindex $ultimo 0] == "Wed"} { set dia "Quarta-Feira" }
if {[lindex $ultimo 0] == "Thu"} { set dia "Quinta-Feira" }
if {[lindex $ultimo 0] == "Fri"} { set dia "Sexta-Feira" }
if {[lindex $ultimo 0] == "Sat"} { set dia "Sabado" }
if {[lindex $ultimo 1] == "Jan"} { set mes "Janeiro" }
if {[lindex $ultimo 1] == "Feb"} { set mes "Fevereiro" }
if {[lindex $ultimo 1] == "Mar"} { set mes "Marco" }
if {[lindex $ultimo 1] == "Apr"} { set mes "Abril" }
if {[lindex $ultimo 1] == "May"} { set mes "Maio" }
if {[lindex $ultimo 1] == "Jun"} { set mes "Junho" }
if {[lindex $ultimo 1] == "Jul"} { set mes "Julho" }
if {[lindex $ultimo 1] == "Aug"} { set mes "Agosto" }
if {[lindex $ultimo 1] == "Sep"} { set mes "Setembro" }
if {[lindex $ultimo 1] == "Oct"} { set mes "Outubro" }
if {[lindex $ultimo 1] == "Nov"} { set mes "Novembro" }
if {[lindex $ultimo 1] == "Dec"} { set mes "Dezembro" }
putdcc $idx "␃1#␃2#␃12#␃5 Acesso de ␂␃2$usuario␂␃5:"
putdcc $idx "␃1#␃2#␃12#␃5 Ultimo Acesso:␃2 $dia, [lindex $ultimo 2] de $mes de [lindex $ultimo 4] às [lindex $ultimo 3]"
putdcc $idx "␃1#␃2#␃12#␃5 Fim do Acesso"
return 1
} else {
putdcc $idx "␃2␂$usuario␂␃5 nao esta cadastrado neste BOT."
return 1
}
}
# LoG Credits
putlog "␃2Acesso Tcl v1.0 - By ␂SycLonE␂"