SVN: toys/rsget.pl/Get/UploadedTo

[sparky]

Author: sparky
Date: Fri Oct 23 01:30:36 2009
New Revision: 10834

Modified:
   toys/rsget.pl/Get/UploadedTo
Log:
- use new tools; checked


Modified: toys/rsget.pl/Get/UploadedTo
==============================================================================
--- toys/rsget.pl/Get/UploadedTo        (original)
+++ toys/rsget.pl/Get/UploadedTo        Fri Oct 23 01:30:36 2009
@@ -4,7 +4,7 @@
 short: UT
 uri: qr{uploaded\.to/}
 uri: qr{ul\.to/}
-status: OK 2009-08-24
+status: OK 2009-10-22
 
 start:
        GET( $-{_uri} );
@@ -28,13 +28,12 @@
        ! m{<tr><td style="padding-left:4px;">Filesize: 
&nbsp;</td><td>\s*($STDSIZE)\s*</td></tr>};
        INFO( name => $name, asize => $1 );
 
-
-       ! m#<form name="download_form" method="post" action="(.*)">#;
-       $-{file_uri} = $1;
+       ! $-{form} = $self->form( name => "download_form" );
+       ! $-{form}->select( download_submit => 0 );
 
        ! m#var secs = (\d+); // Wartezeit#;
        WAIT( $1, "starting download" );
 
-       DOWNLOAD( $-{file_uri}, post => { download_submit => "Download" } );
+       CLICK_DOWNLOAD( $-{form}->post() );
 
 # 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