<html><div style='background-color:'><DIV class=RTE>
<P>Hi all,</P>
<P>I am trying to write a script to retrieve a web page. the script is detailed below. My problem is as follows. </P>
<P>The script can successfully obtain web pages such as <A href="http://news.bbc.co.uk">http://news.bbc.co.uk</A> and <A href="http://www.dreamteamfc.com">http://www.dreamteamfc.com</A> </P>
<P>However it fails on the following URL<BR><A href="http://www.dreamteamfc.com/dtfc04/servlet/PostPlayerList?catidx=1&title=GOALKEEPERS&gameid=167">http://www.dreamteamfc.com/dtfc04/servlet/PostPlayerList?catidx=1&title=GOALKEEPERS&gameid=167</A></P>
<P>The returned web page (saved in myOUT.txt) contains<BR><HTML><HEAD><SCRIPT LANGUAGE="JAVASCRIPT">location.replace("<A href='http://www.dreamteamfc.com");</SCRIPT></HEAD></HTML'>http://www.dreamteamfc.com");</SCRIPT></HEAD></HTML</A>></P>
<P>The above URL is valid as I have pasted into my browser and it displays OK. The above URL is part of the <BR><A href="http://www.dreamteamfc.com">http://www.dreamteamfc.com</A> page and is obtained via a javascript:dt_pop (Whatever that is). <BR>Anyway here is the script, any ideas ?? Thanks</P>
<P>#!/usr/bin/perl -w </P>
<P>use URI;<BR>use LWP::Simple;<BR>use LWP::UserAgent; </P>
<P>my $ua = LWP::UserAgent->new(); </P>
<P>$ua->proxy('http', 'http://128.87.251.250:8080');</P>
<P>#my $content = get("<A href="http://news.bbc.co.uk">http://news.bbc.co.uk</A>");<BR>my $content = get("<A href="http://www.dreamteamfc.com/dtfc04/servlet/PostPlayerList?catidx=1&title=GOALKEEPERS&gameid=167">http://www.dreamteamfc.com/dtfc04/servlet/PostPlayerList?catidx=1&title=GOALKEEPERS&gameid=167</A>");<BR>#my $content = get("<A href="http://www.dreamteamfc.com">http://www.dreamteamfc.com</A>");</P>
<P>$script = "myOUT.txt";<BR>unlink $script;<BR>open (OUT,">>$script") || die "cannot open $script for open";</P>
<P><BR>if (defined $content)<BR>{<BR> #$content will contain the html associated with the url mentioned above.<BR> print OUT $content ;<BR>}<BR>else<BR>{<BR> #If an error occurs then $content will not be defined.<BR> print "Error: Get stuffed";<BR>}<BR>close OUT;<BR><BR><BR></P></DIV></div><br clear=all><hr>Fed up of receiving junk e-mail? Find out how to deal with <a href="http://g.msn.com/8HMAENUK/2746??PS=47575">spam here.</a> </html>