WebCalendar - LWP Connection refused

[rekabuk]

Hi folks,

I'm having problems running a perl script that uses LWP.

I'm trying to run webcal_cmd.pl which is part of WebCalendar by http://www.ma.utexas.e du/webcalendar/

When I run the script I get the reply "connection refused".

Why? Who refused it?

Any ideas?

Regards,
Andrew

[rekabuk]

Here's part of the script:

my $ua = LWP::UserAgent->new;
my $request = POST($calendar_server,
    Content_Type => 'form-data',
    Content => $postcontent,
);
my $response = $ua->request($request);
 
die $response->message unless $response->is_success;
 

[miller]

Why? Who refused it?

The web url defined is $calendar_serve r. Who that is, no idea.

This problem is not relevant to this forum. If you're having trouble getting this software to work, I suggest that you consult the FAQ or UserGuide provided by this service.

- Miller

[rekabuk]

This problem is not relevant to this forum.
- Miller

Why not? Isn't this a perl forum? The application (WebCalendar) is written in perl. There's no active forum for the application and I have spent many days searching the web for an answer.

If I type the contents of $calendar_serve r directly into a browser, I get a different error to when I use LWP. What stops LWP doing a POST? Has my web hoster disabled something I need?

Hope this is relevent....


Andrew

[KevinADC]

The application is perl, and this is a perl forum, but why the connection is refused is not a perl issue unless you are making some error in the perl code.
Is $calendar_serve r a secret? If we could see what you are trying to connect to it might help. You say you get an error, what is the errror? Don't make it difficult to help you, supply all the information, the url you are trying to connect to, the exact error messages you are getting, etc etc etc.

LWP is not core module and some hosts do not have it installed.

[rekabuk]

Thanks kevin, some fair points there.


Here's the link that fails...
http://westcan.co.uk/members/calendar/mycal.pl

And here's the script, as you can see I've tried a lot of different options.....

=============== =============== =============== =======
#!/usr/bin/perl
#

# open(PS_F, "ps -f|");
# $tmp=<PS_F>;
# print $tmp;
# close(PS_F);

#$tmp = `/home/sites/westcan.co.uk/public_html/members/calendar/webcal_cmd.pl -s http:://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl -u westcan -p admin -c get -t appointment`;
#$tmp = eval(`webcal_cm d.pl -s http:://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl -u westcan -p admin -c get -t appointment -startdate 07/25/07`);
#$tmp = `./webcal_cmd.pl -s ./webcal_cmd_serv er.pl -u westcan -p admin -c get -t appointment -startdate 07/25/07`;
#$tmp = eval(`date`);
#$tmp = `date`;
$tmp2 = `date`;
# $tmp = `./mytest.pl`;
# $tmp = `./webcal_cmd.pl`;


print "Content-Type: text/html\n\n";

# $tmp = eval('/home/sites/westcan.co.uk/public_html/members/calendar/webcal_cmd.pl -server http://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl -username westcan -password admin -command get -t appointment');
# $tmp = `/home/sites/westcan.co.uk/public_html/members/calendar/webcal_cmd.pl -server http://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl -help`;
# $tmp = `webcal_cmd.pl -server http://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl -help`;
# $tmp = `./webcal_cmd.pl 2>&1`;
# $tmp = eval(`/home/sites/westcan.co.uk/public_html/members/calendar/webcal_cmd.pl -server http://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl -username westcan -password admin -command get -type event`);
$tmp = `./webcal_cmd.pl -username westcan -password admin -command get -type event 2>&1`;
# $tmp = `./mytest.pl 2>&1`;
# print $tmp;

if ($@) # $@ contains the exception that was thrown
{
print $@;
}
print "-";
print $tmp;
print "-<br>";
print $tmp2;
=============== =============== =============== =======

mycal.pl calls webcal_cmd.pl and the bit in webcal_cmd.pl that fails is:

#---------------------------------------------------------------------------------------------
# Now post the form
#
my $ua = LWP::UserAgent->new;
my $request = POST( $calendar_serve r,
Content_Type => 'form-data',
Content => $postcontent,
);
my $response = $ua->request($reque st);

die $response->message unless $response->is_success;
#-----------------------------------------------------------------------------------------------

Where $calendar_serve r is

my $calendar_serve r = "http://www.westcan.co. uk/members/calendar/webcal_cmd_serv er.pl";

does that help?

Regards
Andrew

[numberwhun]

I don't know if it is relevant to the issue, but when I plug that URL into my browser and hit enter, this is the error that I get back from the server:

-Use of uninitialized value in concatenation (.) or string at ./webcal_cmd.pl line 52. Can't connect to www.westcan.co.uk:80 (connect: Connection refused) at ./webcal_cmd.pl line 202. -
Tue Aug 7 14:30:42 BST 2007

Just from that error, I would agree with Miller that this isn't really a Perl issue, but more of an issue with the server/host.

Regards,

Jeff

[rekabuk]

OK, would someone be kind enough to point me at a forum where I might get some help on this one?

Thanks,
Andrew

[numberwhun]

Well, you will want to check both the webserver configuration and the firewall config, depending on which is not letting you connect. Since we do not know what those products are, then I would find out and then look in the appropriate forum.

Regards,

Jeff

[KevinADC]

this is what I got when accessing the URL:

==_begin_respon se_status==
ERROR
==_end_response _status==
==_begin_respon se_message==
There is an error processing your request.
===Missing username or password, cannot authenticate.== ==;

==_end_response _message==

so it looks like the script is working but needs the name and password to run the program.