view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

#    This file is public domain and is not placed under any copyright


# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'

use Calendar::CSA;

$user = scalar getpwuid($>);
$host = "localhost";

print "Attempting to open database $user\@$host...\n";

$caladdr = "$user\@$host";

($user, $host) = split(/@/, $caladdr);

print "Logging on...\n";
$session = Calendar::CSA::logon("",