set rapor "#rapor-kanal"

set zaman [clock format [clock seconds] -format "%Y.%m.%d %A %H:%M:%S"]

bind raw * NOTICE snotice

proc snotice {from key arg} {
 if {![string match -nocase "*whois on you*" $arg] \
 && [string match *!*@* $from]} { return 0 }
 
        set nick [lindex [split $arg] 2]
        set host [lindex [split $arg] 3]
	set ident [lindex [split $host @] 0]
	set uhost [lindex [split $host @] 1] 
	set zmn [string map -nocase {
	                "Sunday" "Pazar" "Monday" "Pazartesi" "Tuesday" "Salı"
			"Wednesday" "Çarşamba" "Thursday" "Perşembe"
			"Friday" "Cuma" "Saturday" "Cumartesi"} $::zaman]
					
      puthelp "PRIVMSG $nick :Merhaba Ben $::botnick"
      putserv "PRIVMSG $::rapor :$zmn Nick:$nick Ident:$ident Host:$uhost who çekti."
   return 0
}

putlog "ok..."