#!/usr/bin/perl -w

use strict;
use HTTP::DAV;
$\ = "\n";

my $uid = 'foo';
my $pwd = 'bar';
my $url =
'http://my.server.com/api/dav/Calendars/Users/Foo.User@server.com/Calendar';

my $d = new HTTP::DAV;

$d->DebugLevel( 3 );
$d->credentials( -user => $uid,
                 -pass => $pwd,
                 -url  => $url
                 );

$d->open( -url => $url )
    or die "Couldn't open $url: " . $d->message();

##</code><code>##

Setting auth details for my.server.com:80, default to 'foo', 'bar'

new_resource: For
http://my.server.com/api/dav/Calendars/Users/Foo.User@server.com/Calendar/, creating new resource

Resetting user and password for my.server.com:80, Scalix User

Using user/pass combo: . For Scalix User,
http://my.server.com/api/dav/Calendars/Users/Foo.User@server.com/Calendar/

Couldn't open
http://my.server.com/api/dav/Calendars/Users/Foo.User@server.com/Calendar: Unauthorized.  at ./check_Cal.pl line 33.