script for http request

[RogerF]

Hello... don't do alot of perl scripting so I am not well experienced
with scripting...

I want to return the values from a simple http request in a perl
script.

So for example, if I have a http request on a server such as:

http://<server>/servlet/inbasket?RDUSER=pfuser&FUNCTION=gettasks

And the return of the URL is:

<?xml version="1.0" ?>
- <INBASKET>
<USERTASKS userid="" returnmsg="No tasks set up for workflow user
pfuser" msgtype="Error" />
</INBASKET>

I want to take the returnmsg value ("No tasks set up for workflow user
pfuser") from the request and send it to an email recipient.

Just looking for the syntax of the Http request and how to get the
return values

require HTTP::Request;
$request = HTTP::Request->new(GET => 'http://<server>/servlet/inbasket?
RDUSER=pfuser&FUNCTION=gettasks');
....
....
....
$response = $ua->request($request)
if ($response->is_success) {
print $response->content;
}
else {
print STDERR $response->status_line, "\n";
********************************************************************

So how do I get the value of returnmsg??? Can I somehow parse out
'content'??

Needing just a little help to get this syntax correct.

Thanks in advance for your assistance.

-Roger

 

[J. Gleixner]

RogerF wrote:
[...]

So for example, if I have a http request on a server such as:

http://<server>/servlet/inbasket?RDUSER=pfuser&FUNCTION=gettasks

And the return of the URL is:

<?xml version="1.0" ?>
- <INBASKET>
<USERTASKS userid="" returnmsg="No tasks set up for workflow user
pfuser" msgtype="Error" />
</INBASKET> [...]
So how do I get the value of returnmsg??? Can I somehow parse out
'content'??

Needing just a little help to get this syntax correct.

Thanks in advance for your assistance.

It's XML, of course it can be parsed. Take a look at XML::Simple, on
CPAN (http://search.cpan.org/)

 

[gf]

Hello... don't do alot of perl scripting so I am not well experienced
with scripting...

I want to return the values from a simple http request in a perl
script.

So for example, if I have a http request on a server such as:

http://<server>/servlet/inbasket?RDUSER=pfuser&FUNCTION=gettasks

And the return of the URL is:

<?xml version="1.0" ?>
- <INBASKET>
<USERTASKS userid="" returnmsg="No tasks set up for workflow user
pfuser" msgtype="Error" />
</INBASKET>

I want to take the returnmsg value ("No tasks set up for workflow user
pfuser") from the request and send it to an email recipient.

Just looking for the syntax of the Http request and how to get the
return values

require HTTP::Request;
$request = HTTP::Request->new(GET => 'http://<server>/servlet/inbasket?
RDUSER=pfuser&FUNCTION=gettasks');
...
...
...
$response = $ua->request($request)
if ($response->is_success) {
print $response->content;
}
else {
print STDERR $response->status_line, "\n";
********************************************************************

Just addressing your HTTP request...

If all you are doing is making a simple request and not needing a lot
of control over how LWP behaves, then use LWP::Simple.

Then your request becomes a simple get('url') call, which returns
whatever the server sent.

 

[Brian Wakem]

Just addressing your HTTP request...

If all you are doing is making a simple request and not needing a lot
of control over how LWP behaves, then use LWP::Simple.

Then your request becomes a simple get('url') call, which returns
whatever the server sent.

Minus the headers.

 

[gf]

Minus the headers.

Correct, but sometimes that's desirable.