TVRage Lookup by dlx v1.1

[BigBadPhil]

Not sure if anyone else is getting this problem.

I loaded the script, It's great. But try to do !tv 24

The bot spits this out in the channel

-DKP- Show: 24 (Action | Adventure | Drama)

Then thats it. When you look in the partyline, the error is this

Tcl error [dlx:tvrage]: can't read "latest_ep": no such variable

Must be a bug. Works on every other tv ep Ive looked up so far. Help would be much appriciated.

[Alchera]

Post results of '.set errorInfo'.

[BigBadPhil]

.set errorInfo dont work when i type it on the bot am i doing something wrong?

[nml375]

Either your .set command has not been enabled, or the information in errorInfo is stale.
Comment out, or remove, the following line from your config-file, and completely restart your bot, then reproduce the error:
"unbind dcc n set *dcc:set"

[BigBadPhil]

Currently: can't read "latest_ep": no such variable
Currently: while executing
Currently: "putquick "PRIVMSG $chan :$prefix Last Episode: $latest_ep : $latest_ep_title ($latest_ep_date)"
Currently: (procedure "dlx:tvrage" line 36)
Currently: invoked from within
Currently: "dlx:tvrage $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

there we go

[BigBadPhil]

any help would be great

[rosc2112]

Presumably the author gave some way of contacting them. Prolly your best bet if they don't monitor this forum regularly.

[BigBadPhil]

There is no email addy on the script, all we know is it is done by dlx

[rosc2112]

Considering that all submissions to the tcl archive require an email address, maybe asking the archive maintainer to forward a msg would be helpful. That script was posted in the archive fairly recently. If the author doesn't want to support it, there's always the "other" tvrage script to try.

[WazzaUK]

this seems to work ok.........

not very effecient or tidy - sort later

Code: Select all

########################
# tvrage LOOKUP SCRIPT #
# v1.1                 #
# Fixed some regexps   #
########################
bind pub - !tv dlx:tvrage

proc dlx:tvrage { nick host hand chan arg } {
	if { $chan != "#5" && $chan != "#5.ops" } {
        set arg [string map { " " "_" } $arg]
        set gotrelease [regexp {([A-Za-z0-9.]+).S[0-9][0-9]E[0-9][0-9]} $arg gotrelease release]

        if { $gotrelease } {
                set arg $release
        }

        set url "http://www.tvrage.com/quickinfo.php?show=$arg"
        set page [exec curl -s $url]
        set prefix "\002TV\002 -> "

        set goturl [regexp {Show URL@http://www.tvrage.com/([A-Za-z_0-9/-]+)} $page goturl show_url]
	if { $goturl != 0 } {
        	regexp {Show Name@([A-Za-z 0-9\&\':]+)} $page gotname show_name
		regexp {Premiered@([0-9]+)} $page gotpremiere show_premiered
       		set gotlatest [regexp {Latest Episode@([0-9x]+)\^([A-Za-z0-9 \()-:.?"\'\&:,]+)\^([A-Za-z0-9/]+)} $page gotlatest latest_ep latest_ep_title latest_ep_date]
        	set gotnext [regexp {Next Episode@([0-9x]+)\^([A-Za-z0-9 \()-:.?"\'\&:,]+)\^([A-Za-z0-9/]+)} $page gotnext next_ep next_ep_title next_ep_date]
        	regexp {Country@([A-Za-z/ ]+)} $page gotcountry show_country
        	regexp {Status@([A-Za-z/ ]+)} $page gotstatus show_status
        	regexp {Classification@([A-Za-z ]+)} $page gotclassification show_classification
        	set gotgenres [regexp {Genres@([A-Za-z |]+)} $page gotgenres show_genres]
        	set gotnetwork [regexp {Network@([A-Za-z 0-9]+)} $page gotnetwork show_network]
		set gotairtime [regexp {Airtime@([A-Za-z, 0-9:]+)} $page gotairtime show_airtime]

        	set show_url "http://www.tvrage.com/$show_url"

		if { $gotgenres == 0 } { set show_genres "N/A" }

		if { $gotnetwork == 0 } {
			set show_network "unknown"
		}
	
		if { $gotairtime == 0 } {
			set show_airtime "unknown"
		}

		set tvoutput "PRIVMSG $chan :$prefix \002$show_name ($show_status)\002 airs \002$show_airtime\002 on \002$show_network ($show_country)\002 | Genre: ($show_genres) |"

		if { $gotlatest == 0 } {
			append tvoutput " Last episode: unavailable"
		} else {
			append tvoutput " Last Episode: $latest_ep: $latest_ep_title ($latest_ep_date)"
		}
                if { $gotnext == 0 } {
			append tvoutput " | Next episode: unavailable"
		} else {
                       	append tvoutput " | Next episode: $next_ep: $next_ep_title ($next_ep_date)"			
		}
		append tvoutput " | URL: \002$show_url\002"
		putquick $tvoutput
	} else {
		putquick "PRIVMSG $chan :$prefix \002$arg\002 not found..."
	}
}
}

[Gordon]

im getting following error with this script

Tcl error [dlx:tvrage]: couldn't compile regular expression pattern: invalid escape \ sequence

[WazzaUK]

i never claimed this script was my own............ i just got it working nicely

Code: Select all

TV -> Lost (Returning Series) airs Wednesday, 10:00 pm on ABC (USA) | Genre: (Action | Adventure | Drama | Mystery) | Last Episode: 03x23: Through The Looking Glass (2) (May/23/2007) | Next episode: unavailable | URL: http://www.tvrage.com/Lost

Edit: Use

Code: Select all

in future please. (Alchera)[/color]

[Alchera]

For an alternative: TVRage.com Schedule Script (Latest: 1.0 RC2)

The above script is supported.