'Re: LWP::UserAgent Won't run from browser'

[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-win32-users
Subject:    Re: LWP::UserAgent Won't run from browser
From:       G M <gantv () yahoo ! com>
Date:       2000-09-29 7:03:37
[Download RAW message or body]

Many Thanks to everyone especially Bill.  I'm still
having a problem but I'm convinced it is local to my
site.

Gan

--- $Bill Luebkert <dbe@wgn.net> wrote:
> G M wrote:
> > 
> > Helo,
> > 
> > I've added the regex to weed out HTML tags.  Still
> no
> > go.  Using IIS 4.0, Navigator, IE.  Sigh...
> 
> This code:
> 
> use strict;
> use LWP::UserAgent;
> 
> my $ua = new LWP::UserAgent;
> my $url = 'http://www.pncs.com';
> my $req = new HTTP::Request 'GET', $url;
> my $res = $ua->request($req);
> my $file = $res->content;
> 
> $file =~ s/</&lt;/gs;
> $file =~ s/>/&gt;/gs;
> 
> print <<EOD;
> Content-Type: text/html
> 
> <HTML>
> <BODY>
> <PRE>
> Start
> $file
> Done
> </PRE>
> </BODY>
> </HTML>
> EOD
> 
> exit 0;
> 
> __END__
> 
> Renders this on NS or MSIE/Apache (can't test with
> IIS/PWS since I 
> don;t have them and wouldn't run them if I did):
> 
> Start
> <title>Welcome to PNCS</title>
> <h2>Welcome to PNCS</h2>
> 
> Done
> 
> 
> -- 
>   ,-/-  __      _  _         $Bill Luebkert  
> ICQ=14439852
>  (_/   /  )    // //       DBE Collectibles  
> http://www.wgn.net/~dbe/
>   / ) /--<  o // //      Mailto:dbe@wgn.net  
> http://dbecoll.webjump.com/
> -/-' /___/_<_</_</_   
http://www.freeyellow.com/members/dbecoll/

__________________________________________________
Do You Yahoo!?
Yahoo! Photos - 35mm Quality Prints, Now Get 15 Free!
http://photos.yahoo.com/
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

[prev in list] [next in list] [prev in thread] [next in thread] 