|
% # Fix node name.
% my $nodeID = $aref->{nodeID};
% $nodeID =~ s/$NODE_ROOT//;
<% $nodeID %>
|
<% $aref->{id} %>
|
% # Fix publisher name
% my $jid = substr($aref->{jid}, 0, index($aref->{jid}, "@" . $ALERT_SERVER));
<% $jid %>
|
% # Fix date: we have here the number of millisecs since 1970.
% my $sec;
% my $min;
% my $hour;
% my $mday;
% my $mon;
% my $year;
% my $wday;
% my $yday;
% my $isdst;
% my $t = $aref->{creationDate} / 1000.0;
% ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime($t);
% my $creationDate = sprintf("%4d-%02d-%02dT%02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);
<% $creationDate %>
|
% }