SVN: toys/rsget.pl/Get/UlozTo

2011-03-06 Thread sparky 
Author: sparky
Date: Sun Mar  6 14:34:34 2011
New Revision: 12194

Modified:
   toys/rsget.pl/Get/UlozTo
Log:
- updated/fixed


Modified: toys/rsget.pl/Get/UlozTo
==
--- toys/rsget.pl/Get/UlozTo(original)
+++ toys/rsget.pl/Get/UlozToSun Mar  6 14:34:34 2011
@@ -23,7 +23,7 @@
! m{(.*?)};
my $name = $1;
 
-   ! m{(?:[\d:]+\s*\|\s*)?($STDSIZE)}o;
+   ! m{\s*\s*(?:[\d:]+\s*\|\s*)?($STDSIZE)\s*\s*}os;
INFO( name => $name, asize => $1 );
 
! $-{form} = $self->form( name => "dwn" );
___
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit

SVN: toys/rsget.pl/Get/UlozTo

2010-10-17 Thread sparky 
Author: sparky
Date: Mon Oct 18 00:03:47 2010
New Revision: 11852

Modified:
   toys/rsget.pl/Get/UlozTo
Log:
- allow ulozto.cz uris


Modified: toys/rsget.pl/Get/UlozTo
==
--- toys/rsget.pl/Get/UlozTo(original)
+++ toys/rsget.pl/Get/UlozToMon Oct 18 00:03:47 2010
@@ -10,6 +10,7 @@
 web: "http://uloz.to/";
 tos: "http://img.uloz.to/podminky.pdf";
 uri: qr{uloz\.to/\d+/}
+uri: qr{ulozto\.cz/\d+/}
 slots: max
 status: OK 2010-10-05
 
___
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit

SVN: toys/rsget.pl/Get/UlozTo

2010-10-15 Thread sparky 
Author: sparky
Date: Thu Oct 14 12:51:54 2010
New Revision: 11844

Modified:
   toys/rsget.pl/Get/UlozTo
Log:
- ignore video duration if there is any


Modified: toys/rsget.pl/Get/UlozTo
==
--- toys/rsget.pl/Get/UlozTo(original)
+++ toys/rsget.pl/Get/UlozToThu Oct 14 12:51:54 2010
@@ -22,7 +22,7 @@
! m{(.*?)};
my $name = $1;
 
-   ! m{($STDSIZE)}o;
+   ! m{(?:[\d:]+\s*\|\s*)?($STDSIZE)}o;
INFO( name => $name, asize => $1 );
 
! $-{form} = $self->form( name => "dwn" );
___
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit

SVN: toys/rsget.pl/Get/UlozTo

2010-10-04 Thread sparky 
Author: sparky
Date: Tue Oct  5 02:32:28 2010
New Revision: 11829

Added:
   toys/rsget.pl/Get/UlozTo   (contents, props changed)
Log:
- NEW, made on request


Added: toys/rsget.pl/Get/UlozTo
==
--- (empty file)
+++ toys/rsget.pl/Get/UlozToTue Oct  5 02:32:28 2010
@@ -0,0 +1,41 @@
+# $Id$
+# Get::UlozTo - File getter plugin for rsget.pl
+#
+# 2010 (c) Przemysław Iskra 
+#  This program is free software,
+# you may distribute it under GPL v2 or newer.
+
+name: UlozTo
+short: UlozTo
+web: "http://uloz.to/";
+tos: "http://img.uloz.to/podminky.pdf";
+uri: qr{uloz\.to/\d+/}
+slots: max
+status: OK 2010-10-05
+
+start:
+   GET( $-{_uri} );
+
+   ERROR( "file not found: $1" )
+   if m{(.*?)}s;
+
+   ! m{(.*?)};
+   my $name = $1;
+
+   ! m{($STDSIZE)}o;
+   INFO( name => $name, asize => $1 );
+
+   ! $-{form} = $self->form( name => "dwn" );
+
+   #! m{http://img\.uloz\.to/captcha/\d+\.png)" 
alt="Captcha" class="captcha" />};
+   #GET( $1 );
+   #CAPTCHA( qr/[a-z]{4}/ );
+   #$-{form}->set( captcha_user => $_ );
+   
+   # captcha hack - no need to solve captchas !
+   $-{form}->set( captcha_nb => 1 );
+   $-{form}->set( captcha_user => "rxke" );
+
+   DOWNLOAD( $-{form}->post() );
+
+# 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