NAME

Net::CampaignMonitor - A Perl wrapper to the Campaign Monitor API.

VERSION

This documentation refers to version 0.01.

SYNOPSIS

 use Net::CampaignMonitor;
 my $cm = Net::CampaignMonitor->new({
		api_key => 'abcd1234abcd1234abcd1234',
		secure  => 1,
		timeout => 300,
		});

DESCRIPTION

Net::CampaignMonitor provides a Perl wrapper to the Campaign Monitor API (v3).

METHODS

All methods return a hash containing the Campaign Monitor response code, the headers and the actual response.

my %results = (
	code     => '',
	response => '',
	headers  => ''
);

Construction and setup

new

my $cm = Net::CampaignMonitor->new({
	api_key => 'abcd1234abcd1234abcd1234',
	secure  => 1,
	timeout => 300,
	});

Construct a new Net::CampaignMonitor object. Takes an optional hash reference of config options. The options are:

api_key - The api key for the Campaign Monitor account. If none is supplied the only function which will work is account_apikey.

secure - Set to 1 (secure) or 0 (insecure) to determine whether to use http or https. Defaults to secure.

timeout - Set the timeout for the authentication. Defaults to 600 seconds.

account_clients

Getting your clients

my $clients = $cm->account_clients();

Creating a client

my $client = $cm->account_clients((
	'CompanyName'  => "ACME Limited",
	'ContactName'  => "John Doe",
	'EmailAddress' => "john\@example.com",
	'Country'      => "Australia",
	'TimeZone'     => "(GMT+10:00) Canberra, Melbourne, Sydney"
));

account_apikey

Getting your API key

my $apikey = $cm->account_apikey($siteurl, $username, $password)

account_countries

Getting valid countries

my $countries = $cm->account_countries();

account_timezones

Getting valid timezones

my $timezones = $cm->account_timezones();

account_systemdate

Getting current date

my $systemdate = $cm->account_systemdate();

campaigns

Creating a draft campaign

my $campaign = $cm->campaigns((
	'clientid'   => 'b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2',
	'ListIDs'    => [    
		'a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1',
		'a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1'
	       ],
	'FromName'   => 'My Name',
	'TextUrl'    => 'http://example.com/campaigncontent/index.txt',
	'Subject'    => 'My Subject',
	'HtmlUrl'    => 'http://example.com/campaigncontent/index.html',
	'SegmentIDs' => [   
		'a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1',
		'a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1a1'
		],
	'FromEmail'  => 'myemail@mydomain.com',
	'Name'       => 'My Campaign Name',
	'ReplyTo'    => 'myemail@mydomain.com',
));

The clientid must be in the hash.

campaigns_send

Sending a draft campaign

my $send_campaign = $cm->campaigns_send((
	'campaignid'        => 'b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2b2',
	'SendDate'          => 'YYYY-MM-DD HH:MM',
	'ConfirmationEmail' => 'myemail@mydomain.com',
));

The campaignid must be in the hash.

campaigns_sendpreview

Sending a campaign preview

my $send_preview_campaign = $cm->campaigns_sendpreview(
	  'campaignid'        => $campaign_id,
	  'PreviewRecipients' => [
				   'test1@example.com',
				   'test2@example.com'
				 ],
	  'Personalize'       => 'Random',
));

The campaignid must be in the hash.

campaigns_summary

Campaign summary

my $campaign_summary = $cm->campaigns_summary($campaign_id);

campaigns_listsandsegments

Campaign lists and segments

my $campaign_listsandsegments = $cm->campaigns_listsandsegments($campaign_id);

campaigns_recipients

Campaign recipients

