Author: sparky Date: Tue Oct 5 02:32:28 2010 New Revision: 11829 Added: toys/rsget.pl/Get/UlozTo (contents, props changed) Log: - NEW, made on request
Added: toys/rsget.pl/Get/UlozTo ============================================================================== --- (empty file) +++ toys/rsget.pl/Get/UlozTo Tue Oct 5 02:32:28 2010 @@ -0,0 +1,41 @@ +# $Id$ +# Get::UlozTo - File getter plugin for rsget.pl +# +# 2010 (c) Przemysław Iskra <[email protected]> +# This program is free software, +# you may distribute it under GPL v2 or newer. + +name: UlozTo +short: UlozTo +web: "http://uloz.to/"; +tos: "http://img.uloz.to/podminky.pdf"; +uri: qr{uloz\.to/\d+/} +slots: max +status: OK 2010-10-05 + +start: + GET( $-{_uri} ); + + ERROR( "file not found: $1" ) + if m{<div id="errPage".*?<h2>(.*?)</h2>}s; + + ! m{<h2 class="nadpis" .*?><a href=".*?">(.*?)</a></h2>}; + my $name = $1; + + ! m{<div class="info_velikost" .*?><div>($STDSIZE)</div></div>}o; + INFO( name => $name, asize => $1 ); + + ! $-{form} = $self->form( name => "dwn" ); + + #! m{<img .*? src="(http://img\.uloz\.to/captcha/\d+\.png)" alt="Captcha" class="captcha" />}; + #GET( $1 ); + #CAPTCHA( qr/[a-z]{4}/ ); + #$-{form}->set( captcha_user => $_ ); + + # captcha hack - no need to solve captchas ! + $-{form}->set( captcha_nb => 1 ); + $-{form}->set( captcha_user => "rxke" ); + + DOWNLOAD( $-{form}->post() ); + +# vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
