view release on metacpan or  search on metacpan

lib/Confluence/Client/XMLRPC.pm  view on Meta::CPAN

		if ( my $page = _rpc( $self, 'getPage', @_ ) ) {
			my (%data) = map { $_ => $page->{$_} } grep { /\A(?:id|parentId|permissions|space|title|url|version)\Z/ } keys %{$page};
			return \%data;
		}
		else {
			return '';
		}
	}
}

sub updatePage {
	my Confluence::Client::XMLRPC $self = shift;
	my $page                            = shift;
	my $pageUpdateOptions               = ( shift || {} );

	if ( $self->{'_cflVersion'} ge "002010000" ) {
		_debugPrint("Using API method updatePage() for Confluence >= 2.10") if $CONFLDEBUG;
		return _rpc( $self, 'updatePage', $page, $pageUpdateOptions );
	}
	else {
		_debugPrint("Trying to emulate updatePage() for Confluence < 2.10") if $CONFLDEBUG;

lib/Confluence/Client/XMLRPC.pm  view on Meta::CPAN

			}
			foreach my $key ( keys %{$page} ) {
				$new{$key} = $page->{$key};
			}
			return _rpc( $self, 'storePage', \%new );
		}
	}
	return '';
}

sub updateOrStorePage {
	my Confluence::Client::XMLRPC $self = shift;
	my $newPage                         = shift;

	my $couldUpdate = 1;
	foreach my $field ( qw( id space title content version ) ) {
		$couldUpdate--, last unless exists $newPage->{$field};
	}

	# do we have all necessary data for calling the updatePage method?
	if ($couldUpdate) {