/usr/share/aft/aft-dbarticle.pm is in aft 2:5.098-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 | # AFT Output Elements.
# !!DO NOT EDIT!! This file was automatically generated by aft-compile v2.07 on Wed Nov 2 19:28:06 2011
# See http://www.maplefish.com/todd/aft.html for details.
package AFT_OUTPUT;
use vars qw ($file_preamble $file_postamble %elem %pragma_postvar);
$file_preamble = ''; # Holds preamble for output file.
$file_postamble = ''; # Holds postamble for output file.
%elem = (); # Element commands for producing output file.%pragma_postvar = (); # Variables for substitution post-filtering.
sub init_elements {
%pragma_postvar = (
);
%elem = (
'StartFilteredVerbatim' => qq'<programlisting>',
'PreFilterVerbatim?' => qq'Yes',
'NumberedListElement' => qq'<listitem>',
'EndParagraph' => qq'</para>',
'NoteRef' => qq'<superscript>\%ref\%</superscript>',
'EndSect3' => qq'</sec3>',
'StartVerbatim' => qq'<literallayout>',
'Center' => qq'\%center\%',
'CommentLine' => qq'<comment> \%line\% </comment>',
'EndBulletListElement' => qq'</listitem>',
'Image-right' => qq'<inlinegraphic fileref="\%image\%" format="gif" align=right></inlinegraphic>',
'EndFilteredVerbatim' => qq'</programlisting>',
'BulletListElement' => qq'<listitem>',
'TableHeader' => qq'<entry>\%stuff\%</entry>',
'InternalReference' => qq'<link linkend="\%target\%">\%text\%</link>',
'Author' => qq'<author>\%author\%</author>',
'EndNumberedList' => qq'</orderedlist>',
'URL' => qq'<ulink url="\%target\%">\%text\%</ulink>',
'Target' => qq'<anchor id="\%target\%">\%text\%',
'EndVerbatim' => qq'</literallayout>',
'EndStrong' => qq'</emphasis>',
'StartBulletList' => qq'<itemizedlist mark=opencircle>',
'EndSect1' => qq'</sec1>',
'StartParagraph' => qq'<para>',
'EndNamedListElement' => qq'</listitem></varlistentry>',
'TableCaption' => qq'<title>\%caption\%</title>',
'StartEmphasis' => qq'<emphasis>',
'Subscript' => qq'<subscript>\%stuff\%</subscript>',
'StartNamedList' => qq'<variablelist>',
'StartTable' => qq'<table><tgroup cols="\%columns\%">',
'EndSect2' => qq'</sec2>',
'StartSmall' => qq'<small>',
'ID' => qq'DocBookArticle ',
'EndTeletype' => qq'</computeroutput>',
'EndQuote' => qq'</blockquote>',
'Superscript' => qq'<superscript>\%stuff\%</supscript>',
'StartTeletype' => qq'<computeroutput>',
'EndSect4' => qq'</sec4>',
'*' => qq'<sec4 id="\%section\%"><title>\%section\%</title>',
'Title' => qq'<title id="AFT-top">\%title\%</title>',
'NBSPACE' => qq' ',
'EndNumberedListElement' => qq'</listitem>',
'StartBlockedVerbatim' => qq'<programlisting><![CDATA[',
'TableRowStart' => qq'<row>',
'EndNamedList' => qq'</variablelist>',
'HorizontalLine' => qq'',
'NamedListElement' => qq'<varlistentry><term>\%name\%</term><listitem>',
'EndTable' => qq'</table>',
'TableRowEnd' => qq'</row>',
'Image-center' => qq'<inlinegraphic fileref="\%image\%" format="gif" align=center></inlinegraphic>',
'Image' => qq'<inlinegraphic fileref="\%image\%" format="gif"></inlinegraphic>',
'FullFilterFilteredVerbatim?' => qq'Yes',
'TOC' => qq'',
'StrikeLine' => qq'<comment> Striken: \%line\% </comment>',
'StartStrong' => qq'<emphasis role=bold>',
'EndEmphasis' => qq'</emphasis>',
'StartQuote' => qq'<blockquote>',
'Image-left' => qq'<inlinegraphic fileref="\%image\%" format="gif" align=left></inlinegraphic>',
'EndBlockedVerbatim' => qq']]></programlisting> ',
'StartNumberedList' => qq'<orderedlist>',
'TableElement' => qq'<entry>\%stuff\%</entry>',
'EndSmall' => qq'</small>',
'EndBulletList' => qq'</itemizedlist>',
);
## Preamble:
$file_preamble = '<!doctype article PUBLIC "-//OASIS//DTD DocBook V3.1//EN">
<article>
<artheader>
<author>%author%</author>
</artheader>
';
## Postamble:
$file_postamble = '</article>
';
}
## Prefilter subroutine:
sub prefilter {
my ($line) = @_;
$line=~s/\014//g;
$line=~s/\&/\&/g;
$line=~s/\"/\"/g;
$line=~s/\>/\>/g;
$line=~s/\</\</g;
$line=~s/\\\\/<br>/g;
return $line;
}
## Postfilter subroutine:
sub postfilter {
my ($line) = @_;
return $line;
}
1;
|