Script calling CGI

[palm]

Hi There,
I need to send some parameters from a Perl program to another Perl program that's in cgi-bin. I'm trying to do an http request, but it's not working properly. Any ideas?

Palm.

[KevinADC]

No ideas without seeing your code or explaining what "not working properly" means.

[palm]

Hi there,
I've a perl program called send.pl in a unix directory (in /usr/main/laal/work) and another perl program called receive.pl on the web server (in /usr/docs/www/cgi-bin). I need to send some values from send.pl to receive.pl. I like to use http request to call receive.pl and send the values something like this:

http://abcd.com/cgi-bin/receive.pl?total=789456&name=jack&computer=desktop

I'm a new programmer and I've no idea about how to create http request and send the values to the other program. Could any one please help me out?

Thank You.

Palm.

[miller]

Hello palm,

That was much more clear.

Ok, it sounds like all you need is an introduction to LWP. This is a set of cpan modules typically used to process web pages. You can do a lot of things with them, so take a moment to browse around all the other modules in the package at some point. But for now, I would simply point you to this:

cpan LWP::Simple

If you need help installing this module, look at cpanfaq.

cpanfaq How to install perl modules

- Miller

[KevinADC]

Ditto Miller :)

[palm]

Hi Kevin & Miller,
I'm a new programer so I'm having little hard time in getting through this. I wrote this code and tried to send the parameters but i'm getting some message like The requested document was not found, etc etc.. This is what I've written:

#! /usr/bin/perl -w
use strict;
 
 use LWP::UserAgent;
 my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(POST => 'http://abcd.com/cgi-bin/receive.pl');
  my $res = $ua->request($req);
  print $res->as_string;
 

how can I send the parameters to receive.pl from this code(parameters: total, name, computer, etc)?. I'm totally lost....

Palm.

[miller]

Hi Palm,

You're almost there. This is how I would suggest that you do it:

#! /usr/bin/perl -w
use strict;
 
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
 
my $ua = new LWP::UserAgent;
$ua->agent("send.pl/1.0");
 
# Create HTTP POST request
my $req = POST "http://abcd.com/cgi-bin/receive.pl", [
    total        => 789456,
    name        => 'jack',
    computer    => 'desktop',
];
my $res = $ua->request($req);
 
if($res->is_success) {
    print "Content = '" . $res->content . "'";
} else {
    print "Error = '" . $res->status_line . "'";
}
 

Note: This code is untested.

- Miller

[miller]

You can find documentation of this method of posting at the following locations:

cpan LWP::UserAgent #Request Methods
cpan lwpcook #POST

- Miller

[palm]

Hi Miller,
Thanks a lot for your help. I tried those steps and getting '404 not found' error message. I used those steps in my send.pl and I wrote the following code for receive.pl. I'm not sure where the problem is:

#! /usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use URI;

my $ua = LWP::UserAgent->new;
my $uri = URI->new('http://abcd.com/cgi-bin/receive.pl');

my $response = $ua->simple_request(GET $uri);
print $response->content;


I really appreciate your help. Please let me know if you've any idea.

Palm.

[palm]

Hi There,
I've a perl program called "receive.pl", which is supposed to get some variables from another program called "send.pl". When I run my receive.pl, I'm getting page not found error message. Since I'm new to programming, it'll be great if any one could help me out. This is how my receive.pl looks like:

#! /usr/bin/perl 
use strict;
 
use LWP::UserAgent;
use HTTP::Request::Common;
use URI;
 
my $ua = LWP::UserAgent->new;
my $uri = URI->new('http://abcd.com/cgi-bin/receive.pl');
my $response = $ua->simple_request(GET $uri);
print $response->content;
 

I've doubt in this line:
my $uri = URI->new('http://abcd.com/cgi-bin/receive.pl');

My current program is called receive.pl and i'm creating new URI using this name. I'm lost here. Can anyone please help me?

Thank You.

Palm.

[KevinADC]

seems you already asked question this in your other thread.

[miller]

Hi palm,

Please do not double post your threads. Instead, continue in the thread you've already started for the problem.

I'm merging the threads now.

- Miller

[palm]

Sorry Miller,
I couldn't find a solution so I thought I better divide the probem into small parts and start a new discussion. I'll continue posting in this old topic then.

Thankz.

Palm.

[palm]

Hi there,
Now both programs are working with out any errors, but I don't see/get the variables (total=789456,name='jack',computer= 'desktop'). How can I get them in receive.pl? response-> content doesn't seem working.

Palm.

[palm]

Hi There,
I tried to get/print the variables in the http request like this:

use CGI qw/:standard/;
my $cgi = new CGI;
..
..
..

print $cgi->param("total");
print $cgi->param("name");
print $cgi->param("computer");

but it's not printing anything. I'm totally lost. I'm I missing anythig? Please some one help me with this problem.


Palm.

[palm]

Hi There,
I'm new to Perl and I just wrote few lines to do an http request. The code is working fine and I'm trying to save the variables (param('age')). They just show up inside the html page, but not as an out put in the screen editor. What do I have to do inorder to get them printed in the editor or save to a file? This is my variable in Perl:

my $age = $cgi->param('age');

when I say "print $age" in Perl, it's printing space, but when I say like this in html:

<BODY>
<P>$age</P>

it's printing the age in the web. I want to print the variable on the screen/to a file. Does any one know how to fix it?

Palm.

[KevinADC]

Palm,

your questions are very basic. You need to maybe slow down and read some basic perl primers and become familiar with the perl and perl module documentation. All can be found at the perldoc website:

http://perldoc.perl.org/

if you have a local installation of perl all the documentation comes along with perl so you can also read it on your local computer.