Author: sparky Date: Wed Jul 14 19:41:47 2010 New Revision: 11675 Modified: toys/rsget.pl/Get/4Shared Log: - added image support
Modified: toys/rsget.pl/Get/4Shared ============================================================================== --- toys/rsget.pl/Get/4Shared (original) +++ toys/rsget.pl/Get/4Shared Wed Jul 14 19:41:47 2010 @@ -5,8 +5,6 @@ # This program is free software, # you may distribute it under GPL v2 or newer. -# TODO: support images, and probably other content - name: 4Shared short: 4S web: "http://www.4shared.com/"; @@ -14,7 +12,7 @@ uri: qr{4shared\.com/(account/)?file/} cookie: 4s slots: max -status: OK 2010-06-05 +status: OK 2010-07-14 unify: return "http://www.4shared.com/file/$1/$2"; @@ -26,7 +24,7 @@ ERROR( "file not found" ) if m{^\s*<img alt="" src="/images/spacer\.gif" class="warn" hspace="3" align="left" />\s*$}m; - ! m{window\.location = ".*/(.*?)\?tsid=.*";}; + ! m{window\.location = ".*/(.*?)\?tsid=.*";} or m{doFullImgExpand\(this, '[^'?]+/(.*?)\?}; my $name = uri_unescape( $1 ); ! m{<td class="finforight">(\d+(?:,\d+)? KB)</td>}s; @@ -35,7 +33,14 @@ INFO( name => $name, asize => $size ); ! m{<a href="(.*?)" class="dbtn" tabindex="1">}; - CLICK( $1 ); + my $btn_uri = $1; + + if ( m{doFullImgExpand\(this,} ) { + $-{file_uri} = $btn_uri; + GOTO stage_download; + } + + CLICK( $btn_uri ); ! m{id='divDLStart'>\s*<a href='(.*?)'>}; $-{file_uri} = $1; @@ -43,6 +48,7 @@ ! /var c = (\d+);/; WAIT( $1, "starting download" ); +stage_download: CLICK_DOWNLOAD( $-{file_uri} ); # vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
