NAME

    WebService::DailyConnect - Web client to download events from Daily
    Connect

VERSION

    version 0.03

SYNOPSIS

     use WebService::DailyConnect;
     use Term::Clui qw( ask ask_password );
     use Path::Tiny qw( path );
     
     my $user = ask("email:");
     my $pass = ask_password("pass :");
     
     my $dc = WebService::DailyConnect->new;
     $dc->login($user, $pass) || die "bad email/pass";
     
     my $user_info = $dc->user_info;
     
     foreach my $kid (@{ $dc->user_info->{myKids} })
     {
       my $kid_id = $kid->{Id};
       my $name   = lc $kid->{Name};
       foreach my $photo_id (map { $_->{Photo} || () } @{ $dc->kid_status($kid_id)->{list} })
       {
         my $dest = path("~/Pictures/dc/$name-$photo_id.jpg");
         next if -f $dest;
         print "new photo: $dest\n";
         $dest->parent->mkpath;
         $dc->photo($photo_id, $dest);
       }
     }

DESCRIPTION

    NOTE: I no longer use DailyConnect, and happy to let someone who does
    need it maintain it. This module is otherwise unsupported.

    Interface to DailyConnect, which is a service that can provide
    information about your kids at daycare. This is more or less a port of
    a node API that I found here:

    https://github.com/Flet/dailyconnect

    I wrote this module for more or less the same reasons as that author,
    although I wanted to be able to use it in perl.

    It uses HTTP::AnyUA, so should work with any Perl user agent supported
    by that layer.

ATTRIBUTES

 ua

    An instance of HTTP::AnyUA. If a user agent supported by HTTP::AnyUA
    (such as HTTP::Tiny or LWP::UserAgent) is provided, a new instance of
    HTTP::AnyUA will wrap around that user agent instance. The only
    requirement is that the underlying user agent must support cookies.

    If a ua attribute is not provided, then an instance of HTTP::AnyUA will
    be created wrapped around a LWP::UserAgent using the default proxy and
    a cookie jar.

 base_url

    The base URL for daily connect. The default should be correct.

 req

    The most recent request. The format of the request object is subject to
    change, and therefore should only be used for debugging.

 res

    The most recent response. The format of the response object is subject
    to change, and therefore should only be used for debugging.

 METHODS

    Beside login, methods typically return a hash or file content depending
    on the type of object requested. On error they return undef. Further
    details for the failure can be deduced from the response object stored
    in res above.

 login

     my $bool = $dc->login($email, $pass);

    Login to daily connect using the given email and password. The
    remaining methods only work once you have successfully logged in.

 user_info

     my $hash = $dc->user_info;

    Get a hash of the user information.

 kid_summary

     my $hash = $dc->kid_summary($kid_id);

    Get today's summary for the given kid.

 kid_summary_by_date

     my $hash = $dc->kid_summary_by_date($kid_id, $date);

    Get the summary for the given kid on the given day. $date is in the
    form YYMMDD.

 kid_status

     my $hash = $dc->kid_status($kid_id);

    Get today's status for the given kid.

 kid_status_by_date

     my $hash = $dc->kid_status_by_date($kid_id, $date);

    Get the status for the given kid on the given date. $date is in the
    form YYMMDD.

 photo

     $dc->photo($photo_id);
     $dc->photo($photo_id, $dest);

    Get the photo with the given $photo_id. If $dest is not provided then
    the content of the photo in JPEG format will be returned. If $dest is a
    scalar reference, then the content will be stored in that scalar. If
    $dest is a string, then that string will be assumed to be a file, and
    the photo will be saved there. If a Path::Tiny or Path::Class::File
    object are passed in, then the content will be written to the files at
    that location.

CAVEATS

    DailyConnect does not provide a standard RESTful API, so it is entirely
    possible they might change the interface of their app, and break this
    module.

    My kiddo is an only child so I haven't been able to test this for more
    than one kiddo. May be a problem if you have twins or septuplets.

AUTHOR

    Graham Ollis <plicease@cpan.org>

COPYRIGHT AND LICENSE

    This software is copyright (c) 2018,2019 by Graham Ollis.

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