Skip Menu |
 

This queue is for tickets about the WebService-YouTube CPAN distribution.

Report information
The Basics
Id: 40171
Status: resolved
Priority: 0/
Queue: WebService-YouTube

People
Owner: yoshida [...] cpan.org
Requestors: patrick.kuijvenhoven [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Util::get_video() broken
Date: Sun, 19 Oct 2008 22:18:29 +0200
To: bug-WebService-YouTube [...] rt.cpan.org
From: "Patrick Kuijvenhoven" <patrick.kuijvenhoven [...] gmail.com>
Download (untitled) / with headers
text/plain 969b
Hi, At https://bugs.launchpad.net/ubuntu/+source/libwebservice-youtube-perl/+bug/268443 the following patch is suggested to fix WebService::YouTube::Util::get_video, which currently seems to be broken. --- /usr/share/perl5/WebService/YouTube/Util.pm.orig 2008-10-18 16:10:23.000000000 +0200 +++ /usr/share/perl5/WebService/YouTube/Util.pm 2008-10-18 16:10:50.000000000 +0200 @@ -80,7 +80,7 @@ if ( $content =~ m{"/player2\.swf\?([^"]+)",\s*"movie_player"}msx ) { return "http://youtube.com/get_video.php?$1"; } - if ( $content =~ m{\bt:(['"])(.+?)\1}msx ) { + if ( $content =~ m{,\x20(")t":\x20"([^"]+)"}msx ) { return "http://youtube.com/get_video.php?video_id=$video_id&t=$2"; } if ( $content =~ m{class="errorBox"[^>]*>\s*([^<]+?)\s*<}msx ) { The regular expression is inspired on the one that is used in the Python script that can be found at http://www.arrakis.es/~rggi3/youtube-dl/youtube-dl Best regards, Patrick
released as v1.0.3.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.