my $app = sub {
my ($env) = @_;
my $path = $env->{PATH_INFO};
my $meth = $env->{REQUEST_METHOD};
if ($path =~ m|^/hraj/?$| && $meth eq "GET") {
my $r = '';
$r .= qq[];
opendir my $dir, "/opt/ksp/znelky" or die "Cannot open directory: $!";
for (readdir $dir) {
next if /^\./;
$r .= qq[];
}
closedir $dir;
$r .= '';
return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$r]];
} elsif ($path =~ m|^/hraj/play/(.*)$| && $meth eq "POST") {
system "/opt/ksp/ann_play.sh", "/opt/ksp/znelky/$1";
my $r = '';
$r .= qq[Přehrávám $1
Zpět];
$r .= '';
return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$r]];
} elsif ($path =~ m|^/hraj/stop$| && $meth eq "POST") {
system "/opt/ksp/ann_stop.sh";
my $r = '';
$r .= qq[Zastaveno
Zpět];
$r .= '';
return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$r]];
} else {
return [404, [], []];
}
}