bind join - * join_greet

proc join_greet {nick uhost handle channel} {
if {$nick == "Koruma"} {return 0}
     if {$channel == "#Sohbet"} {
     putquick "PRIVMSG $nick :\001VERSION\001"
     putquick "PRIVMSG $nick :\001FINGER\001"
    }
}

bind ctcr - "*VERSION*" version_cevabi

proc version_cevabi {nick uhost handle {dest ""} keyword text} {
putquick "PRIVMSG #Opers :4Version Cekilen Nick: 1(12  $nick 1)"
putquick "PRIVMSG #Opers :4Version Cevabi: 1(12 $text 1)"
}

bind ctcr - "*FINGER*" finger_cevabi

proc finger_cevabi {nick uhost handle {dest ""} keyword text} {
putquick "PRIVMSG #Opers :4Finger Cekilen Nick: 1(12  $nick 1)"
putquick "PRIVMSG #Opers :4Finger Cevabi: 1(12 $text 1)"
}