| View previous topic :: View next topic |
| Author |
Message |
dalys
Voice
Joined: 05 Oct 2008
Posts: 9
Location: Gothenburg, Sweden / QuakeNet
|
 Posted: Sun Oct 05, 2008 10:38 am Post subject: blu-ray.com script by dalys (current: blu-ray.com_1.2.tcl) |
 |
|
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!
| Quote: | <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
Last edited by dalys on Mon Feb 01, 2010 5:30 pm; edited 4 times in total |
|
| Back to top |
|
 |
Kiru
Voice
Joined: 27 Feb 2008
Posts: 8
|
| Posted: Mon Oct 06, 2008 2:57 am Post subject: |
|
|
| working fine here, ty |
|
| Back to top |
|
|
dalys
Voice
Joined: 05 Oct 2008
Posts: 9
Location: Gothenburg, Sweden / QuakeNet
|
| Posted: Tue Oct 07, 2008 7:26 am Post subject: |
|
|
Thank you for reporting in Kiru. Good to hear it's working for at least one other person.  |
|
| Back to top |
|
|
Joori
Voice
Joined: 24 Mar 2006
Posts: 34
Location: Sydney
|
| Posted: Thu Oct 16, 2008 1:47 pm Post subject: |
|
|
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: | | [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! 
_________________
No Haters, No Spies, Just the love 'tween my thighs! |
|
| Back to top |
|
|
dalys
Voice
Joined: 05 Oct 2008
Posts: 9
Location: Gothenburg, Sweden / QuakeNet
|
| Posted: Thu Oct 16, 2008 4:24 pm Post subject: |
|
|
| 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: | | [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. |
|
| Back to top |
|
|
hyuma
Voice
Joined: 23 Feb 2008
Posts: 4
|
| Posted: Mon Oct 20, 2008 9:14 am Post subject: |
|
|
| 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> ? |
|
| Back to top |
|
|
MiNdErAsR
Voice
Joined: 27 Nov 2004
Posts: 17
|
| Posted: Mon Oct 20, 2008 6:53 pm Post subject: |
|
|
I'm seeing a couple of issues...
Note: bot response is in pm...
| Quote: | [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...
| Quote: | [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 |
|
| Back to top |
|
|
Joori
Voice
Joined: 24 Mar 2006
Posts: 34
Location: Sydney
|
| Posted: Wed Oct 22, 2008 8:34 am Post subject: |
|
|
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! |
|
| Back to top |
|
|
dalys
Voice
Joined: 05 Oct 2008
Posts: 9
Location: Gothenburg, Sweden / QuakeNet
|
| Posted: Sat Oct 25, 2008 6:22 am Post subject: |
|
|
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.  |
|
| Back to top |
|
|
Joori
Voice
Joined: 24 Mar 2006
Posts: 34
Location: Sydney
|
| Posted: Sat Oct 25, 2008 11:56 am Post subject: |
|
|
No dramas mate, take your time 
Im sure you'll let us know when a fix is available
_________________
No Haters, No Spies, Just the love 'tween my thighs! |
|
| Back to top |
|
|
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Sat Oct 25, 2008 12:48 pm Post subject: |
|
|
| 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: | 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: | 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.
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
Joori
Voice
Joined: 24 Mar 2006
Posts: 34
Location: Sydney
|
| Posted: Sun Oct 26, 2008 7:35 am Post subject: |
|
|
Cheers bud, that worked a treat, all works fine now
_________________
No Haters, No Spies, Just the love 'tween my thighs! |
|
| Back to top |
|
|
dalys
Voice
Joined: 05 Oct 2008
Posts: 9
Location: Gothenburg, Sweden / QuakeNet
|
| Posted: Sun Oct 26, 2008 7:37 am Post subject: |
|
|
| 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: | 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: | 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. |
|
| Back to top |
|
|
dalys
Voice
Joined: 05 Oct 2008
Posts: 9
Location: Gothenburg, Sweden / QuakeNet
|
| Posted: Sun Oct 26, 2008 9:34 am Post subject: |
|
|
| 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. |
|
| Back to top |
|
|
hyuma
Voice
Joined: 23 Feb 2008
Posts: 4
|
| Posted: Mon Oct 27, 2008 12:19 pm Post subject: |
|
|
| thank you for your job dude! |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
