SVN: toys/rsget.pl/Get/TurboBit

[sparky]

Author: sparky
Date: Sat Mar 13 02:32:41 2010
New Revision: 11267

Modified:
   toys/rsget.pl/Get/TurboBit
Log:
- getter fixed but captcha no longer supported


Modified: toys/rsget.pl/Get/TurboBit
==============================================================================
--- toys/rsget.pl/Get/TurboBit  (original)
+++ toys/rsget.pl/Get/TurboBit  Sat Mar 13 02:32:41 2010
@@ -13,7 +13,7 @@
 uri: qr{turbobit\.ru/[a-z0-9]+\.html}
 cookie: tb
 slots: max
-status: BROKEN 2010-03-12
+status: OK 2010-03-13
 
 unify:
        return "http://turbobit.net/$1";
@@ -25,11 +25,10 @@
        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>#;
+       ! m#<h1 class="download-file">.*?<span.*?>&nbsp;(.*?)</b></h1>#;
        my $name = $1;
-       ! m#<div class="download-file">\s*<div><b>.*?</b> ([\d,\.]+ .)#;
-       my $size = $1. "B";
-       $size =~ tr/Мк,/Mk./;
+       ! m#<br><b>File size:</b> ([\d,\.]+ .b)</div>#;
+       ( my $size = $1 ) =~ tr/,/./;
        INFO( name => $name, asize => $size );
 
        ! m#<td><a class="free" href="(.*?)" onclick#;
@@ -49,7 +48,6 @@
 
        CAPTCHA(
                qr/[A-Z0-9]{4}/i,
-               process => \&tb_decaptcha,
        );
 
        GOTO stage_getimg unless defined $_;
@@ -76,22 +74,4 @@
 
        CLICK_DOWNLOAD( $1 );
 
-perl:
-
-sub tb_color_select
-{
-       my @s = sort { $a <=> $b } @_;
-       return $s[2];
-}
-
-sub tb_decaptcha
-{
-       my $img = shift;
-       $img->color_filter( \&tb_color_select );
-       $img->luma_emphasize( 200, 160 );
-       local $_ = $img->ocr();
-       s/\s+//g;
-       return $_;
-}
-
 # vim: filetype=perl: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