/usr/share/lifelines/gendex.ll is in lifelines-reports 3.0.61-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | /*
* @progname gendex.ll
* @version 1.2
* @author Scott McGee (smcgee@microware.com)
* @category
* @output HTML
* @description
This report program converts a LifeLines database into html gendex document.
You will need to change the contents of proc html_address() and to
set the value of HREF appropriately to your server.
@(#)gendex.ll 1.2 10/14/95
*/
global(INDEX)
global(HREF)
proc main()
{
indiset(INDEX)
set(HREF, "/INDEX=")
print("processing database\n")
set(count, 0)
set(name_count, 0)
forindi(me,num)
{
if(eq(count, 100)){
set(count, 0)
print(".")
}else{
incr(count)
incr(name_count)
}
addtoset(INDEX,me,1)
}
print("\nwriting file\n")
call create_gendex_file()
print("\n", d(name_count), " individuals\n")
}
proc create_gendex_file() {
set(fn, save("GENDEX.txt"))
newfile(fn, 0)
forindiset(INDEX, me, v, n)
{
set(path, concat(HREF, save(key(me)), "/?LookupInternal"))
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"
}
}
|