Author: sparky
Date: Tue Feb 9 23:10:21 2010
New Revision: 11139
Modified:
toys/rsget.pl/Get/UploadingCom
Log:
- updated for file changes
Modified: toys/rsget.pl/Get/UploadingCom
==============================================================================
--- toys/rsget.pl/Get/UploadingCom (original)
+++ toys/rsget.pl/Get/UploadingCom Tue Feb 9 23:10:21 2010
@@ -36,7 +36,8 @@
INFO( name => $name, asize => $size );
my $form = $self->form( id => "downloadform" );
- $-{file_id} = $form->get( "file_id" );
+ ! $-{file_id} = $form->get( "file_id" );
+ ! $-{file_code} = $form->get( "code" );
CLICK( $form->post() );
@@ -51,7 +52,7 @@
WAIT( -$1, "expecting download link" );
GET( $-{host} . "files/get/?JsHttpRequest=" . jstime() . "-xml",
- post => "file_id=$-{file_id}&action=get_link&pass=",
+ post =>
"action=get_link&file_id=$-{file_id}&code=$-{file_code}&pass=",
headers => [ "Content-Type: application/octet-stream" ],
keep_referer => 1,
);
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
