[ic] LWP::UserAgent

[Paulo Moniz]

>> further help please specify "try to use".

Created a post_url.tag in /usr/lib/interchange/usertag with below code and
the used [post_url url="http://www.bla.net"] in my page.

Thank You Racke

--------------
UserTag post_url Order url
UserTag post_url AddAttr

UserTag post_url Routine <<EOR
sub {

 my($url) = @_;
 require HTTP::Request;

 	eval {
		require LWP::UserAgent;
	};
	if($@) {
		::logError("Cannot use post-url tag, no LWP::UserAgent modules
installed.");
		return undef;
	}

 my $string = "";

 $url = "http://$url" unless ($url =~ /^\w+:\/\//);

 my $ua = LWP::UserAgent->new;
 my $request = new HTTP::Request 'POST', $url;

 my $response = $ua->request($request);

 if ($response->is_success)
 {
  $string = $response->content();
 }
 return $string;
}
EOR
---------------------------------------

On Mon, 16 Jun 2003 12:52:27 +0100
"Paulo Moniz" <paulo.moniz@inteliware.net> wrote:

> Hi,
>
> I'm using IC 4.8.2
>
> I installed LWP::UserAgent using CPAN. I have Perl 5.8.0, but Interchange
> says that I have 5.6.0 and when I try to use LWP:UserAgent error log
> indicates "Can't locate object method "new" via package "LWP::UserAgent".

It seems that Interchange utilizes a different Perl than the one first in
the path. However, for further help please specify "try to use".

Bye
	Racke


--
LinuXia Systems => http://www.linuxia.de/
Expert Interchange Consulting and System Administration
ICDEVGROUP => http://www.icdevgroup.org/
Interchange Development Team