diff options
author | Seungwon Jeong <seungwon0@gmail.com> | 2012-07-08 15:10:38 +0900 |
---|---|---|
committer | Seungwon Jeong <seungwon0@gmail.com> | 2012-07-08 15:10:38 +0900 |
commit | 8c230643e3158cb49eda4ec57d94b30cc139ea39 (patch) | |
tree | 9ec03cef7db144308877df432b637290de285c94 | |
parent | 59e7faa011c0abbd993825ab82a70daa55d9978c (diff) | |
download | get-flash-videos-8c230643e3158cb49eda4ec57d94b30cc139ea39.tar.gz |
[Daum] Support ebs.daum.net
-rw-r--r-- | lib/FlashVideo/Site/Daum.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/FlashVideo/Site/Daum.pm b/lib/FlashVideo/Site/Daum.pm index 7973841..7b10c6e 100644 --- a/lib/FlashVideo/Site/Daum.pm +++ b/lib/FlashVideo/Site/Daum.pm @@ -71,10 +71,15 @@ sub get_video_id { my $video_id_pattern_4 = qr{/video/viewer/VideoView.html [?] vid = (.+?) &}xms; + # DaumVodPlayer.swf?vid=vd247EUCULRUVVUQSVytEDS&... + my $video_id_pattern_5 + = qr{DaumVodPlayer[.]swf [?] vid = (.+?) &}xmsi; + if ( $document !~ $video_id_pattern_1 && $document !~ $video_id_pattern_2 && $document !~ $video_id_pattern_3 - && $document !~ $video_id_pattern_4 ) + && $document !~ $video_id_pattern_4 + && $document !~ $video_id_pattern_5 ) { die "Cannot find video ID.\n"; } |