Author: sparky
Date: Mon Oct 26 01:40:00 2009
New Revision: 10855
Added:
toys/rsget.pl/Link/LixIn
Log:
- new
Added: toys/rsget.pl/Link/LixIn
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/LixIn Mon Oct 26 01:40:00 2009
@@ -0,0 +1,72 @@
+#!/usr/bin/perl
+
+name: LixIn
+short: L:LixIn
+uri: qr{lix\.in/-?[0-9a-f]+(#.*)?$}
+slots: !1
+cookie: !lix
+status: OK 2009-10-25
+
+start:
+ GET( $-{_uri} );
+
+ if ( m#<img src="(captcha_img.*?)"# ) {
+ $-{img} = $1;
+ } else {
+ GOTO stage_getlinks;
+ }
+
+stage_captcha:
+ ! $-{form} = $self->form( num => 0 );
+
+stage_getimg:
+ GET( $-{img}, keep_referer => 1 );
+
+ CAPTCHA( qr/[A-Z0-9]{3}/ );
+
+ GOTO stage_getimg unless defined $_;
+
+ $-{form}->set( capt => $_ );
+
+ GET( $-{form}->post() );
+
+ if ( m#<img src="(captcha_img.*?)"# ) {
+ $-{img} = $1;
+ CAPTCHA_RESULT( "FAIL" );
+ GOTO stage_captcha;
+ } else {
+ CAPTCHA_RESULT( "OK" );
+ }
+
+ if ( m#<iframe .*?src="\s*(.*?)\s*"# ) {
+ LINK( $1 );
+ }
+
+stage_getlinks:
+ my @forms;
+ my $i = 0;
+ while ( my $form = $self->form( num => $i ) ) {
+ push @forms, $form
+ if $form->action() eq $-{_referer};
+ $i++;
+ }
+
+ $-{forms} = \...@forms;
+ $-{links} = [];
+
+stage_nextlink:
+ my $f;
+ unless ( $f = shift @{ $-{forms} } ) {
+ LINK( @{ $-{links} } );
+ }
+ $f->select( submit => 0 );
+ GET( $f->post() );
+
+ ! m#<iframe .*?src="\s*(.*?)\s*"#;
+
+ push @{ $-{links} }, $1;
+
+ GOTO stage_nextlink;
+
+
+# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
