SVN: toys/rsget.pl/Get/TurboBit

[sparky]

Author: sparky
Date: Mon Sep 14 00:36:41 2009
New Revision: 10596

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


Added: toys/rsget.pl/Get/TurboBit
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Get/TurboBit  Mon Sep 14 00:36:41 2009
@@ -0,0 +1,59 @@
+#!/usr/bin/perl
+
+name: TurboBit
+short: TB
+uri: qr{turbobit\.net/}
+cookie: tb
+slots: 8
+status: OK 2009-09-13
+
+start:
+       GET( $-{_uri} );
+
+       ERROR( "file not found" ) if m#<div class="code-404">404</div>#;
+       ERROR( "file not found" ) if m#Файл не найден. Возможно он был 
удален|File was not found. It could possibly be deleted#;
+
+       ! m#<h1 
class="download-file">.*?<span.*?>&nbsp;</span><b>(.*?)</b></h1>#;
+       my $name = $1;
+       ! m#<div class="download-file">\s*<div><b>.*?</b> ([\d,\.]+ .)#;
+       my $size = $1. "B";
+       $size =~ tr/Мк,/Mk./;
+       INFO( name => $name, asize => $size );
+
+       ! m#<td><a class="free" href="(.*?)" onclick#;
+       GET( $1 );
+stage_captcha:
+       $-{c_page} = $-{_referer};
+
+       unless ( m#<img alt="Captcha" src="(.*?)"# ) {
+               ! m#var Timeout = {\s*limit: (\d+),#s;
+               RESTART( $1, "free limit reached" );
+       }
+       GET( $1 );
+
+       CAPTCHA( "image/png" );
+       $-{_referer} = $-{c_page};
+       
+       GET( "#", post => { captcha_response => $_ } );
+       $-{dl_page} = $-{_referer};
+
+       unless ( /updateTime: function/ ) {
+               PRINT( "Invalid captcha" );
+               return $self->stage_captcha();
+       }
+
+       ! m{\$\("#timeout"\)\.load\("(/download/timeout/.*?)"\);};
+       $-{dl_link} = $1;
+
+       ! m#var Timeout = {\s*limit: (\d+),#;
+       WAIT( -$1, "starting download" );
+
+       GET( $-{dl_link} );
+
+       $-{_referer} = $-{dl_page};
+
+       ! m#<a href='(.*?)'>#;
+
+       DOWNLOAD( $1 );
+
+# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit