Getting code to work on a windows box

[Daniel Falkenberg]

Hi All,

The code below works fine on a Unix box but for some reason it doesn't
work on a Windows box.  My code compiles ok on the Windows box but when
I go to run it the code never actually downloads the WWW page.  Is there
something I have to do to be able to use this on a Windows box?

___START PERL CODE___

use LWP::UserAgent;
use LWP::Simple;
use HTML::TokeParser;

my $ua = LWP::UserAgent->new;

$inputSite = "<URL HERE>";
$address = "http://"; . $inputSite;
$request = HTTP::Request->new('GET', $address);
$response = $ua->request($request);

my $content = get($address);
$html_file = "internode_password.html";
if (mirror($address, $html_file) == RC_NOT_MODIFIED) { }
if (is_success(getstore($address, $html_file))) {
  system("chown apache $html_file");
  system("chgrp apache $html_file");
  system("chmod 0777 $html_file");
  $p = HTML::TokeParser->new(shift||$html_file);
  if ($p->get_tag("h1")) {
    my $heading1= $p->get_trimmed_text;
    print $heading, "Hello World!";
  }
}

___END PERL CODE___

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]