#######################################
# TcL scripting WEB TXT Aktarılan     #
#  verileri #chan  kanalına gönderir. #
#   TcL coder CLubber                 #
#                                     #
#     Düzenleme MesqeN                #
#######################################
# Zaman Aralıgını 4 olarak belirledim # 
# isteginize Göre degiştirebilirsiniz.# 
# Chan Yazan yere veriyi istediginiz  #
# Kanal adını yazın..                 #
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazan yere veri     #
# Cekceginiz adresi yazın....         #
#######################################
set zaman_araligi "4"
if {![string match "*basla*" [timers]]} {  
  timer $zaman_araligi basla  
}  
proc basla {{text ""}} {
  global zaman_araligi 
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "w"]
  foreach i $list {
  putquick "PRIVMSG #Chan $i"
      ::http::cleanup $files
  }
 timer $zaman_araligi basla
}
putlog "#######################################"
putlog "  banac TCL v1.0.2 Load edildi        #"
putlog "#######################################"