IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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/)
-   -   webmaster botu arıyorum. (https://www.ircforumlari.net/eggdrop-neostats-bnc/425271-webmaster-botu-ariyorum.html)

gapex 10 Kasım 2011 06:12
webmaster botu arıyorum.
 
Selamlar
Sunucumuz için bir webmaster bot arıyorum. paylaşacak arkadaş varsa çok sevinirim.

şimdiden teşekkürler iyi forumlar.

toXic 10 Kasım 2011 20:17
Cevap: webmaster botu arıyorum.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] de yazinca baya bir pr tcl'si cikiyor.

CLubber 10 Kasım 2011 20:25
Cevap: webmaster botu arıyorum.
 
Kod:
namespace eval ::pr {
        variable version
        set version "0.3"; #current version of this script

        variable pr
        # Default settings
        set pr(ver) "0.3"; #current version of this file
        set pr(cmd) ".pr"; #public command trigger
        set pr(dcccmd) "pr"; #dcc command trigger
        set pr(prefix) "* PageRank:"; #output prefix
        set pr(usage) "Usage: $pr(cmd) <domain|url>";
        set pr(ua) "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/534.30 (KHTML, like Gecko) Chrome/12.0.742.122 Safari/534.30"; #user agent simulation
        set pr(urlpr) "http://toolbarqueries.google.com/tbr"; #url
        set pr(regex_rank) {Rank_[0-9]+:[0-9]+:([0-9]+)}; #ranking expression
        set pr(regex_moved) {<A HREF="(.+?)">here</A>}; #moved expression
        set pr(output) "%s/10"; #format the output
        set pr(failed) "N/A"; #output for failed
        # Note: Copy the above "Default settings" section into "pagerank.settings.tcl"
        #        to customise your settings. Then they will be used instead.

        # Settings file
        if {[catch {source scripts/pagerank.settings.tcl} err]} {
          #putlog "Warning: 'pagerank.settings.tcl' was not loaded"
        }
}

#
# Procedures
#

# Initialization
proc ::pr::init {args} {
        variable pr
        variable version

        # Package Definition
        package require eggdrop 1.6;  #see http://geteggdrop.com/
        package require Tcl 8.4;      #see http://tinyurl.com/6kvu2n
        if {[catch {package require http 2.0} err]} {
                putlog "[info script] error: $err"
                putlog "http 2.0 package or above is required, see http://wiki.tcl.tk/1475";
        }
        if {[catch {package require htmlparse} err]} {
                putlog "[info script] error: $err"
                putlog "Tcllib is required, see http://wiki.tcl.tk/12099";
        }

        # User defined channel flag
        setudef flag pagerank

        # Binds
        bind pub - $pr(cmd) [namespace current]::pub
        bind dcc -|- $pr(dcccmd) [namespace current]::dcc
        bind evnt -|- prerehash [namespace current]::deinit

        # Loaded
        putlog "pagerank.tcl $version loaded"
}

# Deinitializaion
proc ::pr::deinit {args} {
        catch {unbind pub -|- {* *} [namespace current]::pub}
        catch {unbind dcc -|- {*} [namespace current]::dcc}
        catch {unbind evnt -|- prerehash [namespace current]::deinit}
        namespace delete [namespace current]
}

# Public command
proc ::pr::pub { nick uhost handle chan arg } {
        variable pr
        if {[channel get $chan pagerank]<1} { return }
        set arg [split $arg]
        if {[llength $arg]==0} {
                putserv "NOTICE $nick :$pr(usage)"
                return
        }
        set result [::pr::get $arg]
        putserv "PRIVMSG $chan :$nick, $pr(prefix) $result"
}

# DCC command
proc ::pr::dcc {ha idx arg} {
        variable pr
        set arg [split $arg]
        if {[llength $arg]==0} {
                putdcc $idx $pr(usage)
                return
        }
        set result [::pr::get $arg]
        putdcc $idx $result
}

# Get CheckHash
proc ::pr::getch { arg } {
        set seed "Mining PageRank is AGAINST GOOGLE'S TERMS OF SERVICE. Yes, I'm talking to you, scammer."
        set seedlen [string length $seed]
        set result 0x01020345
        set len [string length $arg]
        for {set i 0} {$i < $len} {incr i} {
                set a [scan [string index $seed [expr {$i%$seedlen}]] %c]
                set b [scan [string index $arg $i] %c]
                set result [expr {$result ^ ($a ^ $b)}]
                set result [expr {(($result >> 23) & 0x1ff) | $result << 9}]
        }
        return [format 8%x $result]
}

