Youtube tcl - duration option

[ege]

hello,

i have this script by Ford_Lawnmower

https://pastee.org/ht3t7

how to add youtube video duration time spec into it ?

thank you.

[WazzaUK]

This should help:

$youtubevar is the current line of http data

Code: Select all

set youtubeduration ""
if {[regexp -nocase {<meta itemprop=\"duration\" content=\"(.*?)\">.*} $youtubevar match youtubeduration]} {
  set youtubeduration "Duration: $youtubeduration"
  set youtubeduration [string map [list {PT} {} {M} {:} {S} {}] $youtubeduration]
}

I know this works.

[WazzaUK]

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

Code: Select all

if {[regexp -nocase {<meta itemprop=\"duration\" content=\"(.*?)\">.*} $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

[WazzaUK]

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: Select all

	if {[regexp -nocase {<meta itemprop=\"duration\" content=\"(.*?)\">.*} $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}] 
	}

[SoUkSoU]

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

Regards,

[WazzaUK]

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

[bunnybump]

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: Select all

 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.