possible under the current regime to get illegal characters into the database,
but we had one such event, so just do it to be safe; it doesn't harm.
(One might actually also want to fix WebDAV; should be checked, but hey...)
use LWP::Simple;
# use Image::Info;
use Image::ExifTool;
+use HTML::Entities;
BEGIN {
use Exporter ();
undef, $event, $r->get_server_name)
or error($r, "Could not find event $event", 404, "File not found");
- my $name = $ref->{'name'};
- my $date = $ref->{'date'};
+ my $date = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'date'}));
+ my $name = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'name'}));
$r->set_last_modified($ref->{'last_update'});
# If the client can use cache, do so
while (my $ref = $q->fetchrow_hashref()) {
my $id = $ref->{'id'};
- my $date = $ref->{'date'};
- my $name = $ref->{'name'};
+ my $date = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'date'}));
+ my $name = HTML::Entities::encode_entities(Encode::decode_utf8($ref->{'name'}));
$r->print(" <li><a href=\"$id/\">$name</a> ($date)</li>\n");
}