Generator for the Atom Syndication Format (RFC 4287), to create a web feed of log messages in XML format, with optional XSLT style sheet.
XML writer procedure.
Writes log messages in Atom Syndication Format (RFC 4287) to file or standard output.
The atom%alt value shall be of the form http://www.example.com/dmpack/log?log_id=.
The particular log id will be appended to the URL. The feed identification atom%id
shall be a valid UUID of the form 00000000-0000-0000-0000-000000000000. The
parameter atom%url shall be the public URL of the Atom feed.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(atom_type), | intent(inout) | :: | atom |
Atom type. |
||
| type(log_type), | intent(inout) | :: | logs(:) |
Log array. |
||
| integer, | intent(in), | optional | :: | unit |
Output unit. |
Atom feed attributes.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=256), | public | :: | alt | = | ' ' |
Alternate content link. |
|
| character(len=256), | public | :: | author | = | ' ' |
Author name. |
|
| character(len=256), | public | :: | = | ' ' |
Author e-mail. |
||
| character(len=ATOM_ID_LEN), | public | :: | id | = | ' ' |
Feed id. |
|
| character(len=TIME_LEN), | public | :: | updated | = | TIME_DEFAULT |
Feed time stamp. |
|
| character(len=256), | public | :: | title | = | ' ' |
Feed title. |
|
| character(len=256), | public | :: | subtitle | = | ' ' |
Feed sub-title. |
|
| character(len=512), | public | :: | url | = | ' ' |
Feed URL. |
|
| character(len=512), | public | :: | xsl | = | ' ' |
Path or URL of XSLT style sheet. |
Writes log messages in Atom Syndication Format (RFC 4287) to file or standard output.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(atom_type), | intent(inout) | :: | atom |
Atom type. |
||
| type(log_type), | intent(inout) | :: | logs(:) |
Log array. |
||
| integer, | intent(in), | optional | :: | unit |
Output unit. |