Started on user day entry

lib/Pear/LocalLoop.pm

@@ -69,6 +69,16 @@ sub startup {
     }
   });
 
+  $self->helper( datetime_formatter => sub {
+    my $c = shift;
+
+    return DateTime::Format::Strptime->new(
+      pattern => '%FT%T%z',
+      strict => 1,
+      on_error => 'undef',
+    );
+  });
+
   $self->helper( get_path_from_uuid => sub {
     my $c = shift;
     my $uuid = shift;
@@ -120,6 +130,7 @@ sub startup {
   });
   $api->post('/upload')->to('api-upload#post_upload');
   $api->post('/search')->to('api-upload#post_search');
+  $api->post('/user/day')->to('api-user#post_day');
   $api->post('/edit')->to('api-api#post_edit');
   $api->post('/fetchuser')->to('api-api#post_fetchuser');
   $api->post('/user-history')->to('api-user#post_user_history');

lib/Pear/LocalLoop/Controller/Api/User.pm

@@ -1,5 +1,34 @@
 package Pear::LocalLoop::Controller::Api::User;
 use Mojo::Base 'Mojolicious::Controller';
+use Mojo::JSON;
+
+has error_messages => sub {
+  return {
+    day => {
+      is_iso_datetime => { message => 'Invalid ISO8601 Datetime', status => 400 },
+    },
+  };
+};
+
+sub post_day {
+  my $c = shift;
+
+  my $validation = $c->validation;
+
+  $validation->input( $c->stash->{api_json} );
+
+  $validation->optional('day')->is_iso_datetime;
+
+  return $c->api_validation_error if $validation->has_error;
+
+  $c->render( json => {
+    success => Mojo::JSON->true,
+  });
+}
+
+1;
+
+__END__
 use Data::Dumper;
 use Mojo::JSON;
 use DateTime;

lib/Pear/LocalLoop/Plugin/Validators.pm

@@ -5,6 +5,7 @@ use Email::Valid;
 use Geo::UK::Postcode;
 use Scalar::Util qw/ looks_like_number /;
 use File::Basename;
+use DateTime::Format::Strptime;
 
 sub register {
   my ( $plugin, $app, $conf ) = @_;
@@ -45,6 +46,12 @@ sub register {
     $extension =~ s/^\.//;
     return $app->types->type($extension) eq $filetype ? undef : 1;
   });
+
+  $app->validator->add_check( is_iso_datetime => sub {
+    my ( $validation, $name, $value ) = @_;
+    $value = $app->datetime_formatter->parse_datetime( $value );
+    return defined $value ? undef : 1;
+  });
 }
 
 1;

lib/Test/Pear/LocalLoop.pm

@@ -1,8 +1,10 @@
 package Test::Pear::LocalLoop;
 use Mojo::Base -base;
 
+use Test::More;
 use File::Temp;
 use Test::Mojo;
+use DateTime::Format::Strptime;
 
 has config => sub {
   my $file = File::Temp->new;
@@ -38,4 +40,40 @@ has framework => sub {
   return $t;
 };
 
+sub dump_error {
+  return sub {
+    my $self = shift;
+    if ( my $error = $self->tx->res->dom->at('pre[id="error"]') ) {
+      diag $error->text;
+    } else {
+      diag $self->tx->res->to_string;
+    }
+  };
+}
+
+sub register_customer {
+  my $self = shift;
+  my $args = shift;
+
+  my $json = {
+    usertype => 'customer',
+    %$args,
+  };
+
+  $self->framework->post_ok('/api/register' => json => $json)
+    ->status_is(200)->or($self->dump_error)
+    ->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
+}
+
+sub login {
+  my $self = shift;
+  my $args = shift;
+
+  $self->framework->post_ok('/api/login' => json => $args)
+    ->status_is(200)->or($self->dump_error)
+    ->json_is('/success', Mojo::JSON->true)->or($self->dump_error);
+
+  return $self->framework->tx->res->json->{session_key};
+}
+
 1;