- my ($ufdn, $login, $name, $email, $fingerprint, $address, $latlong, $vacation, $created, $modified, $lastseen) = undef;
+ my ($ufdn, $login, $name, $icquin, $jabberjid, $email, $fingerprint,
+ $address, $latlong, $vacation, $created, $modified, $lastseen) = undef;
+
+ # Last seen information (Echelon)
+ $lastseen = &Util::FormatLastSeen($entries->{$dn}->{"activity-pgp"}->[0],
+ $entries->{$dn}->{"activity-from"}->[0]);
+
+ $data = $entries->{$dn};
+ for my $key (keys %{$data}) {
+ @{$data->{$key}} = map { CGI::escapeHTML($_); } @{$data->{$key}};
+ }