egghelp/eggheads community

Re: Full tcl script with duration...

2014-02-23T00:50:22-04:00

http://forum.egghelp.org/viewtopic.php?t=19596

regarding to WazzUK posted, i got this error when i tried to run it on my eggdrop. i've try this tcl but it keeps telling me that there's an error with the script. here what i got:

Code:

 can't read "maxlen": no such variable    while executing"string is integer -strict $maxlen"    invoked from within"if  {[string is integer -strict $maxlen]} {           if {($maxlen == "") || ($maxlen < 1)} {set maxlen 100}        } else { set maxlen "100" }"    (file "scripts/you.tcl" line 50)

what should i do to fix it? thank you in advance for the help.

Statistics: Posted by bunnybump — Sun Feb 23, 2014 12:50 am

Full tcl script with duration...

2014-01-29T16:58:17-04:00

http://forum.egghelp.org/viewtopic.php?t=19596

Statistics: Posted by WazzaUK — Wed Jan 29, 2014 4:58 pm

Hey

2014-01-14T12:06:02-04:00

Can you provide the full tcl with the duration in it ?

Regards,

Statistics: Posted by SoUkSoU — Tue Jan 14, 2014 12:06 pm

Duration for Youtube

2013-12-31T01:40:34-04:00

Only just realised the previous code i provided doesnt work. Get invalid variable type for use with expr and +.

$data is http data, after proc completes $duration contains the duration.

Im sure the following code works, i use it in my youtube script.

Code:

if {[regexp -nocase {.*} $data match duration]} {  set youtubelength $duration   if {[regexp {M(.*?)S} $duration match duration]} {     set videosecs $duration  }   set duration $youtubelength   if {[regexp {PT(.*?)M} $duration match duration]} {     set videomins $duration  } set totalseconds [expr {($videomins * 60) + $videosecs}]           set duration [clock format $totalseconds -format {%H:%M:%S}] }

Statistics: Posted by WazzaUK — Tue Dec 31, 2013 1:40 am

Youtube tcl - duration option

2013-09-03T07:54:54-04:00

Heres an improved version... i know the code is a touch messy... Previous code wasnt 100% depending on the data from youtube...

Code:

if {[regexp -nocase {.*} $youtubevar match youtubeduration]} {  set youtubelength $youtubeduration  if {[regexp {M(.*?)S} $youtubevar match youtubeduration]} {    set videosecs $youtubeduration  }  set youtubeduration $youtubelength  if {[regexp {PT(.*?)M} $youtubevar match youtubeduration]} {    set videomins $youtubeduration  }  set totalseconds [expr {($videomins * 60) + $videosecs}]   set youtubeduration [clock format $totalseconds -format {%H:%M:%S}]}

Ive re-written most of original code - has much more info and functionality...

YouTube URL check v1.01 by WazzaUK - based on v.0.01 by Ford_Lawnmower

Statistics: Posted by WazzaUK — Tue Sep 03, 2013 7:54 am

youtube video duration

2013-08-25T04:56:24-04:00

This should help:

$youtubevar is the current line of http data

Code:

set youtubeduration ""if {[regexp -nocase {.*} $youtubevar match youtubeduration]} {  set youtubeduration "Duration: $youtubeduration"  set youtubeduration [string map [list {PT} {} {M} {:} {S} {}] $youtubeduration]}

I know this works.

Statistics: Posted by WazzaUK — Sun Aug 25, 2013 4:56 am

Youtube tcl - duration option

2013-07-27T00:46:05-04:00

hello,

i have this script by Ford_Lawnmower

https://pastee.org/ht3t7

how to add youtube video duration time spec into it ?

thank you.

Statistics: Posted by ege — Sat Jul 27, 2013 12:46 am