Author: sparky Date: Mon Jul 26 01:30:45 2010 New Revision: 11710 Modified: toys/rsget.pl/Get/FileServe Log: - allow uris without www. - added tos: - non-greedy filename match
Modified: toys/rsget.pl/Get/FileServe ============================================================================== --- toys/rsget.pl/Get/FileServe (original) +++ toys/rsget.pl/Get/FileServe Mon Jul 26 01:30:45 2010 @@ -8,7 +8,8 @@ name: FileServe short: FSRV web: "http://fileserve.com/"; -uri: qr{www\.fileserve\.com/file/[A-Za-z0-9]+(/.*)?} +tos: "http://fileserve.com/terms.php"; +uri: qr{fileserve\.com/file/[A-Za-z0-9]+(/.*)?} cookie: fsrv status: OK 2010-07-25 @@ -22,14 +23,17 @@ ERROR( "file not found: $1" ) if m#<span class="fail_info">\s*(.*?)\s*</span>#s; - ! m#<h1>(.+)<br/></h1>#; + ! m#<h1>(.+?)<br/></h1>#; my $fname = $1; ! m#<span><strong>($STDSIZE)</strong> \| Uploaded on #; INFO( name => $fname, asize => $1 ); CLICK( $-{_uri}, post => { downloadLink => "wait" } ); + WAIT( 30, "waiting for download link" ); + CLICK( $-{_uri}, post => { downloadLink => "show" } ); + CLICK_DOWNLOAD( $-{_uri}, post => { download => "normal" } ); # vim: filetype=perl:ts=4:sw=4 _______________________________________________ pld-cvs-commit mailing list [email protected] http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
