%%include "chatty.grg"
%%database "phonedir.txt"
%%database "ppage.txt"
%%define MKDIR
%%define DELIM |
%%define NAMCOL
%%define TEXEXT .html
%%sorton %LASTNAME %FIRSTNAME
%%equate _CHATTY_FILE "NULL"
%%equate _CHATTY_PATH 1
%%equate _CHATTY_TREE "home3/"
%%equate eq_pre_record CHATTY_FILE(%FIRSTNAME+"_"+%LASTNAME)
%%record
%FIRSTNAME %LASTNAME
%FIRSTNAME %LASTNAME
- JOB
- %JOB
- CONTACT
- %ROOM, x#isprivate(%EXTENSION)
#dohomepage(%FIRSTNAME,%LASTNAME)
%%block HOMEPAGE
PERSONAL PAGE
#eval(_homepage)
%%equate eval()
%%equate dohomepage(f,l)
"" >> _homepage
roll
if %FIRSTNAME = f and %LASTNAME = l then
%HOMEPAGE >> _homepage
break
endif
through:ppage
if _homepage <> "" then outputs("#HOMEPAGE")
endif
%%equate isprivate(extn)
if extn'0 = 52 then outputs("PRIVATE")
else outputs(extn)
endif
%%end