You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2002/06/16 15:44:50 UTC
cvs commit: modperl-docs/tmpl/custom/html headers
stas 2002/06/16 06:44:50
Modified: tmpl/custom/html headers
Log:
committing the forgotten file
Revision Changes Path
1.5 +34 -6 modperl-docs/tmpl/custom/html/headers
Index: headers
===================================================================
RCS file: /home/cvs/modperl-docs/tmpl/custom/html/headers,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- headers 3 Apr 2002 05:18:27 -0000 1.4
+++ headers 16 Jun 2002 13:44:50 -0000 1.5
@@ -1,6 +1,34 @@
- <meta name="Author" content="docs-dev (at) perl.apache.org">
- <meta name="Description" content="mod_perl documentation: Manuals, Hints, Guidelines, Scenarios, Troubleshooting and Help">
- <meta name="keywords" content="mod_perl modperl perl cgi apache webserver speed fast guide mod_perl asf parent apache guide help info faq mod_perl installation cgi troubleshooting help no sex speedup child rules free open source OSS mod_perl speed suck apache guide manual troubleshoot cgi fast apache sexy ">
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
- <meta name="Classification" content="information">
- <link href="[% doc.dir.abs_doc_root %]/style.css" rel="stylesheet" type="text/css" title="refstyle">
\ No newline at end of file
+
+[%- default_headers = {
+ meta => {
+ name => {
+ author => 'docs-dev (at) perl.apache.org',
+ keywords => 'mod_perl modperl perl cgi apache webserver speed fast guide mod_perl asf parent apache guide help info faq mod_perl installation cgi troubleshooting help no sex speedup child rules free open source OSS mod_perl speed suck apache guide manual troubleshoot cgi fast apache sexy',
+ classification => 'information',
+ },
+ 'http-equiv' => {
+ 'Content-Type' => 'text/html; charset=iso-8859-1',
+ },
+ },
+ link => "<link href=\"${doc.dir.abs_doc_root}/style.css\" rel=\"stylesheet\" type=\"text/css\" title=\"refstyle\">",
+
+};
+
+abstract = doc.meta.abstract or "Manuals, Hints, Guidelines, Scenarios, Troubleshooting and Help";
+
+-%]
+
+[%- " $l\n" FOREACH l = [ doc.headers.link, default_headers.link ] -%]
+ <meta name="description" content="mod_perl documentation: [% abstract | uri | html %]">
+[%- FOREACH m = ["name", "http-equiv"];
+ SET merge = {};
+ merge.import(default_headers.meta.$m); # deep copy
+ merge.import(doc.headers.meta.$m); # merge
+ FOREACH key = merge.keys; %]
+ <meta [% m %]="[% key %]" content="[% merge.$key | uri | html %]">
+[%- END;
+END -%]
+
+[% IF doc.headers.base -%]
+ <base href="[% doc.headers.base | uri | html %]">
+[%- END -%]
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org