Code: Select all
set seconds [expr $minutes * 60]
Code: Select all
utimer [expr $minutes * 60] [list puthelp "PRIVMSG $nick :\0034TIMERARLARM!!!: \0030$xtmsg ist fertig!"]
Code: Select all
set seconds [expr $minutes * 60]
Code: Select all
utimer [expr $minutes * 60] [list puthelp "PRIVMSG $nick :\0034TIMERARLARM!!!: \0030$xtmsg ist fertig!"]
Code: Select all
set fileout [exec cat $file | grep -E "sshd|kernel"]
Code: Select all
source scripts/script.tcl
Code: Select all
proc removeamp {string} {
regsub -all " " $string "" string
regsub -all "amp;" $string "" string
return $string
}
Code: Select all
proc removeamp {string} {
regsub -all "amp;" $string "" string
return $string
}
Code: Select all
set newsfile [::http::geturl http://xxx.xxx.xxx/xxx.xxx]
upvar #0 $newsfile state
array set meta $state(meta)
#just for testing :)
putquick "PRIVMSG $nick :Last Modified : $meta(Last-Modified)"
putquick "PRIVMSG $nick :File date : $meta(Date)"