diff --git a/concieggs/eggspi/perleggs/EggsML/Website.pm b/concieggs/eggspi/perleggs/EggsML/Website.pm new file mode 100644 index 000000000..22d942f08 --- /dev/null +++ b/concieggs/eggspi/perleggs/EggsML/Website.pm @@ -0,0 +1,35 @@ +#!/usr/bin/env perl +package EggsML::Website; +use Mojolicious::Lite; +use Env qw/EGGS_DIR/; +use EggsML::Lunchfile; + +my $lunchfile = EggsML::Lunchfile->new( filename => "$EGGS_DIR/slashdotfrokost" ); + +get '/' => sub { + my $self = shift; + + $lunchfile->parse; + + $self->stash( + wishes => $lunchfile->wishes, + members => $lunchfile->all_members, + ); + + return $self->render('index'); +}; + +push (@{ app->renderer->paths }, "$EGGS_DIR/spindel/skabeloner"); +push (@{ app->static->paths }, "$EGGS_DIR/spindel/statisk"); + +app->defaults( + layout => 'bootstrap', + title => 'EggsML', +); + +app->config(hypnotoad => { + pid => "$EGGS_DIR/spindel/hypnotoad.pid", + listen => [ 'http://127.0.0.1:14500' ], +}); + +app->start; diff --git a/spindel/skabeloner/index.html.ep b/spindel/skabeloner/index.html.ep new file mode 100644 index 000000000..c18de8d57 --- /dev/null +++ b/spindel/skabeloner/index.html.ep @@ -0,0 +1,58 @@ +
Frokostmanagement til den moderne enterprise.
+Bruger | +Saldo | +Betalt i alt | +Måltider | +Gns. pris | +Seneste eggs | +
---|---|---|---|---|---|
<%= $member->canonical %> | +balance > 0 ? ' class="text-success"' : + $member->balance < 0 ? ' class="text-danger"' : '' %>><%= sprintf("%.02f", $member->balance) %> | +<%= sprintf("%.02f", $member->total_purchased) %> | +<%= $member->lunch_count %> | ++ % my $days_ago = $member->days_since_latest_lunch; + | <%= $days_ago == 0 ? "I dag" : + $days_ago == 1 ? "I går" : "For $days_ago dage siden" %> | +