Summary Files Commits Branches @commit @diff @stats
path: root / meta / meta.awk
diff options
context:
space:
mode:
1 files changed, 0 insertions, 38 deletions
-rw-r--r--meta/meta.awk38
diff --git a/meta/meta.awk b/meta/meta.awk
index 58603d2..e439fc4 100644
--- a/meta/meta.awk
+++ b/meta/meta.awk
@@ -1,15 +1,4 @@
BEGIN {
- FS="\t"
- while ((getline < ENVIRON["META"]) > 0) {
- if ($1 == "") continue
- meta_title[$1] = $2 " \\&mdash; Syndamia"
- meta_description[$1] = $3
- }
- FS=" "
-
- HEADER = getfile(ENVIRON["HEADER"])
- FOOTER = getfile(ENVIRON["FOOTER"])
-
sitemap = ENVIRON["DST"] "/sitemap.xml"
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" ORS \
"<urlset" ORS \
@@ -21,36 +10,9 @@ BEGIN {
for (i = ARGC; i > 0; --i) {
if (!ARGV[i]) continue
- #-- Add header and footer --#
- start = HEADER
- FILENAME = substr(ARGV[i], length(ENVIRON["DST"]) + 2)
- gsub(/\$TITLE/, meta_title[FILENAME], start)
- gsub(/\$DESCRIPTION/, meta_description[FILENAME], start)
-
- end = FOOTER
- sub(/html$/, "du", FILENAME)
- gsub(/\$DUNBAR_SOURCE/, "/" FILENAME, end)
-
- # Note: nawk (20250116) has what is probably a bug,
- # if you do "print getfile(f) > f", you'll crash.
- # This is probably because in getfile we close the
- # file, but after the function is finished, the > expects
- # the file to be opened (> probably opens the file before
- # evaluating the print).
- contents = start getfile(ARGV[i]) end
- print contents > ARGV[i]
-
#-- Add to sitemap --#
print "<url><loc>" ENVIRON["URL"] substr(ARGV[i], length(ENVIRON["DST"]) + 1) "</loc><lastmod>" date "</lastmod><priority>1.0</priority></url>" > sitemap
}
print "</urlset>" > sitemap
}
-
-function getfile(filename, status, linebuf, filebuf) {
- while ((status = getline linebuf < filename) > 0)
- filebuf = filebuf linebuf ORS
- close(filename)
- sub(ORS "$", "", filebuf)
- return filebuf
-}