my $campaign_recipients = $cm->campaigns_recipients (
	'campaignid'     => $campaign_id,
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

campaigns_bounces

Campaign bounces

my $campaign_bounces = $cm->campaigns_bounces (
	'campaignid'     => $campaign_id,
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

campaigns_opens

Campaign opens

my $campaign_opens = $cm->campaigns_opens (
	'campaignid'     => $campaign_id,
	'date'           => '1900-01-01',
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

campaigns_clicks

Campaign clicks

my $campaign_clicks = $cm->campaigns_clicks (
	'campaignid'     => $campaign_id,
	'date'           => '1900-01-01',
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

campaigns_unsubscribes

Campaign unsubscribes

my $campaign_unsubscribes = $cm->campaigns_unsubscribes (
	'campaignid'     => $campaign_id,
	'date'           => '1900-01-01',
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

campaigns_delete

Deleting a draft

my $campaign_delete = $cm->campaigns_delete($campaign_id);

client_clientid

Getting a client's details

my $client_details = $cm->client_clientid($client_id);

client_campaigns

Getting sent campaigns

my $client_campaigns = $cm->client_campaigns($client_id);

client_drafts

Getting draft campaigns

my $client_drafts = $cm->client_drafts($client_id);

client_lists

Getting subscriber lists

my $client_lists = $cm->client_lists($client_id);

client_segments

Getting segments

my $client_segments = $cm->client_segments($client_id);

client_suppressionlist

Getting suppression list

my $client_suppressionlist = $cm->client_suppressionlist((
	'clientid'       => $client_id,
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

client_templates

Getting templates

my $client_templates = $cm->client_templates($client_id);

client_setbasics

Setting basic details

my $client_basic_details = $cm->client_setbasics((
	'clientid'     => $client_id,
	'CompanyName'  => "ACME Limited",
	'ContactName'  => "John Doe",
	'EmailAddress' => "john\@example.com",
	'Country'      => "Australia",
	'TimeZone'     => "(GMT+10:00) Canberra, Melbourne, Sydney",
));

client_setaccess

Setting access settings

Changing access level only

my $client_access-settings = $cm->client_setaccess((
	'clientid'    => $client_id,
	'AccessLevel' => '23',
));

Setting username and password

my $client_access-settings = $cm->client_setaccess((
	'clientid'    => $client_id,
	'AccessLevel' => '23',
	'Username'    => 'jdoe',
	'Password'    => 'password',
));

client_setpaygbilling

Setting PAYG billing

my $client_payg = $cm->client_setpaygbilling((
	'clientid'               => $client_id,
	'Currency'               => 'AUD',
	'CanPurchaseCredits'     => 'false',
	'ClientPays'             => 'true',
	'MarkupPercentage'       => '20',
	'MarkupOnDelivery'       => '5',
	'MarkupPerRecipient'     => '4',
	'MarkupOnDesignSpamTest' => '3',
));

client_setmonthlybilling

Setting monthly billing

my $client_monthly = $cm->client_setmonthlybilling((
	'clientid'               => $client_id,
	'Currency'               => 'AUD',
	'ClientPays'             => 'true',
	'MarkupPercentage'       => '20',
));

client_delete

Deleting a client

my $client_deleted = $cm->client_delete($client_id);

lists

Creating a list

my $list = $cm->lists((
	'clientid'                => $client_id,
	'Title'                   => 'Website Subscribers',
	'UnsubscribePage'         => 'http://www.example.com/unsubscribed.html',
	'ConfirmedOptIn'          => 'false',
	'ConfirmationSuccessPage' => 'http://www.example.com/joined.html',
));

list_listid

List details

my $list = $cm->list_listid($list_id);

Updating a list

my $updated_list = $cm->list_listid((
	'listid'                  => $list_id,
	'Title'                   => 'Website Subscribers',
	'UnsubscribePage'         => 'http://www.example.com/unsubscribed.html',
	'ConfirmedOptIn'          => 'false',
	'ConfirmationSuccessPage' => 'http://www.example.com/joined.html',
));

list_stats

List stats

my $list_stats = $cm->list_stats($list_id);

list_customfields

List custom fields

my $list_customfields = $cm->list_customfields($list_id);

list_segments

List segments

my $list_segments = $cm->list_segments($list_id);

list_active

Active subscribers

my $list_active_subscribers = $cm->list_active((
	'listid'         => $list_id,
	'date'           => '1900-01-01',
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

list_unsubscribed

Unsubscribed subscribers

my $list_unsubscribed_subscribers = $cm->list_unsubscribed((
	'listid'         => $list_id,
	'date'           => '1900-01-01',
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

list_bounced

Bounced subscribers

my $list_bounced_subscribers = $cm->list_bounced((
	'listid'         => $list_id,
	'date'           => '1900-01-01',
	'page'           => '1',
	'pagesize'       => '100',
	'orderfield'     => 'email',
	'orderdirection' => 'asc',
));

list_customfields

Creating a custom field

my $custom_field = $cm->list_customfields((
	'listid'    => $list_id,
	'FieldName' => 'Newsletter Format',
	'DataType'  => 'MultiSelectOne',
	'Options'   => [ "HTML", "Text" ],
));

list_options

Updating custom field options

my $updated_options = $cm->list_options((
	'listid'              => $list_id,
	'KeepExistingOptions' => 'true',
	'Options'             => [ "First Option", "Second Option", "Third Option" ],
	'customfieldkey'      => '[NewsletterFormat]',
));

list_delete_customfieldkey

Deleting a custom field

my $deleted_customfield = $cm->list_delete_customfieldkey((
	'listid'         => $list_id,
	'customfieldkey' => '[NewsletterFormat]',
));

list_delete

Deleting a list

my $deleted_list = $cm->list_delete($list_id);

list_webhooks

List webhooks

my $webhooks = $cm->list_webhooks($list_id);

Creating a webhook

my $webhook = $cm->list_webhooks((
	'listid'        => $list_id,
	'Events'        => [ "Subscribe" ],
	'Url'           => 'http://example.com/subscribe',
	'PayloadFormat' => 'json',
));

list_test

Testing a webhook

my $webhook = $cm->list_test((
	'listid'    => $list_id,
	'webhookid' => $webhook_id,
));

list_delete_webhook

Deleting a webhook

my $deleted_webhook = $cm->list_delete_webhook((
	'listid'    => $list_id,
	'webhookid' => $webhook_id,
));

list_activate

Activating a webhook

my $activated_webhook = $cm->list_activate((
	'listid'    => $list_id,
	'webhookid' => $webhook_id,
));

list_deactivate

Deactivating a webhook

my $deactivated_webhook = $cm->list_deactivate((
	'listid'    => $list_id,
	'webhookid' => $webhook_id,
));

segments

Creating a segment

my $segment = $cm->segments((
	'listid' => $list_id,
	'Rules' => [
			{
				'Subject' => 'EmailAddress',
				'Clauses' => [
					'CONTAINS @domain.com'
				]
			},
			{
				'Subject' => 'DateSubscribed',
				'Clauses' => [
					'AFTER 2009-01-01',
					'EQUALS 2009-01-01'
				]
			},
			{
				'Subject' => 'DateSubscribed',
				'Clauses' => [
					'BEFORE 2010-01-01'
				]
			}
		],
	'Title' => 'My Segment',
));

segment_segmentid

Updating a segment

my $updated_segment = $cm->segment_segmentid((
	'segmentid' => $segment_id,
	'Rules' => [
			{
				'Subject' => 'EmailAddress',
				'Clauses' => [
					'CONTAINS @domain.com'
				]
			},
			{
				'Subject' => 'DateSubscribed',
				'Clauses' => [
					'AFTER 2009-01-01',
					'EQUALS 2009-01-01'
				]
			},
			{
				'Subject' => 'DateSubscribed',
				'Clauses' => [
					'BEFORE 2010-01-01'
				]
			}
		],
	'Title' => 'My Segment',
));

Getting a segment's details

my $updated_segment = $cm->segment_segmentid($segment_id);

segment_rules

Adding a segment rule

my $new_rules = $cm->segment_rules((
	'segmentid' => $segment_id,
	'Subject' => 'Name',
	'Clauses' => [
		'NOT_PROVIDED',
		'EQUALS Subscriber Name'
	],
));

segment_active

Getting segment subscribers

my $segment_subs = $cm->segment_active((
	'segmentid'         => $segment_id,
	'date'              => '1900-01-01',
	'page'              => '1',
	'pagesize'          => '100',
	'orderfield'        => 'email',
	'orderdirection'    => 'asc',
));

segment_delete

Deleting a segment

my $deleted_segment = $cm->segment_delete($segment_id);

segment_delete_rules

Deleting a segment's rules

my $deleted_segment_rules = $cm->segment_delete_rules($segment_id);

subscribers

Adding a subscriber

my $added_subscriber = $cm->subscribers((
	'listid'       => $list_id,
	'Resubscribe'  => 'true',
	'CustomFields' => [
		{
			'Value' => 'http://example.com',
			'Key'   => 'website'
		},
		{
			'Value' => 'magic',
			'Key'   => 'interests'
		},
		{
			'Value' => 'romantic walks',
			'Key'   => 'interests'
		}
	],
	'Name'         => 'New Subscriber',
	'EmailAddress' => 'subscriber@example.com',
));

Getting a subscriber's details

my $subs_details = $cm->subscribers((
	'listid' => $list_id,
	'email'  => 'subscriber@example.com',
));

subscribers_import

Importing many subscribers

my $imported_subs = $cm->subscribers_import((
	'listid'       => $list_id,
	'Subscribers' => [
		{
			'CustomFields' => [
				{
					'Value' => 'http://example.com',
					'Key' => 'website'
				},
				{
					'Value' => 'magic',
					'Key' => 'interests'
				},
				{
					'Value' => 'romantic walks',
					'Key' => 'interests'
				}
			],
			'Name' => 'New Subscriber One',
			'EmailAddress' => 'subscriber1@example.com'
		},
		{
			'Name' => 'New Subscriber Two',
			'EmailAddress' => 'subscriber2@example.com'
		},
		{
			'Name' => 'New Subscriber Three',
			'EmailAddress' => 'subscriber3@example.com'
		}
	],
	'Resubscribe' => 'true',
));

subscribers_history

Getting a subscriber's history

my $subs_history = $cm->subscribers_history((
	'listid' => $list_id,
	'email'  => 'subscriber@example.com',
));

subscribers_unsubscribe

Unsubscribing a subscriber

my $unsub_sub = $cm->subscribers_unsubscribe((
	'listid'        => $list_id,
	'EmailAddress'  => 'subscriber@example.com',
));

templates

Getting a template

my $template = $cm->templates($template_id);

Creating a template

my $template = $cm->templates((
	'clientid'      => $client_id
	'ZipFileURL'    => 'http://example.com/files.zip',
	'HtmlPageURL'   => 'http://example.com/index.html',
	'ScreenshotURL' => 'http://example.com/screenshot.jpg',
	'Name'          => 'Template Two',
));

Updating a template

my $updated_template = $cm->templates(
	'templateid'      => $template_id
	'ZipFileURL'    => 'http://example.com/files.zip',
	'HtmlPageURL'   => 'http://example.com/index.html',
	'ScreenshotURL' => 'http://example.com/screenshot.jpg',
	'Name'          => 'Template Two',
));

templates_delete

Deleting a template

my $deleted_template = $cm->templates_delete($template_id);

INSTALLATION NOTES

In order to run the full test suite you will need to provide an API Key. This can be done in the following way.

cpan CAMPAIGN_MONITOR_API_KEY=<your_api_key> Net::CampaignMonitor

If you do not do this almost all of the tests will be skipped.

BUGS

Not quite a bug. This module uses REST::Client. REST::Client fails to install properly on Windows due to this bug. You will need to make REST::Client install without running tests to install it.

AUTHOR

Jeffery Candiloro <jeffery@cpan.org>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

To install Net::CampaignMonitor, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Net::CampaignMonitor

CPAN shell

perl -MCPAN -e shell
install Net::CampaignMonitor

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

VERSION

SYNOPSIS

DESCRIPTION

METHODS

Construction and setup

new

account_clients

account_apikey

account_countries

account_timezones

account_systemdate

campaigns

campaigns_send

campaigns_sendpreview

campaigns_summary

campaigns_listsandsegments

campaigns_recipients

campaigns_bounces

campaigns_opens

campaigns_clicks

campaigns_unsubscribes

campaigns_delete

client_clientid

client_campaigns

client_drafts

client_lists

client_segments

client_suppressionlist

client_templates

client_setbasics

client_setaccess

client_setpaygbilling

client_setmonthlybilling

client_delete

lists

list_listid

list_stats

list_customfields

list_segments

list_active

list_unsubscribed

list_bounced

list_customfields

list_options

list_delete_customfieldkey

list_delete

list_webhooks

list_test

list_delete_webhook

list_activate

list_deactivate

segments

segment_segmentid

segment_rules

segment_active

segment_delete

segment_delete_rules

subscribers

subscribers_import

subscribers_history

subscribers_unsubscribe

templates

templates_delete

INSTALLATION NOTES

BUGS

AUTHOR

COPYRIGHT

Module Install Instructions