#!/usr/bin/perl
# This is a port of the Java code in the FirstHop.java example. You can find
# the original Java source at:
#
# http://jackrabbit.apache.org/doc/firststeps.html#Hop_1:_Logging_in_to_Jackrabbit
#
# -- Sterling, 2006-06-11
use strict;
use warnings;
use Java::JCR;
use Java::JCR::Jackrabbit;
my $repository = Java::JCR::Jackrabbit->new;
my $session = $repository->login;
my $user = $session->get_user_id;
my $name = $repository->get_descriptor($Java::JCR::Repository::REP_NAME_DESC);
print "Logged in as $user to a $name repository.\n";
$session->logout;