egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-09-03T15:16:33-04:00 https://forum.eggheads.org/app.php/feed/topic/5478 2003-09-03T15:16:33-04:00 2003-09-03T15:16:33-04:00 https://forum.eggheads.org/viewtopic.php?p=26369#p26369 <![CDATA[patch for imdb.tcl version 20030014]]> ----------8<-------------------------------------------------------8<--------------24c24
< set imdburl "http://www.imdb.com"
---
> set imdburl "http://us.imdb.com/title/"
163,164c163,165
< #putserv "NOTICE $nick : $oldpage(meta)"
< set newurl [string range $location 9 [expr [string length $location] - 12]]
---
> #putserv "NOTICE $nick : $oldpage(meta)"
> regexp {([0-9]+)} $location all num
> set newurl "${imdburl}tt${num}/"
----------8<-------------------------------------------------------8<--------------
eg. patch -p0 imdb.tcl patch.diff

will hopefully work =)

Statistics: Posted by Guest — Wed Sep 03, 2003 3:16 pm

]]>