blu-ray.com script by dalys (current: blu-ray.com_1.2.tcl)

dalys · Post by **dalys** » Sun Oct 05, 2008 10:38 am

Hello! I've made a script that searches the website www.blu-ray.com for info about any movie. I made it mainly to get the blu-ray release date of movies but added more info fetching than so.

It would be nice if some people could try it out and see if there are any bugs or problems with it, or really only if it works.

Please post your experience in this thread!

<dalys> !bluray bee movie
<bot> "Bee Movie (Blu-ray)" Release date: May 20, 2008 (Year: 2007 Length: 90 mins Rating: Rated PG Studio: DreamWorks)
<dalys> !bluray -details bee movie
<bot> Details for Bee Movie (Blu-ray) Video: Video codec: MPEG-4 AVC/Video resolution: 1080p/Aspect ratio: 1.85:1 Audio: English: Dolby TrueHD 5.1/French: Dolby Digital 5.1/Spanish: Dolby Digital 5.1 Subs: English SDH, English, French, Spanish Disc: 50GB Blu-ray Disc

The script has been tested on eggdrop 1.6.18 & 1.6.19. You also need http.tcl.

1.2 2010-02-01
- Blu-ray.com has been updated (with a better search function it seems)
and so has the script.
- Moved the project to github.

1.1 2008-10-26
- Fixed a broken regexp due to changes in blu-ray.com's html code
- Replaced the replacevar function with regsub (replacevar was not part of standard TCL)
Thanks to speechles for taking his time and helping out with the above!

1.0 2008-10-05
First release.

Download current version

blu-ray.com_1.2.tcl

Kiru · Post by **Kiru** » Mon Oct 06, 2008 2:57 am

working fine here, ty

dalys · Post by **dalys** » Tue Oct 07, 2008 7:26 am

Thank you for reporting in Kiru. Good to hear it's working for at least one other person.

Joori · Post by **Joori** » Thu Oct 16, 2008 1:47 pm

Thought I'd give this a try and it seems it's having a bit of a problem with my version of eggdrop. When trying to search for a particular movie, say for example the bee movie, I get no response from the eggdrop but I do get an error output as shown below.

Code: Select all

[03:38] Tcl error [bluray_pub]: invalid command name "replacevar"

The version of eggdrop I am using is v1.6.19 and have the latest http.tcl package installed. This is not a Windrop, it is an eggdrop running on a FreeBSD environment. Any suggestions as to how I could correct this issue?

Thanks!

dalys · Post by **dalys** » Thu Oct 16, 2008 4:24 pm

Joori wrote:Thought I'd give this a try and it seems it's having a bit of a problem with my version of eggdrop. When trying to search for a particular movie, say for example the bee movie, I get no response from the eggdrop but I do get an error output as shown below.
Code: Select all
[03:38] Tcl error [bluray_pub]: invalid command name "replacevar"
The version of eggdrop I am using is v1.6.19 and have the latest http.tcl package installed. This is not a Windrop, it is an eggdrop running on a FreeBSD environment. Any suggestions as to how I could correct this issue?

Thanks!

Thanks for reporting! I'm going to check this out tomorrow and see if there's quick fix or what to do. Also running an eggdrop under FreeBSD here btw.

Although version 1.6.18 atm.

hyuma · Post by **hyuma** » Mon Oct 20, 2008 9:14 am

This script is very good, but there is a little problem... it returs only the first result of bluray.com websearch... how is possible to show all results about !bluray <movie> ?

MiNdErAsR · Post by **MiNdErAsR** » Mon Oct 20, 2008 6:53 pm

I'm seeing a couple of issues...

Note: bot response is in pm...

[18:33:40] <MiNdErAsR> !bluray Max Payne
[18:33:43] <Candy> Displaying results from: <img src="http://images.blu-ray.com/flags/US.gif" width="18" height="12" alt="United States" title="United States" /> Omitting results from: <img src="http://images.blu-ray.com/flags/AU.gif" width="18" height="12" alt="Australia" title="Australia" /><img src="http://images.blu-ray.com/flags/CA.gif" width="18" height="12" alt="Canada" title="Canada" /><img src="http://images.blu-ray.com/flags/DE.gif" width="18" height="12" alt="Ger

Note: bot response is via dcc chat...

