★三　【 スクリプト改造工房 PART 9 】　★三

509 名前：508 mailto:sage [2009/09/27(日) 13:13:22 ID:???] --- get_flash_videos-1.15.orig　2009-09-27 11:48:37.000000000 +0900 +++ get_flash_videos-1.15　 2009-09-27 13:12:42.000000000 +0900 @@ -2010,7 +2010,7 @@ use URI::Escape;    sub find_video { 　 my ($self, $browser, $embed_url) = @_; -　my $id = ($embed_url =~ /(sm\d+)/)[0]; +　my $id = ($embed_url =~ /([sn]m\d+)/)[0]; 　 die "No ID found\n" unless $id;   　 my $base = "ext.nicovideo.jp/thumb_watch/$id"; @@ -2029,7 +2029,9 @@ sub find_video { 　 $browser->get($base . "/$playkey"); 　 my $url = uri_unescape(($browser->content =~ /url=([^&]+)/)[0]);   -　return $url, title_to_filename($title); +　$url =~ m{/smile\?(.)=} or die; +　my $type = { qw( v flv m mp4 s swf ) }->{$1} or die; +　return $url, title_to_filename($title, $type);  }    1; @@ -3318,6 +3320,9 @@ sub check_magic { 　 # Other QuickTime 　 } elsif(substr($data, 4, 4) eq 'moov' || substr($data, 4, 4) eq 'mdat') { 　　 return 1; +　# SWF +　} elsif(substr($data, 0, 3) eq 'CWS') { +　　return 1; 　 }   　 return 0;

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef