Author: sparky
Date: Sat Apr 3 00:20:06 2010
New Revision: 11294
Modified:
toys/rsget.pl/Video/YouTube
Log:
- updated for web changes
Modified: toys/rsget.pl/Video/YouTube
==============================================================================
--- toys/rsget.pl/Video/YouTube (original)
+++ toys/rsget.pl/Video/YouTube Sat Apr 3 00:20:06 2010
@@ -28,14 +28,14 @@
start:
GET( $-{_uri} );
- ! m{"video_id": "(.*?)"};
+ ! m{"video_id": "(.*?)"} or m{'VIDEO_ID': '(.*?)'};
my $id = $1;
! m{<meta name="title" content="(.*?)">};
my $name = de_ml( de_ml( $1 ) );
$name =~ s{/}{_}g;
- ! /"fmt_map"\s*:\s*"(.*?)"/;
+ ! /"fmt_map"\s*:\s*"(.*?)"/ or m{&fmt_map=\S+?&};
my %fmts = map { m{(\d+)/}; $1 => $_ } split ",", uri_unescape( $1 );
my $fmt = $fmt[ $#fmt ];
@@ -46,7 +46,7 @@
}
}
- ! /"t"\s*:\s*"(.*?)"/;
+ ! /"t"\s*:\s*"(.*?)"/ or m{&t=(\S+?)&};
my $t = $1;
my $fname = $name . "." . $fmt->[1];
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