[18:35:29] <MiNdErAsR> !bluray bee movie
[18:35:36] <Candy> [00:34] Tcl error [bluray_pub]: invalid command name "replacevar"

Running eggdrop v1.6.19 and http.tcl

Joori · Post by **Joori** » Wed Oct 22, 2008 8:34 am

Nice to see you're getting some output. I'm still not getting any output at all but I do get the same replacevar error.

dalys · Post by **dalys** » Sat Oct 25, 2008 6:22 am

Hello again! I've also noticed the bug when no title is found and it spits out all html code and it should be an easy fix.

Haven't had any time to look over the script yet to make it work without needing the replacevar function (or why some doesn't have that function) but I'm gonna check out and fix that too somehow, not sure when I'll have time though.

Joori · Post by **Joori** » Sat Oct 25, 2008 11:56 am

No dramas mate, take your time

Im sure you'll let us know when a fix is available

speechles · Post by **speechles** » Sat Oct 25, 2008 12:48 pm

dalys wrote:Haven't had any time to look over the script yet to make it work without needing the replacevar function (or why some doesn't have that function) but I'm gonna check out and fix that too somehow, not sure when I'll have time though.

Because replacevar isn't part of standard tcl. It's some kludge to replace things within the string with other things. It's kinda poorly written as well.

Code: Select all

regsub -all -nocase "%title" $bluray_output $bluray_title bluray_output 
regsub -all -nocase "%studio" $bluray_output $bluray_info_studio bluray_output 
regsub -all -nocase "%year" $bluray_output $bluray_info_year bluray_output 
regsub -all -nocase "%length" $bluray_output $bluray_info_length bluray_output 
regsub -all -nocase "%rating" $bluray_output $bluray_info_rating bluray_output 
regsub -all -nocase "%releasedate" $bluray_output $bluray_info_releasedate bluray_output

Code: Select all

set bluray_output [string map [list "%title" "$bluray_title" "%studio" "$bluray_info_studio" "%year" "$bluray_info_year" \
"%length" "$bluray_info_length" "%rating" "$bluray_info_rating" "%releasedate" "$bluray_info_releasedate"] $bluray_output]

You can use regsub or a string map to do your replacements and it doesn't require an extrernal script loaded supporting the replacevar procedure.

Joori · Post by **Joori** » Sun Oct 26, 2008 7:35 am

Cheers bud, that worked a treat, all works fine now

dalys · Post by **dalys** » Sun Oct 26, 2008 7:37 am

speechles wrote:
dalys wrote:Haven't had any time to look over the script yet to make it work without needing the replacevar function (or why some doesn't have that function) but I'm gonna check out and fix that too somehow, not sure when I'll have time though.
Because replacevar isn't part of standard tcl. It's some kludge to replace things within the string with other things. It's kinda poorly written as well.
Code: Select all
regsub -all -nocase "%title" $bluray_output $bluray_title bluray_output 
regsub -all -nocase "%studio" $bluray_output $bluray_info_studio bluray_output 
regsub -all -nocase "%year" $bluray_output $bluray_info_year bluray_output 
regsub -all -nocase "%length" $bluray_output $bluray_info_length bluray_output 
regsub -all -nocase "%rating" $bluray_output $bluray_info_rating bluray_output 
regsub -all -nocase "%releasedate" $bluray_output $bluray_info_releasedate bluray_output 
Code: Select all
set bluray_output [string map [list "%title" "$bluray_title" "%studio" "$bluray_info_studio" "%year" "$bluray_info_year" \
"%length" "$bluray_info_length" "%rating" "$bluray_info_rating" "%releasedate" "$bluray_info_releasedate"] $bluray_output]
You can use regsub or a string map to do your replacements and it doesn't require an extrernal script loaded supporting the replacevar procedure.

Very nice! The funny thing I'm using string maps in the script but didn't thought of that. Thanks for clearing up about the replacevar function and helping out.

I've put together a new version of the script and will upload it later today.

dalys · Post by **dalys** » Sun Oct 26, 2008 9:34 am

Uploaded the new version now (see first post).

I've also chatted a bit with hyuma about fetching multiple search results and it's something I will put in the next version of the script.

hyuma · Post by **hyuma** » Mon Oct 27, 2008 12:19 pm

thank you for your job dude!