Business-SiteCatalyst

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

	dist_author          => q|Jennifer Pinkham <jpinkham@cpan.org>|,
	dist_version_from    => 'lib/Business/SiteCatalyst.pm',
	build_requires       =>
	{
		'Carp'                 => 0,
		'Data::Dumper'         => 0,
		'Data::Validate::Type' => "1.1.0",
		'DateTime'             => 0,
		'Digest::MD5'          => 0,
		'Digest::SHA1'         => 0,
		'HTTP::Request'        => 0,
		'JSON'                 => 0,
		'LWP::UserAgent'       => 0,
		'MIME::Base64'         => 0,
		'Test::More'           => 0.94,
		'Try::Tiny'            => 0,
	},
	requires             =>
	{
		'perl' => 5.006,
	},

META.json  view on Meta::CPAN

   "name" : "Business-SiteCatalyst",
   "prereqs" : {
      "build" : {
         "requires" : {
            "Carp" : "0",
            "Data::Dumper" : "0",
            "Data::Validate::Type" : "1.001000",
            "DateTime" : "0",
            "Digest::MD5" : "0",
            "Digest::SHA1" : "0",
            "HTTP::Request" : "0",
            "JSON" : "0",
            "LWP::UserAgent" : "0",
            "MIME::Base64" : "0",
            "Test::More" : "0.94",
            "Try::Tiny" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0"

META.yml  view on Meta::CPAN

abstract: "Interface to Adobe Omniture SiteCatalyst's REST API."
author:
  - 'Jennifer Pinkham <jpinkham@cpan.org>'
build_requires:
  Carp: 0
  Data::Dumper: 0
  Data::Validate::Type: 1.001000
  DateTime: 0
  Digest::MD5: 0
  Digest::SHA1: 0
  HTTP::Request: 0
  JSON: 0
  LWP::UserAgent: 0
  MIME::Base64: 0
  Test::More: 0.94
  Try::Tiny: 0
configure_requires:
  Module::Build: 0
dynamic_config: 1
generated_by: 'Module::Build version 0.4003, CPAN::Meta::Converter version 2.120921'
license: artistic

Makefile.PL  view on Meta::CPAN

(
  'NAME' => 'Business::SiteCatalyst',
  'VERSION_FROM' => 'lib/Business/SiteCatalyst.pm',
  'PREREQ_PM' => {
                   'Carp' => 0,
                   'Data::Dumper' => 0,
                   'Data::Validate::Type' => '1.001000',
                   'DateTime' => 0,
                   'Digest::MD5' => 0,
                   'Digest::SHA1' => 0,
                   'HTTP::Request' => 0,
                   'JSON' => 0,
                   'LWP::UserAgent' => 0,
                   'MIME::Base64' => 0,
                   'Test::More' => '0.94',
                   'Try::Tiny' => 0
                 },
  'INSTALLDIRS' => 'site',
  'EXE_FILES' => [],
  'PL_FILES' => {},
  'test' => {

lib/Business/SiteCatalyst.pm  view on Meta::CPAN

package Business::SiteCatalyst;

use strict;
use warnings;

use Data::Dumper;
use Carp;
use LWP::UserAgent qw();
use HTTP::Request qw();
use JSON qw();
use Digest::MD5 qw();
use POSIX qw();
use Digest::SHA1 qw();
use MIME::Base64 qw();

use Business::SiteCatalyst::Company;
use Business::SiteCatalyst::Report;

lib/Business/SiteCatalyst.pm  view on Meta::CPAN

	my $username = $self->{'username'};
	my $nonce = Digest::MD5::md5_hex( rand() * time() );
	chomp($nonce);
	
	my $created = POSIX::strftime("%Y-%m-%dT%H:%M:%S", gmtime());
	my $password_digest = MIME::Base64::encode_base64(
		Digest::SHA1::sha1_hex( $nonce . $created . $self->{'shared_secret'} ) 
	);
	chomp($password_digest);
	
	my $request = HTTP::Request->new(POST => $url);
	carp "POSTing request to URL >" . ( defined( $url ) ? $url : '' ) . "<"
		if $verbose;
	my $auth_header = qq|UsernameToken Username="$username", PasswordDigest="$password_digest", Nonce="$nonce", Created="$created"|;
	carp "Auth header: >$auth_header<" if $verbose;
	
	$request->header('X-WSSE', $auth_header);
	
	$request->content_type('application/json');
	$request->content( $json_in );