This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

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

Support & discussion of released scripts, and announcements of new releases.
d
dalys
Voice
Posts: 9
Joined: Sun Oct 05, 2008 9:37 am
Location: Gothenburg, Sweden / QuakeNet

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

Post by dalys »

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. :D 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 :arrow: blu-ray.com_1.2.tcl
Last edited by dalys on Mon Feb 01, 2010 5:30 pm, edited 4 times in total.
K
Kiru
Voice
Posts: 8
Joined: Wed Feb 27, 2008 8:02 pm

Post by Kiru »

working fine here, ty
d
dalys
Voice
Posts: 9
Joined: Sun Oct 05, 2008 9:37 am
Location: Gothenburg, Sweden / QuakeNet

Post by dalys »

Thank you for reporting in Kiru. Good to hear it's working for at least one other person. :)
J
Joori
Voice
Posts: 34
Joined: Fri Mar 24, 2006 8:53 pm
Location: Sydney
Contact:

Post by Joori »

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! :P
No Haters, No Spies, Just the love 'tween my thighs!
d
dalys
Voice
Posts: 9
Joined: Sun Oct 05, 2008 9:37 am
Location: Gothenburg, Sweden / QuakeNet

Post by dalys »

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! :P
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.
h
hyuma
Voice
Posts: 4
Joined: Sat Feb 23, 2008 6:17 pm

Post by hyuma »

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> ?
M
MiNdErAsR
Voice
Posts: 17
Joined: Sat Nov 27, 2004 10:13 am

Post by MiNdErAsR »

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
J
Joori
Voice
Posts: 34
Joined: Fri Mar 24, 2006 8:53 pm
Location: Sydney
Contact:

Post by Joori »

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.
No Haters, No Spies, Just the love 'tween my thighs!
d
dalys
Voice
Posts: 9
Joined: Sun Oct 05, 2008 9:37 am
Location: Gothenburg, Sweden / QuakeNet

Post by dalys »

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. :cry:
J
Joori
Voice
Posts: 34
Joined: Fri Mar 24, 2006 8:53 pm
Location: Sydney
Contact:

Post by Joori »

No dramas mate, take your time 8)

Im sure you'll let us know when a fix is available :)
No Haters, No Spies, Just the love 'tween my thighs!
User avatar
speechles
Revered One
Posts: 1398
Joined: Sat Aug 26, 2006 10:19 pm
Location: emerald triangle, california (coastal redwoods)

Post by speechles »

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. :cry:
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.
J
Joori
Voice
Posts: 34
Joined: Fri Mar 24, 2006 8:53 pm
Location: Sydney
Contact:

Post by Joori »

Cheers bud, that worked a treat, all works fine now :D
No Haters, No Spies, Just the love 'tween my thighs!
d
dalys
Voice
Posts: 9
Joined: Sun Oct 05, 2008 9:37 am
Location: Gothenburg, Sweden / QuakeNet

Post by dalys »

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. :cry:
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.
d
dalys
Voice
Posts: 9
Joined: Sun Oct 05, 2008 9:37 am
Location: Gothenburg, Sweden / QuakeNet

Post by dalys »

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.
h
hyuma
Voice
Posts: 4
Joined: Sat Feb 23, 2008 6:17 pm

Post by hyuma »

thank you for your job dude! :P
Post Reply