File Coverage

blib/lib/WWW/ELISA.pm

Criterion	Covered	Total	%
statement	27	55	49.0
branch			n/a
condition	0	4	0.0
subroutine	9	16	56.2
pod	2	4	50.0
total	38	79	48.1

package WWW::ELISA;

our $VERSION = '0.07';

use strict;
use warnings;
use Carp;
use Digest::MD5 qw( md5_hex );
use HTTP::Request;
use JSON::XS;
use LWP::UserAgent;
use Try::Tiny;

sub new {
    my $class = shift;
    my %args  = (endpoint => 'https://elisa.hbz-nrw.de:8091/api/rest', @_,);

    return bless {%args}, $class;
}

# leave it for backwards compatibility
sub push {
    my ($self, $notepad) = @_;

    $self->create_notepad($notepad);
}

sub create_notepad {
    my ($self, $notepad) = @_;

    my $data = {
        userID         => $notepad->{userID},
        token          => $self->_authenticate(),
        notepadName    => $notepad->{notepadName},
        titleList      => $notepad->{titleList},
        available_only => $notepad->{available_only} // "false",
    };

    my $response = $self->_do_request("/createNotepad", $data);
}

sub create_basket {
    my ($self, $notepad) = @_;

    my $data = {
        userID         => $notepad->{userID},
        token          => $self->_authenticate(),
        notepadName    => $notepad->{notepadName},
        titleList      => $notepad->{titleList},
        available_only => $notepad->{available_only} // "false",
    };

    my $response = $self->_do_request("/createBasket", $data);
}

sub _authenticate {
    my $self = shift;

    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
        = localtime(time);

    my $timestamp = sprintf(
        "%04d-%02d-%02dT%02d:%02d:%02dZ",
        $year + 1900,
        $mon + 1, $mday, $hour, $min, $sec
    );
    my $timestamp2 = sprintf(
        "%04d%02d%02dT%02d%02d%02dZ",
        $year + 1900,
        $mon + 1, $mday, $hour, $min, $sec
    );

    my $auth = {
        callerID  => $self->{callerID},
        timestamp => $timestamp,
        hash => md5_hex($self->{callerID} . $timestamp2 . $self->{secret}),
    };

    my $res = $self->_do_request("/authenticate", $auth);
    return $res->{token};
}

sub _do_request {
    my ($self, $path, $content) = @_;

    my $endpoint = $self->{endpoint};

    try {
        my $ua = LWP::UserAgent->new;
        $ua->timeout(20);
        $ua->env_proxy;
        $ua->ssl_opts(verify_hostname => 0, SSL_verify_mode => 0x00);

        my $req = HTTP::Request->new('POST', $endpoint . $path);
        $req->header('Content-Type' => 'application/json');
        $req->content(encode_json($content));

        my $res = $ua->request($req);

        return decode_json($res->decoded_content);
    }
    catch {
        print STDERR "Error: " . $_;
    }
}

1;

__END__