IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Pre TCL (https://www.ircforumlari.net/eggdrop-neostats-bnc/550862-pre-tcl.html)

kheldor 20 Ekim 2013 03:22

Pre TCL
 
Aktif ve sorunsuz çalışan bu bot için sadece variable chan 2. kanal için boşluk bırakarak 2. kanalı yazdığımda çalışmamakta.

2 veya daha fazla kanalda aktif olarak calısması icin ne yapmamız gerek. Teşekkürler.


Kod:

## Displys Scene Releases that have been Pred on the website
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  #Set to channel to show Pre information
  variable chan "#bitturk"
  #Change preNum to how many Search Results you want shown 
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
      }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" }
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } {
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release 
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
    } elseif { [http::ncode $token] == "404" } { return 0
    } elseif { [http::status $token] == "ok" } { set data [http::data $token]
    } elseif { [http::status $token] == "timeout" } {  return 0
    } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"


saywhat 20 Ekim 2013 13:12

Cevap: Pre TCL
 
bota bağlan : .chanset #kanal +pre ..
tüm kanallların için : .chanset * +pre

Kod:

## Displys Scene Releases that have been Pred on the website
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  # bota bağlan : .chanset #kanal +pre  .. tüm kanallların için : .chanset * +pre
  setudef flag pre
  #Change preNum to how many Search Results you want shown 
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
      }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" }
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } {
  if {![channel get $chan pre]} { return;}
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release 
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
    } elseif { [http::ncode $token] == "404" } { return 0
    } elseif { [http::status $token] == "ok" } { set data [http::data $token]
    } elseif { [http::status $token] == "timeout" } {  return 0
    } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"


kheldor 20 Ekim 2013 17:20

Cevap: Pre TCL
 
Sevgili saywhat. Dediklerini aynen yaptım. Ancak hala 1. kanal'a yansıtıyor. 2. kanalda bir hareket yok.

[17:13:40] <BT> [17:13:40] <<ArchangeL>>.chanset #uploader +pre
[17:13:40] <BT> [17:13:41] <<ArchangeL>> !ArchangeL! chanset chanset +pre
[17:13:40] <BT> Invalid mode failures for #uploader: +pre
[17:13:40] <BT> For the valid modes, type: (/msg) BT chaninfo (#channel) help
[17:13:40] <BT> [17:13:41] Writing internal bot data ....
[17:13:40] <BT> [17:13:41] Writing user file...
[17:13:40] <BT> [17:13:41] Writing channel file...
[17:13:40] <BT> [17:13:41] #ArchangeL# chanset #uploader +pre

saywhat 20 Ekim 2013 18:07

Cevap: Pre TCL
 
bir satırı görmemişim ...
hata vermesi normalmiş.
şimdi deneyin...
Kod:

## Displys Scene Releases that have been Pred on the website
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  ## bota bağlan : .chanset #kanal +pre  .. tüm kanallların için : .chanset * +pre
  setudef flag pre
  #Change preNum to how many Search Results you want shown 
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set chan $::pchan
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
      }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" }
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } {
  if {![channel get $chan pre]} { return;}
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1; set ::pchan $chan
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release 
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
    } elseif { [http::ncode $token] == "404" } { return 0
    } elseif { [http::status $token] == "ok" } { set data [http::data $token]
    } elseif { [http::status $token] == "timeout" } {  return 0
    } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"


kheldor 20 Ekim 2013 21:56

Cevap: Pre TCL
 
Tekrar rahatsız ediyorum ancak

[21:39:18] <ArchangeL> .chanset #uploader +pre
[21:39:18] <BT> [21:39:19] <<ArchangeL>> !ArchangeL! chanset chanset +pre
[21:39:18] <BT> Successfully set mode +pre for #uploader
[21:39:18] <BT> [21:39:19] Writing internal bot data ....
[21:39:18] <BT> [21:39:19] Writing user file...
[21:39:18] <BT> [21:39:19] Writing channel file...
[21:39:18] <BT> [21:39:19] #ArchangeL# chanset #uploader +pre
[21:39:20] <ArchangeL> .chanset #bitturk +pre
[21:39:20] <BT> [21:39:21] <<ArchangeL>> !ArchangeL! chanset chanset +pre
[21:39:20] <BT> Successfully set mode +pre for #bitturk
[21:39:20] <BT> [21:39:21] Writing internal bot data ....
[21:39:20] <BT> [21:39:21] Writing user file...
[21:39:20] <BT> [21:39:21] Writing channel file...
[21:39:20] <BT> [21:39:21] #ArchangeL# chanset #bitturk +pre


Yazmama rağmen herhangi bir yazı kanallara gelmemekte. Hata ne olabilir ? Teşekkürler.

Not: Kanallarda !pre komutunu tek başına uyguladığımda yanıt alıyorum.

