filename(./headers)
formtitle(Process Headers)
proc(id)
proctags(h1=>toitalic,h2=>underline,h3=>toitalic,h4=>underline)
desc(headersDesc)
##
sub headersDesc {
return "
Change headers content only. H1 content is processed by toupper function, H2 by tobold and H3 by toitalic as defined in application's DSL.
cginame(./headers)
formtitle(Process Headers)
proc(id)
proctags(h1=>uc,h2=>tobold,h3=>toitalic)
desc(headersDesc)
Good example to test: http://nrc.homelinux.org/headers.html
Example's source:
<body>
<h1>This is header 1</h1>
content blah
<h2>This is header 2</h2>
content blah
<h3>This is header 3</h3>
content blah
<h4>This is header 4</h4>
content blah
</body>
";
}
sub id {
my $item = shift;
return $item;
}
sub underline {
my $t = shift;
return "$t";
}
sub toitalic {
my $t = shift;
return "$t";
}