http://coderepos.org/share/browser/lang/perl/plagger/assets/plugins/Filter-FindEnclosures/youtube_mp4.pl

youtube_mp4.pl

# author: mizzy, yusukebe
use Plagger::Util qw( decode_content );
use JSON;
use URI::Escape;

sub handle {
    my ($self, $url) = @_;
    $url =~ qr!http://(?:(?:au|br|ca|fr|de|us|hk|ie|it|jp|mx|nl|nz|pl|es|tw|gb|www)\.)?youtube\.
com/(?:watch(?:\.php)?)?\?v=.+!;
}

sub find {
    my ($self, $args) = @_;
    my $url = $args->{url};

    my $ua = Plagger::UserAgent->new;

    my $res = $ua->fetch($url);

    return if $res->is_error;

        if ((my $verify_url = $res->http_response->request->uri) =~ /\/verify_age\?/) {
            $res = $ua->post($verify_url, { action_confirm => 'Confirm' });
            return if $res->is_error;

            $res = $ua->fetch($url);
            return if $res->is_error;

            $args->{content} = decode_content($res);
        }

    if ($args->{content} =~ /yt\.playerConfig\s*=\s*(.*?);\n/) {
        my $obj = decode_json($1);
        my $fmt_stream_map = uri_unescape($obj->{args}->{url_encoded_fmt_stream_map});
        if ($fmt_stream_map =~ /url=([^;]+quality=(?:hd720|large)[^;]*type=video\/mp4[^;]*);/) {
            my $video_url = $1;
            my $enclosure = Plagger::Enclosure->new;
            $enclosure->url($video_url);

            $enclosure->type('video/mp4');
            if ($url =~ /v=(\w+)/) {
                $enclosure->filename("$1.mp4");
            }
            return $enclosure;
        }
    }

    return;
}