url title help

[PrE]

So i got this script and modified it a little to my needs but there is a problem i can't fix.

I don't want it to send the text, just the link but it sends the whole line before the link and after the link.

Code: Select all

bla link.com

but i want it to ignore text and just send the link to the server

it sends the request the php script with that text
like
host.com/script.php?i=bla link.com

which returns an error to irc.

Code: Select all

if {[string length $word] >= $urltitle(length) && \
			[regexp {^(f|ht)tp(s|)://} $word] && \
			![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {
				set urltitle(last) [unixtime]
				set urtitle [urltitle $word]
			if {[string match *http://forum.gordonsys.net/showthread.php?* $word]} {
					puthelp "PRIVMSG $chan :\002GordonSys\002: \"$urtitle\""
				}
				
				
				
			}

[speechles]

Code: Select all

foreach word [split $text] {
	if {[string length $word] >= $urltitle(length) && \
	[regexp {^(f|ht)tp(s|)://} $word] && \
	![regexp {://([^/:]*:([^/]*@|\d+(/|$))|.*/\.)} $word]} {
		set urltitle(last) [unixtime]
		set urtitle [urltitle $word]
		if {[string length $urtitle]} {
			switch -glob -- $word {
				*http://forum.gordonsys.net/showthread.php?* {
					puthelp "PRIVMSG $chan :\002GordonSys\002: \"$urtitle\"" 
				}
			}
		}
		break
	}
}

You removed too much of the original code. You removed the foreach which iterates over every word of input. I also added a switch statement and body too. These are more efficient than a ton of nested if's. If you wish to add to the switch statement add the bodies exactly as I have done.