egghelp/eggheads community

i made simple script that check dailymotion livestream

2013-06-04T12:58:05-04:00

i updated the stream and translated all variables (first post in topic updated) to english if anyone want it it have many functions now

Statistics: Posted by hayuto — Tue Jun 04, 2013 12:58 pm

i made simple script that check dailymotion livestream

2013-06-03T12:43:43-04:00

thanks
i dont know since yesterday i put much work in my own script maybe it isnt super pretty but it have now many function like having a list of all past streams with date and length, it can show status, and it announce immidietly when the stream starts and stops even if bot is restarted it will know if stream status changed while it was offline cause it is done by wget etc

its badly writen but it works

but thank you anyways for your effort im sure someone will look for something like this sooner or later on google and will find this topic, so i put here my script as well when im done (maybe) he will have a choice

Statistics: Posted by hayuto — Mon Jun 03, 2013 12:43 pm

i made simple script that check dailymotion livestream

2013-06-02T15:22:49-04:00

didn't edited anything yet just loaded it and
Code:
20:38  [20:38:00] Tcl error [streamUpOrDown]: can't use non-numeric string as operand of "-"

The problem is your stream, when its online, has no start_time given to it. It remains "null" the same as if it were offline. So when start_time isn't found, the script will now make use of [clock seconds] which will give an inaccurate time the stream has been up, but hey, thats the best you can do when you don't know how long it's been active eh?

Code:

# dailymotion stream thing-a-mah-jig# speechles/#roms-isos on June 3rd, 2013## This will check every minute if the stream has gone up or down# and will announce the start and ending. When the stream is enabled,# it will also announce the url and how long the stream has been going# on the hour and half hour. So every 30 minutes give or take a few# seconds. It's using bind to time rather than timers too. So far less# overhead is required tracking things.#--> config start# channel everything occurs inset stream(channel) "#kangaroopocket"# url we announce for people to joinset stream(url) "http://www.dailymotion.com/video/xzlc83"# url we use to obtain status informationset stream(api) "https://api.dailymotion.com/video/xzlc83"# This one below you should _NEVER_ change unless you have# issues with duration agos from start of videosset stream(timezone) "%Y-%m-%d %H:%M:%S %Z"# Use this to adjust minor clock sync issues -/+secondsset stream(fixtime) "0"# <-- config endpackage require httppackage require tls::http::register https 443 [list ::tls::socket -require 0 -request 1]if {![info exists stream(status)]} {   set stream(status) "false"   set stream(time) 0}proc streamDuration {time} {   global stream   set now [clock scan [clock format [clock seconds] -format $stream(timezone)] -gmt 1]   putlog "$now - $time + $stream(fixtime)"   return [duration [expr {$now - $time + $stream(fixtime)}]]}foreach t {30* 60*} { bind time - $t streamSpam }proc streamSpam {args} {   global stream   if {[string equal true $stream(status)]} {      putserv "privmsg $stream(channel) :Live stream in progress at $stream(url) started [streamDuration $stream(time)] ago."   }}bind time - * streamUpOrDownproc streamUpOrDown {args} {   global stream   if {[catch { http::geturl "$stream(api)?fields=onair,start_time" -timeout 3000 } http]} {      putlog "Dailymotion: [string totitle $http]"      return 0   }   if {![string equal -nocase [::http::status $http] "ok"]} {      putlog "Dailymotion: [string totitle [::http::status $http]]"      http::cleanup $http      return 0   }   set data [http::data $http]   http::cleanup $http   regexp -- {"onair"\:(.*?),} $data - onair   regexp -- {"start_time"\:(.*?)\}} $data - start   if {![info exists onair]} {      if {[regexp -- {"message"\:"(.*?)"} $data - message]} {         putserv "privmsg $stream(channel) :$message"      } else {         putlog "Dailymotion: Parsing error; unexpected data."      }   } else {      if {![string equal $onair $stream(status)]} {         if {[string equal true $onair]} {            if {[string equal null $start]} { set start [clock scan [clock format [clock seconds] -format $stream(timezone)] -gmt 1] }            set message "\002Stream is UP\002 started [streamDuration $start] ago. Come watch us live at $stream(url)"            set stream(time) $start         } else {            set message "\002Stream is DOWN\002 after [streamDuration $stream(time)] at $stream(url)"            set stream(time) 0         }         set stream(status) $onair         putserv "privmsg $stream(channel) :$message"      }   }}

Statistics: Posted by speechles — Sun Jun 02, 2013 3:22 pm

i made simple script that check dailymotion livestream

2013-06-02T14:38:46-04:00

didn't edited anything yet just loaded it and

Code:

20:38  [20:38:00] Tcl error [streamUpOrDown]: can't use non-numeric string as operand of "-"

Statistics: Posted by hayuto — Sun Jun 02, 2013 2:38 pm

