egghelp/eggheads community

A kind of youtube search script!

2010-04-29T19:02:14-04:00

very simple you porn search

.chanset #chan +uporn

Code:

# Rls: you_porn.tcl v1.0# Date: 29/04/10# Coded by: doggo# Contact: #a.b.inner-sanctum@EFNET##################################### channel flags ##setudef flag upornset userflag "-"set flagop "h"## Script Starts Here - DO NOT EDIT BELOW! #### you porn straight ##set straight "-straight" bind PUB $userflag $straight straightcom proc straightcom {nick uhost hand chan text} {    global botnick   if {![channel get $chan uporn]} {return 0}    puthelp "NOTICE $nick :\0033http://www.youporn.com/search?query=text&type=straight"  }## you porn gay ##set gay "-gay" bind PUB $userflag $gay gaycom proc gaycom {nick uhost hand chan text} {    global botnick    if {![channel get $chan uporn]} {return 0}   puthelp "NOTICE $nick :\0033http://www.youporn.com/search?query=$text&type=gay"  }## you porn cock ##set cock "-cock" bind PUB $userflag $cock cockcom proc cockcom {nick uhost hand chan text} {    global botnick    if {![channel get $chan uporn]} {return 0}   puthelp "NOTICE $nick :\0033http://www.youporn.com/search?query=$text&type=cock"  }putlog "uporn"

Code:

[12:01am]  -straight boobs[12:01am] -tsara- http://www.youporn.com/search?query=text&type=straight[12:01am]  -gay bareback[12:01am] -tsara- http://www.youporn.com/search?query=bareback&type=gay[12:01am]  -cock wank[12:01am] -tsara- http://www.youporn.com/search?query=wank&type=cock

Statistics: Posted by doggo — Thu Apr 29, 2010 7:02 pm

A kind of youtube search script!

2009-07-13T10:51:52-04:00

up up up :)

Statistics: Posted by slasla — Mon Jul 13, 2009 10:51 am

A kind of youtube search script!

2009-05-12T10:46:16-04:00

Is there anyone that knows how to get results ? I hope i won't get anyone upset if it finds this script inappropiate , it's just for fun :)

Statistics: Posted by slasla — Tue May 12, 2009 10:46 am

A kind of youtube search script!

2009-05-10T11:01:41-04:00

Ok, i just edit it , 10x Now i'll wait for the next suggestion to get results :D

Statistics: Posted by slasla — Sun May 10, 2009 11:01 am

A kind of youtube search script!

2009-05-09T15:07:27-04:00

Hello Mookie , thank you very much for your reply, but it seems the script doesn't work for me have any ideea why ?

Webby can be used to illustrate what is wrong. It will dump the entire contents of the site to the root of your eggdrop as "webby.txt". Using this I've constructed the regexp below to clearly show what is happening.

