Professional Web Applications Themes

uploading fiels from one unix server to another server usin perl cgi script. - PERL Beginners

No takers ?? :( > Hi all, > > I have a task at hand , that of uplaoding file from server to another > server and also pass 6 paramteres along with the file. > > Basically, I have to te the functionality provided by CFHTTP tag of > COLD FUSION. > > I used LWP::UserAgent for the purpose. > My Program is given below. > > #!usr/local/bin/perl > use LWP::Simple; > use Data::Dumper; > use LWP::UserAgent; > use HTTP::Request::Common qw/POST/; > > LWP::Debug::level('+') ; > > push(INC, '/opt/customer/apps/sun-83/nes363/suitespot/cgi-bin/lib/LWP/') > ; > my $ua= LWP::UserAgent->new; > my $file="/home/hewebadm/nilay/test1.txt" ; ...

  1. #1

    Default uploading fiels from one unix server to another server usin perl cgi script.

    No takers ?? :(

    > Hi all,
    >
    > I have a task at hand , that of uplaoding file from server to another
    > server and also pass 6 paramteres along with the file.
    >
    > Basically, I have to te the functionality provided by CFHTTP tag of
    > COLD FUSION.
    >
    > I used LWP::UserAgent for the purpose.
    > My Program is given below.
    >
    > #!usr/local/bin/perl
    > use LWP::Simple;
    > use Data::Dumper;
    > use LWP::UserAgent;
    > use HTTP::Request::Common qw/POST/;
    >
    > LWP::Debug::level('+') ;
    >
    > push(INC, '/opt/customer/apps/sun-83/nes363/suitespot/cgi-bin/lib/LWP/')
    > ;
    > my $ua= LWP::UserAgent->new;
    > my $file="/home/hewebadm/nilay/test1.txt" ;
    > my $filename="323272-1980-test1.txt" ;
    > open(READFILE, "<$file") ;
    > data=<READFILE> ;
    >
    > # HAve to post the content at this URL #
    > my $url="http://downloaddev.pearsoncmg.com/extmanage/extpost.php" ;
    >
    > # Have hard coded the parameters #
    >
    > $request = POST $url,
    > Content_Type => 'application/x-www-form-urlencoded',
    > Content => [ action => "insert",
    > file => "data",
    > filename => "$filename",
    > parentisbn => "0131406701",
    > linktext => "test1.txt",
    > type => "Presentations",
    > imprint =>"ph" ,
    > secret =>
    > "08ER0L%29N04P73N9%3ACW%2ANC%5F%250%20%0A" ,
    > ] ;
    >
    > my $results=$ua->request($request );
    >
    > print Dumper($results);
    > if($results->is_success){
    > print $results->as_string() ;
    > print $results->status_line();
    > }
    >
    > On executing this program, I am supposed to get back a URL from the site :
    > [url]http://downloaddev.pearsoncmg.com/extmanage/extpost.php[/url]
    >
    > But I am getting ERROR: <BR> instead.
    >
    > Here is the output of the program:
    > !perl cp_try_lwp.pl
    > LWP::UserAgent::new: ()
    > LWP::UserAgent::request: ()
    > LWP::UserAgent::send_request: POST
    > [url]http://downloaddev.pearsoncmg.com/extmanage/extpost.php[/url]
    > LWP::UserAgent::_need_proxy: Not proxied
    > LWP::Protocol::http::request: ()
    > LWP::Protocol::collect: read 12 bytes
    > LWP::UserAgent::request: Simple response: OK
    > $VAR1 = bless( {
    > '_protocol' => 'HTTP/1.1',
    > '_content' => 'ERROR: <BR>
    > ',
    > '_rc' => '200',
    > '_headers' => bless( {
    > 'connection' => 'close',
    > 'x-powered-by' => 'PHP/4.2.2',
    > 'client-response-num' => 1,
    > 'date' => 'Sat, 31 Jan 2004
    > 10:57:02 GMT',
    > 'client-peer' =>
    > '209.202.161.174:80',
    > 'client-date' => 'Sat, 31 Jan 2004
    > 10:57:04 GMT',
    > 'content-type' => 'text/html',
    > 'server' => 'Apache/1.3.20 (Unix)
    > PHP/4.2.2',
    > 'client-transfer-encoding' =>
    > 'chunked'
    > }, 'HTTP::Headers' ),
    > '_msg' => 'OK',
    > '_request' => bless( {
    > '_content' =>
    > 'action=insert&file=abcsssss%0A+sad%0A+asd%0A+asd% 0A+asd%0A+asd%0A+asda%0A
    > +sdas%0A+dasd%0A+fsdf%0A+sdf%0A+sdf%0A+sdf%0A+sdfa %0A+dfasd%0A+fas%0A+dfas
    > %0A+dfs%0A+df%0A+sdf%0A+f%0A&filename=323272-1980-test1.txt&parentisbn=013
    > 1406701&linktext=test1.txt&type=Presentations&impr int=ph&secret=08ER0L%252
    > 9N04P73N9%253ACW%252ANC%255F%25250%2520%250A',
    > '_uri' => bless( do{\(my $o =
    > 'http://downloaddev.pearsoncmg.com/extmanage/extpost.php')}, 'URI::http'
    > ),
    > '_headers' => bless( {
    >
    > 'user-agent' => 'libwww-perl/5.76',
    >
    > 'content-type' => 'application/x-www-form-urlencoded',
    >
    > 'content-length' => 339
    > },
    > 'HTTP::Headers' ),
    > '_method' => 'POST'
    > }, 'HTTP::Request' )
    > }, 'HTTP::Response' );
    > HTTP/1.1 200 OK
    > Connection: close
    > Date: Sat, 31 Jan 2004 10:57:02 GMT
    > Server: Apache/1.3.20 (Unix) PHP/4.2.2
    > Content-Type: text/html
    > Client-Date: Sat, 31 Jan 2004 10:57:04 GMT
    > Client-Peer: 209.202.161.174:80
    > Client-Response-Num: 1
    > Client-Transfer-Encoding: chunked
    > X-Powered-By: PHP/4.2.2
    >
    > ERROR: <BR>
    >
    > 200 OK
    > ERROR: <BR>
    >
    > I want to know, if I am able to talk to the php program , (since if I do
    > not pass the paramnteres, I am prompted with the error of missing
    > paramteres.)
    > what is wrong with this piece of code ?
    >
    > And I have no access to the php program.
    >
    > And I can't suspect the php program to be wrong as the same php program
    > when called thru Cold fusion program is able to upload the file
    > successfully.
    >
    > NOTE : I have tried passing the file name as well file data in the line :
    > file => "data",
    >
    > Please guide me.
    >
    > Thanks
    >
    Nilay Puri Guest

  2. #2

    Default Re: uploading fiels from one unix server to another server usin perl cgi script.

    Nilay Puri wrote:
    > No takers ?? :(
    >
    >
    >
    >>Hi all,
    >>
    >>I have a task at hand , that of uplaoding file from server to another
    >>server and also pass 6 paramteres along with the file.
    >>
    >>Basically, I have to te the functionality provided by CFHTTP tag of
    >>COLD FUSION.
    >>
    >>I used LWP::UserAgent for the purpose.
    >>My Program is given below.
    >>
    >>#!usr/local/bin/perl
    >>use LWP::Simple;
    >>use Data::Dumper;
    >>use LWP::UserAgent;
    >>use HTTP::Request::Common qw/POST/;
    >>
    >>LWP::Debug::level('+') ;
    >>
    >>push(INC, '/opt/customer/apps/sun-83/nes363/suitespot/cgi-bin/lib/LWP/')
    >>;
    >>my $ua= LWP::UserAgent->new;
    >>my $file="/home/hewebadm/nilay/test1.txt" ;
    >>my $filename="323272-1980-test1.txt" ;
    >>open(READFILE, "<$file") ;
    >>data=<READFILE> ;
    >>
    >># HAve to post the content at this URL #
    >>my $url="http://downloaddev.pearsoncmg.com/extmanage/extpost.php" ;
    >>
    >># Have hard coded the parameters #
    >>
    >>$request = POST $url,
    >> Content_Type => 'application/x-www-form-urlencoded',
    >> Content => [ action => "insert",
    >> file => "data",
    >> filename => "$filename",
    >> parentisbn => "0131406701",
    >> linktext => "test1.txt",
    >> type => "Presentations",
    >> imprint =>"ph" ,
    >> secret =>
    >>"08ER0L%29N04P73N9%3ACW%2ANC%5F%250%20%0A" ,
    >> ] ;
    >>
    >>my $results=$ua->request($request );
    >>
    >>print Dumper($results);
    >>if($results->is_success){
    >> print $results->as_string() ;
    >> print $results->status_line();
    >>}
    >>
    >>On executing this program, I am supposed to get back a URL from the site :
    >>[url]http://downloaddev.pearsoncmg.com/extmanage/extpost.php[/url]
    >>
    >>But I am getting ERROR: <BR> instead.
    >>
    >>Here is the output of the program:
    >>!perl cp_try_lwp.pl
    >>LWP::UserAgent::new: ()
    >>LWP::UserAgent::request: ()
    >>LWP::UserAgent::send_request: POST
    >>[url]http://downloaddev.pearsoncmg.com/extmanage/extpost.php[/url]
    >>LWP::UserAgent::_need_proxy: Not proxied
    >>LWP::Protocol::http::request: ()
    >>LWP::Protocol::collect: read 12 bytes
    >>LWP::UserAgent::request: Simple response: OK
    >>$VAR1 = bless( {
    >> '_protocol' => 'HTTP/1.1',
    >> '_content' => 'ERROR: <BR>
    >>',
    >> '_rc' => '200',
    >> '_headers' => bless( {
    >> 'connection' => 'close',
    >> 'x-powered-by' => 'PHP/4.2.2',
    >> 'client-response-num' => 1,
    >> 'date' => 'Sat, 31 Jan 2004
    >>10:57:02 GMT',
    >> 'client-peer' =>
    >>'209.202.161.174:80',
    >> 'client-date' => 'Sat, 31 Jan 2004
    >>10:57:04 GMT',
    >> 'content-type' => 'text/html',
    >> 'server' => 'Apache/1.3.20 (Unix)
    >>PHP/4.2.2',
    >> 'client-transfer-encoding' =>
    >>'chunked'
    >> }, 'HTTP::Headers' ),
    >> '_msg' => 'OK',
    >> '_request' => bless( {
    >> '_content' =>
    >>'action=insert&file=abcsssss%0A+sad%0A+asd%0A+as d%0A+asd%0A+asd%0A+asda%0A
    >>+sdas%0A+dasd%0A+fsdf%0A+sdf%0A+sdf%0A+sdf%0A+sd fa%0A+dfasd%0A+fas%0A+dfas
    >>%0A+dfs%0A+df%0A+sdf%0A+f%0A&filename=323272-1980-test1.txt&parentisbn=013
    >>1406701&linktext=test1.txt&type=Presentations&im print=ph&secret=08ER0L%252
    >>9N04P73N9%253ACW%252ANC%255F%25250%2520%250A',
    >> '_uri' => bless( do{\(my $o =
    >>'http://downloaddev.pearsoncmg.com/extmanage/extpost.php')}, 'URI::http'
    >>),
    >> '_headers' => bless( {
    >>
    >>'user-agent' => 'libwww-perl/5.76',
    >>
    >>'content-type' => 'application/x-www-form-urlencoded',
    >>
    >>'content-length' => 339
    >> },
    >>'HTTP::Headers' ),
    >> '_method' => 'POST'
    >> }, 'HTTP::Request' )
    >> }, 'HTTP::Response' );
    >>HTTP/1.1 200 OK
    >>Connection: close
    >>Date: Sat, 31 Jan 2004 10:57:02 GMT
    >>Server: Apache/1.3.20 (Unix) PHP/4.2.2
    >>Content-Type: text/html
    >>Client-Date: Sat, 31 Jan 2004 10:57:04 GMT
    >>Client-Peer: 209.202.161.174:80
    >>Client-Response-Num: 1
    >>Client-Transfer-Encoding: chunked
    >>X-Powered-By: PHP/4.2.2
    >>
    >>ERROR: <BR>
    >>
    >>200 OK
    >>ERROR: <BR>
    >>
    >>I want to know, if I am able to talk to the php program , (since if I do
    >>not pass the paramnteres, I am prompted with the error of missing
    >>paramteres.)
    >>what is wrong with this piece of code ?
    >>
    >>And I have no access to the php program.
    >>
    >>And I can't suspect the php program to be wrong as the same php program
    >>when called thru Cold fusion program is able to upload the file
    >>successfully.
    >>
    >>NOTE : I have tried passing the file name as well file data in the line :
    >>file => "data",
    >>
    >>Please guide me.
    >>
    >>Thanks
    >>
    Hi,

    first of all if I post manually, I get a few script warnings.
    maybe thats why i does not work.

    Warning: Unable to create '/data/web/download.pearsoncmg.com/filetmp/':
    Is a directory in
    /data/web/download.pearsoncmg.com/htdocs/extmanage/extpost.php on line 27

    Warning: Unable to move '/var/tmp/phpdKaae6' to
    '/data/web/download.pearsoncmg.com/filetmp/' in
    /data/web/download.pearsoncmg.com/htdocs/extmanage/extpost.php on line 27

    Warning: Unable to create
    '/data/web/download.pearsoncmg.com/htdocs/files/aw/': Is a directory in
    /data/web/download.pearsoncmg.com/htdocs/extmanage/extpost.php on line 80

    Warning: unlink() failed (Not owner) in
    /data/web/download.pearsoncmg.com/htdocs/extmanage/extpost.php on line 81
    [url]http://downloaddev.pearsoncmg.com/aw/12876124896/[/url]

    Eternius Guest

Similar Threads

  1. Replies: 0
    Last Post: February 28th, 06:03 AM
  2. Replies: 3
    Last Post: April 18th, 06:24 PM
  3. uploading to ftp server
    By Janet \(Sussex\) in forum Web Design
    Replies: 1
    Last Post: July 3rd, 08:59 PM
  4. Permanent connection between a LINUX server and a UNIX AIX server
    By Robert PADOVANO in forum Linux / Unix Administration
    Replies: 1
    Last Post: April 23rd, 01:34 PM
  5. Replies: 0
    Last Post: January 31st, 11:30 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139