Author: sparky
Date: Fri Oct 30 20:22:15 2009
New Revision: 10893
Modified:
toys/rsget.pl/Get/RapidShark
Log:
- updated
Modified: toys/rsget.pl/Get/RapidShark
==============================================================================
--- toys/rsget.pl/Get/RapidShark (original)
+++ toys/rsget.pl/Get/RapidShark Fri Oct 30 20:22:15 2009
@@ -18,7 +18,7 @@
ERROR( "file not found" )
if m{<font class="err">No such file};
- m{<font style="font-size:12px;">Chcesz pobrac plik <font
color="red">.*/(.*?)</font> \(($STDSIZE)\)</font>};
+ ! m{<font style="font-size:12px;">Probujesz otworzyć adres <font
color="red">.*/(.*?)</font> \(($STDSIZE)\)</font>};
INFO( name => $1, asize => $2 );
! my $form = $self->form( match => { body => qr/"method_free"/ } );
@@ -97,7 +97,9 @@
$img->set_border( 255 );
$img->luma_emphasize( 50, 80 );
$img->pix_filter( \&rk_filter_spots );
- return $img->doublesize->ocr();
+ my $ocr = $img->doublesize->ocr();
+ $ocr =~ s/[^0-9]+//;
+ return $ocr;
}
# vim: filetype=perl:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