[21:33:10] <%BT> (PRE) 2013-10-20 18:33:14 (MP3) Gary_Barlow-Open_Road-CD-FLAC-1997-LoKET
[21:33:10] <%BT> (PRE) 2013-10-20 18:32:47 (MP3) Diva_Suicide-Scars-PROMO-CDR-FLAC-2010-LoKET
[21:33:10] <%BT> (PRE) 2013-10-20 18:31:12 (MP3) Miraculum-Whirlfinder-WEB-2013-FALCON
[21:33:10] <%BT> (PRE) 2013-10-20 18:30:41 (MP3) Von-Satanic_Blood-2012-NSTM
[21:33:10] <%BT> (PRE) 2013-10-20 18:30:34 (x264) The.Incredibles.2004.iCELANDiC.BDRip.x264-FARGIRENIS

Ancak yeni sunum çıktığında sunum otomatik düşmemekte. Saygılar.


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:56 -->-> Daha önceki mesaj 21:49 --

Konunun ilk postundaki code'da 1. kanala sunumlar oto düşmekte idi. Aynı anda 2 kanala düşmesini istiyorum oto. İstek ve arzu bu sadece. Saygılar.

saywhat 21 Ekim 2013 00:40

Cevap: Pre TCL
 
bir önceki,yukarda verdiğim düzenlemeyi şimdi denediğimde gördüğüm , arama yapmak sorun olmuyor ancak iki kanal üstünde aktif ettiğimde kodu birinde oto mesajı atıyor diğerinde atmıyor ama ikisindede aramayı yapıyor...
(nedenini kodu yazana sormalı..)

verdiğiniz koddaki 8. satır:
Kod:

  variable chan "#bitturk"
bu şekilde değişip,kaç kanalda çalışacaksa arada bir boşluk bırakarak çoğaltın.
Kod:

  variable chan {#deneme1 #deneme2}
satır 31'de :
Kod:

          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
bu şekilde direk üzerinde oto mesaj atmasını istediğiniz kanal isim/lerini girip satır/ları çoğaltarak,birden fazla kanalda yeni çıkanları atmasını sağlayabilirsiniz:
Kod:

        if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} {
                  putquick "PRIVMSG #deneme1 :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
                  putquick "PRIVMSG #deneme2 :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"

bunların dışında kodu baştan yazmak hariç denediğim ne namespace global variable'ı ne array set ... nede variable'ı diğer prosedürde taşıyıp çoğaltmayı kabul etmedi.

aramada sorun çıkmıyor ancak iş çıkanları kanala postalamasına gelince sadece tek bir kanala atıyor diğerlerine atmayı red ediyor.
ancak yukardaki değişimlerden sonra çalışması istenen her kanalda atması mümkün oluyor...

kheldor 21 Ekim 2013 02:00

Cevap: Pre TCL
 
Dediklerinizi harfiyen yaptım.
1. kanal bitturk
2. kanal uploader
Dediğiniz şekilde ekleme yaptığımda
Alıntı:

variable chan {#bitturk #uploader}
1. kanalda oto çıkartırken variable chandeki 2. kanalıda 1. kanalın oto mesaj önünde çıkartmakta.


[01:35:49] <%BT> #uploader :(PRE) 2013-10-20 22:35:52 (TV-x264) Ojciec.Mateusz.S10E07.PL.720p.HDTV.x264-ProPLTV

2. dediğiniz ise

Kod:

if  {![regexp -nocase $pre::language $release] && [regexp -nocase  $section $pre::types] && $PreNew != $PreOld} {                    putquick "PRIVMSG #deneme1 :\00304(\00302PRE\00304)\00305 $stamp  \00304(\00302$section\00304)\00301 $release"                  putquick "PRIVMSG #deneme2 :\00304(\00302PRE\00304)\00305 $stamp  \00304(\00302$section\00304)\00301 $release"
Bu şekilde sorunsuz eklememe rağmen ne yazıkkı üzülerek söylüyorum yine aktif olmadı :(
Ancak uğraştığın için teşekkürü bir borç bilirim. Tek kanalla idare edicez artık. Saygılar sevgiler..


Kod:

if  {![regexp -nocase $pre::language $release] && [regexp -nocase  $section $pre::types] && $PreNew != $PreOld} {
          putquick "PRIVMSG #bitturk :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          putquick "PRIVMSG #uploader :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          if {![regexp -nocase $pre::language $release] && [regexp  -nocase $section $pre::types] && $PreNew != $PreOld} { putquick  "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp  \00304(\00302$section\00304)\00301 $release" }
      }


saywhat 21 Ekim 2013 02:35

Cevap: Pre TCL
 
hatalı eklemişiniz.

burdan kopyalayın...

Kod:

## Displys Scene Releases that have been Pred on the website
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  #Set to channel to show Pre information
  variable chan {#bitturk #uploader}
  #Change preNum to how many Search Results you want shown 
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} {
          putquick "PRIVMSG #bitturk :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          putquick "PRIVMSG #uploader :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          }
        }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" }
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } {
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release 
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
    } elseif { [http::ncode $token] == "404" } { return 0
    } elseif { [http::status $token] == "ok" } { set data [http::data $token]
    } elseif { [http::status $token] == "timeout" } {  return 0
    } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"


kheldor 21 Ekim 2013 10:36

Cevap: Pre TCL
 
Bu sefer oldu. Çok teşekkür ederim.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:22.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk