14/11/2008, 11:52
jai ca en party line de l'eggdrop
[10:47] <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
[10:47] <HTML><HEAD>
[10:47] <TITLE>302 Found</TITLE>
[10:47] </HEAD><BODY>
[10:47] <H1>Found</H1>
[10:47] The document has moved <A HREF="http://www.vcdq.com/index.php?page=search&genre=1">here</A>.<P>
[10:47] </BODY></HTML>
et toujours pareil sur le chan
No Results!
le script est comme ceci maintenant :
[10:47] <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
[10:47] <HTML><HEAD>
[10:47] <TITLE>302 Found</TITLE>
[10:47] </HEAD><BODY>
[10:47] <H1>Found</H1>
[10:47] The document has moved <A HREF="http://www.vcdq.com/index.php?page=search&genre=1">here</A>.<P>
[10:47] </BODY></HTML>
et toujours pareil sur le chan
No Results!
le script est comme ceci maintenant :
tcl
set pubvcdt "!vcdquality"
#############################DO NOT EDIT UNDER HERE!###########################################
package require http
bind pub -|- $pubvcdt vcdqw
proc vcdqw {nick uh handle chan text} {
global pubvcdt
set option ""
set search ""
set target "$nick"
set num "3"
set kind "PRIVMSG"
if {$text == ""} {putserv "NOTICE $nick :Looks like u need $pubvcdt -help" ;return}
foreach word $text {if {[string match "*-*" "$word" ]} {append option "$word "} }
foreach word $text {if {![string match "*-*" "$word" ]} {append search "$word "} }
foreach word $option {
if {[string match "*-x*" $word]} {set num "[lindex [split $word x] 1]"}
if {[string match "*-notice*" $word]} {set kind "NOTICE"}
if {[string match "*-msg*" $word] || [string match "*-pub*" $word]} {set kind "PRIVMSG" }
if {[string match "*-pub*" $word]} {set target "$chan"}
if {[string match "*-help*" $word]} {homohelp $nick ;return}
}
vqs $target $kind $num $option $search
}
proc vqs {target kind num option search} {
regsub -all " " $search "+" search
set url http://www.vcdquality.com/index.php?page=search&genre=1
http::config -useragent "Mozilla/5.0"
set conn [http::geturl $url -headers "Referer http://www.vcdquality.com/index.php?genre=1" -query query=$search&submit=search]
set data [http::data $conn]
set fdataz ""
set count 0
set vcdq "http://www.vcdq.com"
set vcdq1 "http://www.vcdq.com"
foreach line [split $data \n] {
putlog $line
if {([string match "*cat-c*" $line]) && (![string match "*index.php?enddate=*" $line]) && (![string match "*align=\"center\">Next</td>*" $line]) } {append fdataz "$line \n"}
}
set nrels "[expr ([llength [split $fdataz \n]] - 1) / 12]"
if {![llength [split $fdataz \n]]} {putserv "PRIVMSG $target :No Results!" ;return}
if {$nrels < $num} {set num "$nrels"}
putserv "$kind $target :$nrels Results/$num Displayed:"
foreach {date type tittle sample nfo imdb ncd group vscore ascore mscore comm} [split $fdataz \n] {
incr count
if {$count == [expr $num + 1]} { break }
regsub -all {<[^>]*|>| } $date "" date
regsub -all {/} $date "-" date
regsub -all {<[^>]*|>| } $type "" type
regsub -all {<[^>]*|>|'} $tittle "" tittle
regsub -all { } $tittle "." tittle
regsub -all {\*} $tittle "" tittle
regexp {a href="(.+?)"} $sample {} sample
regsub {.} $sample {} sample
regexp {a href="(.+?)"} $nfo {} nfo
regexp {a href="(.+?)"} $imdb {} imdb
regsub -all {<[^>]*|>| } $group "" group
regsub -all {<[^>]*|>| } $vscore "" vscore
set vscore "[lindex [split $vscore (] 0]"
regsub -all {<[^>]*|>| } $ascore "" ascore
set ascore "[lindex [split $ascore (] 0]"
regsub -all {<[^>]*|>| } $mscore "" mscore
set mscore "[lindex [split $mscore (] 0]"
regsub -all {<[^>]*|>|\[view\]| } $comm "" posts
regexp {a href=".+?".+?a href="(.+?)"} $comm {} comm
regsub {.} $comm {} comm
if {[string match "*http://www.vcdquality.com/images/spacer.gif*" $sample]} {set sample "No Sample" ;set vcdq ""}
if {[string match "*http://www.vcdquality.com/images/spacer.gif*" $imdb]} {set imdb "No IMDB" }
if {[string match "*http://www.vcdquality.com/images/spacer.gif*" $comm]} {set comm "No Forum" ;set vcdq1 ""}
set msgl "$date.$tittle$type-$group $vscore/$ascore/$mscore"
if {[string match "*-sample*" $option] } {append msgl " $vcdq$sample"}
if {[string match "*-imdb*" $option]} {append msgl " $imdb"}
if {[string match "*-forum*" $option]} {append msgl " $vcdq1$comm $posts"}
putserv "$kind $target :$msgl"
}
}
proc homohelp {victim} {
global pubvcdt
puthelp "NOTICE $victim :Y0 Moron Listen Up:"
puthelp "NOTICE $victim :$pubvcdt string \[options\]"
puthelp "NOTICE $victim :Options: -pub(msg to channel) -notice(notice) -msg(privmsg) -x#(limit resluts to #) -imdb -forum -sample"
puthelp "NOTICE $victim :Defaults: -msg -x3"
}
putlog "www.vcdquality.com search script by dreamss loaded =)"
#EOF
www.irc-pacifique.com/ ou depuis un mirc client /server -m irc-pacifique.com server fun cool et tolerants