Bug 30718: Fix scheduler

Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

diff --git a/tools/scheduler.pl b/tools/scheduler.pl
index 9f797ba..ecee48e 100755 (executable)
--- a/tools/scheduler.pl
+++ b/tools/scheduler.pl
@@ -52,8 +52,10 @@ my $id   = $input->param('id');
 
 if ( $mode eq 'job_add' ) {
 
-    my $startdate = dt_from_string( scalar $input->param('startdate') )->ymd;
+    my $startdate = dt_from_string( scalar $input->param('startdate'), 'iso' )->ymd;
 
+    # Formatting it for Schedule::At
+    $startdate = join('', (split /-/, $startdate));
     my $starttime = $input->param('starttime');
     $starttime =~ s/\://g;
     my $start  = $startdate . $starttime;