!webby http://youporn.com/search?query=porn&search=search --header --xheader --html
YouPorn ( http://tinyurl.com/op2jqw )( 200; application/xhtml+xml; 2612 bytes; 1 redirects )
Vary=Host,User-Agent,Accept; Server=Apache; Pragma=no-cache; Expires=Tue, 01 Jan 1980 1:00:00 GMT; Date=Sat, 09 May 2009 19:16:05 GMT; Content-Type=application/xhtml+xml; Content-Length=2612; Connection=close; Cache-Control=private, max-age=0, must-revalidate; Cache-Control=no-cache="set-cookie"; Accept-Ranges=bytes
XHTML 1.0 Transitional//EN

!webby http://youporn.com/search?query=porn&search=search --regexp

(.*?)regexp capture1 ( WARNING: This website contains explicit adult material.. . You may only enter this website if you are at least 18 years of age, or at least the age of majority in the jurisdiction where you reside or from which you access this website. If you do not meet these requirements, then you do not have permission to use the website.. . Standard data rates may apply. Please consult your carrier for details..
regexp capture1 ( . Enter . . Leave . . )

What's wrong? Notice the "set-cookie" in the cache-control field of the header? Notice the "1 redirects" given by the detail line? Your simply getting the portal entry page you've been redirected to. To have this actually work is pretty straight-forward and simple.
Change these two lines:

Code:

set form [http::formatQuery $arg search search]set tok [http::geturl http://youporn.com/search?query=$form -timeout $::youporn(timeout)]

to this and it will work:

Code:

set form [http::formatQuery "query" [string map {" " "+"} $arg] user_choice "Enter"]set tok [http::geturl http://youporn.com/search -query $form -headers [list "referer" "http://youporn.com/search?query=$arg" "Set-Cookie" "age check=1"]

This will at least get you into the site, but for some reason haven't gotten it yet to give me proper search results... It always assumes "", in a bit I'll figure it out though..

Statistics: Posted by speechles — Sat May 09, 2009 3:07 pm

A kind of youtube search script!

2009-05-09T14:54:52-04:00

Hello Mookie , thank you very much for your reply, but it seems the script doesn't work for me :( have any ideea why ?

Statistics: Posted by slasla — Sat May 09, 2009 2:54 pm

A kind of youtube search script!

2009-05-07T14:14:47-04:00

Since that is the script i made, i couldn't stand not to help ^-^

Code:

### YouTube Searching script. v0.1### Made by Mookie### Contact me at Efnet for more information or suggestions### V0.3 Fixed + added spam protectionpackage require http### Settings ###set youporn(timeout) "600000" ;# Youtube geturl timeout. (better leave this default)set youporn(results) "5" ;# Results to displayset youporn(trigger) "!youporn" ;# Search triggerset youporn(spam) "10" ;# Spam protection in seconds########################################################### Don't edit below unless you know what you're doing. ###########################################################bind pub - $::youporn(trigger) youpornproc youporn {nick uhost hand chan arg} {if {[info exists ::checks($nick)] && ([clock seconds] - $::checks($nick)) < $::youporn(spam)} { sendmsg $chan "Esti spammer muist ? :-) grija flacau"; return }set ::checks($nick) [clock seconds]if {$arg == ""} { putmsg $nick "Utilizare corecta: $::youporn(trigger) cuvinte-cheie"; return }set form [http::formatQuery $arg search search]set tok [http::geturl http://youporn.com/search?query=$form -timeout $::youporn(timeout)]set data [http::data $tok]http::cleanup $tokset a "0"while {[regexp -- {^.*?(.+?)
(.*)$} $data -> number title data]} {if {$a == $::youporn(results)} { break }sendmsg $chan "\[Title: $title Link:http://youporn.com/watch/$number\]"incr a}if {![info exists title]} { sendmsg $chan "\002Error:\002 Nimic gasit pentru '$arg'" }}proc "sendmsg" { target message } {sputraw "PRIVMSG [string tolower $target] :$message"}proc "sputraw" { text } {set text [string trim $text]putdccraw 0 [string length $text\n] $text\n}

Statistics: Posted by Maiki — Thu May 07, 2009 2:14 pm

A kind of youtube search script!

2009-05-05T08:53:41-04:00

Hello, i tried to modify a youtube tcl script to show results from different site , and it's not quite working , this is what i got

Code:

### YouTube Searching script. v0.1### Made by Mookie### Contact me at Efnet for more information or suggestions### V0.3 Fixed + added spam protectionpackage require http### Settings ###set youporn(timeout) "600000";# Youtube geturl timeout. (better leave this default)set youporn(results) "5";# Results to displayset youporn(trigger) "!youporn";# Search triggerset youporn(spam) "10";# Spam protection in seconds########################################################### Don't edit below unless you know what you're doing. ###########################################################bind pub - $::youporn(trigger) youpornproc youporn {nick uhost hand chan arg} {if {[info exists ::checks($nick)] && ([clock seconds] - $::checks($nick)) < $::youporn(spam)} { sendmsg $chan "Esti spammer muist ? :-) grija flacau"; return }set ::checks($nick) [clock seconds]if {$arg == ""} { putmsg $nick "Utilizare corecta: $::youporn(trigger) cuvinte-cheie"; return }set form [http::formatQuery $arg search search]set tok [http::geturl http://www.youporn.com/results?query=&$form -timeout $::youporn(timeout)]set data [http::data $tok]http::cleanup $tokset a "0"while {[regexp -- {(.*?) (.*)$} $data -> number title data]} {if {$a == $::youporn(results)} { break }sendmsg $chan "\[Title: $title Link:http://youporn.com$number\]"incr a}if {![info exists title]} { sendmsg $chan "\002Error:\002 Nimic gasit pentru '$arg'" }}proc "sendmsg" { target message } {sputraw "PRIVMSG [string tolower $target] :$message"}proc "sputraw" { text } {set text [string trim $text]putdccraw 0 [string length $text\n] $text\n}

You can see the orignal script here -> http://downhill.ro/youtube.tcl

Thank you in advance

Statistics: Posted by slasla — Tue May 05, 2009 8:53 am