[f0xn3t]

Originally posted by onyx
hy ... nice work but if i do !ep -dvd i get this

Tcl error [pub:epguru]: can't read "dvdnews(1,3)": no such element in array

I am using Windrop 1.6.17.

tnx

yep, you're right... the problem is that source code of tvshowsondvd.com has changed a bit.

Here is a quick solution
this script:

			} elseif {$tmpact==1 && [regexp {.*<td valign="top" width="240"><a href=".*" target="_blank".*return true;">.*</A></td>} $line]} {
				regsub {.*<td valign="top" width="240"><a href=".*" target="_blank".*return true;">(.*)</A></td>} $line {\1} tmpdesc
				regsub -all {(<i>)|(</i>)|(<b>)|(</b>)|(<B>)|(</B>)|(<I>)|(</I>)} $tmpdesc "" tmpdesc

				set dvd($tmpdvd,3) $tmpdesc
				regsub {.*<td valign="top" width="240"><a href="(.*)" target="_blank".*return true;">.*</A></td>} $line {\1} dvd($tmpdvd,4)
				incr tmpdvd
			}

change to this:

			} elseif {$tmpact==1 && [regexp {.*<td valign="top" width="240"><a href="newsitem.cfm\?NewsID=[0-9]{1,}">.*</A></td>} $line]} {
				regsub {.*<td valign="top" width="240"><a href="newsitem.cfm\?NewsID=[0-9]{1,}">(.*)</A></td>} $line {\1} tmpdesc
				regsub -all {(<i>)|(</i>)|(<b>)|(</b>)|(<B>)|(</B>)|(<I>)|(</I>)} $tmpdesc "" tmpdesc

				set dvd($tmpdvd,3) $tmpdesc
				regsub {.*<td valign="top" width="240"><a href="(.*)">.*</A></td>} $line {\1} dvd($tmpdvd,4)
				incr tmpdvd
			}