[Request script] csc tcl

[arcade]

scrie in dcc daca ai comanda .tcl activa: .tcl [source pathtoscript/csc.tcl]; set $errorInfo

si posteaza reply te rog. (La mine a mers de fiecare data)

[Erised]

In timp ce ma uita pe net (egghelp.org) dupa alte diferite scripturi am downloadat un script ce avea separat un tcl numit http.tcl.
M-am uitat putin prin el si mi-am dat seama ca acela este cel ce face disponibil pachetul http, acela care voi (si csc.tcl de pe eggehelp.org) cereti in startul scriptului.
Zic ca aici cel mai mult a fost greseala voastra, nu numai ca ar fi trebuit sa postati si asemenea script, macar de puneati undeva langa aceea cerere ce si cum cereti si de unde poate fi luat.
Well, de ce aveam nevoie? Probabil pentru simplu fapt ca eu am windrop
Tcl-ul este mai jos. Cred ca e mai bine sa-l puneti inaintea lui csc.tcl, eu asa am, nu stiu si nici nu am incercat invers. Dar nu e o mare diferenta pentru user, asa ca puneti inainte

P.S.: Am ales sa folosesc tcl-ul de pe egghelp.org. Nu am incercat pe al tau arcade, dar am observat ca si tu ceri in tcl pachetul http. Deci acest post vrea sa fie mai mult un supliment, o corectura la al tau script

[Ionut]

http.tcl este in windrop trebuie doar incarcat

source lib/tcl8.4/http2.5/http.tcl

[Erised]

Exact, dar nu toti stiu asta
Inteligent a fost acela care stia ca are nevoie de acel pachet in script lui si l-a pus acolo. Astfel l-am gasit si eu

[arcade]

nu am luat in calcul si varianta ca utilizatorul ar folosi windrop, al carui parser tcl nu are by default pachetul http, dar totusi scriptul verifica la loading daca pachetul http este incarcat, iar daca nu este, scriptul nu va fi incarcat.

[Erised]

Ai fi putut macar pune o verificare, daca nu il incarca macar sa dea o eroare ceva, sa stie userul ce e wrong si de ce nu-l incarca. Asa va sta si se va uita la eggdrop si nimic nu se va intampla.

[xplorer]

This is a TCL used on a lot of help channel, its giving a really good info on the channel state.

Here is an exemple.

(15:27) <@[Michaud]> .csc #IRC-Freak
(15:27) <@IRC-Freak> | CService Application ||| #Canal: #IRC-Freak | Pending | Username: Em3r1c4 | Date: Jul 13 2008 04:21:13 CSST | Objecions: 0 | Coments: n/a | URL: CService |

install the script in the /scripts directory and add this line in eggdrop.conf

source scripts/FILENAME.tcl

then rehash your bot twice.

package require http
 
bind pub -|- .csc checkcsc
 
proc checkcsc {nick host hand chan arg} {
 
        set valchan [join [lindex [split $arg] 0]]
        if { $valchan == "" } { return 0 }
        set token [http::config -useragent "lynx"]
        set dachan [wt:filter $valchan]
        set token [http::geturl "http://194.109.147.174/live/check_app.php?name=$dachan"]
        set html [http::data $token]
 
  if {[string match "*No applications*" $html]} {
                puthelp "PRIVMSG $chan :$valchan: Is not in any kind of registration process, Try again."
        return 0
        }
 
        if {[string match "*DB is currently being maintained*" $html]} {
                puthelp "PRIVMSG $chan :$valchan: The CService Database in unavailable At The moment. Please Try again later."
        return 0
        }
 
        upvar #0 $token state
 
        foreach {name value} $state(meta) {
 
                if {[regexp -nocase ^location$ $name]} {
 
                        set regurl "http://cservice.undernet.org/live/$value"
                        set token [http::geturl $regurl]
                        set html [http::data $token]
                        set html [split $html "\n"]
                        set regobj 0
      set regcomment ""
                        foreach line $html {
                                 if {[string match "*by user :*" $line]} {
                                        regexp {(.*)<b>(.*)</b>(.*)} $line match blah reguser blah
                                 }
 
 
                                 if {[string match "*Posted on :*" $line]} {
                                        regexp {(.*)<b>(.*)</b>(.*)} $line match blah regdate blah
                                 }
 
                                if {[string match "*Current status :*" $line]} {
                             regexp {(.*)<b>(.*)</b>(.*)} $line match blah regstatus blah
          regsub -all {<[^>]*>} $regstatus {} regstatus
                                }
 
                                if {[string match "*Decision comment :*" $line]} {
            regexp {(.*)<b>(.*)</b>(.*)} $line match blah regcomment blah
          regsub -all {<[^>]*>} $regcomment {} regcomment2
                                }
 
                                if {[string match "*Comment :*" $line]} {
                                        incr regobj 1
                                }
                                if {![info exists regcomment2]} {
                                        set regcomment2 "n/a"
                                }
                        }
    }
        }
        set regstatus2 [string tolower $regstatus]
        if {$regstatus2 == "pending"} {
    set regstatus "\00312$regstatus"
        } elseif {$regstatus2 == "incoming"} {
          set regstatus "\00308$regstatus"
        } elseif {$regstatus2 == "rejeced"} {
    set regstatus "\00304$regstatus"
  } elseif {$regstatus2 == "accepted"} {
    set regstatus "\00309$regstatus"
        } elseif {$regstatus2 == "ready for review"} {
    set regstatus "\00306$regstatus"
        } elseif {$regstatus2 == "cancelled by the applicant"} {
    set regstatus "\00314$regstatus"
        }
 
      putserv "PRIVMSG $chan :\0031\002\00302|\0031\002 \0038\002CService Application\0031\002 \0031\002\00302|\0031\002\0031\002\00302|\0031\002\0031\002\00302|\0031\002 \0037\002#Canal:\0039\002 $valchan \0031\002\00302|\0031\002 \0034\002 \002$regstatus\002 \0031\002\00302|\0031\002 \0037\002Username:\0039\002 $reguser \0031\002\00302|\0031\002 \0037\002Date:\0034\002 $regdate \0031\002\00302|\0031\002 \0037\002Objecions:\0034\002 $regobj \0031\002\00302|\0031\002 \0037\002Coments:\0034\002 $regcomment2 \0031\002\00302|\0031\002 \0033\002URL:\00311\002 $regurl \0031\002\00302|\0031\002"
        return 0
}
 
proc wt:filter {x {y ""} } {
 
        for {set i 0} {$i < [string length $x]} {incr i} {
                switch -- [string index $x $i] {
                        "é" {append y "%E9"}
                        "è" {append y "%E8"}
                        "î" {append y "%CE"}
                        "É" {append y "%E9"}
                        "È" {append y "%E8"}
                        "Î" {append y "%CE"}
                        "&" {append y "%26"}
                        "#" {append y "%23"}
                        " " {append y "+"}
                        default {append y [string index $x $i]}
                }
        }
        return $y
}
 
 
#################################################################################
 
 
putlog "Check CService Channel Aplication check, Translated and colorified By Xplorer@Live.ca"