egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2012-02-17T19:50:54-04:00 https://forum.eggheads.org/app.php/feed/topic/18843 2012-02-17T19:50:54-04:00 2012-02-17T19:50:54-04:00 https://forum.eggheads.org/viewtopic.php?p=98815#p98815 <![CDATA[Re: url title help]]>

Code: 

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.

Statistics: Posted by speechles — Fri Feb 17, 2012 7:50 pm

]]> 2012-02-17T18:53:49-04:00 2012-02-17T18:53:49-04:00 https://forum.eggheads.org/viewtopic.php?p=98814#p98814 <![CDATA[url title help]]>
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: 

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: 

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\""}}

Statistics: Posted by PrE — Fri Feb 17, 2012 6:53 pm

]]>