Author: sparky Date: Thu Jul 15 03:10:30 2010 New Revision: 11676 Modified: toys/rsget.pl/Video/Break Log: - fixed
Modified: toys/rsget.pl/Video/Break ============================================================================== --- toys/rsget.pl/Video/Break (original) +++ toys/rsget.pl/Video/Break Thu Jul 15 03:10:30 2010 @@ -10,7 +10,7 @@ web: "http://www.break.com/"; uri: qr{break\.com/.+?/.+} slots: max -status: BROKEN 2010-07-13 +status: OK 2010-07-15 # TODO: support pictures @@ -20,22 +20,18 @@ ERROR( "file not found" ) if m{404 Page Not Found} or $-{_referer} eq "http://www.break.com/";; - ! m{<meta name="title" content="(.*?)"}; - my $name = de_ml( $1 ); - $name =~ s{/}{_}g; - $name .= ".flv"; - INFO( name => $name, quality => "flv" ); - - ! m{sGlobalContentFilePath='(.*?)'}; - my $fp = $1; ! m{sGlobalFileName='(.*?)'}; - my $fn = $1; - ! m{var\s+videoPath\s*=\s*"(.*?)"}; - my $vp = $1; + my $uri = $1; + ! m{var\s+videoPath\s*=\s*sGlobalFileName\s*\+\s*'(.*?)';}; + $uri .= $1; + + ! $uri =~ m#.*/(.+)#; + INFO( name => $1, quality => "flv" ); + + ! m{sGlobalToken='([0-9A-F]+)'}; + my $token = $1; - ! m{\s+flashVars\.icon\s*=\s*"(.*?)"}; - my $icon = $1; - DOWNLOAD( "$vp$fp/$fn.flv?$icon", fname => $name ); + DOWNLOAD( "$uri?$token" ); # vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
