egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Tv.com tv show info grabber?
Goto page Previous  1, 2, 3  Next
 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Support & Releases
View previous topic :: View next topic  
Author Message
greenbear
Owner


Joined: 24 Sep 2001
Posts: 733
Location: Norway

PostPosted: Sat Aug 13, 2005 12:23 am    Post subject: Reply with quote

It's probably my fault, the setudef was missing in the code above.
Back to top
View user's profile Send private message Send e-mail
koom
Voice


Joined: 30 Jul 2005
Posts: 22

PostPosted: Sat Aug 13, 2005 12:24 pm    Post subject: Reply with quote

i know it's asking alot, but any chance of having "Next episode airs in: blah days" added in?
I looked on tv.com and found out that it says when a specific ep airs, but it would be cool to show how many days until it airs (and not the date of it Smile)

Thanks,
koom
Back to top
View user's profile Send private message
greenbear
Owner


Joined: 24 Sep 2001
Posts: 733
Location: Norway

PostPosted: Sat Aug 13, 2005 12:33 pm    Post subject: Reply with quote

There's other scripts doing that already. Like EPGuru, parsing from epguides.
Back to top
View user's profile Send private message Send e-mail
koom
Voice


Joined: 30 Jul 2005
Posts: 22

PostPosted: Sat Aug 13, 2005 10:11 pm    Post subject: Reply with quote

I shall have a look, thanks
Back to top
View user's profile Send private message
w0lfstar
Voice


Joined: 20 May 2005
Posts: 22

PostPosted: Sat Aug 13, 2005 10:15 pm    Post subject: Reply with quote

they are all outdated..
Back to top
View user's profile Send private message
Wiz4rd
Voice


Joined: 08 Sep 2005
Posts: 1

PostPosted: Fri Sep 09, 2005 2:00 am    Post subject: Reply with quote

No matter what I do I can't get this script to work. Its all loaded up fully. No errors, When I do !tvinfo joey it does nothin in channel and in dcc chat i see this <<Wiz4rd>> !Wiz4rd! !tvinfo joey

And thats all it does. What gives?
Back to top
View user's profile Send private message
greenbear
Owner


Joined: 24 Sep 2001
Posts: 733
Location: Norway

PostPosted: Sat Sep 10, 2005 10:53 pm    Post subject: Reply with quote

Quote:
.chanset #channel +tv
Back to top
View user's profile Send private message Send e-mail
cBuster
Voice


Joined: 22 Sep 2005
Posts: 5

PostPosted: Thu Sep 22, 2005 7:12 am    Post subject: Reply with quote

greenbear: Would be really happy if you would like to do a script like that one "w0lfstar" talked about.

w0lfstar wrote:

example:

Joe: !tv 24
Bot: Tv Info for: 24 (Action/Adventure , Drama)
Bot: Latest: S04E24 - Day 4: 6:00 A.M.-7:00 A.M. on 5/23/2005
Bot: Next: Unknown.

Joe: !tv desperate housewives
Bot: Tv Info for: Desperate Housewives (Drama , Comedy)
Bot: Latest: S01E23 - One Wonderful Day on 5/22/2005
Bot: Next: S02E01 - Season 2 Premiere (TBA) on 9/25/2005
Back to top
View user's profile Send private message
Figga
Voice


Joined: 30 Aug 2005
Posts: 6

PostPosted: Fri Sep 23, 2005 4:37 am    Post subject: The information is not on the site to parse .. Reply with quote

The information u request is not on the site to parse as yet , it would be better to find a different site to parse the info that you require , if you can find a good one that doesnt change its layout to often i would be happy to code this for you ....
Back to top
View user's profile Send private message
cBuster
Voice


Joined: 22 Sep 2005
Posts: 5

PostPosted: Fri Sep 23, 2005 4:53 am    Post subject: Re: The information is not on the site to parse .. Reply with quote

Figga wrote:
The information u request is not on the site to parse as yet , it would be better to find a different site to parse the info that you require , if you can find a good one that doesnt change its layout to often i would be happy to code this for you ....


You can always use http://epguides.com/PrisonBreak/. (ex)
Back to top
View user's profile Send private message
JAFO
Voice


Joined: 13 Oct 2005
Posts: 19

PostPosted: Mon Oct 17, 2005 12:27 pm    Post subject: Reply with quote

A friend of mine did a lil work on the script

Code:
###
# Parse show info from tv.com

# Enable with .chanset #channel +tvi

# [0/1] public or private reply's (public 0, private 1)
set tvreply 0

# offset to EST
# 6 hours makes sense for CET (Europe)
set tvoffset 6

if ![info exists egghttp(version)] {
  putlog "egghttp.tcl was NOT successfully loaded."
}

setudef flag tvi

bind pub - !tvinfo pub:info.tv.com

proc pub:info.tv.com {nick uhost hand chan text} {
  if ![channel get $chan tvi] return
  if {$::tvreply} {set target $nick} {set target $chan}
  if {$text==""} {putserv "PRIVMSG $target :Usage: $::lastbind <show>"; return}
  set search [join [lrange [split $text] 0 e] {+}]
  set d [date:offset [clock seconds] %m%d%y]
  set url "http://www.tv.com/search.php?type=11&stype=program&qs=$search&search=Search/"
  set sock [egghttp:geturl $url [list findrealurl:tv.com $target] -headers "Cookie: tv_promo_$d=1"]
}

proc findrealurl:tv.com {target sock} {
 set data [egghttp:data $sock]
 egghttp:cleanup $sock

 foreach line [split $data \n] {
  if [string match -noc "*returned no results*" $line] {
    putserv "PRIVMSG $target :Unknown show."
    return
  }
  if [string match -noc *www.tv.com*show*summary.html* $line] {
    regexp -nocase {(http://)[^\"]+} $line url
    set d [date:offset [clock seconds] %m%d%y]
    set s [egghttp:geturl $url [list parseinfo:tv.com $target $url] -headers "Cookie: tv_promo_$d=1"]
    return
  }
 }
}

proc parseinfo:tv.com {target url sock} {
 set data [egghttp:data $sock]
 egghttp:cleanup $sock

 set data [string map {"\n" "" "</div>" "</div>\n" "<br />" "<br />\n"} $data]
 set dV 0
 foreach line [split $data \n] {
   if [regexp {<title>(.*).TV Show} $line . show] {
     putserv "PRIVMSG $target :Show: $show"
   }
   if [string match -nocase "*Airs:*" $line] {
     regsub -all {<(.|\n)*?>} $line {} airs
     putserv "PRIVMSG $target :[concat [join $airs]]"
   }
   if [string match -nocase "*Status:*" $line] {
     regsub -all {<(.|\n)*?>} $line {} status
     putserv "PRIVMSG $target :[concat [join $status]]"
   }
   if [string match -nocase "*Premiered*" $line] {
     regsub -all {<(.|\n)*?>} $line {} premiered
     putserv "PRIVMSG $target :[concat [join $premiered]]"
   }
   if [string match -nocase "*Show Category:*" $line] {
     regsub -all {<(.|\n)*?>} $line {} category
     putserv "PRIVMSG $target :[concat [join $category]]"
   }
   if [string match -nocase "*, 200*" $line] {
     regsub -all {<(.|\n)*?>} $line {} Dates
     if ![string match -nocase "*Premiered*" $line] {
       if {$dV == 0} {
         putserv "PRIVMSG $target :Next Air Date: [concat [join $Dates]]"
       } else {
         putserv "PRIVMSG $target :Last Air Date: [concat [join $Dates]]"
       }
       incr dV
     }
   }
 }
 putserv "PRIVMSG $target :URL: $url"
}

proc date:offset {epox arg} {
 set t [expr $epox-((60*60)*$::tvoffset)]
 set w [clock format $t -format $arg]
 return $w
}



.chanset changed also from +tv >>> +tvi ( coz i allready used +tv in tv.com.tcl v0.2 by greenbear )

Might contain unlogical data , but it works Smile


Code:

<~me> !tvinfo 24
<@MyBot> Show: 24
<@MyBot> Airs: Monday 9:00 PM on FOX (60 mins)
<@MyBot> Status: Returning Series
<@MyBot> Premiered November 6, 2001
<@MyBot> Show Category: Action/Adventure , Drama
<@MyBot> Next Air Date: Sunday January 15, 2006
<@MyBot> Last Air Date: Monday May 23, 2005
<@MyBot> URL: http://www.tv.com/24/show/3866/summary.html?q=24


Njoy Very Happy
Back to top
View user's profile Send private message
InsideTheBox
Voice


Joined: 17 Oct 2005
Posts: 1

PostPosted: Mon Oct 17, 2005 5:58 pm    Post subject: Reply with quote

<luciverse> !tvinfo The Ultimate Fighter

Tcl error [pub.tvinfo.com]: unknown channel command: should be one of: add, set, info, remove

Crying or Very sad
Back to top
View user's profile Send private message
Taz
Voice


Joined: 23 Oct 2005
Posts: 9

PostPosted: Sun Oct 23, 2005 10:22 pm    Post subject: Thanx Reply with quote

Thanx to you and your friend JAFO. This is exactly what a lot of us wanted.
Back to top
View user's profile Send private message
pEeDy
Voice


Joined: 01 Nov 2005
Posts: 2

PostPosted: Tue Nov 01, 2005 7:52 pm    Post subject: Reply with quote

Where do I type this '.chanset #channel +tvi' ?? I tried in a query, a private message and in channel... DCC chat doesn't work... help me please? Sad

Edit; got it Very Happy
For other noobs:
You have to put it in your telnet window Smile
And you have to load egghttp.tcl too, before you load this tcl script.
Back to top
View user's profile Send private message
outthere
Voice


Joined: 26 Nov 2005
Posts: 33

PostPosted: Sat Nov 26, 2005 7:36 pm    Post subject: error Reply with quote

wow.. i have been looking for something like this... thx

i am getting an error though when i do !tvinfo ep

Tcl error [pub:info.tv.com]: invalid command name " "

i checked egghttp and tvi tcl and cant find that text anywhere..
i think it might be a simple problem a noob like me doesnt know anything about.. any help would be greatly appreciated...

thx Confused
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Support & Releases All times are GMT - 4 Hours
Goto page Previous  1, 2, 3  Next
Page 2 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber