#!/bin/sh
exec awk -f - -- index.html << 'EOF'
BEGIN {
found = 0
section = 0
images = 0
title = "TITLE"
header = "DESCRIPTION"
description = ""
}
/"")/ { found=0 }
/^$/ { next }
found {
if (substr($1,0,1) == "/") next
gsub("^ +", "")
split($0, x, ",")
fn = substr(x[1], 2, length(x[1])-2)
i = 4
if (length(fn) == 0) i = 2
str = ""; while (i in x) { str = str","x[i]; i++; }
str = substr(str, 2); gsub("^ +", "", str); str = substr(str, 2, length(str)-3)
while (index(str, "<") != 0) { j=index(str,"<"); k=index(str,">"); str=substr(str,1,j-1)""substr(str,k+1) }
if (length(fn) == 0) {
if (section > 0) print " \n";
section++
print " \n "str"\n"
next
}
if ((images == 0) && (section == 0)) {
section++
print " \n \n"
}
images++
width = x[2]; gsub("^ +", "", width)
height = x[3]; gsub("^ +", "", height)
print " \n "fn"\n "width"\n "height"\n "str"\n \n"
}
/.*<\/TITLE>/ {
match($0, ".*");
str=substr($0,RSTART+7,RLENGTH-15);
while (index(str, "<") != 0) { j=index(str,"<"); k=index(str,">"); str=substr(str,1,j-1)""substr(str,k+1) }
title=str
}
/.*<\/H1>/ {
match($0, ".*
");
str=substr($0,RSTART+4,RLENGTH-9);
while (index(str, "<") != 0) { j=index(str,"<"); k=index(str,">"); str=substr(str,1,j-1)""substr(str,k+1) }
header=str
}
/ new Array/ {
print "\n "title"\n \n "description"\n"
found = 1
}
END {
print "
\n\n";
}
EOF