premier jet

bin/app.psgi

@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Bartender;
+Bartender->to_app;

lib/Bartender.pm

@@ -0,0 +1,60 @@
+package Bartender;
+use Dancer2;
+use Data::Dumper;
+use POSIX ();
+
+our $VERSION = '0.1';
+
+get '/' => sub {
+    send_file '/index.html';
+};
+
+
+=pod
+$VAR1 = {
+          'projetId' => 'abro-tele2',
+          'projetPadPrincipal' => 'https://pad.exegetes.eu.org/p/g.DSXI1kGFT1gjor66$Abro-REP-Tele2-Principal/export/txt',
+          'projetPadGarde' => 'https://pad.exegetes.eu.org/p/g.DSXI1kGFT1gjor66$Abro-REP-Tele2-Garde/export/txt',
+          'projetPadAutre1' => '',
+          'dossier' => 'abroretention'
+        };
+=cut
+
+get '/shake' => sub {
+    my %param = params;
+
+    my $opt_dossier = $param{dossier};
+    my $opt_base   = $param{projetPadPrincipal};
+    my $opt_garde  = $param{projetPadGarde};
+    my $opt_projet = $param{projetId};
+
+    system("/home/sniperovitch/cocktail/cocktail -d $opt_dossier -b '$opt_base' -g '$opt_garde' -p $opt_projet &");
+    send_file '/index.html';
+};
+
+
+get '/api/v1/status' => sub {
+    my %param = params;
+    my $opt_dossier = $param{dossier};
+    my $opt_projet  = $param{projetId};
+
+    my $compilation_status;
+    if(-e "/tmp/exegetes/$opt_dossier/$opt_projet.lock") {
+        $compilation_status = "En cours de compilation...";
+    }
+    elsif(-e "/tmp/exegetes/$opt_dossier/$opt_projet.pdf") {
+        my @stat = stat "/tmp/exegetes/$opt_dossier/$opt_projet.pdf";
+        my $ctime = $stat[10];
+        my $date_time = POSIX::strftime("%Y-%m-%d %H:%M:%S", localtime($ctime) );
+        $compilation_status = $date_time;
+    }
+    else {
+        $compilation_status = "Aucune compilation.";
+    }
+
+    header 'Content-Type' => 'application/json';
+    return to_json { text => $compilation_status };
+};
+
+
+true;