How to call a ASP file from a PERL script

Hi All,
I want to call a ASP file from my PERL script and want to check the response that i get from the ASP file.
Can you help me how to implement this?

Find more posts tagged with

Comments

ISCBorisB

Hi All,
I want to call a ASP file from my PERL script and want to check the response that i get from the ASP file.
Can you help me how to implement this?

There are several ways to do it. Take a look [thread=17348]here[/thread] for example

tech_trix

Hi,
Thanks for your reply but I am still not able to run the asp file.
Actually my ASP file when run on a browser through localhost displays a XML on the browser.I need to get the content of this xml in my perl script and check for some parameters.

following is the code wat i used as per your reply and everytime i am getting faliure

use HTTP::Request;
use LWP::UserAgent;
use LWP: Smiley Frustrated

imple;

$url = "http://localhost/admin/verify.asp?folder=nav";
my $ua = LWP::UserAgent->new();

my $request = HTTP::Request->new( 'GET', $url );
my $response = $ua->request( $request );
if ($response->is_success) {
print "success";
# Process $response->content;
}
else {

print "Failure";

# Process Failure
}

ISCBorisB

Hi,
Thanks for your reply but I am still not able to run the asp file.
Actually my ASP file when run on a browser through localhost displays a XML on the browser.I need to get the content of this xml in my perl script and check for some parameters.

following is the code wat i used as per your reply and everytime i am getting faliure

use HTTP::Request;
use LWP::UserAgent;
use LWP:imple;

$url = "http://localhost/admin/verify.asp?folder=nav";
my $ua = LWP::UserAgent->new();

my $request = HTTP::Request->new( 'GET', $url );
my $response = $ua->request( $request );
if ($response->is_success) {
print "success";
# Process $response->content;
}
else {

print "Failure ";
print $response->status_line;

# Process Failure
}

Please note that you run this sort of http request on the server side. Try to render the URL in question from the browser
started on the TS Server. Do you get a correct response? Also, see the highlight above. What exactly is your error, 403, 404, 500?

Valentine

I assume that you are running ASP's on the customer web server, so
the url should be

http://localhost:81/admin/... unless you've changed the customer web port

tech_trix

Hi,
Thanks for your inputs.
I tried rendering the URL in browserwindow from TS and its working fine.
But when I am trying it through perl its generating the error as
401 access denied.

ISCBorisB

Hi,
Thanks for your inputs.
I tried rendering the URL in browserwindow from TS and its working fine.
But when I am trying it through perl its generating the error as
401 access denied.

That happens because of the way ASP application Authentication is set up.

The resource you are requesting does not allow anonymous access. You (personally) are logged-in
into Windows and are automatically authenticated (browser actually sends your credentials).
Your Perl (whatever TS process runs it) is not authenticated and you've got 401 back.

You would have to ease your restrictions on the asp site, authenticate your Agent or both.
Run perldoc LWP::UserAgent to see authentication methods (credentials, proxy, etc)