#!/usr/bin/perl
# This is a port of the Java code in the SecondHop.java example. You can find
# the original Java source at:
#
# http://jackrabbit.apache.org/doc/firststeps.html#Hop_2:_Working_with_content
#
# -- 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(
Java::JCR::SimpleCredentials->new('username', 'password'));
my $root = $session->get_root_node;
my $hello = $root->add_node('hello');
my $world = $hello->add_node('world');
$world->set_property('message', 'Hello, World!');
$session->save;
my $node = $root->get_node('hello/world');
print $node->get_path(), "\n";
print $node->get_property('message')->get_string, "\n";
$root->get_node('hello')->remove;
$session->save;
$session->logout;