/*
* @progname dump_html.ll
* @version 1.3
* @author Scott McGee
* @category
* @output HTML
* @description
dump_html.ll is designed to dump an entire database to static HTML files.
by Scott McGee
@(#)dump_html.ll 1.3 10/1/95
/* Customization
Before using, there are a few properties that need to be customized for your
own environment. These are done by adding them to your .linesrc ( or for
windows lines.cfg) file. This report is does not need to be modified.
The properties that are looked up are:
user.fullname -- Name of the database owner
user.email -- Email address of db owner
genweb.image -- define with path to image if you have one to use
genweb.page -- define with path to page if you have one
genweb.page_nam -- where your 'homepage' is
genweb.isLDS -- define if true
genweb.add_index -- define as 1 to add to INDEX file
*/
include("extract_set.li")
include("tools.li")
/* other globals */
global(found) /* external file to inline image found flag */
global(per_file) /* number of people per file to write */
global(first) /* first person shouldn't be asked about */
global(RVAL) /* ?? (part of borrowed code) */
global(last_surname) /* last surname in index - used for anchors */
global(first_indi) /* starting person */
/* customization globals - customize values assigned in main */
global(db_owner) /* name of database owner */
global(owner_addr) /* url of database owner (mailto or homepage) */
global(genweb_image) /* name of genweb image to place on each page */
global(genweb_page) /* URL of base genweb (or homepage) web page */
global(page_name) /* name of base genweb (or homepage) web page */
global(LDS) /* display LDS Ordinances? (1=yes 0=no) */
global(html_index) /* put HTML tag in INDEX file (1=yes 0=no) */
proc main () {
indiset(out_set)
call set_static_html_globals()
set(per_file, 1)
print("Reading data...\n")
forindi(j, n) {
addtoset(out_set, j, n)
}
print("Working...\n")
call html_out(out_set)
}
proc set_static_html_globals(){
/* customize these globals to customize the output to your site */
set(db_owner, getproperty("user.fullname"))
set(owner_addr, getproperty("user.email"))
set(genweb_image, getproperty("genweb.image"))
set(genweb_page, getproperty("genweb.page"))
set(page_name, getproperty("genweb.page_name")) /* might change to "my homepage" */
set(LDS, getproperty("genweb.isLDS"))
set(html_index, getproperty("genweb.add_index")) /* use 1 to add to INDEX file */
}
proc html_out (o) {
set(s, concat("There are ", d(lengthset(o)),
" people in your list, how many per file?"))
getstr(a,s)
set(per_file, atoi(a))
if(not(per_file)) {
set(per_file, 1)
}
set(loop_count, 0)
set(file_count, 0)
set(href_table, init_href(o))
forindiset(o, i, j, n) {
set(indi, i)
if(eq(loop_count, 0)) {
incr(file_count)
call write_head(file_count)
}
incr(loop_count)
call genhtml(indi, o, href_table)
if(or(eq(loop_count, per_file), eq(n, lengthset(o)))) {
call write_tail()
set(loop_count, 0)
}
}
call do_index(o, href_table)
}
proc write_head(count) {
set(filename, concat("genweb/", database(), "/genweb_", d(count), ".html"))
print("Writing ", filename, "\n")
newfile(filename, 0)
"\n"
" genweb_"
d(count)
".html \n" "\n"
if(genweb_image) {
"![\"\"](\"")
\n"
}
}
proc write_tail() {
"
\n"
date(gettoday())
"
\n"
"Database maintained by "
"\n"
db_owner
"\n"
"\n"
}
proc genhtml (i, o, href_table) {
/* print(" ", fullname(i,0,1,300), "\n") */
"\n"
""
set(vn,givens(i))
set(vn1,save(vn))
givens(i)
" "
set(nn,surname(i))
set(nn1,save(nn))
nn1
"
\n"
set(path, get_picture(i))
if (found) {
"
\n"
}
call afn(i)
if (e, birth(i)) {
"Born : " long(e) "
\n"
}
if (e, baptism(i)) {
"Baptised : " long(e) "
\n"
}
elsif (e, bapt(i)) {
"Baptised : " long(e) "
\n"
}
if (e, death(i)) {
"Died : " long(e) "
\n"
}
if (e, burial(i)) {
"Buried : " long(e) "
\n"
}
if(LDS) {
/* LDS ordinances */
set(started, 0)
fornodes(inode(i), node) {
if (eq(0, strcmp(tag(node), "BAPL"))) {
if(not(started)) {
set(started, 1)
"
LDS Ordinances: B "
}
}
/* determine if endowed */
if (eq(0, strcmp(tag(node), "ENDL"))) {
if(not(started)) {
set(started, 1)
"
LDS Ordinances: "
}
"E "
}
}
/* determine if sealed to parents */
set(fam, fnode(parents(i)))
set(ind, inode(i))
if(fam) {
fornodes(fam, node) {
if(and(eqstr("CHIL", tag(node)), eqstr(xref(ind), value(node)))) {
fornodes(node, next) {
if(eqstr(tag(next), "SLGC")) {
if(not(started)) {
set(started, 1)
"
LDS Ordinances: "
}
"SC "
}
}
}
}
}
if(started){
"
\n"
}
}
/* "
" */
call othernames(i)
call print_html(i)
"
\n"
if (p, father(i)) {
"" "Father : "
set (path, get_href(p, href_table))
if(found) {
""
}
if (t,title(p)) {t " "}
fullname(p,0,1,300)
if(found) {""}
do_info(p)
"
\n"
}
if (p, mother(i)) {
"" "Mother : "
set (path, get_href(p, href_table))
if(found) {
""
}
if (t,title(p)) {t " "}
fullname(p,0,1,300)
if(found) {""}
do_info(p)
"
\n"
}
families(i, f, s, n) {
"" "Spouse"
if (gt(nfamilies(i), 1)) {
" "
d(n)
}
" : \n"
if (s) { /* family has a spouse */
set (path, get_href(s, href_table))
if(found) {
""
}
if (t,title(s)) {t " "}
fullname(s,0,1,300)
if(found) {""}
do_info(s)
"
\n"
}
if (e, marriage(f)) {
"Married "
long(e)
"
\n"
}
if (e, divorced(f)) {
"Divorced "
long(e)
"
\n"
}
if(LDS) {
fornodes(fnode(f), node) {
if (eq(0, strcmp(tag(node), "SLGS"))) {
"
LDS Ordinances: SS\n"
}
}
}
"
\n"
children(f, c, nn) {
"- "
set (path, get_href(c, href_table))
if(found) {
""
}
if (t,title(c)) {t " "}
fullname(c,0,1,300)
if(found) {""}
do_info(c)
"
\n"
}
"
\n"
}
call print_notes(i)
"
\n"
/* Insert code here for Pedigree and Descendant charts
if(parents(i)) {
"Pedigree Chart
\n"
}
if(nfamilies(i)) {
set(hasChildren, 0)
families(i, f, s, n) {
if(nchildren(f)) {
set(hasChildren, 1)
}
}
if(hasChildren) {
"Descendant Chart\n"
}
}
"
\n"
*/
"
\n"
"["
"Index to database]
\n"
if(genweb_page) {
"["
"Return to "
page_name
" ]
\n"
}
"
\n"
}
func init_href(outset){
table(href_table)
forindiset(outset, indi, j, number) {
insert(href_table, save(key(indi)), number)
}
return(href_table)
}
func get_href(indi, href_table) {
set(path, "")
set(found, 0)
set(value, lookup(href_table, key(indi)))
if(value){
set(number, add(div(sub(value, 1), per_file), 1))
set(path, concat("genweb_", d(number), ".html"))
set(found, 1)
}
return(path)
}
proc print_notes(indi){
set(first, 1)
traverse(inode(indi), node, l) {
if (not(strcmp("NOTE", tag(node)))) {
if(first) {
"Notes :
\n"
set(first, 0)
}
""
call show_path(node)
value(node)
"\n"
fornodes(node, next) {
value(next)
"\n"
}
"
\n"
}
}
}
proc show_path (node){
list(path)
while (node) {
push(path, tag(node))
set(node, parent(node))
}
"("
while (s, pop(path)) {
if(eqstr(lower(s), "indi")){
"Individual "
}elsif(eqstr(lower(s), "fam")){
"Family "
}elsif(eqstr(lower(s), "famc")){
"family "
}elsif(eqstr(lower(s), "fams")){
"family "
}elsif(eqstr(lower(s), "note")){
"note"
}elsif(eqstr(lower(s), "birt")){
"birth "
}elsif(eqstr(lower(s), "deat")){
"death "
}elsif(eqstr(lower(s), "buri")){
"burial "
}elsif(eqstr(lower(s), "plac")){
"place "
}else{
lower(s)
" "
}
}
")\n"
}
proc do_index(indi_set, href_table) {
set(last_surname, "ZZ")
list(RVAL)
indiset(index)
set(index, indi_set)
namesort(index)
print("Writing INDEX.html\n")
call create_index_file(index, href_table)
print("Writing GENDEX.txt\n")
call create_gendex_file(index, href_table)
}
proc create_gendex_file(index, href_table) {
set(fn, save(concat("genweb/", database(), "/GENDEX.txt")))
newfile(fn, 0)
forindiset(index, me, v, n)
{
set(path, concat(save(get_href(me, href_table)), "#", key(me)))
path
"|"
surname(me)
"|"
givens(me) " /"
surname(me) "/"
"|"
if (evt, birth(me)) {
date(evt)
}
"|"
if (evt, birth(me)) {
place(evt)
}
"|"
if (evt, death(me)) {
date(evt)
}
"|"
if (evt, death(me)) {
place(evt)
}
"|\n"
}
}
proc create_index_file(index, href_table) {
set(fn, save(concat("genweb/", database(), "/INDEX.html")))
newfile(fn, 0)
call html_header("Interactive Genealogical Server Index", html_index)
"\n"
if(genweb_image) {
"
\n"
}
" INDEX
\n"
"\n"
forindiset(index, me, v, n)
{
call href(me, href_table)
"\n"
}
"
\n"
call write_tail()
}
proc href(me, href_table) {
if(me) {
call print_name(me, 1)
if(ne(strcmp(upper(surname(me)), last_surname), 0)) {
print(" ", upper(surname(me)), "\n")
set(last_surname, save(upper(surname(me))))
"\n"
}
""
set (path, get_href(me, href_table))
if(found) {
"\n"
}
pop(RVAL)
if(found) {
""
}
do_info(me)
}
}
proc html_header(str, isindex) {
"\n"
"\n"
if(isindex) {
"\n"
}
" "
str
" \n"
"\n"
}
proc print_name (me, last) {
call get_title(me)
set(junk, pop(RVAL))
push(RVAL, save(concat(fullname(me, 1, not(last), 45), junk)))
}
proc get_title (me) {
fornodes(inode(me), node) {
if (not(strcmp("TITL", tag(node)))) {
set(n, node)
}
}
if (n) {
push(RVAL, save(concat(" ", value(n))))
}
else {
push(RVAL, "")
}
}
proc rjt(n, w) {
if (lt(n, 10)) {
set(d, 1)
}
elsif (lt(n, 100)) {
set(d, 2)
}
elsif (lt(n, 1000)) {
set(d, 3)
}
elsif (lt(n, 10000)) {
set(d, 4)
}
else {
set(d, 5)
}
if (lt(d, w)) {
set(pad, save( trim(" ", sub(w, d))))
}
else{
set(pad, "")
}
push(RVAL, save( concat(pad, save(d(n)))))
}
proc othernames(indi){
if(indi){
set(count, 0)
fornodes(inode(indi), subnode){
if(eqstr(tag(subnode), "NAME")){
incr(count)
if(eq(count, 2)){
"
Other Names: \n"
"- "
call nameval(subnode)
"
"
}elsif(gt(count, 2)){
"- "
call nameval(subnode)
"
\n"
}
}
}
if(gt(count, 1)){
"
\n"
}
}
}
proc afn(indi){
if(indi){
fornodes(inode(indi), subnode){
if(eqstr(tag(subnode), "AFN")){
"AFN "
value(subnode)
"
\n"
}
}
}
}
proc nameval(namenode){
list(np)
extractnames(namenode, np, nc, sc)
forlist(np, v, i){
v
" "
}
}
proc print_html(indi){
fornodes(inode(indi), node) {
if (eqstr("REPORT", tag(node))) {
set(m, child(node))
if (eqstr("TYPE", tag(m))) {
if (eqstr("HTML", value(m))) {
"
\n"
fornodes(m, o) {
if (eqstr("DATA", tag(o))) {
value(o)
"\n"
}
}
}
else {
if (eqstr("HTML-STATIC", value(m))) {
"
\n"
fornodes(m, o) {
if (eqstr("DATA", tag(o))) {
value(o)
"\n"
}
}
}
}
}
}
}
}
func divorced(fam) {
fornodes(fnode(fam), node) {
if (eq(0, strcmp(tag(node), "DIV"))) {
return(node)
}
}
return(0)
}