# Fetch PageRank
proc ::pr::getpr { arg } {
  variable pr
  set ch [::pr::getch $arg]
  if {$ch eq {}} { return }
  set query [::http::formatQuery client "navclient-auto" ch $ch features "Rank" q "info:$arg"]
  set http [::http::config -useragent $pr(ua) -urlencoding "utf-8"]
  set http [::http::geturl $pr(urlpr)?$query]
  set data [::http::data $http]
  set data [::htmlparse::mapEscapes $data]
  return $data
}

# Return PageRank
proc ::pr::get { arg } {
  variable pr
  set data [::pr::getpr $arg]
  if {$data eq {}} { return $pr(failed) }
  if {[regexp $pr(regex_rank) $data matched result]} {
        return [format $pr(output) $result]
  }
  if {[regexp $pr(regex_moved) $data matched result]} {
        return $result
  }
}

::pr::init
* Egghelpte paylaşılmış olan, tekrar yazılmasına gerek yok.

* Kullanımı: .pr siteniz.com

CLubber 30 Kasım 2011 20:33
Cevap: webmaster botu arıyorum.
 
Rank botu istersenizde

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Buradan ulaşabilirsiniz.

MesqeN 09 Aralık 2011 13:20
Cevap: webmaster botu arıyorum.
 
degerli [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Copy ile alamıyorum Alternatif -------- adresini eklermisin Sana zahmet ve BOTUN calıştıgı bir kanal varmı yada her hangi bir kanalda calışırmı bunu belirtirmisin

Paylaşamın icin Teşekkür ederim.

CLubber 10 Aralık 2011 20:50
Cevap: webmaster botu arıyorum.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

TCL'de komutun kullanılacağı kanalı yazarak kullanabilirsiniz.

Mediaturkish 20 Eylül 2012 20:07
Cevap: webmaster botu arıyorum.
 
Alıntı:
CLubber Nickli Üyeden Alıntı (Mesaj 1040953769)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

TCL'de komutun kullanılacağı kanalı yazarak kullanabilirsiniz.
aktif link varmı acaba

CLubber 20 Eylül 2012 20:13
Cevap: webmaster botu arıyorum.
 
Toplam 1 Eklenti bulunuyor.
Alıntı:
Mediaturkish Nickli Üyeden Alıntı (Mesaj 1041216974)
aktif link varmı acaba
Buradan indirebilirsiniz.

Mediaturkish 21 Eylül 2012 01:26
Cevap: webmaster botu arıyorum.
 
Alıntı:
CLubber Nickli Üyeden Alıntı (Mesaj 1041216976)
Buradan indirebilirsiniz.

[01:25] <Webmaster> +------------- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bilgilerine Bakılıyor... --------------+
[01:25] <Webmaster> -
[01:25] <Webmaster> PR Değeri : 05
[01:25] <Webmaster> Alexa Değeri : 05
[01:25] <Webmaster> Yahoo Değeri : 05
[01:25] <Webmaster> Dmoz Dizini : 05
[01:25] <Webmaster> Alan Adı Yaşı : 05
[01:25] <Webmaster> Google Backlink: 05
[01:25] <Webmaster> Yahoo Dizini: 05
[01:25] <Webmaster> Google İndexli Sayfa: 05
[01:25] <Webmaster> Yahoo İndexli Sayfa: 05
[01:25] <Webmaster> Bing İndexli Sayfa: 05
[01:25] <Webmaster> Digg Linkleri: 05
[01:25] <Webmaster> Delicious Linkleri: 05
[01:25] <Webmaster> Compete Rank: 05
[01:25] <Webmaster> Site Değeri: 05
[01:25] <Webmaster> -
[01:25] <Webmaster> +------------- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bilgileri Sonu --------------+
[01:25] <Webmaster>

Boş veriyor analiz yok :S

CLubber 21 Eylül 2012 17:40
Cevap: webmaster botu arıyorum.
 
Botun php dosyasında çektiği sitede sorun olabilir, php'de verileri çektiği siteyi bulup; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ile değiştirebilirsin.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 14:57.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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