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

Forumları Okundu Kabul Et

1Beğeni(ler)

1 Post By saywhat

Yeni Konu aç

Cevapla

Alt

20 Ekim 2013, 03:22

#1

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

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: Kodu kopyalamak için üzerine çift tıklayın!

## 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)"

Alıntı ile Cevapla

IRCForumlari.NET Reklamlar

Alt

20 Ekim 2013, 13:12

#2

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: Pre TCL

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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

## 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)"

Alıntı ile Cevapla

Alt

20 Ekim 2013, 17:20

#3

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

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

Alıntı ile Cevapla

Alt

20 Ekim 2013, 18:07

#4

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: Pre TCL

bir satırı görmemişim ...
hata vermesi normalmiş.
şimdi deneyin...

Kod: Kodu kopyalamak için üzerine çift tıklayın!

## 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)"

Alıntı ile Cevapla

Alt

20 Ekim 2013, 21:56

#5

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

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.

Alıntı ile Cevapla

Alt

21 Ekim 2013, 00:40

#6

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

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: Kodu kopyalamak için üzerine çift tıklayın!

  variable chan "#bitturk"

bu şekilde değişip,kaç kanalda çalışacaksa arada bir boşluk bırakarak çoğaltın.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  variable chan {#deneme1 #deneme2}

satır 31'de :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

          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: Kodu kopyalamak için üzerine çift tıklayın!

         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...

Alıntı ile Cevapla

Alt

21 Ekim 2013, 02:00

#7

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PRE) 2013-10-20 22:35:52 (TV-x264) Ojciec.Mateusz.S10E07.PL.720p.HDTV.x264-ProPLTV

2. dediğiniz ise

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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ı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ancak uğraştığın için teşekkürü bir borç bilirim. Tek kanalla idare edicez artık. Saygılar sevgiler..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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" }
      }

Alıntı ile Cevapla

Alt

21 Ekim 2013, 02:35

#8

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: Pre TCL

hatalı eklemişiniz.

burdan kopyalayın...

Kod: Kodu kopyalamak için üzerine çift tıklayın!

## 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)"

Alıntı ile Cevapla

Alt

21 Ekim 2013, 10:36

#9

Çevrimdışı

Kullanıcıların profil bilgileri misafirlere kapatılmıştır.

IF Ticaret Sayısı: (0)

IF Ticaret Yüzdesi:(%)

Cevap: Pre TCL

Bu sefer oldu. Çok teşekkür ederim.

Alıntı ile Cevapla

Cevapla

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Yetkileriniz
Konu Acma Yetkiniz Yok Cevap Yazma Yetkiniz Yok Eklenti Yükleme Yetkiniz Yok Mesajınızı Değiştirme Yetkiniz Yok BB code is Açık Smileler Açık [IMG] Kodları Açık HTML-Kodu Kapalı Trackbacks are Kapalı Pingbacks are Açık Refbacks are Açık Forum Rules

Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.

İletişim Arşiv Gizlilik Sözleşmesi Yukarı git

yavru köpek sohbet sohbet teması yetişkin sohbet

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO

Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org