SVN: toys/rsget.pl/Get/FreakShare

sparky sparky at pld-linux.org
Thu Sep 17 18:13:50 CEST 2009


Author: sparky
Date: Thu Sep 17 18:13:49 2009
New Revision: 10616

Added:
   toys/rsget.pl/Get/FreakShare
Log:
- new


Added: toys/rsget.pl/Get/FreakShare
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Get/FreakShare	Thu Sep 17 18:13:49 2009
@@ -0,0 +1,39 @@
+#!/usr/bin/perl
+
+name: FreakShare
+short: FS
+uri: qr{freakshare\.net/}
+cookie: fs
+status: OK 2009-09-17
+
+start:
+	GET( $-{_uri} );
+
+	ERROR( "file not found" ) if /Sorry, this Download doesnt exist anymore/;
+
+	! m#<h1 class="box_heading" style="text-align:center;">(.*)</h1>#;
+	INFO( name => $1, size => -1 );
+
+	! m#var time = (\d+)(?:\.\d+);\s*var intervall;#;
+	my $wait = $1;
+
+	! m#<form action="(.*?)" method="post" style="display:inline;">#;
+	$-{dl_page} = $1;
+
+	WAIT( $wait, "starting" );
+
+	GET( $-{dl_page}, post => { section => "benefit", did => "0" } );
+	
+	! m#var time = (\d+)(?:\.\d+);\s*var intervall;#;
+	my $wait = $1;
+
+	! m#<form action="(.*?)" method="post" style="display:inline;"#;
+	$-{file_uri} = $1;
+
+	WAIT( $wait, "starting download" );
+
+	DOWNLOAD( $-{file_uri}, post => { section => "waitingtime", did => 0, submit => "Download" } );
+
+	MULTI() if /Sorry, you cant  download more then 1 at time/;
+
+# vim:ts=4:sw=4


More information about the pld-cvs-commit mailing list