<form enctype=multipart/form-data method=post action=/cgi-access/bulk. +pl> File name: <input type=file size=45 name=filename><p> <input type=submit value=Send File> <input type=reset value=Clear> </form> and the perl script #!/usr/local/bin/perl -w require LWP::Simple; require HTTP::Request; require LWP::UserAgent; require HTML::Form; $user_agent = LWP::UserAgent->new; $filename ='/usr/local/www/http/cgi-bin/test/cards.txt'; $url ='https://mysite:808/access/bulk.html'; $user =""; $pass=""; $request = HTTP::Request->new(GET=> $url); $request->authorization_basic($user,$pass); $response=$user_agent->request($request); print $response->as_string; @form = HTML::Form->parse($response->content,$response->base); $form = shift @form; @inputs = $form->inputs; $input = $form->find_input( "filename" ); if($input){ print "found it!\n"; $input ->file('/usr/local/www/http/cgi-bin/test/cards.txt'); } $test = $form->click(); $test->authorization_basic($user,$pass); $response=$user_agent->request($test); print $response->as_string; if($response->is_success){ print "It's good!\n"; } else { print "It didn't work.\n"; print $results->status_line(); }
In reply to Automate Form Submission by chameliun
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |