[ic] use get_url perl error ....

[interchange-users@icdevgroup.org]

Sorry I don't understand ... I have write your code for UserTag get-url and 
this is the error in the log file:

- - - [29/August/2002:10:43:37 +0200] - - STOP server (6597) on signal TERM
- - - [29/August/2002:10:43:41 +0200] - - Interchange V4.8.5
- - - [29/August/2002:10:43:42 +0200] - - START server (8186) (UNIX)
- - - [29/August/2002:10:43:43 +0200] - - START server (8290) (UNIX)
192.168.1.53 xZhhGpdB:192.168.1.53 - [29/August/2002:10:43:47 +0200] test /cgi-
bin/test/ord/payment.html Safe: require trapped by operation mask 
at /usr/lib/perl5/5.6.1/i386-linux/IO/Socket.pm line 9.
> Compilation failed in require at /usr/lib/perl5/site_perl/5.6.0/LWP/Simple.pm 
line 296.
> 
> 
>    return $Tag->get_url( "http://www.virgilio.it/" );   
> 
> 

The error in the Socket.pm is this:

# IO::Socket.pm
#
# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package IO::Socket;

require 5.005_64; << This is the error

If I use the original code I don't have error in the log file but I don't view 
the page wwww.virgilio.it

If I use [get-url http://www.virgilio.it] is OK !!!


Sorry for the English ... I don't work good with linux and this is my first e-
commerce ... 

Saluti Stefano

Quoting Dan Browning <dbml@kavod.com>:

> At 10:05 AM 8/29/2002 +0200, you wrote:
> 
> >When I use $Tag->get_url I have this error in my log file
> >
> >192.168.1.53 EFH6XnVM:192.168.1.53 - [29/August/2002:09:23:27 +0200] test 
> >/cgi-
> >bin/test/ord/payment.html Safe: require trapped by operation mask
> >at /usr/lib/perl5/5.6.1/i386-linux/IO/Socket.pm line 9.
> > > Compilation failed in require at 
> > /usr/lib/perl5/site_perl/5.6.0/LWP/Simple.pm
> >line 296.
> > >
> > >
> > >    return $Tag->get_url( "http://www.virgilio.it/" );
> > >
> > >
> >
> >I use a RedHat 7.2 and perl-libwww-perl-5.53-3
> 
> Answered yesterday & a long time ago.  I better get this in the FAQ soon...
> 
> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
> | Dan Browning, Kavod Technologies      <dan.browning@kavod.com> |
> | (360) 882-7872 x7, 6700 NE 162nd Ave, Suite 210, Vancouver, WA |
> \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
> A lot of people are afraid of heights.  Not me.  I'm afraid of widths.
>                  -- Steve Wright
> 
> 
> 
> 
> Quoting Roberta - Interline S.r.l. (roberta@interline.it):
>  > Why in this mode is OK
>  >
>  > [get-url http://www.myurl.org]
>  >
>  > and in this mode NO
>  >
>  > [perl]
>  > $Tag -> get_url ("http://www.myurl.org");
>  > return $Tag
>  > [/perl]
> 
> 
> If you look in the error logs you will probably see a "require operation 
> blocked
> by Safe" or something like that.
> 
> 
> If you move the "require" for LWP above the sub call opening, it may work,
> but it depends on your LWP version. I think I have patched the one on
> DEVEL cvs to do that:
> 
> 
> UserTag get-url Order url
> UserTag get-url AddAttr
> UserTag get-url Routine <<EOR
> require LWP::Simple;
> sub {
>          my ($url, $opt) = @_;
>          my $html = LWP::Simple::get($url);
>          if($opt->{strip}) {
>                  $html =~ s/.*<body[^>]*>//si;
>                  $html =~ s:</body>.*::si;
>          }
>          return $html;
> }
> EOR
> 
> _______________________________________________
> interchange-users mailing list
> interchange-users@icdevgroup.org
> http://www.icdevgroup.org/mailman/listinfo/interchange-users
> 




-------------------------------------------------
This mail sent through IMP: http://horde.org/imp/