Re: Re: Re: Re: Javascript in Perl and retrieving the HTML source.

[waiterm]

I've managed to fix the problem with the following code:

sub get  {

    $date_ = $mm." ".$year;
    my $SendObject=Win32::OLE->new('microsoft.XMLhttp');
    $SendObject->open("GET", "http://212.53.74.34/pages6068/availabili
+ty2.cfm?propref=".$RRETid."&date_month=".$mon."&date_year=".$year."",
+ "false");
    $SendObject->setRequestHeader("Content-type", "text/plain");
    $SendObject->send();
    my $response_ = $SendObject->responseText;
    $response_ =~ s/\s/ /g;
    @dat = split(/$date_/,$response_); $response_ = $dat[1];
    @dat = split(/<\/Table>/i,$response_); $response_ = $dat[0];
    open(LOG,">C:/tmp/RRET/RREThtml.txt"); print LOG $response_; close
+ LOG;

}

however, I can't now call $response_ in the main program... do I have to set it as a global variable...if so, how??

[bunnyman]

Just return it from the sub.