move application from cgi directory to the project root

1 files changed, 85 insertions, 0 deletions

diff --git a/templates/clean.html.ep b/templates/clean.html.ep
new file mode 100644
index 0000000..ae1167c
--- /dev/null
+++ b/templates/clean.html.ep
@@ -0,0 +1,85 @@
+% if (@{$departures}) {
+
+<div class="displayclean">
+<ul>
+% my $i = 0;
+% for my $departure (@{$departures}) {
+% $i++;
+
+<li>
+<span class="line">
+%= $departure->{train}
+</span>
+% if ($departure->{moreinfo} and @{$departure->{moreinfo}}) {
+<span class="moreinfo">
+<ul>
+% for my $pair (@{$departure->{moreinfo}}) {
+<li>
+% if ($pair->[0]->isa('DateTime')) {
+%= $pair->[0]->strftime('%H:%M')
+% }
+% else {
+%= $pair->[0]
+% }
+:
+<span class="reason">
+%= $pair->[1]
+</span>
+</li>
+% }
+</ul>
+</span>
+% }
+% if ($departure->{info} and length $departure->{info}) {
+<span class="info">
+%= $departure->{info}
+</span>
+% }
+% else {
+<span class="route">
+% my $via_max = @{$departure->{via}};
+% my $via_cur = 0;
+% for my $stop (@{$departure->{via}}) {
+% $via_cur++;
+<%= $stop %><% if ($via_cur < $via_max) { %> - <% } %>
+% }
+</span>
+% }
+<span class="dest">
+%= $departure->{destination}
+</span>
+<span class="countdown">
+% if ($departure->{delay}) {
+<span class="delay">(+<%= $departure->{delay} %>)</span>
+% }
+<span class="platform">
+%= $departure->{platform}
+</span>
+</span>
+<span class="time">
+%= $departure->{time}
+</span>
+</li>
+
+<!--
+% if ($departure->{info}) {
+<div class="info">
+%= $departure->{info}
+</div>
+% }
+-->
+
+% }
+
+</ul>
+</div> <!-- displayclean -->
+
+% }
+% else {
+
+<p>
+DB-Fakedisplay displays the next departures at a DB station, just like the big
+LC display in the station itself.
+</p>
+
+% }