Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

TCL skripta

[es] :: Instant Messaging :: IRC :: TCL skripta

[ Pregleda: 3494 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

CONFIQ
♫♪♥♪♫

Član broj: 4218
Poruke: 1994
*.pop.bezeqint.net.

ICQ: 82327428


+10 Profil

icon TCL skripta25.09.2001. u 19:24 - pre 241 meseci
Interesuje me jel je neko napravio/zna TCL skriptu kao sto je search engine
ali da je ta skripta povezana sa nekim search engine i da mi pokaze na kanalu rezultate?
Znam da ima takvih skripti ali nikako da nadem nekakvu
 
Odgovor na temu

CONFIQ
♫♪♥♪♫

Član broj: 4218
Poruke: 1994
*.pop.bezeqint.net.

ICQ: 82327428


+10 Profil

icon Re: TCL skripta27.09.2001. u 02:41 - pre 241 meseci
e nasao sam skriptu
Code:
# google.tcl v0.1
# by aNa|0Gue - [email protected] - http://www.glop.org

package require http

bind pub - !help pub:help
bind pub - !google pub:google

proc pub:help { nick uhost handle channel arg } {
    putserv "NOTICE $nick :!google google sur IRC !"
}

proc pub:google { nick uhost handle channel arg } {
    if {[llength $arg]==0} {
        putserv "PRIVMSG $channel :hey ! tappes des mots boulet !"
    } else {
        set query "http://www.google.fr/search?btnI=&q="
        for { set index 0 } { $index<[llength $arg] } { incr index } {
            set query "$query[lindex $arg $index]"
            if {$index<[llength $arg]-1} then {
                set query "$query+"
            }
        }
    #    putserv "PRIVMSG $channel :$query"
        set token [http::geturl $query]
        puts stderr ""
        upvar #0 $token state
        set max 0
        foreach {name value} $state(meta) {
            if {[regexp -nocase ^location$ $name]} {
                set newurl [string trim $value]
                putserv "PRIVMSG $channel :$newurl"
            }
        }
    }
}

ali nisam izbrisao ovu temu da ako neko trazi moze da nade
 
Odgovor na temu

[es] :: Instant Messaging :: IRC :: TCL skripta

[ Pregleda: 3494 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.