File Coverage

blib/lib/Slash/Client/Journal.pm

Criterion	Covered	Total	%
statement	16	38	42.1
branch	0	8	0.0
condition	0	12	0.0
subroutine	5	10	50.0
pod	5	6	83.3
total	26	74	35.1

# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2005 by Open Source Technology Group. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: Journal.pm,v 1.1 2005/11/21 17:31:47 pudge Exp $

package Slash::Client::Journal;

use strict;
use warnings;

use base 'Slash::Client';

our $VERSION = 0.01;

sub new {
	my($class, $opts) = @_;

	my $self = $class->SUPER::new($opts);
	$self->{soap}{uri}   = "$self->{http}://$self->{host}/Slash/Journal/SOAP";
	$self->{soap}{proxy} = "$self->{http}://$self->{host}/journal.pl";

	return $self;
}

sub _return_from_entry {
	my($self, $id, $list) = @_;

	if ($list) {
		my $entry = $self->get_entry($id);
		return($id, $entry->{url}) if $entry && $entry->{url};
	} else {
		return $id;
	}

	return;
}

sub add_entry {
	my($self, $data) = @_;

	$data->{body} =~ s/\n/\012/g;  # Local to Unix newlines, JIC

	my $id = 0;
	if ($data->{subject} && $data->{body}) {
		$id = $self->soap->add_entry($data)->result;
	}

	return $self->_return_from_entry($id, wantarray());
}

sub modify_entry {
	my($self, $id, $data) = @_;

	$data->{body} =~ s/\n/\012/g;  # Local to Unix newlines, JIC

	my $newid = 0;
	if ($data->{subject} && $data->{body} && $id) {
		$newid = $self->soap->modify_entry($id, $data)->result;
	}

	return $self->_return_from_entry($id, wantarray());
}

sub delete_entry {
	my($self, $id) = @_;

	return $self->soap->delete_entry($id)->result;
}

sub get_entry {
	my($self, $id) = @_;

	return $self->soap->get_entry($id)->result;
}

sub get_entries {
	my($self, $uid, $limit) = @_;

	return $self->soap->get_entries($uid, $limit)->result;
}

1;

# http://use.perl.org/~pudge/journal/3294

__END__