View Single Post
Old 03-18-2005, 03:45 PM  
Dr4gOoN
Junior Member
 
Join Date: Jan 2005
Posts: 14
Default

super !!!
Je l'ai reinstaller et now, ca marche nickel !!!
Merci bcp, now pour iouptime j'ai :
Quote:
set binary(UPTIME) "D:/io/ioFTPD/scripts/iouptime/ioUptime.exe"
Quote:
set disable(UPTIME) 0
Quote:
set announce(UPTIME) "-%sitename- \[%section\] + %taskname started @ %EUdate %time, running for %dayd %hourh %minutem %seconds"
Quote:
################################################## #######
# SHOWING UPTIME ON IRC #
################################################## #######
proc proc_uptime {nick uhost hand chan arg} {
global binary disable uptime announce
if { $disable(UPTIME) == 0 } {
set results [exec $binary(UPTIME)]
foreach result [split $results "\n"] {
if { [lindex $result 1] == "not" } {
set output $announce(DEFAULT)
set output [replacevar $output "%msg" $result]
set output [basicreplace $output "UPTIME"]
sndchan "putserv" $chan $output
} else {
if { ! [string compare [lindex $announce(UPTIME) 0] "random"] && [string is digit -strict [lindex $announce(UPTIME) 1]] == 1 } {
set output $random(UPTIME\-[rand [lindex $announce(UPTIME) 1]])
} else {
set output $announce(UPTIME)
}
set output [replacevar $output "%taskname" [format %-7.7s [lindex $result 0]]]
set output [replacevar $output "%EUdate" [lindex $result 1]]
set output [replacevar $output "%USdate" [lindex $result 2]]
set output [replacevar $output "%time" [lindex $result 3]]
set output [replacevar $output "%day" [lindex $result 4]]
set output [replacevar $output "%hour" [lindex $result 5]]
set output [replacevar $output "%minute" [lindex $result 6]]
set output [replacevar $output "%second" [lindex $result 7]]
set output [basicreplace $output "UPTIME"]
sndchan "putserv" $chan $output
}
}
}
}
Voila a peu pres tt ce que j'ai concernant iouptime ds mon dZSbot.tcl.
Dr4gOoN is offline   Reply With Quote