i made simple script that check dailymotion livestream

2013-06-02T09:57:53-04:00

will it be less resource heavy if i check every 5 seconds within the script, instead of wget? i want to check every 5 seconds, what good from script that will tell us the stream started after it has been live for whole minute? i always tought wget is super fast and super optimized, and also i changed couple things here and there since i posted so i really dont know whats better now.

i now use duration from russian peak.tcl script which i translated to polish it works as supposed it use proper grammar for our language:

http://paste.tclhelp.net/?id=ddk (edit forgot about http://paste.tclhelp.net/?id=ddl)

i also use @reboot cron command and do; while bash script

i love your code and want to use it

will it be better, is it faster then wget? i dont know how to test it in long run

anyways i will load it later and tell you if it works ok (but it have to announce immidietly when stream starts and ends so i need to figure out first how to change it )

Statistics: Posted by hayuto — Sun Jun 02, 2013 9:57 am

Re: i made simple script that check dailymotion livestream

2013-06-02T04:46:33-04:00

what you think?

It looks very resource heavy. Why didn't you write it in pure-tcl using http package instead? You also, inadvertently overwrote tcl's native [duration] command with one of your own. Not sure if this was intended... But to make it less of a drain on your bot, and your shell here's is something that should behave similar to what you are already doing.

Code:

# dailymotion stream thing-a-mah-jig# speechles/#roms-isos on June 2nd, 2013## This will check every minute if the stream has gone up or down# and will announce the start and ending. When the stream is enabled,# it will also announce the url and how long the stream has been going# on the hour and half hour. So every 30 minutes give or take a few # seconds. It's using bind to time rather than timers too. So far less # overhead is required tracking things.#--> config start# channel everything occurs inset stream(channel) "#chan"# url we announce for people to joinset stream(url) "http://www.dailymotion.com/video/xzlc83"# url we use to obtain status informationset stream(api) "https://api.dailymotion.com/video/xzlc83"# This one below you should _NEVER_ change unless you have# issues with duration agos from start of videosset stream(timezone) "%Y-%m-%d %H:%M:%S %Z"# Use this to adjust minor clock sync issues -/+secondsset stream(fixtime) "0"# <-- config endpackage require httppackage require tls::http::register https 443 [list ::tls::socket -require 0 -request 1]if {![info exists stream(status)]} {set stream(status) "false"set stream(time) 0}proc streamDuration {time} {global streamset now [clock scan [clock format [clock seconds] -format $stream(timezone)] -gmt 1]return [duration [expr {$now - $time + $stream(fixtime)}]]}foreach t {30* 60*} { bind time - $t streamSpam }proc streamSpam {args} {global streamif {[string equal true $stream(status)]} {putserv "privmsg $stream(channel) :Live stream in progress at $stream(url) started [streamDuration $stream(time)] ago."}}bind time - * streamUpOrDownproc streamUpOrDown {args} {global streamif {[catch { http::geturl "$stream(api)?fields=onair,start_time" -timeout 3000 } http]} {putlog "Dailymotion: [string totitle $http]"return 0}if {![string equal -nocase [::http::status $http] "ok"]} {putlog "Dailymotion: [string totitle [::http::status $http]]"http::cleanup $httpreturn 0}set data [http::data $http]http::cleanup $httpregexp -- {"onair"\:(.*?),} $data - onairregexp -- {"start_time"\:(.*?)\}} $data - startif {![info exists onair]} {if {[regexp -- {"message"\:"(.*?)"} $data - message]} {putserv "privmsg $stream(channel) :$message"} else {putlog "Dailymotion: Parsing error; unexpected data."}} else {if {![string equal $onair $stream(status)]} {if {[string equal true $onair]} {set message "\002Stream is UP\002 started [streamDuration $start] ago. Come watch us live at $stream(url)"set stream(time) $start} else {set message "\002Stream is DOWN\002 after [streamDuration $stream(time)] at $stream(url)"set stream(time) 0}set stream(status) $onairputserv "privmsg $stream(channel) :$message"}}}

Yes, it does it all within this one script. If you have problems, notice bugs, let me know. I only tested this "in my head".

Note: The start time used for this is the "actual" time the stream began. So starting the stream, then 4 hours later the bot joins. It will announce the stream is up and started 4 hours ago. Then every 30 minutes it will keep announcing there is a live stream running and for how long its been up until you switch off the stream. At that point it will announce the stream is down and how long the stream was up previously. It will only issue up/down announcement if the status of the stream has changed.

Statistics: Posted by speechles — Sun Jun 02, 2013 4:46 am

i made simple script that check dailymotion livestream

2013-08-29T19:07:53-04:00

i made it for our channel only so you have to edit it

http://wonziu.tk/sprawdzstream.tar.bz2
what you think?

Statistics: Posted by hayuto — Sun Jun 02, 2013 1:57 am