#!/usr/bin/perl -w

use strict;
use CGI;
use lib '.';
use Abfrage qw(&aktuell aktuelloffen);

$CGI::POST_MAX = 1024 * 1024 * 1;
$CGI::DISABLE_UPLOADS = 1;

my $q = CGI->new;

print $q->header(-type => 'text/html', -charset => 'utf-8', );

print <<END;
<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
         "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="de" xml:lang="de">
<head>
<title>Aktuell</title>
<link rel="stylesheet" type="text/css" href="/assets/css/app.css" />
<link rel="stylesheet" type="text/css" href="/assets/css/fontawesome.css" />
<link rel="stylesheet" type="text/css" href="/assets/css/solid.css" />
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
</head>
<body>
END

print $q->p('Hier können Sie sich über aktuelle Änderungen (Wetterlage!) der Öffnungszeiten informieren. Spätestens zwei Stunden vor der Öffnungszeit entscheiden wir, ob ein Klettern sicher möglich ist oder nicht.<br>Sie sehen die nächsten vier Termine:');

my @datum=aktuell();
my @offen=aktuelloffen();

print <<END;
<table border="0" cellpadding="5" cellspacing="5">
END

my $i=0;

while ($i <= $#datum){
    if ($offen[$i] eq '0'){
print <<END;
<tr><td align="left" width="250">$datum[$i]</td><td align="left" width="50"><i class="fas fa-frown fa-2x" style="color:red"></i></td><td align="left">geschlossen</td></tr>
END
    } elsif ($offen[$i] eq '1'){
print <<END;
<tr><td align="left" width="250">$datum[$i]</td><td align="left" width="50"><i class="fas fa-grin fa-2x" style="color:green"></i></td><td align="left">geöffnet</td></tr>
END
    }
    $i++;
}

print <<END;
</table>
END

print $q->end_html();
