Sign in to follow this  
zeke

UrlTitle tcl

Rate this topic

Recommended Posts

Detects URLs from IRC channels and prints out the website title.

 

DOWNLOAD LINK: 

Hidden Content
You'll be able to see the hidden content once you reply to this topic.

___
 

Detecteaza URL-urile de pe canalele de IRC si arata titlul website-ului.

 

LINK DESCARCARE: 

Hidden Content
You'll be able to see the hidden content once you reply to this topic.

Share this post


Link to post
Share on other sites

None of the title scripts I've tried so far have worked with https:// urls with my bot - but your YouTubeTitle script did! So I'll give this one a go aswell :)

Share this post


Link to post
Share on other sites

Oh, this was actually the same script I've tried previously. :(

It seems that the TSL version at my bot's server is too old for HTTPS. However, your YouTubeTitle.tcl still manages to get the title from HTTPS urls, so there must be some way... :wacko:

Share this post


Link to post
Share on other sites

I'll be trying this out for sure. All the scripts I used to use just don't work anymore.

EDIT: It seems the above link is dead.

EDIT 2: I thought this may be of some use to some people.

I use both: UrlTitle.tcl & YoutubeTitle-1.7.tcl

Which are on at the same time in the same channel. So, to stop both scripts returning YouTube results I added this line: "if {[string match -nocase *Youtube* $word]} {continue}" to the UrlTitle script under: "foreach word [split $text] {" but above "if {[string length $word] >= $length && [regexp {^(f|ht)tp(s|)://} $word] && \
            ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {"

 

You can replace: 

"foreach word [split $text] {
        if {[string length $word] >= $length && [regexp {^(f|ht)tp(s|)://} $word] && \
            ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {"

With this: 

"foreach word [split $text] {
if {[string match -nocase *Youtube* $word]} {continue}        
if {[string length $word] >= $length && [regexp {^(f|ht)tp(s|)://} $word] && \
            ![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {"

 

EDIT 3: Link is fixed, but I'm getting an error that I never had before. Downloaded the vanilla script before I edited the YouTube out just to make sure it wasn't something I did, but here's the error:

 

Testdrop [02:05:15] * Last context: tclhash.c/710 [Tcl proc: UrlTitle::handler, param: $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5]
Testdrop [02:05:15] * Please REPORT this BUG!
Testdrop [02:05:15] * Check doc/BUG-REPORT on how to do so.
Testdrop [02:05:15] * Wrote DEBUG
Testdrop [02:05:15] * SEGMENT VIOLATION -- CRASHING!

   
     
     
     
     
Edited by Sane
Dead link & some helpful info.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this